diff --git a/api.lisp b/api.lisp index 5bf29eda..789bf148 100644 --- a/api.lisp +++ b/api.lisp @@ -27,6 +27,11 @@ #:aws-request)) (in-package #:aws-sdk/api) +(defvar *keep-alive* t + "Determines if HTTP connections use keep-alive. Only affects requests made via AWS-SDK/API:AWS-REQUEST.") +(defvar *use-connection-pool* t + "Determines if HTTP connections are pooled. Only affects requests made via AWS-SDK/API:AWS-REQUEST.") + (defun aws-request (req &key want-stream) (check-type req request) (let* ((session (request-session req)) @@ -37,10 +42,13 @@ (error "No credentials are found")) (unless region (error "AWS region is not configured")) - (let ((aws-sign4:*aws-credentials* (lambda () (credentials-keys credentials))) - (headers (append (credentials-headers credentials) - (request-headers req))) - (payload (request-payload req))) + (let* ((aws-sign4:*aws-credentials* (lambda () (credentials-keys credentials))) + (payload (request-payload req)) + (payload-hash + `(("X-Amz-Content-Sha256" . ,(aws-sdk/utils::sha-256 (or payload ""))))) + (headers (append (credentials-headers credentials) + (request-headers req) + payload-hash))) (multiple-value-bind (authorization x-amz-date) (let ((uri (quri:uri (request-path req)))) (aws-sign4:aws-sign4 :region region @@ -48,7 +56,11 @@ :method (request-method req) :host (request-host req region) :path (quri:uri-path uri) - :params (quri:uri-query-params uri) + :params (mapcar (lambda (kv) + (if (null (cdr kv)) + (cons (car kv) "") + kv)) + (quri:uri-query-params uri)) :headers headers :payload (or payload ""))) (multiple-value-list @@ -57,8 +69,8 @@ :method (request-method req) :headers `(("Authorization" . ,authorization) ("X-Amz-Date" . ,x-amz-date) - ("X-Amz-Content-Sha256" . ,(aws-sdk/utils::sha-256 (or payload ""))) ,@headers) :content payload - :keep-alive nil + :keep-alive *keep-alive* + :use-connection-pool *use-connection-pool* :want-stream want-stream))))))) diff --git a/credentials/ec2role.lisp b/credentials/ec2role.lisp index c522ed7c..772086a8 100644 --- a/credentials/ec2role.lisp +++ b/credentials/ec2role.lisp @@ -6,7 +6,8 @@ #:retrieve #:provider-expiration) (:import-from #:aws-sdk/ec2metadata - #:ec2metadata) + #:ec2metadata + #:ec2token) (:import-from #:trivial-timeout #:timeout-error) (:import-from #:cl-ppcre) @@ -18,13 +19,44 @@ (defclass ec2role-provider (provider) ()) +(defvar *default-token-ttl* 21600) +(defvar *token* nil) +(defvar *use-imds-v2* t) + +(defstruct token + (ttl *default-token-ttl* :type integer) + (value nil :type string) + (created-at (get-universal-time) :type integer)) + +(defun token-alive-p (token) + (and (token-p token) + (<= (get-universal-time) + (+ (token-created-at token) (token-ttl token))))) + +(defun fetch-token () + (when *use-imds-v2* + (if (token-alive-p *token*) + (token-value *token*) + (handler-case + (let ((new-token (ec2token *default-token-ttl*))) + (setf *token* (make-token :value new-token)) + new-token) + ((or dex:http-request-forbidden + dex:http-request-not-found + dex:http-request-method-not-allowed) () + (setf *use-imds-v2* nil) + nil))))) + (defmethod retrieve ((provider ec2role-provider)) (handler-case - (let ((role (ppcre:scan-to-strings "^.+?(?=(?:[\\r\\n]|$))" - (ec2metadata "/iam/security-credentials/")))) + (let* ((token (fetch-token)) + (role (ppcre:scan-to-strings "^.+?(?=(?:[\\r\\n]|$))" + (ec2metadata "/iam/security-credentials/" + :token token)))) (when role (let ((res (yason:parse - (ec2metadata (format nil "/iam/security-credentials/~A" role))))) + (ec2metadata (format nil "/iam/security-credentials/~A" role) + :token token)))) (setf (provider-expiration provider) (local-time:parse-timestring (gethash "Expiration" res))) (make-credentials diff --git a/ec2metadata.lisp b/ec2metadata.lisp index 9b8c3a9e..539ddb36 100644 --- a/ec2metadata.lisp +++ b/ec2metadata.lisp @@ -5,13 +5,22 @@ #:with-timeout #:timeout-error) (:export #:ec2metadata + #:ec2token #:ec2-region)) (in-package #:aws-sdk/ec2metadata) -(defun ec2metadata (path) +(defun ec2metadata (path &key token) (with-timeout (5) (dex:get (format nil "http://169.254.169.254/latest/meta-data~A" (or path "/")) + :headers `(,@(and token `(("x-aws-ec2-metadata-token" . ,token)))) + :keep-alive nil))) + +(defun ec2token (ttl) + (check-type ttl (integer 1)) + (with-timeout (5) + (dex:put "http://169.254.169.254/latest/api/token" + :headers `(("x-aws-ec2-metadata-token-ttl-seconds" . ,ttl)) :keep-alive nil))) (defun ec2-region () diff --git a/generator/operation.lisp b/generator/operation.lisp index 623ccd34..73ac4ae6 100644 --- a/generator/operation.lisp +++ b/generator/operation.lisp @@ -24,6 +24,8 @@ (:import-from #:uiop #:string-prefix-p) (:import-from #:xmls) + (:import-from #:str + #:replace-using) (:export #:compile-operation)) (in-package #:aws-sdk/generator/operation) @@ -75,31 +77,58 @@ :status status :body body-str))) -(defun parse-response (response body-type wrapper-name error-map) +(defun parse-response (response body-type wrapper-name error-map &optional default-content-type) (destructuring-bind (body status headers &rest ignore-args) response + ;; TODO: Parse also from headers (declare (ignore ignore-args)) - (let ((content-type (gethash "content-type" headers))) + (let ((content-type (or (gethash "content-type" headers) + default-content-type))) (if (<= 400 status 599) (parse-response-error body status content-type error-map) - (if (equal body-type "blob") - body - (let ((body-str (ensure-string (or body "")))) - (cond - ((or (string-prefix-p "text/xml" content-type) - (string-prefix-p "application/xml" content-type)) - (let* ((output (xmls-to-alist (xmls:parse-to-list body-str))) - (output ;; Unwrap the root element - (cdr (first output)))) - (if wrapper-name - (values (aget output wrapper-name) - (aget output "ResponseMetadata")) - output))) - ((member content-type '("application/json" "application/x-amz-json-1.1" "application/x-amz-json-1.0") - :test #'string=) - (yason:parse body-str :object-as :alist)) - (t - body-str)))))))) + (values + (if (or (= status 204) + (equal body-type "blob")) + body + (let ((body-str (ensure-string (or body "")))) + (cond + ((or (string-prefix-p "text/xml" content-type) + (string-prefix-p "application/xml" content-type)) + (if (string= body-str "") + body-str + (let* ((output (xmls-to-alist (xmls:parse-to-list body-str))) + (output ;; Unwrap the root element + (cdr (first output)))) + (if wrapper-name + (values (aget output wrapper-name) + (aget output "ResponseMetadata")) + output)))) + ((member content-type '("application/json" "application/x-amz-json-1.1" "application/x-amz-json-1.0") + :test #'string=) + (yason:parse body-str :object-as :alist)) + (t + body-str)))) + status + headers))))) + +(defun aws-sign4-uri-encode (data &optional path?) + (replace-using + (append + '( + ;; See https://docs.aws.amazon.com/IAM/latest/UserGuide/reference_sigv-create-signed-request.html + ;; and https://github.com/aws/aws-sdk-java/blob/d9d27d23607ddcf09cc25f48a9d2fbfe697fe60c/aws-java-sdk-core/src/main/java/com/amazonaws/util/SdkHttpUtils.java#L66 + "+" "%20" + "*" "%2A" + "%7E" "~") + (when path? + '("%2F" "/" + ;; The replacement below is not documented, but empirically, + ;; we need this to get lambda INVOKE requests to be properly + ;; signed when using full ARN function identifiers. Also, + ;; Amazon Q says this should be the case, although it is not + ;; a source of authoritative specification. + "%3A" ":"))) + (quri:url-encode data))) (defun compile-path-pattern (path-pattern) (when path-pattern @@ -113,7 +142,7 @@ (push (if plus-ends `(slot-value input ',slot-symbol) - `(quri:url-encode (slot-value input ',slot-symbol))) + `(aws-sign4-uri-encode (slot-value input ',slot-symbol) t)) slots)))))) (if slots `(lambda (input) @@ -121,7 +150,7 @@ ,@slots)) path-pattern)))) -(defun compile-operation (service name options params body-type error-map) +(defun compile-operation (service name options params body-type error-map protocol) (let* ((output (gethash "output" options)) (method (gethash "method" (gethash "http" options))) (request-uri (gethash "requestUri" (gethash "http" options)))) @@ -141,7 +170,10 @@ ,body-type ,(and output (gethash "resultWrapper" output)) - ,error-map))) + ,error-map + ,(case protocol + ((:json :rest-json) "application/json") + (:rest-xml "application/xml"))))) (export ',(lispify name)))) `(progn (defun ,(lispify name) () diff --git a/generator/service.lisp b/generator/service.lisp index f1a6f4a2..b249d845 100644 --- a/generator/service.lisp +++ b/generator/service.lisp @@ -10,6 +10,8 @@ #:query-request) (:import-from #:aws-sdk/json-request #:json-request) + (:import-from #:aws-sdk/rest-json-request + #:rest-json-request) (:import-from #:aws-sdk/rest-xml-request #:rest-xml-request) (:import-from #:yason) @@ -33,7 +35,7 @@ (request-name (intern (format nil "~:@(~A-REQUEST~)" service)))) (format stream "~&;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR.~2%") (format stream "~&~S~%" - `(defpackage ,package-name + `(uiop:define-package ,package-name (:use) (:nicknames ,(make-symbol (format nil "~:@(~A/~A~)" :aws service))) (:import-from #:aws-sdk/generator/shape) @@ -108,7 +110,8 @@ (find-output-type (gethash+ `("shapes" ,(gethash "shape" shape)) hash)))))) (find-output-type payload-shape)))) - (intern (string :*error-map*))))) + (intern (string :*error-map*)) + protocol))) (force-output stream))))) (defun dump-service-base-file-to-stream (service service-dir &optional (stream *standard-output*)) diff --git a/generator/shape.lisp b/generator/shape.lisp index f6267ad1..f4a67ec6 100644 --- a/generator/shape.lisp +++ b/generator/shape.lisp @@ -39,6 +39,8 @@ (:method (input) input)) (defgeneric input-headers (input)) (defgeneric input-payload (input)) +(defgeneric input-payload-properties (input) + (:method (input) (declare (ignore input)) nil)) (defun add-query-with-input (uri input) (quri:make-uri :defaults uri @@ -55,15 +57,16 @@ (defun make-request-with-input (request-class input method path-conversion action) (make-instance request-class :method method - :path (add-query-with-input - (etypecase path-conversion - (string path-conversion) - (function (funcall path-conversion input)) - (null "/")) - input) + :path (quri:render-uri (add-query-with-input + (etypecase path-conversion + (string path-conversion) + (function (funcall path-conversion input)) + (null "/")) + input)) :params (input-params input) :headers (input-headers input) :payload (input-payload input) + :payload-properties (input-payload-properties input) :operation action)) (defun filter-member (key value members) @@ -105,7 +108,7 @@ (lambda (key-value) (destructuring-bind (key . value) key-value `(when-let (value (slot-value input ',(lispify key))) - (cons ,(gethash "locationName" value) value)))) + (cons (cons ,(gethash "locationName" value) value) nil)))) (filter-member "location" "header" members)) ,@(mapcar (lambda (key-value) @@ -119,15 +122,26 @@ (defmethod input-params ((input ,shape-name)) (append ,@(loop for key being each hash-key of members - using (hash-value value) - if (not (or (gethash "location" value) + using (hash-value value) + if (not (or (string= "Payload" key) + (gethash "location" value) (gethash "streaming" value))) - collect `(when-let (value (slot-value input ',(lispify key))) - (list (cons ,key (input-params value))))))) + collect `(when-let (value (slot-value input ',(lispify key))) + (list (cons ,key (input-params value))))))) (defmethod input-payload ((input ,shape-name)) ,(if payload `(slot-value input ',(lispify payload)) - 'nil))))) + 'nil)) + ,@(when (and payload + (gethash payload members)) + (let ((props (gethash payload members))) + `((defmethod input-payload-properties ((input ,shape-name)) + (declare (ignore input)) + (list ,@(and (gethash "locationName" props) + `(:location-name ,(gethash "locationName" props))) + ,@(and (gethash "xmlNamespace" props) + (gethash "uri" (gethash "xmlNamespace" props)) + `(:xml-namespace ,(gethash "uri" (gethash "xmlNamespace" props)))))))))))) (defun compile-exception-shape (name &key members exception) (let ((condition-name (lispify* name))) diff --git a/request.lisp b/request.lisp index 572ace16..015aa627 100644 --- a/request.lisp +++ b/request.lisp @@ -62,6 +62,9 @@ (payload :initarg :payload :initform nil :accessor request-payload) + (payload-properties :initarg :payload-properties + :initform nil + :accessor request-payload-properties) (session :initarg :session :initform *session* :reader request-session))) diff --git a/rest-xml-request.lisp b/rest-xml-request.lisp index 127c8b0c..2fed9704 100644 --- a/rest-xml-request.lisp +++ b/rest-xml-request.lisp @@ -3,21 +3,44 @@ (:import-from #:aws-sdk/request #:request #:request-headers - #:request-path) + #:request-path + #:request-payload) (:import-from #:aws-sdk/session #:*session*) + (:import-from #:xml-emitter) (:export #:rest-xml-request)) (in-package #:aws-sdk/rest-xml-request) (defclass rest-xml-request (request) ()) +(defun object-to-xml (object location-name &optional xml-namespace) + (assert location-name) + (typecase object + (null) + ;; XXX: Should see if it's flattened or not. + (cons (map nil (lambda (obj) (object-to-xml obj location-name)) + object)) + (standard-object + (xml-emitter:with-simple-tag (location-name nil xml-namespace) + (loop for slot in (c2mop:class-direct-slots (class-of object)) + for value = (slot-value object (c2mop:slot-definition-name slot)) + for tag-name = (or (aws-sdk/generator/shape::member-slot-location-name slot) + (aws-sdk/generator/shape::member-slot-shape slot)) + when value + do (if tag-name + (object-to-xml value tag-name) + (xml-emitter:xml-out value))))) + (otherwise + (xml-emitter:simple-tag location-name object nil xml-namespace)))) -(defmethod initialize-instance :after ((req rest-xml-request) &rest args &key params path &allow-other-keys) +(defmethod initialize-instance :after ((req rest-xml-request) &rest args &key path payload payload-properties &allow-other-keys) (declare (ignore args)) - (let ((uri (quri:uri path))) - (setf (request-path req) - (quri:render-uri - (quri:make-uri :path (quri:uri-path uri) - :query (quri:url-encode-params (append (quri:uri-query-params uri) - params))))))) + (when (typep payload 'standard-object) + (destructuring-bind (&key location-name xml-namespace) + payload-properties + (setf (request-payload req) + (with-output-to-string (s) + (xml-emitter:with-xml-output (s :encoding "UTF-8") + (object-to-xml payload location-name xml-namespace)))))) + (setf (request-path req) path)) diff --git a/services/AWSMigrationHub/api.lisp b/services/AWSMigrationHub/api.lisp index 26e5b06a..d8512173 100644 --- a/services/AWSMigrationHub/api.lisp +++ b/services/AWSMigrationHub/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/awsmigrationhub/api - (:use) - (:nicknames #:aws/awsmigrationhub) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/awsmigrationhub/api (:use) + (:nicknames #:aws/awsmigrationhub) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/awsmigrationhub/api) (common-lisp:progn (common-lisp:define-condition awsmigrationhub-error @@ -2664,7 +2663,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "AssociateCreatedArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-created-artifact)) (common-lisp:progn (common-lisp:defun associate-discovered-resource @@ -2684,7 +2683,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "AssociateDiscoveredResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-discovered-resource)) (common-lisp:progn (common-lisp:defun create-progress-update-stream @@ -2702,7 +2701,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "CreateProgressUpdateStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-progress-update-stream)) (common-lisp:progn (common-lisp:defun delete-progress-update-stream @@ -2720,7 +2719,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "DeleteProgressUpdateStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-progress-update-stream)) (common-lisp:progn (common-lisp:defun describe-application-state @@ -2737,7 +2736,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "DescribeApplicationState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-state)) (common-lisp:progn (common-lisp:defun describe-migration-task @@ -2755,7 +2754,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "DescribeMigrationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-migration-task)) (common-lisp:progn (common-lisp:defun disassociate-created-artifact @@ -2775,7 +2774,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "DisassociateCreatedArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-created-artifact)) (common-lisp:progn (common-lisp:defun disassociate-discovered-resource @@ -2795,7 +2794,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "DisassociateDiscoveredResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-discovered-resource)) (common-lisp:progn (common-lisp:defun import-migration-task @@ -2813,7 +2812,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "ImportMigrationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-migration-task)) (common-lisp:progn (common-lisp:defun list-application-states @@ -2830,7 +2829,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "ListApplicationStates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-states)) (common-lisp:progn (common-lisp:defun list-created-artifacts @@ -2849,7 +2848,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "ListCreatedArtifacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-created-artifacts)) (common-lisp:progn (common-lisp:defun list-discovered-resources @@ -2869,7 +2868,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "ListDiscoveredResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-discovered-resources)) (common-lisp:progn (common-lisp:defun list-migration-tasks @@ -2886,7 +2885,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "ListMigrationTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-migration-tasks)) (common-lisp:progn (common-lisp:defun list-progress-update-streams @@ -2903,7 +2902,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "ListProgressUpdateStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-progress-update-streams)) (common-lisp:progn (common-lisp:defun notify-application-state @@ -2921,7 +2920,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "NotifyApplicationState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-application-state)) (common-lisp:progn (common-lisp:defun notify-migration-task-state @@ -2942,7 +2941,7 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "NotifyMigrationTaskState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-migration-task-state)) (common-lisp:progn (common-lisp:defun put-resource-attributes @@ -2961,5 +2960,5 @@ (aws-sdk/generator/shape:make-request-with-input 'awsmigrationhub-request aws-sdk/generator/operation::input "POST" "/" "PutResourceAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-attributes)) diff --git a/services/accessanalyzer/api.lisp b/services/accessanalyzer/api.lisp index 3d348a60..cdbe026f 100644 --- a/services/accessanalyzer/api.lisp +++ b/services/accessanalyzer/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/accessanalyzer/api - (:use) - (:nicknames #:aws/accessanalyzer) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/accessanalyzer/api (:use) + (:nicknames #:aws/accessanalyzer) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/accessanalyzer/api) (common-lisp:progn (common-lisp:define-condition accessanalyzer-error @@ -20,7 +19,7 @@ (common-lisp:export 'accessanalyzer-error)) (common-lisp:progn (common-lisp:defclass accessanalyzer-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "accessanalyzer" :api-version "2019-11-01" :host-prefix @@ -8443,7 +8442,7 @@ aws-sdk/generator/operation::input "PUT" "/archive-rule" "ApplyArchiveRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'apply-archive-rule)) (common-lisp:progn (common-lisp:defun cancel-policy-generation @@ -8465,12 +8464,13 @@ (common-lisp:format common-lisp:nil "/policy/generation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "CancelPolicyGeneration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-policy-generation)) (common-lisp:progn (common-lisp:defun check-access-not-granted @@ -8489,7 +8489,7 @@ "POST" "/policy/check-access-not-granted" "CheckAccessNotGranted")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'check-access-not-granted)) (common-lisp:progn (common-lisp:defun check-no-new-access @@ -8510,7 +8510,7 @@ "POST" "/policy/check-no-new-access" "CheckNoNewAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'check-no-new-access)) (common-lisp:progn (common-lisp:defun create-access-preview @@ -8528,7 +8528,7 @@ aws-sdk/generator/operation::input "PUT" "/access-preview" "CreateAccessPreview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-access-preview)) (common-lisp:progn (common-lisp:defun create-analyzer @@ -8548,7 +8548,7 @@ aws-sdk/generator/operation::input "PUT" "/analyzer" "CreateAnalyzer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-analyzer)) (common-lisp:progn (common-lisp:defun create-archive-rule @@ -8572,12 +8572,13 @@ (common-lisp:format common-lisp:nil "/analyzer/~A/archive-rule" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analyzer-name)))) + 'analyzer-name) + common-lisp:t))) "CreateArchiveRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-archive-rule)) (common-lisp:progn (common-lisp:defun delete-analyzer @@ -8599,12 +8600,13 @@ (common-lisp:format common-lisp:nil "/analyzer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analyzer-name)))) + 'analyzer-name) + common-lisp:t))) "DeleteAnalyzer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-analyzer)) (common-lisp:progn (common-lisp:defun delete-archive-rule @@ -8627,16 +8629,18 @@ (common-lisp:format common-lisp:nil "/analyzer/~A/archive-rule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analyzer-name)) - (quri.encode:url-encode + 'analyzer-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "DeleteArchiveRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-archive-rule)) (common-lisp:progn (common-lisp:defun get-access-preview @@ -8658,12 +8662,13 @@ (common-lisp:format common-lisp:nil "/access-preview/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-preview-id)))) + 'access-preview-id) + common-lisp:t))) "GetAccessPreview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-access-preview)) (common-lisp:progn (common-lisp:defun get-analyzed-resource @@ -8681,7 +8686,7 @@ "GET" "/analyzed-resource" "GetAnalyzedResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-analyzed-resource)) (common-lisp:progn (common-lisp:defun get-analyzer @@ -8703,12 +8708,13 @@ (common-lisp:format common-lisp:nil "/analyzer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analyzer-name)))) + 'analyzer-name) + common-lisp:t))) "GetAnalyzer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-analyzer)) (common-lisp:progn (common-lisp:defun get-archive-rule @@ -8730,16 +8736,18 @@ (common-lisp:format common-lisp:nil "/analyzer/~A/archive-rule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analyzer-name)) - (quri.encode:url-encode + 'analyzer-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "GetArchiveRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-archive-rule)) (common-lisp:progn (common-lisp:defun get-finding @@ -8761,12 +8769,13 @@ (common-lisp:format common-lisp:nil "/finding/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetFinding")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-finding)) (common-lisp:progn (common-lisp:defun get-finding-v2 @@ -8789,12 +8798,13 @@ (common-lisp:format common-lisp:nil "/findingv2/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetFindingV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-finding-v2)) (common-lisp:progn (common-lisp:defun get-generated-policy @@ -8819,12 +8829,13 @@ (common-lisp:format common-lisp:nil "/policy/generation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetGeneratedPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-generated-policy)) (common-lisp:progn (common-lisp:defun list-access-preview-findings @@ -8850,12 +8861,13 @@ (common-lisp:format common-lisp:nil "/access-preview/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-preview-id)))) + 'access-preview-id) + common-lisp:t))) "ListAccessPreviewFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-preview-findings)) (common-lisp:progn (common-lisp:defun list-access-previews @@ -8873,7 +8885,7 @@ aws-sdk/generator/operation::input "GET" "/access-preview" "ListAccessPreviews")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-previews)) (common-lisp:progn (common-lisp:defun list-analyzed-resources @@ -8893,7 +8905,7 @@ "POST" "/analyzed-resource" "ListAnalyzedResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-analyzed-resources)) (common-lisp:progn (common-lisp:defun list-analyzers @@ -8910,7 +8922,7 @@ aws-sdk/generator/operation::input "GET" "/analyzer" "ListAnalyzers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-analyzers)) (common-lisp:progn (common-lisp:defun list-archive-rules @@ -8933,12 +8945,13 @@ (common-lisp:format common-lisp:nil "/analyzer/~A/archive-rule" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analyzer-name)))) + 'analyzer-name) + common-lisp:t))) "ListArchiveRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-archive-rules)) (common-lisp:progn (common-lisp:defun list-findings @@ -8957,7 +8970,7 @@ aws-sdk/generator/operation::input "POST" "/finding" "ListFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings)) (common-lisp:progn (common-lisp:defun list-findings-v2 @@ -8976,7 +8989,7 @@ aws-sdk/generator/operation::input "POST" "/findingv2" "ListFindingsV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings-v2)) (common-lisp:progn (common-lisp:defun list-policy-generations @@ -8995,7 +9008,7 @@ "GET" "/policy/generation" "ListPolicyGenerations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policy-generations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9017,12 +9030,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-policy-generation @@ -9043,7 +9057,7 @@ "PUT" "/policy/generation" "StartPolicyGeneration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-policy-generation)) (common-lisp:progn (common-lisp:defun start-resource-scan @@ -9062,7 +9076,7 @@ aws-sdk/generator/operation::input "POST" "/resource/scan" "StartResourceScan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-resource-scan)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9084,12 +9098,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9111,12 +9126,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-archive-rule @@ -9140,16 +9156,18 @@ (common-lisp:format common-lisp:nil "/analyzer/~A/archive-rule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analyzer-name)) - (quri.encode:url-encode + 'analyzer-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "UpdateArchiveRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-archive-rule)) (common-lisp:progn (common-lisp:defun update-findings @@ -9168,7 +9186,7 @@ aws-sdk/generator/operation::input "PUT" "/finding" "UpdateFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-findings)) (common-lisp:progn (common-lisp:defun validate-policy @@ -9189,5 +9207,5 @@ "POST" "/policy/validation" "ValidatePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-policy)) diff --git a/services/account/api.lisp b/services/account/api.lisp index 87744142..8e9eb392 100644 --- a/services/account/api.lisp +++ b/services/account/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/account/api - (:use) - (:nicknames #:aws/account) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/account/api (:use) + (:nicknames #:aws/account) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/account/api) (common-lisp:progn (common-lisp:define-condition account-error @@ -20,7 +19,7 @@ (common-lisp:export 'account-error)) (common-lisp:progn (common-lisp:defclass account-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "account" :api-version "2021-02-01" :host-prefix "account" :signing-name @@ -1252,7 +1251,7 @@ "POST" "/deleteAlternateContact" "DeleteAlternateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alternate-contact)) (common-lisp:progn (common-lisp:defun disable-region @@ -1269,7 +1268,7 @@ aws-sdk/generator/operation::input "POST" "/disableRegion" "DisableRegion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-region)) (common-lisp:progn (common-lisp:defun enable-region @@ -1286,7 +1285,7 @@ aws-sdk/generator/operation::input "POST" "/enableRegion" "EnableRegion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-region)) (common-lisp:progn (common-lisp:defun get-alternate-contact @@ -1305,7 +1304,7 @@ "POST" "/getAlternateContact" "GetAlternateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-alternate-contact)) (common-lisp:progn (common-lisp:defun get-contact-information @@ -1323,7 +1322,7 @@ "POST" "/getContactInformation" "GetContactInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact-information)) (common-lisp:progn (common-lisp:defun get-region-opt-status @@ -1341,7 +1340,7 @@ "POST" "/getRegionOptStatus" "GetRegionOptStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-region-opt-status)) (common-lisp:progn (common-lisp:defun list-regions @@ -1361,7 +1360,7 @@ aws-sdk/generator/operation::input "POST" "/listRegions" "ListRegions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-regions)) (common-lisp:progn (common-lisp:defun put-alternate-contact @@ -1382,7 +1381,7 @@ "POST" "/putAlternateContact" "PutAlternateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-alternate-contact)) (common-lisp:progn (common-lisp:defun put-contact-information @@ -1400,5 +1399,5 @@ "POST" "/putContactInformation" "PutContactInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-contact-information)) diff --git a/services/acm-pca/api.lisp b/services/acm-pca/api.lisp index fef7127b..e9a0faf5 100644 --- a/services/acm-pca/api.lisp +++ b/services/acm-pca/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/acm-pca/api - (:use) - (:nicknames #:aws/acm-pca) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/acm-pca/api (:use) + (:nicknames #:aws/acm-pca) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/acm-pca/api) (common-lisp:progn (common-lisp:define-condition acm-pca-error @@ -4270,7 +4269,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-certificate-authority)) (common-lisp:progn (common-lisp:defun create-certificate-authority-audit-report @@ -4291,7 +4290,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCertificateAuthorityAuditReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-certificate-authority-audit-report)) (common-lisp:progn (common-lisp:defun create-permission @@ -4311,7 +4310,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-permission)) (common-lisp:progn (common-lisp:defun delete-certificate-authority @@ -4332,7 +4331,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-certificate-authority)) (common-lisp:progn (common-lisp:defun delete-permission @@ -4351,7 +4350,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permission)) (common-lisp:progn (common-lisp:defun delete-policy @@ -4368,7 +4367,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-policy)) (common-lisp:progn (common-lisp:defun describe-certificate-authority @@ -4386,7 +4385,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-certificate-authority)) (common-lisp:progn (common-lisp:defun describe-certificate-authority-audit-report @@ -4406,7 +4405,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCertificateAuthorityAuditReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-certificate-authority-audit-report)) (common-lisp:progn (common-lisp:defun get-certificate @@ -4425,7 +4424,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-certificate)) (common-lisp:progn (common-lisp:defun get-certificate-authority-certificate @@ -4443,7 +4442,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCertificateAuthorityCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-certificate-authority-certificate)) (common-lisp:progn (common-lisp:defun get-certificate-authority-csr @@ -4461,7 +4460,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCertificateAuthorityCsr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-certificate-authority-csr)) (common-lisp:progn (common-lisp:defun get-policy @@ -4478,7 +4477,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy)) (common-lisp:progn (common-lisp:defun import-certificate-authority-certificate @@ -4499,7 +4498,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportCertificateAuthorityCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-certificate-authority-certificate)) (common-lisp:progn (common-lisp:defun issue-certificate @@ -4521,7 +4520,7 @@ aws-sdk/generator/operation::input "POST" "/" "IssueCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'issue-certificate)) (common-lisp:progn (common-lisp:defun list-certificate-authorities @@ -4540,7 +4539,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCertificateAuthorities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-certificate-authorities)) (common-lisp:progn (common-lisp:defun list-permissions @@ -4559,7 +4558,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permissions)) (common-lisp:progn (common-lisp:defun list-tags @@ -4577,7 +4576,7 @@ (aws-sdk/generator/shape:make-request-with-input 'acm-pca-request aws-sdk/generator/operation::input "POST" "/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun put-policy @@ -4594,7 +4593,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-policy)) (common-lisp:progn (common-lisp:defun restore-certificate-authority @@ -4612,7 +4611,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-certificate-authority)) (common-lisp:progn (common-lisp:defun revoke-certificate @@ -4632,7 +4631,7 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-certificate)) (common-lisp:progn (common-lisp:defun tag-certificate-authority @@ -4650,7 +4649,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-certificate-authority)) (common-lisp:progn (common-lisp:defun untag-certificate-authority @@ -4668,7 +4667,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-certificate-authority)) (common-lisp:progn (common-lisp:defun update-certificate-authority @@ -4689,5 +4688,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-certificate-authority)) diff --git a/services/acm/api.lisp b/services/acm/api.lisp index 8372b0b7..41519494 100644 --- a/services/acm/api.lisp +++ b/services/acm/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/acm/api - (:use) - (:nicknames #:aws/acm) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/acm/api (:use) + (:nicknames #:aws/acm) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/acm/api) (common-lisp:progn (common-lisp:define-condition acm-error @@ -2746,7 +2745,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-certificate)) (common-lisp:progn (common-lisp:defun delete-certificate @@ -2763,7 +2762,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-certificate)) (common-lisp:progn (common-lisp:defun describe-certificate @@ -2780,7 +2779,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-certificate)) (common-lisp:progn (common-lisp:defun export-certificate @@ -2797,7 +2796,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-certificate)) (common-lisp:progn (common-lisp:defun get-account-configuration () @@ -2822,7 +2821,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-certificate)) (common-lisp:progn (common-lisp:defun import-certificate @@ -2842,7 +2841,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-certificate)) (common-lisp:progn (common-lisp:defun list-certificates @@ -2862,7 +2861,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-certificates)) (common-lisp:progn (common-lisp:defun list-tags-for-certificate @@ -2880,7 +2879,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-certificate)) (common-lisp:progn (common-lisp:defun put-account-configuration @@ -2899,7 +2898,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAccountConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-configuration)) (common-lisp:progn (common-lisp:defun remove-tags-from-certificate @@ -2917,7 +2916,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-certificate)) (common-lisp:progn (common-lisp:defun renew-certificate @@ -2934,7 +2933,7 @@ aws-sdk/generator/operation::input "POST" "/" "RenewCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'renew-certificate)) (common-lisp:progn (common-lisp:defun request-certificate @@ -2957,7 +2956,7 @@ aws-sdk/generator/operation::input "POST" "/" "RequestCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'request-certificate)) (common-lisp:progn (common-lisp:defun resend-validation-email @@ -2975,7 +2974,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResendValidationEmail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resend-validation-email)) (common-lisp:progn (common-lisp:defun update-certificate-options @@ -2993,5 +2992,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCertificateOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-certificate-options)) diff --git a/services/alexaforbusiness/api.lisp b/services/alexaforbusiness/api.lisp index 2927b826..c9d5851e 100644 --- a/services/alexaforbusiness/api.lisp +++ b/services/alexaforbusiness/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/alexaforbusiness/api - (:use) - (:nicknames #:aws/alexaforbusiness) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/alexaforbusiness/api (:use) + (:nicknames #:aws/alexaforbusiness) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/alexaforbusiness/api) (common-lisp:progn (common-lisp:define-condition alexaforbusiness-error @@ -14658,7 +14657,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ApproveSkill")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'approve-skill)) (common-lisp:progn (common-lisp:defun associate-contact-with-address-book @@ -14675,7 +14674,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "AssociateContactWithAddressBook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-contact-with-address-book)) (common-lisp:progn (common-lisp:defun associate-device-with-network-profile @@ -14692,7 +14691,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "AssociateDeviceWithNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-device-with-network-profile)) (common-lisp:progn (common-lisp:defun associate-device-with-room @@ -14709,7 +14708,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "AssociateDeviceWithRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-device-with-room)) (common-lisp:progn (common-lisp:defun associate-skill-group-with-room @@ -14726,7 +14725,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "AssociateSkillGroupWithRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-skill-group-with-room)) (common-lisp:progn (common-lisp:defun associate-skill-with-skill-group @@ -14743,7 +14742,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "AssociateSkillWithSkillGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-skill-with-skill-group)) (common-lisp:progn (common-lisp:defun associate-skill-with-users @@ -14760,7 +14759,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "AssociateSkillWithUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-skill-with-users)) (common-lisp:progn (common-lisp:defun create-address-book @@ -14778,7 +14777,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateAddressBook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-address-book)) (common-lisp:progn (common-lisp:defun create-business-report-schedule @@ -14798,7 +14797,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateBusinessReportSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-business-report-schedule)) (common-lisp:progn (common-lisp:defun create-conference-provider @@ -14819,7 +14818,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateConferenceProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-conference-provider)) (common-lisp:progn (common-lisp:defun create-contact @@ -14839,7 +14838,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-contact)) (common-lisp:progn (common-lisp:defun create-gateway-group @@ -14857,7 +14856,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateGatewayGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-gateway-group)) (common-lisp:progn (common-lisp:defun create-network-profile @@ -14879,7 +14878,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-network-profile)) (common-lisp:progn (common-lisp:defun create-profile @@ -14903,7 +14902,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profile)) (common-lisp:progn (common-lisp:defun create-room @@ -14922,7 +14921,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-room)) (common-lisp:progn (common-lisp:defun create-skill-group @@ -14941,7 +14940,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateSkillGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-skill-group)) (common-lisp:progn (common-lisp:defun create-user @@ -14960,7 +14959,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun delete-address-book @@ -14976,7 +14975,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteAddressBook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-address-book)) (common-lisp:progn (common-lisp:defun delete-business-report-schedule @@ -14993,7 +14992,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteBusinessReportSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-business-report-schedule)) (common-lisp:progn (common-lisp:defun delete-conference-provider @@ -15010,7 +15009,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteConferenceProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-conference-provider)) (common-lisp:progn (common-lisp:defun delete-contact @@ -15026,7 +15025,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact)) (common-lisp:progn (common-lisp:defun delete-device @@ -15042,7 +15041,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device)) (common-lisp:progn (common-lisp:defun delete-device-usage-data @@ -15058,7 +15057,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteDeviceUsageData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device-usage-data)) (common-lisp:progn (common-lisp:defun delete-gateway-group @@ -15074,7 +15073,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteGatewayGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-gateway-group)) (common-lisp:progn (common-lisp:defun delete-network-profile @@ -15090,7 +15089,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-network-profile)) (common-lisp:progn (common-lisp:defun delete-profile @@ -15106,7 +15105,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile)) (common-lisp:progn (common-lisp:defun delete-room @@ -15122,7 +15121,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-room)) (common-lisp:progn (common-lisp:defun delete-room-skill-parameter @@ -15140,7 +15139,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteRoomSkillParameter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-room-skill-parameter)) (common-lisp:progn (common-lisp:defun delete-skill-authorization @@ -15157,7 +15156,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteSkillAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-skill-authorization)) (common-lisp:progn (common-lisp:defun delete-skill-group @@ -15173,7 +15172,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteSkillGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-skill-group)) (common-lisp:progn (common-lisp:defun delete-user @@ -15189,7 +15188,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun disassociate-contact-from-address-book @@ -15206,7 +15205,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DisassociateContactFromAddressBook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-contact-from-address-book)) (common-lisp:progn (common-lisp:defun disassociate-device-from-room @@ -15223,7 +15222,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DisassociateDeviceFromRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-device-from-room)) (common-lisp:progn (common-lisp:defun disassociate-skill-from-skill-group @@ -15240,7 +15239,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DisassociateSkillFromSkillGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-skill-from-skill-group)) (common-lisp:progn (common-lisp:defun disassociate-skill-from-users @@ -15257,7 +15256,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DisassociateSkillFromUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-skill-from-users)) (common-lisp:progn (common-lisp:defun disassociate-skill-group-from-room @@ -15274,7 +15273,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "DisassociateSkillGroupFromRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-skill-group-from-room)) (common-lisp:progn (common-lisp:defun forget-smart-home-appliances @@ -15291,7 +15290,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ForgetSmartHomeAppliances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'forget-smart-home-appliances)) (common-lisp:progn (common-lisp:defun get-address-book @@ -15307,7 +15306,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetAddressBook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-address-book)) (common-lisp:progn (common-lisp:defun get-conference-preference () @@ -15331,7 +15330,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetConferenceProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-conference-provider)) (common-lisp:progn (common-lisp:defun get-contact @@ -15347,7 +15346,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact)) (common-lisp:progn (common-lisp:defun get-device @@ -15363,7 +15362,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device)) (common-lisp:progn (common-lisp:defun get-gateway @@ -15379,7 +15378,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-gateway)) (common-lisp:progn (common-lisp:defun get-gateway-group @@ -15395,7 +15394,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetGatewayGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-gateway-group)) (common-lisp:progn (common-lisp:defun get-invitation-configuration () @@ -15419,7 +15418,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-profile)) (common-lisp:progn (common-lisp:defun get-profile @@ -15435,7 +15434,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-profile)) (common-lisp:progn (common-lisp:defun get-room @@ -15451,7 +15450,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-room)) (common-lisp:progn (common-lisp:defun get-room-skill-parameter @@ -15468,7 +15467,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetRoomSkillParameter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-room-skill-parameter)) (common-lisp:progn (common-lisp:defun get-skill-group @@ -15484,7 +15483,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "GetSkillGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-skill-group)) (common-lisp:progn (common-lisp:defun list-business-report-schedules @@ -15501,7 +15500,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListBusinessReportSchedules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-business-report-schedules)) (common-lisp:progn (common-lisp:defun list-conference-providers @@ -15518,7 +15517,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListConferenceProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-conference-providers)) (common-lisp:progn (common-lisp:defun list-device-events @@ -15536,7 +15535,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListDeviceEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-events)) (common-lisp:progn (common-lisp:defun list-gateway-groups @@ -15552,7 +15551,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListGatewayGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gateway-groups)) (common-lisp:progn (common-lisp:defun list-gateways @@ -15569,7 +15568,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gateways)) (common-lisp:progn (common-lisp:defun list-skills @@ -15588,7 +15587,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListSkills")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-skills)) (common-lisp:progn (common-lisp:defun list-skills-store-categories @@ -15605,7 +15604,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListSkillsStoreCategories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-skills-store-categories)) (common-lisp:progn (common-lisp:defun list-skills-store-skills-by-category @@ -15623,7 +15622,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListSkillsStoreSkillsByCategory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-skills-store-skills-by-category)) (common-lisp:progn (common-lisp:defun list-smart-home-appliances @@ -15641,7 +15640,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListSmartHomeAppliances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-smart-home-appliances)) (common-lisp:progn (common-lisp:defun list-tags @@ -15657,7 +15656,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun put-conference-preference @@ -15674,7 +15673,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "PutConferencePreference")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-conference-preference)) (common-lisp:progn (common-lisp:defun put-invitation-configuration @@ -15693,7 +15692,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "PutInvitationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-invitation-configuration)) (common-lisp:progn (common-lisp:defun put-room-skill-parameter @@ -15710,7 +15709,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "PutRoomSkillParameter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-room-skill-parameter)) (common-lisp:progn (common-lisp:defun put-skill-authorization @@ -15727,7 +15726,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "PutSkillAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-skill-authorization)) (common-lisp:progn (common-lisp:defun register-avsdevice @@ -15746,7 +15745,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "RegisterAVSDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-avsdevice)) (common-lisp:progn (common-lisp:defun reject-skill @@ -15762,7 +15761,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "RejectSkill")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-skill)) (common-lisp:progn (common-lisp:defun resolve-room @@ -15778,7 +15777,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "ResolveRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resolve-room)) (common-lisp:progn (common-lisp:defun revoke-invitation @@ -15794,7 +15793,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "RevokeInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-invitation)) (common-lisp:progn (common-lisp:defun search-address-books @@ -15812,7 +15811,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SearchAddressBooks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-address-books)) (common-lisp:progn (common-lisp:defun search-contacts @@ -15830,7 +15829,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SearchContacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-contacts)) (common-lisp:progn (common-lisp:defun search-devices @@ -15848,7 +15847,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SearchDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-devices)) (common-lisp:progn (common-lisp:defun search-network-profiles @@ -15866,7 +15865,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SearchNetworkProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-network-profiles)) (common-lisp:progn (common-lisp:defun search-profiles @@ -15884,7 +15883,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SearchProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-profiles)) (common-lisp:progn (common-lisp:defun search-rooms @@ -15902,7 +15901,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SearchRooms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-rooms)) (common-lisp:progn (common-lisp:defun search-skill-groups @@ -15920,7 +15919,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SearchSkillGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-skill-groups)) (common-lisp:progn (common-lisp:defun search-users @@ -15938,7 +15937,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SearchUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-users)) (common-lisp:progn (common-lisp:defun send-announcement @@ -15957,7 +15956,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SendAnnouncement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-announcement)) (common-lisp:progn (common-lisp:defun send-invitation @@ -15973,7 +15972,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "SendInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-invitation)) (common-lisp:progn (common-lisp:defun start-device-sync @@ -15989,7 +15988,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "StartDeviceSync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-device-sync)) (common-lisp:progn (common-lisp:defun start-smart-home-appliance-discovery @@ -16006,7 +16005,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "StartSmartHomeApplianceDiscovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-smart-home-appliance-discovery)) (common-lisp:progn (common-lisp:defun tag-resource @@ -16022,7 +16021,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -16038,7 +16037,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-address-book @@ -16055,7 +16054,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateAddressBook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-address-book)) (common-lisp:progn (common-lisp:defun update-business-report-schedule @@ -16075,7 +16074,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateBusinessReportSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-business-report-schedule)) (common-lisp:progn (common-lisp:defun update-conference-provider @@ -16096,7 +16095,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateConferenceProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-conference-provider)) (common-lisp:progn (common-lisp:defun update-contact @@ -16115,7 +16114,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact)) (common-lisp:progn (common-lisp:defun update-device @@ -16131,7 +16130,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device)) (common-lisp:progn (common-lisp:defun update-gateway @@ -16149,7 +16148,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway)) (common-lisp:progn (common-lisp:defun update-gateway-group @@ -16166,7 +16165,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateGatewayGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-group)) (common-lisp:progn (common-lisp:defun update-network-profile @@ -16186,7 +16185,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-network-profile)) (common-lisp:progn (common-lisp:defun update-profile @@ -16209,7 +16208,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-profile)) (common-lisp:progn (common-lisp:defun update-room @@ -16228,7 +16227,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-room)) (common-lisp:progn (common-lisp:defun update-skill-group @@ -16246,5 +16245,5 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'alexaforbusiness-request aws-sdk/generator/operation::input "POST" "/" "UpdateSkillGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-skill-group)) diff --git a/services/amp/api.lisp b/services/amp/api.lisp index d2c8637c..a8fd4af1 100644 --- a/services/amp/api.lisp +++ b/services/amp/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/amp/api - (:use) - (:nicknames #:aws/amp) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/amp/api (:use) + (:nicknames #:aws/amp) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/amp/api) (common-lisp:progn (common-lisp:define-condition amp-error @@ -20,7 +19,7 @@ (common-lisp:export 'amp-error)) (common-lisp:progn (common-lisp:defclass amp-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "amp" :api-version "2020-08-01" :host-prefix "aps" :signing-name "aps" @@ -4055,12 +4054,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/alertmanager/definition" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "CreateAlertManagerDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alert-manager-definition)) (common-lisp:progn (common-lisp:defun create-logging-configuration @@ -4084,12 +4084,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/logging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "CreateLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-logging-configuration)) (common-lisp:progn (common-lisp:defun create-rule-groups-namespace @@ -4113,12 +4114,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/rulegroupsnamespaces" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "CreateRuleGroupsNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule-groups-namespace)) (common-lisp:progn (common-lisp:defun create-scraper @@ -4138,7 +4140,7 @@ aws-sdk/generator/operation::input "POST" "/scrapers" "CreateScraper")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-scraper)) (common-lisp:progn (common-lisp:defun create-workspace @@ -4156,7 +4158,7 @@ aws-sdk/generator/operation::input "POST" "/workspaces" "CreateWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workspace)) (common-lisp:progn (common-lisp:defun delete-alert-manager-definition @@ -4179,12 +4181,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/alertmanager/definition" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DeleteAlertManagerDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alert-manager-definition)) (common-lisp:progn (common-lisp:defun delete-logging-configuration @@ -4207,12 +4210,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/logging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DeleteLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-logging-configuration)) (common-lisp:progn (common-lisp:defun delete-rule-groups-namespace @@ -4235,16 +4239,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/rulegroupsnamespaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteRuleGroupsNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule-groups-namespace)) (common-lisp:progn (common-lisp:defun delete-scraper @@ -4266,12 +4272,13 @@ (common-lisp:format common-lisp:nil "/scrapers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scraper-id)))) + 'scraper-id) + common-lisp:t))) "DeleteScraper")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scraper)) (common-lisp:progn (common-lisp:defun delete-workspace @@ -4293,12 +4300,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DeleteWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workspace)) (common-lisp:progn (common-lisp:defun describe-alert-manager-definition @@ -4321,12 +4329,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/alertmanager/definition" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DescribeAlertManagerDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-alert-manager-definition)) (common-lisp:progn (common-lisp:defun describe-logging-configuration @@ -4349,12 +4358,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/logging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DescribeLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-logging-configuration)) (common-lisp:progn (common-lisp:defun describe-rule-groups-namespace @@ -4377,16 +4387,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/rulegroupsnamespaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeRuleGroupsNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rule-groups-namespace)) (common-lisp:progn (common-lisp:defun describe-scraper @@ -4408,12 +4420,13 @@ (common-lisp:format common-lisp:nil "/scrapers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scraper-id)))) + 'scraper-id) + common-lisp:t))) "DescribeScraper")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scraper)) (common-lisp:progn (common-lisp:defun describe-workspace @@ -4435,12 +4448,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DescribeWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace)) (common-lisp:progn (common-lisp:defun get-default-scraper-configuration () @@ -4473,12 +4487,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/rulegroupsnamespaces" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "ListRuleGroupsNamespaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rule-groups-namespaces)) (common-lisp:progn (common-lisp:defun list-scrapers @@ -4495,7 +4510,7 @@ aws-sdk/generator/operation::input "GET" "/scrapers" "ListScrapers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scrapers)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4517,12 +4532,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-workspaces @@ -4539,7 +4555,7 @@ aws-sdk/generator/operation::input "GET" "/workspaces" "ListWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workspaces)) (common-lisp:progn (common-lisp:defun put-alert-manager-definition @@ -4562,12 +4578,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/alertmanager/definition" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "PutAlertManagerDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-alert-manager-definition)) (common-lisp:progn (common-lisp:defun put-rule-groups-namespace @@ -4591,16 +4608,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/rulegroupsnamespaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutRuleGroupsNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-rule-groups-namespace)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4622,12 +4641,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4649,12 +4669,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-logging-configuration @@ -4678,12 +4699,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/logging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "UpdateLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-logging-configuration)) (common-lisp:progn (common-lisp:defun update-workspace-alias @@ -4706,10 +4728,11 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/alias" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "UpdateWorkspaceAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workspace-alias)) diff --git a/services/amplify/api.lisp b/services/amplify/api.lisp index 3caa2573..aea4a342 100644 --- a/services/amplify/api.lisp +++ b/services/amplify/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/amplify/api - (:use) - (:nicknames #:aws/amplify) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/amplify/api (:use) + (:nicknames #:aws/amplify) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/amplify/api) (common-lisp:progn (common-lisp:define-condition amplify-error @@ -20,7 +19,7 @@ (common-lisp:export 'amplify-error)) (common-lisp:progn (common-lisp:defclass amplify-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "amplify" :api-version "2017-07-25" :host-prefix "amplify" :signing-name @@ -6605,7 +6604,7 @@ aws-sdk/generator/operation::input "POST" "/apps" "CreateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app)) (common-lisp:progn (common-lisp:defun create-backend-environment @@ -6631,12 +6630,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/backendenvironments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateBackendEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backend-environment)) (common-lisp:progn (common-lisp:defun create-branch @@ -6669,12 +6669,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateBranch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-branch)) (common-lisp:progn (common-lisp:defun create-deployment @@ -6696,16 +6697,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)))) + 'branch-name) + common-lisp:t))) "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun create-domain-association @@ -6733,12 +6736,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/domains" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain-association)) (common-lisp:progn (common-lisp:defun create-webhook @@ -6760,12 +6764,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/webhooks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-webhook)) (common-lisp:progn (common-lisp:defun delete-app @@ -6787,12 +6792,13 @@ (common-lisp:format common-lisp:nil "/apps/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "DeleteApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app)) (common-lisp:progn (common-lisp:defun delete-backend-environment @@ -6815,16 +6821,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/backendenvironments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "DeleteBackendEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backend-environment)) (common-lisp:progn (common-lisp:defun delete-branch @@ -6846,16 +6854,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)))) + 'branch-name) + common-lisp:t))) "DeleteBranch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-branch)) (common-lisp:progn (common-lisp:defun delete-domain-association @@ -6878,16 +6888,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain-association)) (common-lisp:progn (common-lisp:defun delete-job @@ -6909,20 +6921,23 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)) - (quri.encode:url-encode + 'branch-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DeleteJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job)) (common-lisp:progn (common-lisp:defun delete-webhook @@ -6944,12 +6959,13 @@ (common-lisp:format common-lisp:nil "/webhooks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'webhook-id)))) + 'webhook-id) + common-lisp:t))) "DeleteWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-webhook)) (common-lisp:progn (common-lisp:defun generate-access-logs @@ -6972,12 +6988,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/accesslogs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "GenerateAccessLogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-access-logs)) (common-lisp:progn (common-lisp:defun get-app @@ -6999,12 +7016,13 @@ (common-lisp:format common-lisp:nil "/apps/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "GetApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app)) (common-lisp:progn (common-lisp:defun get-artifact-url @@ -7026,12 +7044,13 @@ (common-lisp:format common-lisp:nil "/artifacts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'artifact-id)))) + 'artifact-id) + common-lisp:t))) "GetArtifactUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-artifact-url)) (common-lisp:progn (common-lisp:defun get-backend-environment @@ -7053,16 +7072,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/backendenvironments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "GetBackendEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backend-environment)) (common-lisp:progn (common-lisp:defun get-branch @@ -7084,16 +7105,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)))) + 'branch-name) + common-lisp:t))) "GetBranch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-branch)) (common-lisp:progn (common-lisp:defun get-domain-association @@ -7115,16 +7138,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-association)) (common-lisp:progn (common-lisp:defun get-job @@ -7146,20 +7171,23 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)) - (quri.encode:url-encode + 'branch-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job)) (common-lisp:progn (common-lisp:defun get-webhook @@ -7181,12 +7209,13 @@ (common-lisp:format common-lisp:nil "/webhooks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'webhook-id)))) + 'webhook-id) + common-lisp:t))) "GetWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-webhook)) (common-lisp:progn (common-lisp:defun list-apps @@ -7203,7 +7232,7 @@ aws-sdk/generator/operation::input "GET" "/apps" "ListApps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-apps)) (common-lisp:progn (common-lisp:defun list-artifacts @@ -7227,20 +7256,23 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A/jobs/~A/artifacts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)) - (quri.encode:url-encode + 'branch-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "ListArtifacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-artifacts)) (common-lisp:progn (common-lisp:defun list-backend-environments @@ -7265,12 +7297,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/backendenvironments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "ListBackendEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backend-environments)) (common-lisp:progn (common-lisp:defun list-branches @@ -7292,12 +7325,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "ListBranches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-branches)) (common-lisp:progn (common-lisp:defun list-domain-associations @@ -7319,12 +7353,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/domains" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "ListDomainAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domain-associations)) (common-lisp:progn (common-lisp:defun list-jobs @@ -7348,16 +7383,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)))) + 'branch-name) + common-lisp:t))) "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7379,12 +7416,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-webhooks @@ -7406,12 +7444,13 @@ (common-lisp:format common-lisp:nil "/apps/~A/webhooks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "ListWebhooks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-webhooks)) (common-lisp:progn (common-lisp:defun start-deployment @@ -7434,16 +7473,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A/deployments/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)))) + 'branch-name) + common-lisp:t))) "StartDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-deployment)) (common-lisp:progn (common-lisp:defun start-job @@ -7468,16 +7509,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)))) + 'branch-name) + common-lisp:t))) "StartJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-job)) (common-lisp:progn (common-lisp:defun stop-job @@ -7499,20 +7542,23 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A/jobs/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)) - (quri.encode:url-encode + 'branch-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "StopJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7534,12 +7580,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7561,12 +7608,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-app @@ -7600,12 +7648,13 @@ (common-lisp:format common-lisp:nil "/apps/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "UpdateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app)) (common-lisp:progn (common-lisp:defun update-branch @@ -7638,16 +7687,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/branches/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'branch-name)))) + 'branch-name) + common-lisp:t))) "UpdateBranch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-branch)) (common-lisp:progn (common-lisp:defun update-domain-association @@ -7675,16 +7726,18 @@ (common-lisp:format common-lisp:nil "/apps/~A/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-association)) (common-lisp:progn (common-lisp:defun update-webhook @@ -7707,10 +7760,11 @@ (common-lisp:format common-lisp:nil "/webhooks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'webhook-id)))) + 'webhook-id) + common-lisp:t))) "UpdateWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-webhook)) diff --git a/services/amplifybackend/api.lisp b/services/amplifybackend/api.lisp index f2c25757..61766c77 100644 --- a/services/amplifybackend/api.lisp +++ b/services/amplifybackend/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/amplifybackend/api - (:use) - (:nicknames #:aws/amplifybackend) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/amplifybackend/api (:use) + (:nicknames #:aws/amplifybackend) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/amplifybackend/api) (common-lisp:progn (common-lisp:define-condition amplifybackend-error @@ -20,7 +19,7 @@ (common-lisp:export 'amplifybackend-error)) (common-lisp:progn (common-lisp:defclass amplifybackend-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "amplifybackend" :api-version "2020-08-11" :host-prefix "amplifybackend" @@ -10056,16 +10055,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/environments/~A/clone" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "CloneBackend")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'clone-backend)) (common-lisp:progn (common-lisp:defun create-backend @@ -10085,7 +10086,7 @@ aws-sdk/generator/operation::input "POST" "/backend" "CreateBackend")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backend)) (common-lisp:progn (common-lisp:defun create-backend-api @@ -10110,12 +10111,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/api" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateBackendAPI")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backend-api)) (common-lisp:progn (common-lisp:defun create-backend-auth @@ -10140,12 +10142,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/auth" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateBackendAuth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backend-auth)) (common-lisp:progn (common-lisp:defun create-backend-config @@ -10167,12 +10170,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateBackendConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backend-config)) (common-lisp:progn (common-lisp:defun create-backend-storage @@ -10197,12 +10201,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/storage" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateBackendStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backend-storage)) (common-lisp:progn (common-lisp:defun create-token @@ -10224,12 +10229,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/challenge" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "CreateToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-token)) (common-lisp:progn (common-lisp:defun delete-backend @@ -10252,16 +10258,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/environments/~A/remove" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "DeleteBackend")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backend)) (common-lisp:progn (common-lisp:defun delete-backend-api @@ -10286,16 +10294,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/api/~A/remove" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "DeleteBackendAPI")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backend-api)) (common-lisp:progn (common-lisp:defun delete-backend-auth @@ -10319,16 +10329,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/auth/~A/remove" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "DeleteBackendAuth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backend-auth)) (common-lisp:progn (common-lisp:defun delete-backend-storage @@ -10353,16 +10365,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/storage/~A/remove" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "DeleteBackendStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backend-storage)) (common-lisp:progn (common-lisp:defun delete-token @@ -10384,16 +10398,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/challenge/~A/remove" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "DeleteToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-token)) (common-lisp:progn (common-lisp:defun generate-backend-apimodels @@ -10418,16 +10434,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/api/~A/generateModels" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "GenerateBackendAPIModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-backend-apimodels)) (common-lisp:progn (common-lisp:defun get-backend @@ -10450,12 +10468,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/details" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "GetBackend")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backend)) (common-lisp:progn (common-lisp:defun get-backend-api @@ -10480,16 +10499,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/api/~A/details" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "GetBackendAPI")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backend-api)) (common-lisp:progn (common-lisp:defun get-backend-apimodels @@ -10513,16 +10534,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/api/~A/getModels" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "GetBackendAPIModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backend-apimodels)) (common-lisp:progn (common-lisp:defun get-backend-auth @@ -10546,16 +10569,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/auth/~A/details" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "GetBackendAuth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backend-auth)) (common-lisp:progn (common-lisp:defun get-backend-job @@ -10578,20 +10603,23 @@ (common-lisp:format common-lisp:nil "/backend/~A/job/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)) - (quri.encode:url-encode + 'backend-environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetBackendJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backend-job)) (common-lisp:progn (common-lisp:defun get-backend-storage @@ -10615,16 +10643,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/storage/~A/details" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "GetBackendStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backend-storage)) (common-lisp:progn (common-lisp:defun get-token @@ -10646,16 +10676,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/challenge/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "GetToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-token)) (common-lisp:progn (common-lisp:defun import-backend-auth @@ -10681,16 +10713,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/auth/~A/import" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "ImportBackendAuth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-backend-auth)) (common-lisp:progn (common-lisp:defun import-backend-storage @@ -10715,16 +10749,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/storage/~A/import" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "ImportBackendStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-backend-storage)) (common-lisp:progn (common-lisp:defun list-backend-jobs @@ -10749,16 +10785,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/job/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "ListBackendJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backend-jobs)) (common-lisp:progn (common-lisp:defun list-s3buckets @@ -10775,7 +10813,7 @@ aws-sdk/generator/operation::input "POST" "/s3Buckets" "ListS3Buckets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-s3buckets)) (common-lisp:progn (common-lisp:defun remove-all-backends @@ -10797,12 +10835,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/remove" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "RemoveAllBackends")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-all-backends)) (common-lisp:progn (common-lisp:defun remove-backend-config @@ -10824,12 +10863,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/config/remove" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "RemoveBackendConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-backend-config)) (common-lisp:progn (common-lisp:defun update-backend-api @@ -10854,16 +10894,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/api/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "UpdateBackendAPI")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-backend-api)) (common-lisp:progn (common-lisp:defun update-backend-auth @@ -10888,16 +10930,18 @@ (common-lisp:format common-lisp:nil "/backend/~A/auth/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "UpdateBackendAuth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-backend-auth)) (common-lisp:progn (common-lisp:defun update-backend-config @@ -10919,12 +10963,13 @@ (common-lisp:format common-lisp:nil "/backend/~A/config/update" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)))) + 'app-id) + common-lisp:t))) "UpdateBackendConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-backend-config)) (common-lisp:progn (common-lisp:defun update-backend-job @@ -10949,20 +10994,23 @@ (common-lisp:format common-lisp:nil "/backend/~A/job/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)) - (quri.encode:url-encode + 'backend-environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "UpdateBackendJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-backend-job)) (common-lisp:progn (common-lisp:defun update-backend-storage @@ -10987,14 +11035,16 @@ (common-lisp:format common-lisp:nil "/backend/~A/storage/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backend-environment-name)))) + 'backend-environment-name) + common-lisp:t))) "UpdateBackendStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-backend-storage)) diff --git a/services/amplifyuibuilder/api.lisp b/services/amplifyuibuilder/api.lisp index c6d23aba..627e29fb 100644 --- a/services/amplifyuibuilder/api.lisp +++ b/services/amplifyuibuilder/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/amplifyuibuilder/api - (:use) - (:nicknames #:aws/amplifyuibuilder) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/amplifyuibuilder/api (:use) + (:nicknames #:aws/amplifyuibuilder) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/amplifyuibuilder/api) (common-lisp:progn (common-lisp:define-condition amplifyuibuilder-error @@ -20,7 +19,7 @@ (common-lisp:export 'amplifyuibuilder-error)) (common-lisp:progn (common-lisp:defclass amplifyuibuilder-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "amplifyuibuilder" :api-version "2021-08-11" :host-prefix @@ -2819,7 +2818,13 @@ (aws-sdk/generator/shape::input create-component-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'component-to-create))) + 'component-to-create)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-component-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-component-response common-lisp:nil ((entity :initarg :entity :initform common-lisp:nil @@ -2857,7 +2862,13 @@ ( (aws-sdk/generator/shape::input create-component-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'entity))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'entity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-component-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-form-data common-lisp:nil ((name :initarg :name :initform @@ -3061,7 +3072,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input create-form-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'form-to-create))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'form-to-create)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input create-form-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-form-response common-lisp:nil ((entity :initarg :entity :initform common-lisp:nil @@ -3091,7 +3106,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input create-form-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'entity))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'entity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input create-form-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-theme-data common-lisp:nil ((name :initarg :name :initform @@ -3210,7 +3229,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input create-theme-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'theme-to-create))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'theme-to-create)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input create-theme-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-theme-response common-lisp:nil ((entity :initarg :entity :initform common-lisp:nil @@ -3246,7 +3269,13 @@ ( (aws-sdk/generator/shape::input create-theme-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'entity))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'entity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-theme-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass data-store-render-config common-lisp:nil common-lisp:nil (:metaclass aws-sdk/generator/shape::members-class)) @@ -3429,7 +3458,13 @@ ( (aws-sdk/generator/shape::input exchange-code-for-token-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + exchange-code-for-token-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass exchange-code-for-token-request-body common-lisp:nil ((code :initarg :code :initform @@ -5323,7 +5358,13 @@ ( (aws-sdk/generator/shape::input get-codegen-job-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'job))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'job)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-codegen-job-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-component-request common-lisp:nil ((app-id :initarg :app-id :initform @@ -5401,7 +5442,13 @@ ( (aws-sdk/generator/shape::input get-component-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'component))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'component)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-component-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-form-request common-lisp:nil ((app-id :initarg :app-id :initform @@ -5466,7 +5513,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-form-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'form))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'form)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-form-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-metadata-request common-lisp:nil ((app-id :initarg :app-id :initform @@ -5598,7 +5649,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-theme-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'theme))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'theme)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-theme-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass graph-qlrender-config common-lisp:nil ((types-file-path :initarg :types-file-path :initform @@ -6457,7 +6512,13 @@ ( (aws-sdk/generator/shape::input put-metadata-flag-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-metadata-flag-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:deftype react-codegen-dependencies () 'common-lisp:hash-table) (common-lisp:defun make-react-codegen-dependencies @@ -6633,7 +6694,13 @@ ( (aws-sdk/generator/shape::input refresh-token-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'refresh-token-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'refresh-token-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + refresh-token-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass refresh-token-request-body common-lisp:nil ((token :initarg :token :initform @@ -7077,7 +7144,13 @@ (aws-sdk/generator/shape::input start-codegen-job-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'codegen-job-to-create))) + 'codegen-job-to-create)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-codegen-job-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass start-codegen-job-response common-lisp:nil ((entity :initarg :entity :initform common-lisp:nil @@ -7115,7 +7188,13 @@ ( (aws-sdk/generator/shape::input start-codegen-job-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'entity))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'entity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-codegen-job-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype storage-access-level () 'common-lisp:string) (common-lisp:progn (common-lisp:deftype str-values () '(trivial-types:proper-list string)) @@ -7831,7 +7910,13 @@ ( (aws-sdk/generator/shape::input update-component-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'updated-component))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'updated-component)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-component-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-component-response common-lisp:nil ((entity :initarg :entity :initform common-lisp:nil @@ -7869,7 +7954,13 @@ ( (aws-sdk/generator/shape::input update-component-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'entity))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'entity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-component-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-form-data common-lisp:nil ((name :initarg :name :initform common-lisp:nil :type @@ -8060,7 +8151,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input update-form-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'updated-form))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'updated-form)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input update-form-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-form-response common-lisp:nil ((entity :initarg :entity :initform common-lisp:nil @@ -8090,7 +8185,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input update-form-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'entity))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'entity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input update-form-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-theme-data common-lisp:nil ((id :initarg :id :initform common-lisp:nil :type @@ -8213,7 +8312,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input update-theme-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'updated-theme))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'updated-theme)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input update-theme-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-theme-response common-lisp:nil ((entity :initarg :entity :initform common-lisp:nil @@ -8249,7 +8352,13 @@ ( (aws-sdk/generator/shape::input update-theme-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'entity))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'entity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-theme-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype uuid () 'common-lisp:string) (common-lisp:progn (common-lisp:deftype validations-list () @@ -8377,15 +8486,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/components" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "CreateComponent")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-component)) (common-lisp:progn (common-lisp:defun create-form @@ -8405,15 +8516,17 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/forms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "CreateForm")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-form)) (common-lisp:progn (common-lisp:defun create-theme @@ -8433,15 +8546,17 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/themes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "CreateTheme")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-theme)) (common-lisp:progn (common-lisp:defun delete-component @@ -8459,18 +8574,21 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/components/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-component)) (common-lisp:progn (common-lisp:defun delete-form @@ -8487,18 +8605,21 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/forms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteForm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-form)) (common-lisp:progn (common-lisp:defun delete-theme @@ -8516,18 +8637,21 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/themes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteTheme")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-theme)) (common-lisp:progn (common-lisp:defun exchange-code-for-token @@ -8544,12 +8668,12 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tokens/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'provider)))) + aws-sdk/generator/operation::input 'provider) + common-lisp:t))) "ExchangeCodeForToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'exchange-code-for-token)) (common-lisp:progn (common-lisp:defun export-components @@ -8568,15 +8692,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/export/app/~A/environment/~A/components" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "ExportComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-components)) (common-lisp:progn (common-lisp:defun export-forms @@ -8595,15 +8721,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/export/app/~A/environment/~A/forms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "ExportForms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-forms)) (common-lisp:progn (common-lisp:defun export-themes @@ -8622,15 +8750,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/export/app/~A/environment/~A/themes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "ExportThemes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-themes)) (common-lisp:progn (common-lisp:defun get-codegen-job @@ -8648,18 +8778,21 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/codegen-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetCodegenJob")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-codegen-job)) (common-lisp:progn (common-lisp:defun get-component @@ -8677,18 +8810,21 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/components/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetComponent")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-component)) (common-lisp:progn (common-lisp:defun get-form @@ -8705,18 +8841,21 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/forms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetForm")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-form)) (common-lisp:progn (common-lisp:defun get-metadata @@ -8733,15 +8872,17 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "GetMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-metadata)) (common-lisp:progn (common-lisp:defun get-theme @@ -8759,18 +8900,21 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/themes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetTheme")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-theme)) (common-lisp:progn (common-lisp:defun list-codegen-jobs @@ -8790,15 +8934,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/codegen-jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "ListCodegenJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-codegen-jobs)) (common-lisp:progn (common-lisp:defun list-components @@ -8818,15 +8964,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/components" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "ListComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-components)) (common-lisp:progn (common-lisp:defun list-forms @@ -8845,15 +8993,17 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/forms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "ListForms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-forms)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8870,12 +9020,13 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-themes @@ -8894,15 +9045,17 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/themes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "ListThemes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-themes)) (common-lisp:progn (common-lisp:defun put-metadata-flag @@ -8922,19 +9075,22 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/metadata/features/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'feature-name)))) + 'feature-name) + common-lisp:t))) "PutMetadataFlag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-metadata-flag)) (common-lisp:progn (common-lisp:defun refresh-token @@ -8951,12 +9107,12 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tokens/~A/refresh" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'provider)))) + aws-sdk/generator/operation::input 'provider) + common-lisp:t))) "RefreshToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'refresh-token)) (common-lisp:progn (common-lisp:defun start-codegen-job @@ -8977,15 +9133,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/codegen-jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "StartCodegenJob")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-codegen-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9002,12 +9160,13 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9024,12 +9183,13 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-component @@ -9050,18 +9210,21 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/components/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateComponent")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-component)) (common-lisp:progn (common-lisp:defun update-form @@ -9081,18 +9244,21 @@ 'amplifyuibuilder-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/forms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateForm")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-form)) (common-lisp:progn (common-lisp:defun update-theme @@ -9113,16 +9279,19 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app/~A/environment/~A/themes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'app-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)) - (quri.encode:url-encode + 'environment-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateTheme")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-theme)) diff --git a/services/apigateway/api.lisp b/services/apigateway/api.lisp index b5028033..72f5e198 100644 --- a/services/apigateway/api.lisp +++ b/services/apigateway/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/apigateway/api - (:use) - (:nicknames #:aws/apigateway) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/apigateway/api (:use) + (:nicknames #:aws/apigateway) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/apigateway/api) (common-lisp:progn (common-lisp:define-condition apigateway-error @@ -20,7 +19,7 @@ (common-lisp:export 'apigateway-error)) (common-lisp:progn (common-lisp:defclass apigateway-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "apigateway" :api-version "2015-07-09" :host-prefix "apigateway" :signing-name @@ -4265,12 +4264,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-disposition)) - (common-lisp:cons "Content-Disposition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input export-response)) (common-lisp:append @@ -4283,7 +4285,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input export-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input export-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass flush-stage-authorizers-cache-request common-lisp:nil ((rest-api-id :initarg :rest-api-id :initform @@ -5251,7 +5257,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accepts)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-export-request)) (common-lisp:append)) @@ -6336,7 +6344,13 @@ ( (aws-sdk/generator/shape::input import-api-keys-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + import-api-keys-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass import-documentation-parts-request common-lisp:nil ((rest-api-id :initarg :rest-api-id :initform @@ -6392,7 +6406,13 @@ ( (aws-sdk/generator/shape::input import-documentation-parts-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + import-documentation-parts-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass import-rest-api-request common-lisp:nil ((fail-on-warnings :initarg :fail-on-warnings :initform @@ -6443,7 +6463,13 @@ ( (aws-sdk/generator/shape::input import-rest-api-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + import-rest-api-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype integer () 'common-lisp:integer) (common-lisp:progn (common-lisp:defclass integration common-lisp:nil @@ -8513,7 +8539,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-rest-api-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-rest-api-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype quota-period-type () 'common-lisp:string) (common-lisp:progn (common-lisp:defclass quota-settings common-lisp:nil @@ -9161,12 +9191,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-disposition)) - (common-lisp:cons "Content-Disposition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input sdk-response)) (common-lisp:append @@ -9179,7 +9212,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input sdk-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input sdk-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass sdk-type common-lisp:nil ((id :initarg :id :initform common-lisp:nil :type @@ -11951,7 +11988,7 @@ aws-sdk/generator/operation::input "POST" "/apikeys" "CreateApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-api-key)) (common-lisp:progn (common-lisp:defun create-authorizer @@ -11979,12 +12016,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/authorizers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "CreateAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-authorizer)) (common-lisp:progn (common-lisp:defun create-base-path-mapping @@ -12007,12 +12045,13 @@ (common-lisp:format common-lisp:nil "/domainnames/~A/basepathmappings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "CreateBasePathMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-base-path-mapping)) (common-lisp:progn (common-lisp:defun create-deployment @@ -12039,12 +12078,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun create-documentation-part @@ -12068,12 +12108,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/parts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "CreateDocumentationPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-documentation-part)) (common-lisp:progn (common-lisp:defun create-documentation-version @@ -12099,12 +12140,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "CreateDocumentationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-documentation-version)) (common-lisp:progn (common-lisp:defun create-domain-name @@ -12131,7 +12173,7 @@ aws-sdk/generator/operation::input "POST" "/domainnames" "CreateDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain-name)) (common-lisp:progn (common-lisp:defun create-model @@ -12155,12 +12197,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/models" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "CreateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model)) (common-lisp:progn (common-lisp:defun create-request-validator @@ -12185,12 +12228,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/requestvalidators" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "CreateRequestValidator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-request-validator)) (common-lisp:progn (common-lisp:defun create-resource @@ -12213,16 +12257,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'parent-id)))) + 'parent-id) + common-lisp:t))) "CreateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource)) (common-lisp:progn (common-lisp:defun create-rest-api @@ -12245,7 +12291,7 @@ aws-sdk/generator/operation::input "POST" "/restapis" "CreateRestApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rest-api)) (common-lisp:progn (common-lisp:defun create-stage @@ -12273,12 +12319,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "CreateStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stage)) (common-lisp:progn (common-lisp:defun create-usage-plan @@ -12297,7 +12344,7 @@ aws-sdk/generator/operation::input "POST" "/usageplans" "CreateUsagePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-usage-plan)) (common-lisp:progn (common-lisp:defun create-usage-plan-key @@ -12319,12 +12366,13 @@ (common-lisp:format common-lisp:nil "/usageplans/~A/keys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)))) + 'usageplan-id) + common-lisp:t))) "CreateUsagePlanKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-usage-plan-key)) (common-lisp:progn (common-lisp:defun create-vpc-link @@ -12342,7 +12390,7 @@ aws-sdk/generator/operation::input "POST" "/vpclinks" "CreateVpcLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-link)) (common-lisp:progn (common-lisp:defun delete-api-key @@ -12364,12 +12412,13 @@ (common-lisp:format common-lisp:nil "/apikeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-key)))) + 'api-key) + common-lisp:t))) "DeleteApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-api-key)) (common-lisp:progn (common-lisp:defun delete-authorizer @@ -12391,16 +12440,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/authorizers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-id)))) + 'authorizer-id) + common-lisp:t))) "DeleteAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-authorizer)) (common-lisp:progn (common-lisp:defun delete-base-path-mapping @@ -12422,16 +12473,18 @@ (common-lisp:format common-lisp:nil "/domainnames/~A/basepathmappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'base-path)))) + 'base-path) + common-lisp:t))) "DeleteBasePathMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-base-path-mapping)) (common-lisp:progn (common-lisp:defun delete-client-certificate @@ -12454,12 +12507,13 @@ (common-lisp:format common-lisp:nil "/clientcertificates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'clientcertificate-id)))) + 'clientcertificate-id) + common-lisp:t))) "DeleteClientCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-client-certificate)) (common-lisp:progn (common-lisp:defun delete-deployment @@ -12481,16 +12535,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "DeleteDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-deployment)) (common-lisp:progn (common-lisp:defun delete-documentation-part @@ -12514,16 +12570,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/parts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'part-id)))) + 'part-id) + common-lisp:t))) "DeleteDocumentationPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-documentation-part)) (common-lisp:progn (common-lisp:defun delete-documentation-version @@ -12547,16 +12605,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'doc-version)))) + 'doc-version) + common-lisp:t))) "DeleteDocumentationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-documentation-version)) (common-lisp:progn (common-lisp:defun delete-domain-name @@ -12578,12 +12638,13 @@ (common-lisp:format common-lisp:nil "/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain-name)) (common-lisp:progn (common-lisp:defun delete-gateway-response @@ -12605,16 +12666,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/gatewayresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'response-type)))) + 'response-type) + common-lisp:t))) "DeleteGatewayResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-gateway-response)) (common-lisp:progn (common-lisp:defun delete-integration @@ -12637,20 +12700,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/integration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "DeleteIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-integration)) (common-lisp:progn (common-lisp:defun delete-integration-response @@ -12675,24 +12741,28 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/integration/responses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)) - (quri.encode:url-encode + 'http-method) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'status-code)))) + 'status-code) + common-lisp:t))) "DeleteIntegrationResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-integration-response)) (common-lisp:progn (common-lisp:defun delete-method @@ -12715,20 +12785,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "DeleteMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-method)) (common-lisp:progn (common-lisp:defun delete-method-response @@ -12752,24 +12825,28 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/responses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)) - (quri.encode:url-encode + 'http-method) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'status-code)))) + 'status-code) + common-lisp:t))) "DeleteMethodResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-method-response)) (common-lisp:progn (common-lisp:defun delete-model @@ -12791,16 +12868,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-name)))) + 'model-name) + common-lisp:t))) "DeleteModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model)) (common-lisp:progn (common-lisp:defun delete-request-validator @@ -12823,16 +12902,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/requestvalidators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'requestvalidator-id)))) + 'requestvalidator-id) + common-lisp:t))) "DeleteRequestValidator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-request-validator)) (common-lisp:progn (common-lisp:defun delete-resource @@ -12854,16 +12935,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "DeleteResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource)) (common-lisp:progn (common-lisp:defun delete-rest-api @@ -12885,12 +12968,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "DeleteRestApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rest-api)) (common-lisp:progn (common-lisp:defun delete-stage @@ -12912,16 +12996,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "DeleteStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stage)) (common-lisp:progn (common-lisp:defun delete-usage-plan @@ -12943,12 +13029,13 @@ (common-lisp:format common-lisp:nil "/usageplans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)))) + 'usageplan-id) + common-lisp:t))) "DeleteUsagePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-usage-plan)) (common-lisp:progn (common-lisp:defun delete-usage-plan-key @@ -12970,16 +13057,18 @@ (common-lisp:format common-lisp:nil "/usageplans/~A/keys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)) - (quri.encode:url-encode + 'usageplan-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-id)))) + 'key-id) + common-lisp:t))) "DeleteUsagePlanKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-usage-plan-key)) (common-lisp:progn (common-lisp:defun delete-vpc-link @@ -13001,12 +13090,13 @@ (common-lisp:format common-lisp:nil "/vpclinks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpclink-id)))) + 'vpclink-id) + common-lisp:t))) "DeleteVpcLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-link)) (common-lisp:progn (common-lisp:defun flush-stage-authorizers-cache @@ -13029,16 +13119,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages/~A/cache/authorizers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "FlushStageAuthorizersCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'flush-stage-authorizers-cache)) (common-lisp:progn (common-lisp:defun flush-stage-cache @@ -13060,16 +13152,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages/~A/cache/data" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "FlushStageCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'flush-stage-cache)) (common-lisp:progn (common-lisp:defun generate-client-certificate @@ -13088,7 +13182,7 @@ "POST" "/clientcertificates" "GenerateClientCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-client-certificate)) (common-lisp:progn (common-lisp:defun get-account () @@ -13118,12 +13212,13 @@ (common-lisp:format common-lisp:nil "/apikeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-key)))) + 'api-key) + common-lisp:t))) "GetApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-api-key)) (common-lisp:progn (common-lisp:defun get-api-keys @@ -13143,7 +13238,7 @@ aws-sdk/generator/operation::input "GET" "/apikeys" "GetApiKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-api-keys)) (common-lisp:progn (common-lisp:defun get-authorizer @@ -13165,16 +13260,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/authorizers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-id)))) + 'authorizer-id) + common-lisp:t))) "GetAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-authorizer)) (common-lisp:progn (common-lisp:defun get-authorizers @@ -13196,12 +13293,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/authorizers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetAuthorizers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-authorizers)) (common-lisp:progn (common-lisp:defun get-base-path-mapping @@ -13223,16 +13321,18 @@ (common-lisp:format common-lisp:nil "/domainnames/~A/basepathmappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'base-path)))) + 'base-path) + common-lisp:t))) "GetBasePathMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-base-path-mapping)) (common-lisp:progn (common-lisp:defun get-base-path-mappings @@ -13254,12 +13354,13 @@ (common-lisp:format common-lisp:nil "/domainnames/~A/basepathmappings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetBasePathMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-base-path-mappings)) (common-lisp:progn (common-lisp:defun get-client-certificate @@ -13281,12 +13382,13 @@ (common-lisp:format common-lisp:nil "/clientcertificates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'clientcertificate-id)))) + 'clientcertificate-id) + common-lisp:t))) "GetClientCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-client-certificate)) (common-lisp:progn (common-lisp:defun get-client-certificates @@ -13304,7 +13406,7 @@ "GET" "/clientcertificates" "GetClientCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-client-certificates)) (common-lisp:progn (common-lisp:defun get-deployment @@ -13327,16 +13429,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "GetDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment)) (common-lisp:progn (common-lisp:defun get-deployments @@ -13358,12 +13462,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployments)) (common-lisp:progn (common-lisp:defun get-documentation-part @@ -13386,16 +13491,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/parts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'part-id)))) + 'part-id) + common-lisp:t))) "GetDocumentationPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-documentation-part)) (common-lisp:progn (common-lisp:defun get-documentation-parts @@ -13420,12 +13527,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/parts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetDocumentationParts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-documentation-parts)) (common-lisp:progn (common-lisp:defun get-documentation-version @@ -13449,16 +13557,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'doc-version)))) + 'doc-version) + common-lisp:t))) "GetDocumentationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-documentation-version)) (common-lisp:progn (common-lisp:defun get-documentation-versions @@ -13481,12 +13591,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetDocumentationVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-documentation-versions)) (common-lisp:progn (common-lisp:defun get-domain-name @@ -13508,12 +13619,13 @@ (common-lisp:format common-lisp:nil "/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-name)) (common-lisp:progn (common-lisp:defun get-domain-names @@ -13530,7 +13642,7 @@ aws-sdk/generator/operation::input "GET" "/domainnames" "GetDomainNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-names)) (common-lisp:progn (common-lisp:defun get-export @@ -13555,21 +13667,24 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages/~A/exports/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)) - (quri.encode:url-encode + 'stage-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'export-type)))) + 'export-type) + common-lisp:t))) "GetExport") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-export)) (common-lisp:progn (common-lisp:defun get-gateway-response @@ -13591,16 +13706,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/gatewayresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'response-type)))) + 'response-type) + common-lisp:t))) "GetGatewayResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-gateway-response)) (common-lisp:progn (common-lisp:defun get-gateway-responses @@ -13622,12 +13739,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/gatewayresponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetGatewayResponses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-gateway-responses)) (common-lisp:progn (common-lisp:defun get-integration @@ -13650,20 +13768,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/integration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "GetIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-integration)) (common-lisp:progn (common-lisp:defun get-integration-response @@ -13687,24 +13808,28 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/integration/responses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)) - (quri.encode:url-encode + 'http-method) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'status-code)))) + 'status-code) + common-lisp:t))) "GetIntegrationResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-integration-response)) (common-lisp:progn (common-lisp:defun get-method @@ -13727,20 +13852,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "GetMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-method)) (common-lisp:progn (common-lisp:defun get-method-response @@ -13764,24 +13892,28 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/responses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)) - (quri.encode:url-encode + 'http-method) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'status-code)))) + 'status-code) + common-lisp:t))) "GetMethodResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-method-response)) (common-lisp:progn (common-lisp:defun get-model @@ -13803,16 +13935,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-name)))) + 'model-name) + common-lisp:t))) "GetModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-model)) (common-lisp:progn (common-lisp:defun get-model-template @@ -13834,16 +13968,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/models/~A/default_template" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-name)))) + 'model-name) + common-lisp:t))) "GetModelTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-model-template)) (common-lisp:progn (common-lisp:defun get-models @@ -13865,12 +14001,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/models" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-models)) (common-lisp:progn (common-lisp:defun get-request-validator @@ -13893,16 +14030,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/requestvalidators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'requestvalidator-id)))) + 'requestvalidator-id) + common-lisp:t))) "GetRequestValidator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-request-validator)) (common-lisp:progn (common-lisp:defun get-request-validators @@ -13924,12 +14063,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/requestvalidators" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetRequestValidators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-request-validators)) (common-lisp:progn (common-lisp:defun get-resource @@ -13951,16 +14091,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "GetResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource)) (common-lisp:progn (common-lisp:defun get-resources @@ -13983,12 +14125,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resources)) (common-lisp:progn (common-lisp:defun get-rest-api @@ -14010,12 +14153,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetRestApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rest-api)) (common-lisp:progn (common-lisp:defun get-rest-apis @@ -14032,7 +14176,7 @@ aws-sdk/generator/operation::input "GET" "/restapis" "GetRestApis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rest-apis)) (common-lisp:progn (common-lisp:defun get-sdk @@ -14056,21 +14200,24 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages/~A/sdks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)) - (quri.encode:url-encode + 'stage-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sdk-type)))) + 'sdk-type) + common-lisp:t))) "GetSdk") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sdk)) (common-lisp:progn (common-lisp:defun get-sdk-type @@ -14092,12 +14239,13 @@ (common-lisp:format common-lisp:nil "/sdktypes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sdktype-id)))) + 'sdktype-id) + common-lisp:t))) "GetSdkType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sdk-type)) (common-lisp:progn (common-lisp:defun get-sdk-types @@ -14114,7 +14262,7 @@ aws-sdk/generator/operation::input "GET" "/sdktypes" "GetSdkTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sdk-types)) (common-lisp:progn (common-lisp:defun get-stage @@ -14136,16 +14284,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "GetStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stage)) (common-lisp:progn (common-lisp:defun get-stages @@ -14167,12 +14317,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "GetStages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stages)) (common-lisp:progn (common-lisp:defun get-tags @@ -14194,12 +14345,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "GetTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tags)) (common-lisp:progn (common-lisp:defun get-usage @@ -14224,12 +14376,13 @@ (common-lisp:format common-lisp:nil "/usageplans/~A/usage" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)))) + 'usageplan-id) + common-lisp:t))) "GetUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage)) (common-lisp:progn (common-lisp:defun get-usage-plan @@ -14251,12 +14404,13 @@ (common-lisp:format common-lisp:nil "/usageplans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)))) + 'usageplan-id) + common-lisp:t))) "GetUsagePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-plan)) (common-lisp:progn (common-lisp:defun get-usage-plan-key @@ -14278,16 +14432,18 @@ (common-lisp:format common-lisp:nil "/usageplans/~A/keys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)) - (quri.encode:url-encode + 'usageplan-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-id)))) + 'key-id) + common-lisp:t))) "GetUsagePlanKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-plan-key)) (common-lisp:progn (common-lisp:defun get-usage-plan-keys @@ -14310,12 +14466,13 @@ (common-lisp:format common-lisp:nil "/usageplans/~A/keys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)))) + 'usageplan-id) + common-lisp:t))) "GetUsagePlanKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-plan-keys)) (common-lisp:progn (common-lisp:defun get-usage-plans @@ -14332,7 +14489,7 @@ aws-sdk/generator/operation::input "GET" "/usageplans" "GetUsagePlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-plans)) (common-lisp:progn (common-lisp:defun get-vpc-link @@ -14354,12 +14511,13 @@ (common-lisp:format common-lisp:nil "/vpclinks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpclink-id)))) + 'vpclink-id) + common-lisp:t))) "GetVpcLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vpc-link)) (common-lisp:progn (common-lisp:defun get-vpc-links @@ -14376,7 +14534,7 @@ aws-sdk/generator/operation::input "GET" "/vpclinks" "GetVpcLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vpc-links)) (common-lisp:progn (common-lisp:defun import-api-keys @@ -14394,7 +14552,7 @@ "POST" "/apikeys?mode=import" "ImportApiKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-api-keys)) (common-lisp:progn (common-lisp:defun import-documentation-parts @@ -14418,12 +14576,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/parts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "ImportDocumentationParts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-documentation-parts)) (common-lisp:progn (common-lisp:defun import-rest-api @@ -14442,7 +14601,7 @@ "POST" "/restapis?mode=import" "ImportRestApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-rest-api)) (common-lisp:progn (common-lisp:defun put-gateway-response @@ -14467,16 +14626,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/gatewayresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'response-type)))) + 'response-type) + common-lisp:t))) "PutGatewayResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-gateway-response)) (common-lisp:progn (common-lisp:defun put-integration @@ -14506,20 +14667,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/integration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "PutIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-integration)) (common-lisp:progn (common-lisp:defun put-integration-response @@ -14546,24 +14710,28 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/integration/responses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)) - (quri.encode:url-encode + 'http-method) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'status-code)))) + 'status-code) + common-lisp:t))) "PutIntegrationResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-integration-response)) (common-lisp:progn (common-lisp:defun put-method @@ -14592,20 +14760,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "PutMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-method)) (common-lisp:progn (common-lisp:defun put-method-response @@ -14630,24 +14801,28 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/responses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)) - (quri.encode:url-encode + 'http-method) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'status-code)))) + 'status-code) + common-lisp:t))) "PutMethodResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-method-response)) (common-lisp:progn (common-lisp:defun put-rest-api @@ -14671,12 +14846,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "PutRestApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-rest-api)) (common-lisp:progn (common-lisp:defun tag-resource @@ -14698,12 +14874,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-invoke-authorizer @@ -14730,16 +14907,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/authorizers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-id)))) + 'authorizer-id) + common-lisp:t))) "TestInvokeAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-invoke-authorizer)) (common-lisp:progn (common-lisp:defun test-invoke-method @@ -14766,20 +14945,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "TestInvokeMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-invoke-method)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14801,12 +14983,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-account @@ -14823,7 +15006,7 @@ aws-sdk/generator/operation::input "PATCH" "/account" "UpdateAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account)) (common-lisp:progn (common-lisp:defun update-api-key @@ -14845,12 +15028,13 @@ (common-lisp:format common-lisp:nil "/apikeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-key)))) + 'api-key) + common-lisp:t))) "UpdateApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-api-key)) (common-lisp:progn (common-lisp:defun update-authorizer @@ -14874,16 +15058,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/authorizers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-id)))) + 'authorizer-id) + common-lisp:t))) "UpdateAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-authorizer)) (common-lisp:progn (common-lisp:defun update-base-path-mapping @@ -14906,16 +15092,18 @@ (common-lisp:format common-lisp:nil "/domainnames/~A/basepathmappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'base-path)))) + 'base-path) + common-lisp:t))) "UpdateBasePathMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-base-path-mapping)) (common-lisp:progn (common-lisp:defun update-client-certificate @@ -14939,12 +15127,13 @@ (common-lisp:format common-lisp:nil "/clientcertificates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'clientcertificate-id)))) + 'clientcertificate-id) + common-lisp:t))) "UpdateClientCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-client-certificate)) (common-lisp:progn (common-lisp:defun update-deployment @@ -14968,16 +15157,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "UpdateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-deployment)) (common-lisp:progn (common-lisp:defun update-documentation-part @@ -15002,16 +15193,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/parts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'part-id)))) + 'part-id) + common-lisp:t))) "UpdateDocumentationPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-documentation-part)) (common-lisp:progn (common-lisp:defun update-documentation-version @@ -15036,16 +15229,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/documentation/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'doc-version)))) + 'doc-version) + common-lisp:t))) "UpdateDocumentationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-documentation-version)) (common-lisp:progn (common-lisp:defun update-domain-name @@ -15067,12 +15262,13 @@ (common-lisp:format common-lisp:nil "/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-name)) (common-lisp:progn (common-lisp:defun update-gateway-response @@ -15096,16 +15292,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/gatewayresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'response-type)))) + 'response-type) + common-lisp:t))) "UpdateGatewayResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-response)) (common-lisp:progn (common-lisp:defun update-integration @@ -15130,20 +15328,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/integration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "UpdateIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-integration)) (common-lisp:progn (common-lisp:defun update-integration-response @@ -15169,24 +15370,28 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/integration/responses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)) - (quri.encode:url-encode + 'http-method) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'status-code)))) + 'status-code) + common-lisp:t))) "UpdateIntegrationResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-integration-response)) (common-lisp:progn (common-lisp:defun update-method @@ -15211,20 +15416,23 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)))) + 'http-method) + common-lisp:t))) "UpdateMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-method)) (common-lisp:progn (common-lisp:defun update-method-response @@ -15249,24 +15457,28 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A/methods/~A/responses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'http-method)) - (quri.encode:url-encode + 'http-method) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'status-code)))) + 'status-code) + common-lisp:t))) "UpdateMethodResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-method-response)) (common-lisp:progn (common-lisp:defun update-model @@ -15289,16 +15501,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-name)))) + 'model-name) + common-lisp:t))) "UpdateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model)) (common-lisp:progn (common-lisp:defun update-request-validator @@ -15322,16 +15536,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/requestvalidators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'requestvalidator-id)))) + 'requestvalidator-id) + common-lisp:t))) "UpdateRequestValidator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-request-validator)) (common-lisp:progn (common-lisp:defun update-resource @@ -15354,16 +15570,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "UpdateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource)) (common-lisp:progn (common-lisp:defun update-rest-api @@ -15385,12 +15603,13 @@ (common-lisp:format common-lisp:nil "/restapis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)))) + 'restapi-id) + common-lisp:t))) "UpdateRestApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rest-api)) (common-lisp:progn (common-lisp:defun update-stage @@ -15413,16 +15632,18 @@ (common-lisp:format common-lisp:nil "/restapis/~A/stages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restapi-id)) - (quri.encode:url-encode + 'restapi-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "UpdateStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stage)) (common-lisp:progn (common-lisp:defun update-usage @@ -15445,16 +15666,18 @@ (common-lisp:format common-lisp:nil "/usageplans/~A/keys/~A/usage" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)) - (quri.encode:url-encode + 'usageplan-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-id)))) + 'key-id) + common-lisp:t))) "UpdateUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-usage)) (common-lisp:progn (common-lisp:defun update-usage-plan @@ -15476,12 +15699,13 @@ (common-lisp:format common-lisp:nil "/usageplans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'usageplan-id)))) + 'usageplan-id) + common-lisp:t))) "UpdateUsagePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-usage-plan)) (common-lisp:progn (common-lisp:defun update-vpc-link @@ -15503,10 +15727,11 @@ (common-lisp:format common-lisp:nil "/vpclinks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpclink-id)))) + 'vpclink-id) + common-lisp:t))) "UpdateVpcLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpc-link)) diff --git a/services/apigatewaymanagementapi/api.lisp b/services/apigatewaymanagementapi/api.lisp index 421bbaf4..68c9da93 100644 --- a/services/apigatewaymanagementapi/api.lisp +++ b/services/apigatewaymanagementapi/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/apigatewaymanagementapi/api - (:use) - (:nicknames #:aws/apigatewaymanagementapi) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/apigatewaymanagementapi/api + (:use) (:nicknames #:aws/apigatewaymanagementapi) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/apigatewaymanagementapi/api) (common-lisp:progn (common-lisp:define-condition apigatewaymanagementapi-error @@ -20,7 +19,7 @@ (common-lisp:export 'apigatewaymanagementapi-error)) (common-lisp:progn (common-lisp:defclass apigatewaymanagementapi-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "apigatewaymanagementapi" :api-version "2018-11-29" :host-prefix "execute-api" @@ -262,7 +261,13 @@ ( (aws-sdk/generator/shape::input post-to-connection-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'data))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'data)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + post-to-connection-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:define-condition limit-exceeded-exception (apigatewaymanagementapi-error) @@ -286,12 +291,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/@connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun get-connection @@ -309,12 +315,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/@connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "GetConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connection)) (common-lisp:progn (common-lisp:defun post-to-connection @@ -332,10 +339,11 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/@connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "PostToConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'post-to-connection)) diff --git a/services/apigatewayv2/api.lisp b/services/apigatewayv2/api.lisp index 1530a559..4eea9490 100644 --- a/services/apigatewayv2/api.lisp +++ b/services/apigatewayv2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/apigatewayv2/api - (:use) - (:nicknames #:aws/apigatewayv2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/apigatewayv2/api (:use) + (:nicknames #:aws/apigatewayv2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/apigatewayv2/api) (common-lisp:progn (common-lisp:define-condition apigatewayv2-error @@ -20,7 +19,7 @@ (common-lisp:export 'apigatewayv2-error)) (common-lisp:progn (common-lisp:defclass apigatewayv2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "apigatewayv2" :api-version "2018-11-29" :host-prefix "apigateway" :signing-name @@ -7039,7 +7038,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input export-api-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input export-api-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype exported-api () '(common-lisp:simple-array (common-lisp:unsigned-byte 8) (common-lisp:*))) (common-lisp:progn @@ -18270,7 +18273,7 @@ aws-sdk/generator/operation::input "POST" "/v2/apis" "CreateApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-api)) (common-lisp:progn (common-lisp:defun create-api-mapping @@ -18293,12 +18296,13 @@ (common-lisp:format common-lisp:nil "/v2/domainnames/~A/apimappings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "CreateApiMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-api-mapping)) (common-lisp:progn (common-lisp:defun create-authorizer @@ -18328,12 +18332,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/authorizers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-authorizer)) (common-lisp:progn (common-lisp:defun create-deployment @@ -18355,12 +18360,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun create-domain-name @@ -18381,7 +18387,7 @@ "POST" "/v2/domainnames" "CreateDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain-name)) (common-lisp:progn (common-lisp:defun create-integration @@ -18416,12 +18422,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-integration)) (common-lisp:progn (common-lisp:defun create-integration-response @@ -18450,16 +18457,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations/~A/integrationresponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-id)))) + 'integration-id) + common-lisp:t))) "CreateIntegrationResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-integration-response)) (common-lisp:progn (common-lisp:defun create-model @@ -18483,12 +18492,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/models" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model)) (common-lisp:progn (common-lisp:defun create-route @@ -18518,12 +18528,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-route)) (common-lisp:progn (common-lisp:defun create-route-response @@ -18549,16 +18560,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A/routeresponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)))) + 'route-id) + common-lisp:t))) "CreateRouteResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-route-response)) (common-lisp:progn (common-lisp:defun create-stage @@ -18586,12 +18599,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/stages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stage)) (common-lisp:progn (common-lisp:defun create-vpc-link @@ -18609,7 +18623,7 @@ aws-sdk/generator/operation::input "POST" "/v2/vpclinks" "CreateVpcLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-link)) (common-lisp:progn (common-lisp:defun delete-access-log-settings @@ -18632,16 +18646,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/stages/~A/accesslogsettings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "DeleteAccessLogSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access-log-settings)) (common-lisp:progn (common-lisp:defun delete-api @@ -18663,12 +18679,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "DeleteApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-api)) (common-lisp:progn (common-lisp:defun delete-api-mapping @@ -18690,16 +18707,18 @@ (common-lisp:format common-lisp:nil "/v2/domainnames/~A/apimappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-mapping-id)))) + 'api-mapping-id) + common-lisp:t))) "DeleteApiMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-api-mapping)) (common-lisp:progn (common-lisp:defun delete-authorizer @@ -18721,16 +18740,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/authorizers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-id)))) + 'authorizer-id) + common-lisp:t))) "DeleteAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-authorizer)) (common-lisp:progn (common-lisp:defun delete-cors-configuration @@ -18753,12 +18774,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/cors" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "DeleteCorsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cors-configuration)) (common-lisp:progn (common-lisp:defun delete-deployment @@ -18780,16 +18802,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "DeleteDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-deployment)) (common-lisp:progn (common-lisp:defun delete-domain-name @@ -18811,12 +18835,13 @@ (common-lisp:format common-lisp:nil "/v2/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain-name)) (common-lisp:progn (common-lisp:defun delete-integration @@ -18838,16 +18863,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-id)))) + 'integration-id) + common-lisp:t))) "DeleteIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-integration)) (common-lisp:progn (common-lisp:defun delete-integration-response @@ -18872,20 +18899,23 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations/~A/integrationresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-id)) - (quri.encode:url-encode + 'integration-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-response-id)))) + 'integration-response-id) + common-lisp:t))) "DeleteIntegrationResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-integration-response)) (common-lisp:progn (common-lisp:defun delete-model @@ -18907,16 +18937,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-id)))) + 'model-id) + common-lisp:t))) "DeleteModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model)) (common-lisp:progn (common-lisp:defun delete-route @@ -18938,16 +18970,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)))) + 'route-id) + common-lisp:t))) "DeleteRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-route)) (common-lisp:progn (common-lisp:defun delete-route-request-parameter @@ -18971,20 +19005,23 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A/requestparameters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)) - (quri.encode:url-encode + 'route-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'request-parameter-key)))) + 'request-parameter-key) + common-lisp:t))) "DeleteRouteRequestParameter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-route-request-parameter)) (common-lisp:progn (common-lisp:defun delete-route-response @@ -19007,20 +19044,23 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A/routeresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)) - (quri.encode:url-encode + 'route-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-response-id)))) + 'route-response-id) + common-lisp:t))) "DeleteRouteResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-route-response)) (common-lisp:progn (common-lisp:defun delete-route-settings @@ -19042,20 +19082,23 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/stages/~A/routesettings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)) - (quri.encode:url-encode + 'stage-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-key)))) + 'route-key) + common-lisp:t))) "DeleteRouteSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-route-settings)) (common-lisp:progn (common-lisp:defun delete-stage @@ -19077,16 +19120,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/stages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "DeleteStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stage)) (common-lisp:progn (common-lisp:defun delete-vpc-link @@ -19108,12 +19153,13 @@ (common-lisp:format common-lisp:nil "/v2/vpclinks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpc-link-id)))) + 'vpc-link-id) + common-lisp:t))) "DeleteVpcLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-link)) (common-lisp:progn (common-lisp:defun export-api @@ -19138,17 +19184,19 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/exports/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'specification)))) + 'specification) + common-lisp:t))) "ExportApi") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-api)) (common-lisp:progn (common-lisp:defun reset-authorizers-cache @@ -19170,16 +19218,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/stages/~A/cache/authorizers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "ResetAuthorizersCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-authorizers-cache)) (common-lisp:progn (common-lisp:defun get-api @@ -19201,12 +19251,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-api)) (common-lisp:progn (common-lisp:defun get-api-mapping @@ -19228,16 +19279,18 @@ (common-lisp:format common-lisp:nil "/v2/domainnames/~A/apimappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-mapping-id)))) + 'api-mapping-id) + common-lisp:t))) "GetApiMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-api-mapping)) (common-lisp:progn (common-lisp:defun get-api-mappings @@ -19260,12 +19313,13 @@ (common-lisp:format common-lisp:nil "/v2/domainnames/~A/apimappings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetApiMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-api-mappings)) (common-lisp:progn (common-lisp:defun get-apis @@ -19282,7 +19336,7 @@ aws-sdk/generator/operation::input "GET" "/v2/apis" "GetApis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-apis)) (common-lisp:progn (common-lisp:defun get-authorizer @@ -19304,16 +19358,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/authorizers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-id)))) + 'authorizer-id) + common-lisp:t))) "GetAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-authorizer)) (common-lisp:progn (common-lisp:defun get-authorizers @@ -19335,12 +19391,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/authorizers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetAuthorizers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-authorizers)) (common-lisp:progn (common-lisp:defun get-deployment @@ -19362,16 +19419,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "GetDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment)) (common-lisp:progn (common-lisp:defun get-deployments @@ -19393,12 +19452,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployments)) (common-lisp:progn (common-lisp:defun get-domain-name @@ -19420,12 +19480,13 @@ (common-lisp:format common-lisp:nil "/v2/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-name)) (common-lisp:progn (common-lisp:defun get-domain-names @@ -19442,7 +19503,7 @@ aws-sdk/generator/operation::input "GET" "/v2/domainnames" "GetDomainNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-names)) (common-lisp:progn (common-lisp:defun get-integration @@ -19464,16 +19525,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-id)))) + 'integration-id) + common-lisp:t))) "GetIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-integration)) (common-lisp:progn (common-lisp:defun get-integration-response @@ -19497,20 +19560,23 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations/~A/integrationresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-id)) - (quri.encode:url-encode + 'integration-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-response-id)))) + 'integration-response-id) + common-lisp:t))) "GetIntegrationResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-integration-response)) (common-lisp:progn (common-lisp:defun get-integration-responses @@ -19535,16 +19601,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations/~A/integrationresponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-id)))) + 'integration-id) + common-lisp:t))) "GetIntegrationResponses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-integration-responses)) (common-lisp:progn (common-lisp:defun get-integrations @@ -19566,12 +19634,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetIntegrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-integrations)) (common-lisp:progn (common-lisp:defun get-model @@ -19593,16 +19662,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-id)))) + 'model-id) + common-lisp:t))) "GetModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-model)) (common-lisp:progn (common-lisp:defun get-model-template @@ -19624,16 +19695,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/models/~A/template" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-id)))) + 'model-id) + common-lisp:t))) "GetModelTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-model-template)) (common-lisp:progn (common-lisp:defun get-models @@ -19655,12 +19728,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/models" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-models)) (common-lisp:progn (common-lisp:defun get-route @@ -19682,16 +19756,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)))) + 'route-id) + common-lisp:t))) "GetRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-route)) (common-lisp:progn (common-lisp:defun get-route-response @@ -19714,20 +19790,23 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A/routeresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)) - (quri.encode:url-encode + 'route-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-response-id)))) + 'route-response-id) + common-lisp:t))) "GetRouteResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-route-response)) (common-lisp:progn (common-lisp:defun get-route-responses @@ -19750,16 +19829,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A/routeresponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)))) + 'route-id) + common-lisp:t))) "GetRouteResponses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-route-responses)) (common-lisp:progn (common-lisp:defun get-routes @@ -19781,12 +19862,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-routes)) (common-lisp:progn (common-lisp:defun get-stage @@ -19808,16 +19890,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/stages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "GetStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stage)) (common-lisp:progn (common-lisp:defun get-stages @@ -19839,12 +19923,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/stages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetStages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stages)) (common-lisp:progn (common-lisp:defun get-tags @@ -19866,12 +19951,13 @@ (common-lisp:format common-lisp:nil "/v2/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "GetTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tags)) (common-lisp:progn (common-lisp:defun get-vpc-link @@ -19893,12 +19979,13 @@ (common-lisp:format common-lisp:nil "/v2/vpclinks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpc-link-id)))) + 'vpc-link-id) + common-lisp:t))) "GetVpcLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vpc-link)) (common-lisp:progn (common-lisp:defun get-vpc-links @@ -19915,7 +20002,7 @@ aws-sdk/generator/operation::input "GET" "/v2/vpclinks" "GetVpcLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vpc-links)) (common-lisp:progn (common-lisp:defun import-api @@ -19932,7 +20019,7 @@ aws-sdk/generator/operation::input "PUT" "/v2/apis" "ImportApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-api)) (common-lisp:progn (common-lisp:defun reimport-api @@ -19955,12 +20042,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "ReimportApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reimport-api)) (common-lisp:progn (common-lisp:defun tag-resource @@ -19982,12 +20070,13 @@ (common-lisp:format common-lisp:nil "/v2/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -20009,12 +20098,13 @@ (common-lisp:format common-lisp:nil "/v2/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-api @@ -20043,12 +20133,13 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "UpdateApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-api)) (common-lisp:progn (common-lisp:defun update-api-mapping @@ -20073,16 +20164,18 @@ (common-lisp:format common-lisp:nil "/v2/domainnames/~A/apimappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-mapping-id)))) + 'api-mapping-id) + common-lisp:t))) "UpdateApiMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-api-mapping)) (common-lisp:progn (common-lisp:defun update-authorizer @@ -20112,16 +20205,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/authorizers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-id)))) + 'authorizer-id) + common-lisp:t))) "UpdateAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-authorizer)) (common-lisp:progn (common-lisp:defun update-deployment @@ -20144,16 +20239,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "UpdateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-deployment)) (common-lisp:progn (common-lisp:defun update-domain-name @@ -20178,12 +20275,13 @@ (common-lisp:format common-lisp:nil "/v2/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-name)) (common-lisp:progn (common-lisp:defun update-integration @@ -20218,16 +20316,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-id)))) + 'integration-id) + common-lisp:t))) "UpdateIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-integration)) (common-lisp:progn (common-lisp:defun update-integration-response @@ -20256,20 +20356,23 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/integrations/~A/integrationresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-id)) - (quri.encode:url-encode + 'integration-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-response-id)))) + 'integration-response-id) + common-lisp:t))) "UpdateIntegrationResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-integration-response)) (common-lisp:progn (common-lisp:defun update-model @@ -20294,16 +20397,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-id)))) + 'model-id) + common-lisp:t))) "UpdateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model)) (common-lisp:progn (common-lisp:defun update-route @@ -20333,16 +20438,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)))) + 'route-id) + common-lisp:t))) "UpdateRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-route)) (common-lisp:progn (common-lisp:defun update-route-response @@ -20368,20 +20475,23 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/routes/~A/routeresponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-id)) - (quri.encode:url-encode + 'route-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-response-id)))) + 'route-response-id) + common-lisp:t))) "UpdateRouteResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-route-response)) (common-lisp:progn (common-lisp:defun update-stage @@ -20408,16 +20518,18 @@ (common-lisp:format common-lisp:nil "/v2/apis/~A/stages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stage-name)))) + 'stage-name) + common-lisp:t))) "UpdateStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stage)) (common-lisp:progn (common-lisp:defun update-vpc-link @@ -20439,10 +20551,11 @@ (common-lisp:format common-lisp:nil "/v2/vpclinks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpc-link-id)))) + 'vpc-link-id) + common-lisp:t))) "UpdateVpcLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpc-link)) diff --git a/services/appconfig/api.lisp b/services/appconfig/api.lisp index 719ef89c..cec3db5c 100644 --- a/services/appconfig/api.lisp +++ b/services/appconfig/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/appconfig/api - (:use) - (:nicknames #:aws/appconfig) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/appconfig/api (:use) + (:nicknames #:aws/appconfig) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/appconfig/api) (common-lisp:progn (common-lisp:define-condition appconfig-error @@ -20,7 +19,7 @@ (common-lisp:export 'appconfig-error)) (common-lisp:progn (common-lisp:defclass appconfig-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "appconfig" :api-version "2019-10-09" :host-prefix "appconfig" :signing-name @@ -493,12 +492,16 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'configuration-version)) - (common-lisp:cons "Configuration-Version" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Configuration-Version" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input configuration)) (common-lisp:append @@ -511,7 +514,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input configuration)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'content))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'content)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input configuration)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass configuration-profile common-lisp:nil ((application-id :initarg :application-id :initform @@ -1423,8 +1430,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'latest-version-number)) - (common-lisp:cons "Latest-Version-Number" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Latest-Version-Number" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1538,21 +1547,29 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'description)) - (common-lisp:cons "Description" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Description" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'latest-version-number)) - (common-lisp:cons "Latest-Version-Number" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Latest-Version-Number" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-label)) - (common-lisp:cons "VersionLabel" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "VersionLabel" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1569,7 +1586,13 @@ ( (aws-sdk/generator/shape::input create-hosted-configuration-version-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'content))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'content)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-hosted-configuration-version-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-application-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -3717,33 +3740,47 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'application-id)) - (common-lisp:cons "Application-Id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Application-Id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'configuration-profile-id)) - (common-lisp:cons "Configuration-Profile-Id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Configuration-Profile-Id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-number)) - (common-lisp:cons "Version-Number" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Version-Number" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'description)) - (common-lisp:cons "Description" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Description" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-label)) - (common-lisp:cons "VersionLabel" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "VersionLabel" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'kms-key-arn)) - (common-lisp:cons "KmsKeyArn" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "KmsKeyArn" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3760,7 +3797,13 @@ ( (aws-sdk/generator/shape::input hosted-configuration-version)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'content))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'content)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + hosted-configuration-version)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass hosted-configuration-version-summary common-lisp:nil ((application-id :initarg :application-id :initform @@ -5565,7 +5608,7 @@ aws-sdk/generator/operation::input "POST" "/applications" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-configuration-profile @@ -5592,12 +5635,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateConfigurationProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-profile)) (common-lisp:progn (common-lisp:defun create-deployment-strategy @@ -5620,7 +5664,7 @@ "POST" "/deploymentstrategies" "CreateDeploymentStrategy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment-strategy)) (common-lisp:progn (common-lisp:defun create-environment @@ -5644,12 +5688,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun create-extension @@ -5669,7 +5714,7 @@ aws-sdk/generator/operation::input "POST" "/extensions" "CreateExtension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-extension)) (common-lisp:progn (common-lisp:defun create-extension-association @@ -5692,7 +5737,7 @@ "POST" "/extensionassociations" "CreateExtensionAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-extension-association)) (common-lisp:progn (common-lisp:defun create-hosted-configuration-version @@ -5719,17 +5764,19 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles/~A/hostedconfigurationversions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-profile-id)))) + 'configuration-profile-id) + common-lisp:t))) "CreateHostedConfigurationVersion") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hosted-configuration-version)) (common-lisp:progn (common-lisp:defun delete-application @@ -5751,12 +5798,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-configuration-profile @@ -5780,16 +5828,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-profile-id)))) + 'configuration-profile-id) + common-lisp:t))) "DeleteConfigurationProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-profile)) (common-lisp:progn (common-lisp:defun delete-deployment-strategy @@ -5812,12 +5862,13 @@ (common-lisp:format common-lisp:nil "/deployementstrategies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-strategy-id)))) + 'deployment-strategy-id) + common-lisp:t))) "DeleteDeploymentStrategy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-deployment-strategy)) (common-lisp:progn (common-lisp:defun delete-environment @@ -5839,16 +5890,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun delete-extension @@ -5871,12 +5924,13 @@ (common-lisp:format common-lisp:nil "/extensions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'extension-identifier)))) + 'extension-identifier) + common-lisp:t))) "DeleteExtension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-extension)) (common-lisp:progn (common-lisp:defun delete-extension-association @@ -5899,12 +5953,13 @@ (common-lisp:format common-lisp:nil "/extensionassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'extension-association-id)))) + 'extension-association-id) + common-lisp:t))) "DeleteExtensionAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-extension-association)) (common-lisp:progn (common-lisp:defun delete-hosted-configuration-version @@ -5930,20 +5985,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles/~A/hostedconfigurationversions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-profile-id)) - (quri.encode:url-encode + 'configuration-profile-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-number)))) + 'version-number) + common-lisp:t))) "DeleteHostedConfigurationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hosted-configuration-version)) (common-lisp:progn (common-lisp:defun get-application @@ -5965,12 +6023,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-configuration @@ -5995,21 +6054,24 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments/~A/configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)) - (quri.encode:url-encode + 'application) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment)) - (quri.encode:url-encode + 'environment) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration)))) + 'configuration) + common-lisp:t))) "GetConfiguration") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration)) (common-lisp:progn (common-lisp:defun get-configuration-profile @@ -6033,16 +6095,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-profile-id)))) + 'configuration-profile-id) + common-lisp:t))) "GetConfigurationProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration-profile)) (common-lisp:progn (common-lisp:defun get-deployment @@ -6066,20 +6130,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-number)))) + 'deployment-number) + common-lisp:t))) "GetDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment)) (common-lisp:progn (common-lisp:defun get-deployment-strategy @@ -6101,12 +6168,13 @@ (common-lisp:format common-lisp:nil "/deploymentstrategies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-strategy-id)))) + 'deployment-strategy-id) + common-lisp:t))) "GetDeploymentStrategy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment-strategy)) (common-lisp:progn (common-lisp:defun get-environment @@ -6128,16 +6196,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "GetEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment)) (common-lisp:progn (common-lisp:defun get-extension @@ -6160,12 +6230,13 @@ (common-lisp:format common-lisp:nil "/extensions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'extension-identifier)))) + 'extension-identifier) + common-lisp:t))) "GetExtension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-extension)) (common-lisp:progn (common-lisp:defun get-extension-association @@ -6188,12 +6259,13 @@ (common-lisp:format common-lisp:nil "/extensionassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'extension-association-id)))) + 'extension-association-id) + common-lisp:t))) "GetExtensionAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-extension-association)) (common-lisp:progn (common-lisp:defun get-hosted-configuration-version @@ -6219,21 +6291,24 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles/~A/hostedconfigurationversions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-profile-id)) - (quri.encode:url-encode + 'configuration-profile-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-number)))) + 'version-number) + common-lisp:t))) "GetHostedConfigurationVersion") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-hosted-configuration-version)) (common-lisp:progn (common-lisp:defun list-applications @@ -6250,7 +6325,7 @@ aws-sdk/generator/operation::input "GET" "/applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-configuration-profiles @@ -6275,12 +6350,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListConfigurationProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-profiles)) (common-lisp:progn (common-lisp:defun list-deployment-strategies @@ -6299,7 +6375,7 @@ "GET" "/deploymentstrategies" "ListDeploymentStrategies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployment-strategies)) (common-lisp:progn (common-lisp:defun list-deployments @@ -6324,16 +6400,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "ListDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployments)) (common-lisp:progn (common-lisp:defun list-environments @@ -6356,12 +6434,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-extension-associations @@ -6383,7 +6462,7 @@ "GET" "/extensionassociations" "ListExtensionAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-extension-associations)) (common-lisp:progn (common-lisp:defun list-extensions @@ -6400,7 +6479,7 @@ aws-sdk/generator/operation::input "GET" "/extensions" "ListExtensions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-extensions)) (common-lisp:progn (common-lisp:defun list-hosted-configuration-versions @@ -6426,16 +6505,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles/~A/hostedconfigurationversions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-profile-id)))) + 'configuration-profile-id) + common-lisp:t))) "ListHostedConfigurationVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hosted-configuration-versions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6457,12 +6538,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-deployment @@ -6490,16 +6572,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "StartDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-deployment)) (common-lisp:progn (common-lisp:defun stop-deployment @@ -6523,20 +6607,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-number)))) + 'deployment-number) + common-lisp:t))) "StopDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-deployment)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6558,12 +6645,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6585,12 +6673,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -6613,12 +6702,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-configuration-profile @@ -6645,16 +6735,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-profile-id)))) + 'configuration-profile-id) + common-lisp:t))) "UpdateConfigurationProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configuration-profile)) (common-lisp:progn (common-lisp:defun update-deployment-strategy @@ -6682,12 +6774,13 @@ (common-lisp:format common-lisp:nil "/deploymentstrategies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-strategy-id)))) + 'deployment-strategy-id) + common-lisp:t))) "UpdateDeploymentStrategy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-deployment-strategy)) (common-lisp:progn (common-lisp:defun update-environment @@ -6712,16 +6805,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "UpdateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment)) (common-lisp:progn (common-lisp:defun update-extension @@ -6746,12 +6841,13 @@ (common-lisp:format common-lisp:nil "/extensions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'extension-identifier)))) + 'extension-identifier) + common-lisp:t))) "UpdateExtension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-extension)) (common-lisp:progn (common-lisp:defun update-extension-association @@ -6775,12 +6871,13 @@ (common-lisp:format common-lisp:nil "/extensionassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'extension-association-id)))) + 'extension-association-id) + common-lisp:t))) "UpdateExtensionAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-extension-association)) (common-lisp:progn (common-lisp:defun validate-configuration @@ -6805,14 +6902,16 @@ (common-lisp:format common-lisp:nil "/applications/~A/configurationprofiles/~A/validators" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-profile-id)))) + 'configuration-profile-id) + common-lisp:t))) "ValidateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-configuration)) diff --git a/services/appconfigdata/api.lisp b/services/appconfigdata/api.lisp index 16f33c10..7a3a9845 100644 --- a/services/appconfigdata/api.lisp +++ b/services/appconfigdata/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/appconfigdata/api - (:use) - (:nicknames #:aws/appconfigdata) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/appconfigdata/api (:use) + (:nicknames #:aws/appconfigdata) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/appconfigdata/api) (common-lisp:progn (common-lisp:define-condition appconfigdata-error @@ -20,7 +19,7 @@ (common-lisp:export 'appconfigdata-error)) (common-lisp:progn (common-lisp:defclass appconfigdata-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "appconfigdata" :api-version "2021-11-11" :host-prefix "appconfigdata" :signing-name @@ -165,22 +164,30 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'next-poll-configuration-token)) - (common-lisp:cons "Next-Poll-Configuration-Token" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Next-Poll-Configuration-Token" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'next-poll-interval-in-seconds)) - (common-lisp:cons "Next-Poll-Interval-In-Seconds" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Next-Poll-Interval-In-Seconds" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-label)) - (common-lisp:cons "Version-Label" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Version-Label" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -197,7 +204,13 @@ ( (aws-sdk/generator/shape::input get-latest-configuration-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'configuration))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-latest-configuration-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype identifier () 'common-lisp:string) (common-lisp:deftype integer () 'common-lisp:integer) (common-lisp:progn @@ -441,7 +454,7 @@ "GET" "/configuration" "GetLatestConfiguration") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-latest-configuration)) (common-lisp:progn (common-lisp:defun start-configuration-session @@ -465,5 +478,5 @@ "POST" "/configurationsessions" "StartConfigurationSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-configuration-session)) diff --git a/services/appfabric/api.lisp b/services/appfabric/api.lisp index 46902ee1..a95af15b 100644 --- a/services/appfabric/api.lisp +++ b/services/appfabric/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/appfabric/api - (:use) - (:nicknames #:aws/appfabric) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/appfabric/api (:use) + (:nicknames #:aws/appfabric) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/appfabric/api) (common-lisp:progn (common-lisp:define-condition appfabric-error @@ -20,7 +19,7 @@ (common-lisp:export 'appfabric-error)) (common-lisp:progn (common-lisp:defclass appfabric-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "appfabric" :api-version "2023-05-19" :host-prefix "appfabric" :signing-name @@ -4229,7 +4228,7 @@ "POST" "/useraccess/batchget" "BatchGetUserAccessTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-user-access-tasks)) (common-lisp:progn (common-lisp:defun connect-app-authorization @@ -4255,16 +4254,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/appauthorizations/~A/connect" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-authorization-identifier)))) + 'app-authorization-identifier) + common-lisp:t))) "ConnectAppAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'connect-app-authorization)) (common-lisp:progn (common-lisp:defun create-app-authorization @@ -4289,12 +4290,13 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/appauthorizations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)))) + 'app-bundle-identifier) + common-lisp:t))) "CreateAppAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-authorization)) (common-lisp:progn (common-lisp:defun create-app-bundle @@ -4313,7 +4315,7 @@ aws-sdk/generator/operation::input "POST" "/appbundles" "CreateAppBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-bundle)) (common-lisp:progn (common-lisp:defun create-ingestion @@ -4338,12 +4340,13 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)))) + 'app-bundle-identifier) + common-lisp:t))) "CreateIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ingestion)) (common-lisp:progn (common-lisp:defun create-ingestion-destination @@ -4370,16 +4373,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A/ingestiondestinations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)))) + 'ingestion-identifier) + common-lisp:t))) "CreateIngestionDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ingestion-destination)) (common-lisp:progn (common-lisp:defun delete-app-authorization @@ -4403,16 +4408,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/appauthorizations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-authorization-identifier)))) + 'app-authorization-identifier) + common-lisp:t))) "DeleteAppAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-authorization)) (common-lisp:progn (common-lisp:defun delete-app-bundle @@ -4434,12 +4441,13 @@ (common-lisp:format common-lisp:nil "/appbundles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)))) + 'app-bundle-identifier) + common-lisp:t))) "DeleteAppBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-bundle)) (common-lisp:progn (common-lisp:defun delete-ingestion @@ -4463,16 +4471,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)))) + 'ingestion-identifier) + common-lisp:t))) "DeleteIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ingestion)) (common-lisp:progn (common-lisp:defun delete-ingestion-destination @@ -4498,20 +4508,23 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A/ingestiondestinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)) - (quri.encode:url-encode + 'ingestion-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-destination-identifier)))) + 'ingestion-destination-identifier) + common-lisp:t))) "DeleteIngestionDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ingestion-destination)) (common-lisp:progn (common-lisp:defun get-app-authorization @@ -4535,16 +4548,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/appauthorizations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-authorization-identifier)))) + 'app-authorization-identifier) + common-lisp:t))) "GetAppAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-authorization)) (common-lisp:progn (common-lisp:defun get-app-bundle @@ -4566,12 +4581,13 @@ (common-lisp:format common-lisp:nil "/appbundles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)))) + 'app-bundle-identifier) + common-lisp:t))) "GetAppBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-bundle)) (common-lisp:progn (common-lisp:defun get-ingestion @@ -4595,16 +4611,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)))) + 'ingestion-identifier) + common-lisp:t))) "GetIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ingestion)) (common-lisp:progn (common-lisp:defun get-ingestion-destination @@ -4630,20 +4648,23 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A/ingestiondestinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)) - (quri.encode:url-encode + 'ingestion-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-destination-identifier)))) + 'ingestion-destination-identifier) + common-lisp:t))) "GetIngestionDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ingestion-destination)) (common-lisp:progn (common-lisp:defun list-app-authorizations @@ -4667,12 +4688,13 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/appauthorizations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)))) + 'app-bundle-identifier) + common-lisp:t))) "ListAppAuthorizations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-authorizations)) (common-lisp:progn (common-lisp:defun list-app-bundles @@ -4689,7 +4711,7 @@ aws-sdk/generator/operation::input "GET" "/appbundles" "ListAppBundles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-bundles)) (common-lisp:progn (common-lisp:defun list-ingestion-destinations @@ -4715,16 +4737,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A/ingestiondestinations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)))) + 'ingestion-identifier) + common-lisp:t))) "ListIngestionDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ingestion-destinations)) (common-lisp:progn (common-lisp:defun list-ingestions @@ -4748,12 +4772,13 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)))) + 'app-bundle-identifier) + common-lisp:t))) "ListIngestions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ingestions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4775,12 +4800,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-ingestion @@ -4804,16 +4830,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)))) + 'ingestion-identifier) + common-lisp:t))) "StartIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-ingestion)) (common-lisp:progn (common-lisp:defun start-user-access-tasks @@ -4831,7 +4859,7 @@ "POST" "/useraccess/start" "StartUserAccessTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-user-access-tasks)) (common-lisp:progn (common-lisp:defun stop-ingestion @@ -4855,16 +4883,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)))) + 'ingestion-identifier) + common-lisp:t))) "StopIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-ingestion)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4886,12 +4916,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4913,12 +4944,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-app-authorization @@ -4943,16 +4975,18 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/appauthorizations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-authorization-identifier)))) + 'app-authorization-identifier) + common-lisp:t))) "UpdateAppAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-authorization)) (common-lisp:progn (common-lisp:defun update-ingestion-destination @@ -4979,18 +5013,21 @@ (common-lisp:format common-lisp:nil "/appbundles/~A/ingestions/~A/ingestiondestinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-bundle-identifier)) - (quri.encode:url-encode + 'app-bundle-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-identifier)) - (quri.encode:url-encode + 'ingestion-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-destination-identifier)))) + 'ingestion-destination-identifier) + common-lisp:t))) "UpdateIngestionDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ingestion-destination)) diff --git a/services/appflow/api.lisp b/services/appflow/api.lisp index 11afcd5f..b0d1732b 100644 --- a/services/appflow/api.lisp +++ b/services/appflow/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/appflow/api - (:use) - (:nicknames #:aws/appflow) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/appflow/api (:use) + (:nicknames #:aws/appflow) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/appflow/api) (common-lisp:progn (common-lisp:define-condition appflow-error @@ -20,7 +19,7 @@ (common-lisp:export 'appflow-error)) (common-lisp:progn (common-lisp:defclass appflow-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "appflow" :api-version "2020-08-23" :host-prefix "appflow" :signing-name @@ -14663,7 +14662,7 @@ "POST" "/cancel-flow-executions" "CancelFlowExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-flow-executions)) (common-lisp:progn (common-lisp:defun create-connector-profile @@ -14685,7 +14684,7 @@ "POST" "/create-connector-profile" "CreateConnectorProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connector-profile)) (common-lisp:progn (common-lisp:defun create-flow @@ -14708,7 +14707,7 @@ aws-sdk/generator/operation::input "POST" "/create-flow" "CreateFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-flow)) (common-lisp:progn (common-lisp:defun delete-connector-profile @@ -14727,7 +14726,7 @@ "POST" "/delete-connector-profile" "DeleteConnectorProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connector-profile)) (common-lisp:progn (common-lisp:defun delete-flow @@ -14744,7 +14743,7 @@ aws-sdk/generator/operation::input "POST" "/delete-flow" "DeleteFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-flow)) (common-lisp:progn (common-lisp:defun describe-connector @@ -14762,7 +14761,7 @@ "POST" "/describe-connector" "DescribeConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connector)) (common-lisp:progn (common-lisp:defun describe-connector-entity @@ -14784,7 +14783,7 @@ "POST" "/describe-connector-entity" "DescribeConnectorEntity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connector-entity)) (common-lisp:progn (common-lisp:defun describe-connector-profiles @@ -14806,7 +14805,7 @@ "POST" "/describe-connector-profiles" "DescribeConnectorProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connector-profiles)) (common-lisp:progn (common-lisp:defun describe-connectors @@ -14825,7 +14824,7 @@ "POST" "/describe-connectors" "DescribeConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connectors)) (common-lisp:progn (common-lisp:defun describe-flow @@ -14842,7 +14841,7 @@ aws-sdk/generator/operation::input "POST" "/describe-flow" "DescribeFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-flow)) (common-lisp:progn (common-lisp:defun describe-flow-execution-records @@ -14862,7 +14861,7 @@ "POST" "/describe-flow-execution-records" "DescribeFlowExecutionRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-flow-execution-records)) (common-lisp:progn (common-lisp:defun list-connector-entities @@ -14883,7 +14882,7 @@ "POST" "/list-connector-entities" "ListConnectorEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connector-entities)) (common-lisp:progn (common-lisp:defun list-connectors @@ -14901,7 +14900,7 @@ "POST" "/list-connectors" "ListConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connectors)) (common-lisp:progn (common-lisp:defun list-flows @@ -14918,7 +14917,7 @@ aws-sdk/generator/operation::input "POST" "/list-flows" "ListFlows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-flows)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14940,12 +14939,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun register-connector @@ -14967,7 +14967,7 @@ "POST" "/register-connector" "RegisterConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-connector)) (common-lisp:progn (common-lisp:defun reset-connector-metadata-cache @@ -14989,7 +14989,7 @@ "POST" "/reset-connector-metadata-cache" "ResetConnectorMetadataCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-connector-metadata-cache)) (common-lisp:progn (common-lisp:defun start-flow @@ -15006,7 +15006,7 @@ aws-sdk/generator/operation::input "POST" "/start-flow" "StartFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-flow)) (common-lisp:progn (common-lisp:defun stop-flow @@ -15023,7 +15023,7 @@ aws-sdk/generator/operation::input "POST" "/stop-flow" "StopFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-flow)) (common-lisp:progn (common-lisp:defun tag-resource @@ -15045,12 +15045,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun unregister-connector @@ -15068,7 +15069,7 @@ "POST" "/unregister-connector" "UnregisterConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unregister-connector)) (common-lisp:progn (common-lisp:defun untag-resource @@ -15090,12 +15091,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-connector-profile @@ -15116,7 +15118,7 @@ "POST" "/update-connector-profile" "UpdateConnectorProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connector-profile)) (common-lisp:progn (common-lisp:defun update-connector-registration @@ -15138,7 +15140,7 @@ "POST" "/update-connector-registration" "UpdateConnectorRegistration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connector-registration)) (common-lisp:progn (common-lisp:defun update-flow @@ -15160,5 +15162,5 @@ aws-sdk/generator/operation::input "POST" "/update-flow" "UpdateFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-flow)) diff --git a/services/appintegrations/api.lisp b/services/appintegrations/api.lisp index cb2c4803..2e861eba 100644 --- a/services/appintegrations/api.lisp +++ b/services/appintegrations/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/appintegrations/api - (:use) - (:nicknames #:aws/appintegrations) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/appintegrations/api (:use) + (:nicknames #:aws/appintegrations) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/appintegrations/api) (common-lisp:progn (common-lisp:define-condition appintegrations-error @@ -20,7 +19,7 @@ (common-lisp:export 'appintegrations-error)) (common-lisp:progn (common-lisp:defclass appintegrations-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "appintegrations" :api-version "2020-07-29" :host-prefix @@ -3583,7 +3582,7 @@ (aws-sdk/generator/shape:make-request-with-input 'appintegrations-request aws-sdk/generator/operation::input "POST" "/applications" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-data-integration @@ -3603,7 +3602,7 @@ (aws-sdk/generator/shape:make-request-with-input 'appintegrations-request aws-sdk/generator/operation::input "POST" "/dataIntegrations" "CreateDataIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-integration)) (common-lisp:progn (common-lisp:defun create-event-integration @@ -3622,7 +3621,7 @@ (aws-sdk/generator/shape:make-request-with-input 'appintegrations-request aws-sdk/generator/operation::input "POST" "/eventIntegrations" "CreateEventIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-integration)) (common-lisp:progn (common-lisp:defun delete-application @@ -3639,12 +3638,13 @@ 'appintegrations-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-data-integration @@ -3661,12 +3661,12 @@ 'appintegrations-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/dataIntegrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "DeleteDataIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-integration)) (common-lisp:progn (common-lisp:defun delete-event-integration @@ -3683,11 +3683,12 @@ 'appintegrations-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/eventIntegrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'name)))) + aws-sdk/generator/operation::input 'name) + common-lisp:t))) "DeleteEventIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-integration)) (common-lisp:progn (common-lisp:defun get-application @@ -3704,12 +3705,13 @@ 'appintegrations-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-data-integration @@ -3726,12 +3728,12 @@ 'appintegrations-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/dataIntegrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "GetDataIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-integration)) (common-lisp:progn (common-lisp:defun get-event-integration @@ -3748,11 +3750,12 @@ 'appintegrations-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/eventIntegrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'name)))) + aws-sdk/generator/operation::input 'name) + common-lisp:t))) "GetEventIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-integration)) (common-lisp:progn (common-lisp:defun list-application-associations @@ -3771,12 +3774,13 @@ 'appintegrations-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "ListApplicationAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-associations)) (common-lisp:progn (common-lisp:defun list-applications @@ -3792,7 +3796,7 @@ (aws-sdk/generator/shape:make-request-with-input 'appintegrations-request aws-sdk/generator/operation::input "GET" "/applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-data-integration-associations @@ -3813,12 +3817,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/dataIntegrations/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "ListDataIntegrationAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-integration-associations)) (common-lisp:progn (common-lisp:defun list-data-integrations @@ -3834,7 +3838,7 @@ (aws-sdk/generator/shape:make-request-with-input 'appintegrations-request aws-sdk/generator/operation::input "GET" "/dataIntegrations" "ListDataIntegrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-integrations)) (common-lisp:progn (common-lisp:defun list-event-integration-associations @@ -3855,11 +3859,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/eventIntegrations/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'name)))) + aws-sdk/generator/operation::input 'name) + common-lisp:t))) "ListEventIntegrationAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-integration-associations)) (common-lisp:progn (common-lisp:defun list-event-integrations @@ -3875,7 +3880,7 @@ (aws-sdk/generator/shape:make-request-with-input 'appintegrations-request aws-sdk/generator/operation::input "GET" "/eventIntegrations" "ListEventIntegrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-integrations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3892,12 +3897,13 @@ 'appintegrations-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3914,12 +3920,13 @@ 'appintegrations-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3936,12 +3943,13 @@ 'appintegrations-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -3962,12 +3970,13 @@ 'appintegrations-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-data-integration @@ -3984,12 +3993,12 @@ 'appintegrations-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/dataIntegrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "UpdateDataIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-integration)) (common-lisp:progn (common-lisp:defun update-event-integration @@ -4006,9 +4015,10 @@ 'appintegrations-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/eventIntegrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'name)))) + aws-sdk/generator/operation::input 'name) + common-lisp:t))) "UpdateEventIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-integration)) diff --git a/services/application-autoscaling/api.lisp b/services/application-autoscaling/api.lisp index cdf229a7..890bc1b9 100644 --- a/services/application-autoscaling/api.lisp +++ b/services/application-autoscaling/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/application-autoscaling/api - (:use) - (:nicknames #:aws/application-autoscaling) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/application-autoscaling/api + (:use) (:nicknames #:aws/application-autoscaling) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/application-autoscaling/api) (common-lisp:progn (common-lisp:define-condition application-autoscaling-error @@ -3727,7 +3726,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "DeleteScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scaling-policy)) (common-lisp:progn (common-lisp:defun delete-scheduled-action @@ -3746,7 +3745,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "DeleteScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scheduled-action)) (common-lisp:progn (common-lisp:defun deregister-scalable-target @@ -3765,7 +3764,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "DeregisterScalableTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-scalable-target)) (common-lisp:progn (common-lisp:defun describe-scalable-targets @@ -3785,7 +3784,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "DescribeScalableTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scalable-targets)) (common-lisp:progn (common-lisp:defun describe-scaling-activities @@ -3806,7 +3805,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "DescribeScalingActivities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scaling-activities)) (common-lisp:progn (common-lisp:defun describe-scaling-policies @@ -3826,7 +3825,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "DescribeScalingPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scaling-policies)) (common-lisp:progn (common-lisp:defun describe-scheduled-actions @@ -3846,7 +3845,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "DescribeScheduledActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scheduled-actions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3862,7 +3861,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-scaling-policy @@ -3884,7 +3883,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "PutScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-scaling-policy)) (common-lisp:progn (common-lisp:defun put-scheduled-action @@ -3905,7 +3904,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "PutScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-scheduled-action)) (common-lisp:progn (common-lisp:defun register-scalable-target @@ -3925,7 +3924,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "RegisterScalableTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-scalable-target)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3941,7 +3940,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3957,5 +3956,5 @@ (aws-sdk/generator/shape:make-request-with-input 'application-autoscaling-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/application-insights/api.lisp b/services/application-insights/api.lisp index e6ea22cd..8e769d66 100644 --- a/services/application-insights/api.lisp +++ b/services/application-insights/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/application-insights/api - (:use) - (:nicknames #:aws/application-insights) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/application-insights/api (:use) + (:nicknames #:aws/application-insights) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/application-insights/api) (common-lisp:progn (common-lisp:define-condition application-insights-error @@ -5991,7 +5990,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "AddWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-workload)) (common-lisp:progn (common-lisp:defun create-application @@ -6013,7 +6012,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-component @@ -6031,7 +6030,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "CreateComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-component)) (common-lisp:progn (common-lisp:defun create-log-pattern @@ -6050,7 +6049,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "CreateLogPattern")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-log-pattern)) (common-lisp:progn (common-lisp:defun delete-application @@ -6066,7 +6065,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-component @@ -6083,7 +6082,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DeleteComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-component)) (common-lisp:progn (common-lisp:defun delete-log-pattern @@ -6101,7 +6100,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DeleteLogPattern")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-log-pattern)) (common-lisp:progn (common-lisp:defun describe-application @@ -6117,7 +6116,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application)) (common-lisp:progn (common-lisp:defun describe-component @@ -6135,7 +6134,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-component)) (common-lisp:progn (common-lisp:defun describe-component-configuration @@ -6154,7 +6153,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeComponentConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-component-configuration)) (common-lisp:progn (common-lisp:defun describe-component-configuration-recommendation @@ -6174,7 +6173,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeComponentConfigurationRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-component-configuration-recommendation)) (common-lisp:progn (common-lisp:defun describe-log-pattern @@ -6193,7 +6192,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeLogPattern")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-log-pattern)) (common-lisp:progn (common-lisp:defun describe-observation @@ -6209,7 +6208,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeObservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-observation)) (common-lisp:progn (common-lisp:defun describe-problem @@ -6225,7 +6224,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeProblem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-problem)) (common-lisp:progn (common-lisp:defun describe-problem-observations @@ -6242,7 +6241,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeProblemObservations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-problem-observations)) (common-lisp:progn (common-lisp:defun describe-workload @@ -6261,7 +6260,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "DescribeWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workload)) (common-lisp:progn (common-lisp:defun list-applications @@ -6278,7 +6277,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-components @@ -6297,7 +6296,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "ListComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-components)) (common-lisp:progn (common-lisp:defun list-configuration-history @@ -6317,7 +6316,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "ListConfigurationHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-history)) (common-lisp:progn (common-lisp:defun list-log-pattern-sets @@ -6336,7 +6335,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "ListLogPatternSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-log-pattern-sets)) (common-lisp:progn (common-lisp:defun list-log-patterns @@ -6355,7 +6354,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "ListLogPatterns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-log-patterns)) (common-lisp:progn (common-lisp:defun list-problems @@ -6374,7 +6373,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "ListProblems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-problems)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6390,7 +6389,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-workloads @@ -6409,7 +6408,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "ListWorkloads")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workloads)) (common-lisp:progn (common-lisp:defun remove-workload @@ -6427,7 +6426,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "RemoveWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-workload)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6443,7 +6442,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6459,7 +6458,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -6480,7 +6479,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-component @@ -6499,7 +6498,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "UpdateComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-component)) (common-lisp:progn (common-lisp:defun update-component-configuration @@ -6519,7 +6518,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "UpdateComponentConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-component-configuration)) (common-lisp:progn (common-lisp:defun update-log-pattern @@ -6538,7 +6537,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "UpdateLogPattern")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-log-pattern)) (common-lisp:progn (common-lisp:defun update-problem @@ -6555,7 +6554,7 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "UpdateProblem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-problem)) (common-lisp:progn (common-lisp:defun update-workload @@ -6574,5 +6573,5 @@ (aws-sdk/generator/shape:make-request-with-input 'application-insights-request aws-sdk/generator/operation::input "POST" "/" "UpdateWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workload)) diff --git a/services/applicationcostprofiler/api.lisp b/services/applicationcostprofiler/api.lisp index e14f3272..1c1ab851 100644 --- a/services/applicationcostprofiler/api.lisp +++ b/services/applicationcostprofiler/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/applicationcostprofiler/api - (:use) - (:nicknames #:aws/applicationcostprofiler) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/applicationcostprofiler/api + (:use) (:nicknames #:aws/applicationcostprofiler) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/applicationcostprofiler/api) (common-lisp:progn (common-lisp:define-condition applicationcostprofiler-error @@ -20,7 +19,7 @@ (common-lisp:export 'applicationcostprofiler-error)) (common-lisp:progn (common-lisp:defclass applicationcostprofiler-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "applicationcostprofiler" :api-version "2020-09-10" :host-prefix @@ -991,12 +990,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reportDefinition/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'report-id)))) + aws-sdk/generator/operation::input 'report-id) + common-lisp:t))) "DeleteReportDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-report-definition)) (common-lisp:progn (common-lisp:defun get-report-definition @@ -1014,12 +1013,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reportDefinition/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'report-id)))) + aws-sdk/generator/operation::input 'report-id) + common-lisp:t))) "GetReportDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-report-definition)) (common-lisp:progn (common-lisp:defun import-application-usage @@ -1035,7 +1034,7 @@ (aws-sdk/generator/shape:make-request-with-input 'applicationcostprofiler-request aws-sdk/generator/operation::input "POST" "/importApplicationUsage" "ImportApplicationUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-application-usage)) (common-lisp:progn (common-lisp:defun list-report-definitions @@ -1051,7 +1050,7 @@ (aws-sdk/generator/shape:make-request-with-input 'applicationcostprofiler-request aws-sdk/generator/operation::input "GET" "/reportDefinition" "ListReportDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-report-definitions)) (common-lisp:progn (common-lisp:defun put-report-definition @@ -1070,7 +1069,7 @@ (aws-sdk/generator/shape:make-request-with-input 'applicationcostprofiler-request aws-sdk/generator/operation::input "POST" "/reportDefinition" "PutReportDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-report-definition)) (common-lisp:progn (common-lisp:defun update-report-definition @@ -1091,10 +1090,10 @@ "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reportDefinition/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'report-id)))) + aws-sdk/generator/operation::input 'report-id) + common-lisp:t))) "UpdateReportDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-report-definition)) diff --git a/services/appmesh/api.lisp b/services/appmesh/api.lisp index 05628ccd..e4130f02 100644 --- a/services/appmesh/api.lisp +++ b/services/appmesh/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/appmesh/api - (:use) - (:nicknames #:aws/appmesh) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/appmesh/api (:use) + (:nicknames #:aws/appmesh) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/appmesh/api) (common-lisp:progn (common-lisp:define-condition appmesh-error @@ -20,7 +19,7 @@ (common-lisp:export 'appmesh-error)) (common-lisp:progn (common-lisp:defclass appmesh-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "appmesh" :api-version "2019-01-25" :host-prefix "appmesh" :signing-name @@ -599,7 +598,13 @@ ( (aws-sdk/generator/shape::input create-gateway-route-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'gateway-route))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'gateway-route)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-gateway-route-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-mesh-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -698,7 +703,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input create-mesh-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'mesh))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'mesh)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input create-mesh-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-route-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -818,7 +827,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input create-route-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'route))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'route)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input create-route-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-virtual-gateway-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -952,7 +965,13 @@ ( (aws-sdk/generator/shape::input create-virtual-gateway-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-gateway))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-gateway)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-virtual-gateway-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-virtual-node-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -1082,7 +1101,13 @@ ( (aws-sdk/generator/shape::input create-virtual-node-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-node))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-node)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-virtual-node-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-virtual-router-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -1213,7 +1238,13 @@ ( (aws-sdk/generator/shape::input create-virtual-router-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-router))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-router)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-virtual-router-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-virtual-service-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -1347,7 +1378,13 @@ ( (aws-sdk/generator/shape::input create-virtual-service-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-service))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-service)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-virtual-service-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype default-gateway-route-rewrite () 'common-lisp:string) (common-lisp:progn (common-lisp:defclass delete-gateway-route-input common-lisp:nil @@ -1441,7 +1478,13 @@ ( (aws-sdk/generator/shape::input delete-gateway-route-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'gateway-route))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'gateway-route)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-gateway-route-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-mesh-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -1496,7 +1539,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input delete-mesh-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'mesh))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'mesh)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input delete-mesh-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-route-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -1571,7 +1618,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input delete-route-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'route))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'route)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input delete-route-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-virtual-gateway-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -1658,7 +1709,13 @@ ( (aws-sdk/generator/shape::input delete-virtual-gateway-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-gateway))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-gateway)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-virtual-gateway-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-virtual-node-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -1743,7 +1800,13 @@ ( (aws-sdk/generator/shape::input delete-virtual-node-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-node))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-node)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-virtual-node-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-virtual-router-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -1828,7 +1891,13 @@ ( (aws-sdk/generator/shape::input delete-virtual-router-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-router))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-router)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-virtual-router-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-virtual-service-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -1915,7 +1984,13 @@ ( (aws-sdk/generator/shape::input delete-virtual-service-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-service))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-service)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-virtual-service-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass describe-gateway-route-input common-lisp:nil ((gateway-route-name :initarg :gateway-route-name @@ -2009,7 +2084,13 @@ ( (aws-sdk/generator/shape::input describe-gateway-route-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'gateway-route))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'gateway-route)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-gateway-route-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass describe-mesh-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -2070,7 +2151,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input describe-mesh-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'mesh))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'mesh)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input describe-mesh-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass describe-route-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -2151,7 +2236,13 @@ ( (aws-sdk/generator/shape::input describe-route-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'route))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'route)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-route-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass describe-virtual-gateway-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -2239,7 +2330,13 @@ ( (aws-sdk/generator/shape::input describe-virtual-gateway-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-gateway))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-gateway)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-virtual-gateway-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass describe-virtual-node-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -2324,7 +2421,13 @@ ( (aws-sdk/generator/shape::input describe-virtual-node-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-node))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-node)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-virtual-node-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass describe-virtual-router-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -2411,7 +2514,13 @@ ( (aws-sdk/generator/shape::input describe-virtual-router-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-router))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-router)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-virtual-router-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass describe-virtual-service-input common-lisp:nil ((mesh-name :initarg :mesh-name :initform @@ -2499,7 +2608,13 @@ ( (aws-sdk/generator/shape::input describe-virtual-service-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-service))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-service)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-virtual-service-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype dns-response-type () 'common-lisp:string) (common-lisp:progn (common-lisp:defclass dns-service-discovery common-lisp:nil @@ -8547,7 +8662,13 @@ ( (aws-sdk/generator/shape::input update-gateway-route-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'gateway-route))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'gateway-route)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-gateway-route-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-mesh-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -8627,7 +8748,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input update-mesh-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'mesh))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'mesh)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input update-mesh-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-route-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -8728,7 +8853,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input update-route-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'route))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'route)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input update-route-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-virtual-gateway-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -8842,7 +8971,13 @@ ( (aws-sdk/generator/shape::input update-virtual-gateway-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-gateway))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-gateway)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-virtual-gateway-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-virtual-node-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -8953,7 +9088,13 @@ ( (aws-sdk/generator/shape::input update-virtual-node-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-node))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-node)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-virtual-node-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-virtual-router-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -9065,7 +9206,13 @@ ( (aws-sdk/generator/shape::input update-virtual-router-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-router))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-router)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-virtual-router-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-virtual-service-input common-lisp:nil ((client-token :initarg :client-token :initform @@ -9179,7 +9326,13 @@ ( (aws-sdk/generator/shape::input update-virtual-service-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-service))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'virtual-service)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-virtual-service-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass virtual-gateway-access-log common-lisp:nil ((file :initarg :file :initform common-lisp:nil :type @@ -12516,16 +12669,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateway/~A/gatewayRoutes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-gateway-name)))) + 'virtual-gateway-name) + common-lisp:t))) "CreateGatewayRoute")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-gateway-route)) (common-lisp:progn (common-lisp:defun create-mesh @@ -12544,7 +12699,7 @@ "PUT" "/v20190125/meshes" "CreateMesh")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-mesh)) (common-lisp:progn (common-lisp:defun create-route @@ -12569,16 +12724,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouter/~A/routes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-router-name)))) + 'virtual-router-name) + common-lisp:t))) "CreateRoute")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-route)) (common-lisp:progn (common-lisp:defun create-virtual-gateway @@ -12603,12 +12760,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateways" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "CreateVirtualGateway")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-virtual-gateway)) (common-lisp:progn (common-lisp:defun create-virtual-node @@ -12633,12 +12791,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualNodes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "CreateVirtualNode")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-virtual-node)) (common-lisp:progn (common-lisp:defun create-virtual-router @@ -12663,12 +12822,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouters" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "CreateVirtualRouter")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-virtual-router)) (common-lisp:progn (common-lisp:defun create-virtual-service @@ -12693,12 +12853,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualServices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "CreateVirtualService")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-virtual-service)) (common-lisp:progn (common-lisp:defun delete-gateway-route @@ -12723,20 +12884,23 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateway/~A/gatewayRoutes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-gateway-name)) - (quri.encode:url-encode + 'virtual-gateway-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-route-name)))) + 'gateway-route-name) + common-lisp:t))) "DeleteGatewayRoute")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-gateway-route)) (common-lisp:progn (common-lisp:defun delete-mesh @@ -12758,12 +12922,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "DeleteMesh")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mesh)) (common-lisp:progn (common-lisp:defun delete-route @@ -12788,20 +12953,23 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouter/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-router-name)) - (quri.encode:url-encode + 'virtual-router-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-name)))) + 'route-name) + common-lisp:t))) "DeleteRoute")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-route)) (common-lisp:progn (common-lisp:defun delete-virtual-gateway @@ -12825,16 +12993,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-gateway-name)))) + 'virtual-gateway-name) + common-lisp:t))) "DeleteVirtualGateway")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-virtual-gateway)) (common-lisp:progn (common-lisp:defun delete-virtual-node @@ -12857,16 +13027,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualNodes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-node-name)))) + 'virtual-node-name) + common-lisp:t))) "DeleteVirtualNode")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-virtual-node)) (common-lisp:progn (common-lisp:defun delete-virtual-router @@ -12889,16 +13061,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-router-name)))) + 'virtual-router-name) + common-lisp:t))) "DeleteVirtualRouter")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-virtual-router)) (common-lisp:progn (common-lisp:defun delete-virtual-service @@ -12922,16 +13096,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualServices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-service-name)))) + 'virtual-service-name) + common-lisp:t))) "DeleteVirtualService")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-virtual-service)) (common-lisp:progn (common-lisp:defun describe-gateway-route @@ -12956,20 +13132,23 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateway/~A/gatewayRoutes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-gateway-name)) - (quri.encode:url-encode + 'virtual-gateway-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-route-name)))) + 'gateway-route-name) + common-lisp:t))) "DescribeGatewayRoute")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-gateway-route)) (common-lisp:progn (common-lisp:defun describe-mesh @@ -12991,12 +13170,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "DescribeMesh")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-mesh)) (common-lisp:progn (common-lisp:defun describe-route @@ -13021,20 +13201,23 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouter/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-router-name)) - (quri.encode:url-encode + 'virtual-router-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-name)))) + 'route-name) + common-lisp:t))) "DescribeRoute")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-route)) (common-lisp:progn (common-lisp:defun describe-virtual-gateway @@ -13058,16 +13241,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-gateway-name)))) + 'virtual-gateway-name) + common-lisp:t))) "DescribeVirtualGateway")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-virtual-gateway)) (common-lisp:progn (common-lisp:defun describe-virtual-node @@ -13090,16 +13275,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualNodes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-node-name)))) + 'virtual-node-name) + common-lisp:t))) "DescribeVirtualNode")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-virtual-node)) (common-lisp:progn (common-lisp:defun describe-virtual-router @@ -13122,16 +13309,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-router-name)))) + 'virtual-router-name) + common-lisp:t))) "DescribeVirtualRouter")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-virtual-router)) (common-lisp:progn (common-lisp:defun describe-virtual-service @@ -13155,16 +13344,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualServices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-service-name)))) + 'virtual-service-name) + common-lisp:t))) "DescribeVirtualService")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-virtual-service)) (common-lisp:progn (common-lisp:defun list-gateway-routes @@ -13189,16 +13380,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateway/~A/gatewayRoutes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-gateway-name)))) + 'virtual-gateway-name) + common-lisp:t))) "ListGatewayRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gateway-routes)) (common-lisp:progn (common-lisp:defun list-meshes @@ -13216,7 +13409,7 @@ "GET" "/v20190125/meshes" "ListMeshes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-meshes)) (common-lisp:progn (common-lisp:defun list-routes @@ -13241,16 +13434,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouter/~A/routes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-router-name)))) + 'virtual-router-name) + common-lisp:t))) "ListRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-routes)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -13267,7 +13462,7 @@ aws-sdk/generator/operation::input "GET" "/v20190125/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-virtual-gateways @@ -13290,12 +13485,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateways" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "ListVirtualGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-virtual-gateways)) (common-lisp:progn (common-lisp:defun list-virtual-nodes @@ -13318,12 +13514,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualNodes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "ListVirtualNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-virtual-nodes)) (common-lisp:progn (common-lisp:defun list-virtual-routers @@ -13346,12 +13543,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouters" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "ListVirtualRouters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-virtual-routers)) (common-lisp:progn (common-lisp:defun list-virtual-services @@ -13374,12 +13572,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualServices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "ListVirtualServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-virtual-services)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13396,7 +13595,7 @@ aws-sdk/generator/operation::input "PUT" "/v20190125/tag" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13414,7 +13613,7 @@ "PUT" "/v20190125/untag" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-gateway-route @@ -13439,20 +13638,23 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateway/~A/gatewayRoutes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-gateway-name)) - (quri.encode:url-encode + 'virtual-gateway-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-route-name)))) + 'gateway-route-name) + common-lisp:t))) "UpdateGatewayRoute")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-route)) (common-lisp:progn (common-lisp:defun update-mesh @@ -13474,12 +13676,13 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)))) + 'mesh-name) + common-lisp:t))) "UpdateMesh")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-mesh)) (common-lisp:progn (common-lisp:defun update-route @@ -13504,20 +13707,23 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouter/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-router-name)) - (quri.encode:url-encode + 'virtual-router-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-name)))) + 'route-name) + common-lisp:t))) "UpdateRoute")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-route)) (common-lisp:progn (common-lisp:defun update-virtual-gateway @@ -13542,16 +13748,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualGateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-gateway-name)))) + 'virtual-gateway-name) + common-lisp:t))) "UpdateVirtualGateway")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-virtual-gateway)) (common-lisp:progn (common-lisp:defun update-virtual-node @@ -13576,16 +13784,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualNodes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-node-name)))) + 'virtual-node-name) + common-lisp:t))) "UpdateVirtualNode")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-virtual-node)) (common-lisp:progn (common-lisp:defun update-virtual-router @@ -13610,16 +13820,18 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualRouters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-router-name)))) + 'virtual-router-name) + common-lisp:t))) "UpdateVirtualRouter")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-virtual-router)) (common-lisp:progn (common-lisp:defun update-virtual-service @@ -13644,14 +13856,16 @@ (common-lisp:format common-lisp:nil "/v20190125/meshes/~A/virtualServices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mesh-name)) - (quri.encode:url-encode + 'mesh-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-service-name)))) + 'virtual-service-name) + common-lisp:t))) "UpdateVirtualService")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-virtual-service)) diff --git a/services/apprunner/api.lisp b/services/apprunner/api.lisp index 0e91d3ce..7293fd79 100644 --- a/services/apprunner/api.lisp +++ b/services/apprunner/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/apprunner/api - (:use) - (:nicknames #:aws/apprunner) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/apprunner/api (:use) + (:nicknames #:aws/apprunner) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/apprunner/api) (common-lisp:progn (common-lisp:define-condition apprunner-error @@ -7319,7 +7318,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateCustomDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-custom-domain)) (common-lisp:progn (common-lisp:defun create-auto-scaling-configuration @@ -7340,7 +7339,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAutoScalingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-auto-scaling-configuration)) (common-lisp:progn (common-lisp:defun create-connection @@ -7358,7 +7357,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connection)) (common-lisp:progn (common-lisp:defun create-observability-configuration @@ -7379,7 +7378,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateObservabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-observability-configuration)) (common-lisp:progn (common-lisp:defun create-service @@ -7403,7 +7402,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service)) (common-lisp:progn (common-lisp:defun create-vpc-connector @@ -7422,7 +7421,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpcConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-connector)) (common-lisp:progn (common-lisp:defun create-vpc-ingress-connection @@ -7443,7 +7442,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpcIngressConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-ingress-connection)) (common-lisp:progn (common-lisp:defun delete-auto-scaling-configuration @@ -7464,7 +7463,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAutoScalingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-auto-scaling-configuration)) (common-lisp:progn (common-lisp:defun delete-connection @@ -7481,7 +7480,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun delete-observability-configuration @@ -7500,7 +7499,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteObservabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-observability-configuration)) (common-lisp:progn (common-lisp:defun delete-service @@ -7517,7 +7516,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service)) (common-lisp:progn (common-lisp:defun delete-vpc-connector @@ -7534,7 +7533,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpcConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-connector)) (common-lisp:progn (common-lisp:defun delete-vpc-ingress-connection @@ -7552,7 +7551,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpcIngressConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-ingress-connection)) (common-lisp:progn (common-lisp:defun describe-auto-scaling-configuration @@ -7570,7 +7569,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAutoScalingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-auto-scaling-configuration)) (common-lisp:progn (common-lisp:defun describe-custom-domains @@ -7588,7 +7587,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCustomDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-domains)) (common-lisp:progn (common-lisp:defun describe-observability-configuration @@ -7607,7 +7606,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeObservabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-observability-configuration)) (common-lisp:progn (common-lisp:defun describe-service @@ -7624,7 +7623,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-service)) (common-lisp:progn (common-lisp:defun describe-vpc-connector @@ -7641,7 +7640,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vpc-connector)) (common-lisp:progn (common-lisp:defun describe-vpc-ingress-connection @@ -7659,7 +7658,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcIngressConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vpc-ingress-connection)) (common-lisp:progn (common-lisp:defun disassociate-custom-domain @@ -7677,7 +7676,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateCustomDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-custom-domain)) (common-lisp:progn (common-lisp:defun list-auto-scaling-configurations @@ -7698,7 +7697,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAutoScalingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-auto-scaling-configurations)) (common-lisp:progn (common-lisp:defun list-connections @@ -7716,7 +7715,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connections)) (common-lisp:progn (common-lisp:defun list-observability-configurations @@ -7737,7 +7736,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListObservabilityConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-observability-configurations)) (common-lisp:progn (common-lisp:defun list-operations @@ -7755,7 +7754,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-operations)) (common-lisp:progn (common-lisp:defun list-services @@ -7772,7 +7771,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services)) (common-lisp:progn (common-lisp:defun list-services-for-auto-scaling-configuration @@ -7793,7 +7792,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServicesForAutoScalingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services-for-auto-scaling-configuration)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7810,7 +7809,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-vpc-connectors @@ -7827,7 +7826,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListVpcConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-connectors)) (common-lisp:progn (common-lisp:defun list-vpc-ingress-connections @@ -7845,7 +7844,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListVpcIngressConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-ingress-connections)) (common-lisp:progn (common-lisp:defun pause-service @@ -7862,7 +7861,7 @@ aws-sdk/generator/operation::input "POST" "/" "PauseService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'pause-service)) (common-lisp:progn (common-lisp:defun resume-service @@ -7879,7 +7878,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResumeService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-service)) (common-lisp:progn (common-lisp:defun start-deployment @@ -7896,7 +7895,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-deployment)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7913,7 +7912,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7930,7 +7929,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-default-auto-scaling-configuration @@ -7948,7 +7947,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDefaultAutoScalingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-default-auto-scaling-configuration)) (common-lisp:progn (common-lisp:defun update-service @@ -7972,7 +7971,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service)) (common-lisp:progn (common-lisp:defun update-vpc-ingress-connection @@ -7993,5 +7992,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateVpcIngressConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpc-ingress-connection)) diff --git a/services/appstream/api.lisp b/services/appstream/api.lisp index aa52501c..c472de33 100644 --- a/services/appstream/api.lisp +++ b/services/appstream/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/appstream/api - (:use) - (:nicknames #:aws/appstream) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/appstream/api (:use) + (:nicknames #:aws/appstream) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/appstream/api) (common-lisp:progn (common-lisp:define-condition appstream-error @@ -13170,7 +13169,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateAppBlockBuilderAppBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-app-block-builder-app-block)) (common-lisp:progn (common-lisp:defun associate-application-fleet @@ -13188,7 +13187,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateApplicationFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-application-fleet)) (common-lisp:progn (common-lisp:defun associate-application-to-entitlement @@ -13208,7 +13207,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateApplicationToEntitlement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-application-to-entitlement)) (common-lisp:progn (common-lisp:defun associate-fleet @@ -13225,7 +13224,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-fleet)) (common-lisp:progn (common-lisp:defun batch-associate-user-stack @@ -13243,7 +13242,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchAssociateUserStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-user-stack)) (common-lisp:progn (common-lisp:defun batch-disassociate-user-stack @@ -13261,7 +13260,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDisassociateUserStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-user-stack)) (common-lisp:progn (common-lisp:defun copy-image @@ -13281,7 +13280,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-image)) (common-lisp:progn (common-lisp:defun create-app-block @@ -13302,7 +13301,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAppBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-block)) (common-lisp:progn (common-lisp:defun create-app-block-builder @@ -13325,7 +13324,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAppBlockBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-block-builder)) (common-lisp:progn (common-lisp:defun create-app-block-builder-streaming-url @@ -13344,7 +13343,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAppBlockBuilderStreamingURL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-block-builder-streaming-url)) (common-lisp:progn (common-lisp:defun create-application @@ -13367,7 +13366,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-directory-config @@ -13390,7 +13389,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDirectoryConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-directory-config)) (common-lisp:progn (common-lisp:defun create-entitlement @@ -13410,7 +13409,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEntitlement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-entitlement)) (common-lisp:progn (common-lisp:defun create-fleet @@ -13441,7 +13440,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet)) (common-lisp:progn (common-lisp:defun create-image-builder @@ -13464,7 +13463,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateImageBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-image-builder)) (common-lisp:progn (common-lisp:defun create-image-builder-streaming-url @@ -13482,7 +13481,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateImageBuilderStreamingURL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-image-builder-streaming-url)) (common-lisp:progn (common-lisp:defun create-stack @@ -13505,7 +13504,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stack)) (common-lisp:progn (common-lisp:defun create-streaming-url @@ -13525,7 +13524,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStreamingURL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-streaming-url)) (common-lisp:progn (common-lisp:defun create-updated-image @@ -13546,7 +13545,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUpdatedImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-updated-image)) (common-lisp:progn (common-lisp:defun create-usage-report-subscription () @@ -13574,7 +13573,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun delete-app-block @@ -13591,7 +13590,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAppBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-block)) (common-lisp:progn (common-lisp:defun delete-app-block-builder @@ -13608,7 +13607,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAppBlockBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-block-builder)) (common-lisp:progn (common-lisp:defun delete-application @@ -13625,7 +13624,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-directory-config @@ -13642,7 +13641,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDirectoryConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-directory-config)) (common-lisp:progn (common-lisp:defun delete-entitlement @@ -13659,7 +13658,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEntitlement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-entitlement)) (common-lisp:progn (common-lisp:defun delete-fleet @@ -13676,7 +13675,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet)) (common-lisp:progn (common-lisp:defun delete-image @@ -13693,7 +13692,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image)) (common-lisp:progn (common-lisp:defun delete-image-builder @@ -13710,7 +13709,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteImageBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image-builder)) (common-lisp:progn (common-lisp:defun delete-image-permissions @@ -13727,7 +13726,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteImagePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image-permissions)) (common-lisp:progn (common-lisp:defun delete-stack @@ -13744,7 +13743,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stack)) (common-lisp:progn (common-lisp:defun delete-usage-report-subscription () @@ -13769,7 +13768,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun describe-app-block-builder-app-block-associations @@ -13790,7 +13789,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAppBlockBuilderAppBlockAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-block-builder-app-block-associations)) (common-lisp:progn (common-lisp:defun describe-app-block-builders @@ -13808,7 +13807,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAppBlockBuilders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-block-builders)) (common-lisp:progn (common-lisp:defun describe-app-blocks @@ -13825,7 +13824,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAppBlocks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-blocks)) (common-lisp:progn (common-lisp:defun describe-application-fleet-associations @@ -13845,7 +13844,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApplicationFleetAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-fleet-associations)) (common-lisp:progn (common-lisp:defun describe-applications @@ -13862,7 +13861,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-applications)) (common-lisp:progn (common-lisp:defun describe-directory-configs @@ -13881,7 +13880,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDirectoryConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-directory-configs)) (common-lisp:progn (common-lisp:defun describe-entitlements @@ -13899,7 +13898,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEntitlements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-entitlements)) (common-lisp:progn (common-lisp:defun describe-fleets @@ -13916,7 +13915,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleets)) (common-lisp:progn (common-lisp:defun describe-image-builders @@ -13933,7 +13932,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImageBuilders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image-builders)) (common-lisp:progn (common-lisp:defun describe-image-permissions @@ -13953,7 +13952,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImagePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image-permissions)) (common-lisp:progn (common-lisp:defun describe-images @@ -13971,7 +13970,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-images)) (common-lisp:progn (common-lisp:defun describe-sessions @@ -13991,7 +13990,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-sessions)) (common-lisp:progn (common-lisp:defun describe-stacks @@ -14008,7 +14007,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStacks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stacks)) (common-lisp:progn (common-lisp:defun describe-usage-report-subscriptions @@ -14026,7 +14025,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUsageReportSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-usage-report-subscriptions)) (common-lisp:progn (common-lisp:defun describe-user-stack-associations @@ -14047,7 +14046,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserStackAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-stack-associations)) (common-lisp:progn (common-lisp:defun describe-users @@ -14066,7 +14065,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-users)) (common-lisp:progn (common-lisp:defun disable-user @@ -14083,7 +14082,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-user)) (common-lisp:progn (common-lisp:defun disassociate-app-block-builder-app-block @@ -14102,7 +14101,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateAppBlockBuilderAppBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-app-block-builder-app-block)) (common-lisp:progn (common-lisp:defun disassociate-application-fleet @@ -14120,7 +14119,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateApplicationFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-application-fleet)) (common-lisp:progn (common-lisp:defun disassociate-application-from-entitlement @@ -14140,7 +14139,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateApplicationFromEntitlement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-application-from-entitlement)) (common-lisp:progn (common-lisp:defun disassociate-fleet @@ -14157,7 +14156,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-fleet)) (common-lisp:progn (common-lisp:defun enable-user @@ -14174,7 +14173,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-user)) (common-lisp:progn (common-lisp:defun expire-session @@ -14191,7 +14190,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExpireSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'expire-session)) (common-lisp:progn (common-lisp:defun list-associated-fleets @@ -14208,7 +14207,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssociatedFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-fleets)) (common-lisp:progn (common-lisp:defun list-associated-stacks @@ -14225,7 +14224,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssociatedStacks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-stacks)) (common-lisp:progn (common-lisp:defun list-entitled-applications @@ -14245,7 +14244,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEntitledApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entitled-applications)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14262,7 +14261,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-app-block-builder @@ -14279,7 +14278,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartAppBlockBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-app-block-builder)) (common-lisp:progn (common-lisp:defun start-fleet @@ -14296,7 +14295,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-fleet)) (common-lisp:progn (common-lisp:defun start-image-builder @@ -14313,7 +14312,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartImageBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-image-builder)) (common-lisp:progn (common-lisp:defun stop-app-block-builder @@ -14330,7 +14329,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopAppBlockBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-app-block-builder)) (common-lisp:progn (common-lisp:defun stop-fleet @@ -14347,7 +14346,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-fleet)) (common-lisp:progn (common-lisp:defun stop-image-builder @@ -14364,7 +14363,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopImageBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-image-builder)) (common-lisp:progn (common-lisp:defun tag-resource @@ -14381,7 +14380,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14398,7 +14397,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-app-block-builder @@ -14420,7 +14419,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAppBlockBuilder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-block-builder)) (common-lisp:progn (common-lisp:defun update-application @@ -14442,7 +14441,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-directory-config @@ -14465,7 +14464,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDirectoryConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-directory-config)) (common-lisp:progn (common-lisp:defun update-entitlement @@ -14485,7 +14484,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEntitlement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-entitlement)) (common-lisp:progn (common-lisp:defun update-fleet @@ -14516,7 +14515,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fleet)) (common-lisp:progn (common-lisp:defun update-image-permissions @@ -14534,7 +14533,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateImagePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-image-permissions)) (common-lisp:progn (common-lisp:defun update-stack @@ -14559,5 +14558,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stack)) diff --git a/services/appsync/api.lisp b/services/appsync/api.lisp index 90e10c7e..14404f24 100644 --- a/services/appsync/api.lisp +++ b/services/appsync/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/appsync/api - (:use) - (:nicknames #:aws/appsync) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/appsync/api (:use) + (:nicknames #:aws/appsync) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/appsync/api) (common-lisp:progn (common-lisp:define-condition appsync-error @@ -20,7 +19,7 @@ (common-lisp:export 'appsync-error)) (common-lisp:progn (common-lisp:defclass appsync-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "appsync" :api-version "2017-07-25" :host-prefix "appsync" :signing-name @@ -5662,7 +5661,13 @@ ( (aws-sdk/generator/shape::input get-introspection-schema-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'schema))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'schema)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-introspection-schema-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-resolver-request common-lisp:nil ((api-id :initarg :api-id :initform @@ -10845,12 +10850,13 @@ (common-lisp:format common-lisp:nil "/v1/domainnames/~A/apiassociation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "AssociateApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-api)) (common-lisp:progn (common-lisp:defun associate-merged-graphql-api @@ -10877,12 +10883,13 @@ (common-lisp:format common-lisp:nil "/v1/sourceApis/~A/mergedApiAssociations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-api-identifier)))) + 'source-api-identifier) + common-lisp:t))) "AssociateMergedGraphqlApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-merged-graphql-api)) (common-lisp:progn (common-lisp:defun associate-source-graphql-api @@ -10909,12 +10916,13 @@ (common-lisp:format common-lisp:nil "/v1/mergedApis/~A/sourceApiAssociations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'merged-api-identifier)))) + 'merged-api-identifier) + common-lisp:t))) "AssociateSourceGraphqlApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-source-graphql-api)) (common-lisp:progn (common-lisp:defun create-api-cache @@ -10941,12 +10949,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/ApiCaches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateApiCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-api-cache)) (common-lisp:progn (common-lisp:defun create-api-key @@ -10968,12 +10977,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/apikeys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-api-key)) (common-lisp:progn (common-lisp:defun create-data-source @@ -11003,12 +11013,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/datasources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-source)) (common-lisp:progn (common-lisp:defun create-domain-name @@ -11027,7 +11038,7 @@ "POST" "/v1/domainnames" "CreateDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain-name)) (common-lisp:progn (common-lisp:defun create-function @@ -11054,12 +11065,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/functions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-function)) (common-lisp:progn (common-lisp:defun create-graphql-api @@ -11087,7 +11099,7 @@ aws-sdk/generator/operation::input "POST" "/v1/apis" "CreateGraphqlApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-graphql-api)) (common-lisp:progn (common-lisp:defun create-resolver @@ -11115,16 +11127,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types/~A/resolvers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type-name)))) + 'type-name) + common-lisp:t))) "CreateResolver")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resolver)) (common-lisp:progn (common-lisp:defun create-type @@ -11146,12 +11160,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "CreateType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-type)) (common-lisp:progn (common-lisp:defun delete-api-cache @@ -11173,12 +11188,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/ApiCaches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "DeleteApiCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-api-cache)) (common-lisp:progn (common-lisp:defun delete-api-key @@ -11200,16 +11216,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/apikeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-api-key)) (common-lisp:progn (common-lisp:defun delete-data-source @@ -11231,16 +11249,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-source)) (common-lisp:progn (common-lisp:defun delete-domain-name @@ -11262,12 +11282,13 @@ (common-lisp:format common-lisp:nil "/v1/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain-name)) (common-lisp:progn (common-lisp:defun delete-function @@ -11289,16 +11310,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/functions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-id)))) + 'function-id) + common-lisp:t))) "DeleteFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-function)) (common-lisp:progn (common-lisp:defun delete-graphql-api @@ -11320,12 +11343,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "DeleteGraphqlApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-graphql-api)) (common-lisp:progn (common-lisp:defun delete-resolver @@ -11347,20 +11371,23 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types/~A/resolvers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type-name)) - (quri.encode:url-encode + 'type-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'field-name)))) + 'field-name) + common-lisp:t))) "DeleteResolver")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resolver)) (common-lisp:progn (common-lisp:defun delete-type @@ -11382,16 +11409,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type-name)))) + 'type-name) + common-lisp:t))) "DeleteType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-type)) (common-lisp:progn (common-lisp:defun disassociate-api @@ -11413,12 +11442,13 @@ (common-lisp:format common-lisp:nil "/v1/domainnames/~A/apiassociation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DisassociateApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-api)) (common-lisp:progn (common-lisp:defun disassociate-merged-graphql-api @@ -11442,16 +11472,18 @@ (common-lisp:format common-lisp:nil "/v1/sourceApis/~A/mergedApiAssociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-api-identifier)) - (quri.encode:url-encode + 'source-api-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "DisassociateMergedGraphqlApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-merged-graphql-api)) (common-lisp:progn (common-lisp:defun disassociate-source-graphql-api @@ -11475,16 +11507,18 @@ (common-lisp:format common-lisp:nil "/v1/mergedApis/~A/sourceApiAssociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'merged-api-identifier)) - (quri.encode:url-encode + 'merged-api-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "DisassociateSourceGraphqlApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-source-graphql-api)) (common-lisp:progn (common-lisp:defun evaluate-code @@ -11502,7 +11536,7 @@ "POST" "/v1/dataplane-evaluatecode" "EvaluateCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'evaluate-code)) (common-lisp:progn (common-lisp:defun evaluate-mapping-template @@ -11521,7 +11555,7 @@ "POST" "/v1/dataplane-evaluatetemplate" "EvaluateMappingTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'evaluate-mapping-template)) (common-lisp:progn (common-lisp:defun flush-api-cache @@ -11543,12 +11577,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/FlushCache" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "FlushApiCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'flush-api-cache)) (common-lisp:progn (common-lisp:defun get-api-association @@ -11570,12 +11605,13 @@ (common-lisp:format common-lisp:nil "/v1/domainnames/~A/apiassociation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetApiAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-api-association)) (common-lisp:progn (common-lisp:defun get-api-cache @@ -11597,12 +11633,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/ApiCaches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetApiCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-api-cache)) (common-lisp:progn (common-lisp:defun get-data-source @@ -11624,16 +11661,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-source)) (common-lisp:progn (common-lisp:defun get-data-source-introspection @@ -11659,12 +11698,13 @@ (common-lisp:format common-lisp:nil "/v1/datasources/introspections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'introspection-id)))) + 'introspection-id) + common-lisp:t))) "GetDataSourceIntrospection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-source-introspection)) (common-lisp:progn (common-lisp:defun get-domain-name @@ -11686,12 +11726,13 @@ (common-lisp:format common-lisp:nil "/v1/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-name)) (common-lisp:progn (common-lisp:defun get-function @@ -11713,16 +11754,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/functions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-id)))) + 'function-id) + common-lisp:t))) "GetFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function)) (common-lisp:progn (common-lisp:defun get-graphql-api @@ -11744,12 +11787,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetGraphqlApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-graphql-api)) (common-lisp:progn (common-lisp:defun get-graphql-api-environment-variables @@ -11772,12 +11816,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/environmentVariables" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetGraphqlApiEnvironmentVariables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-graphql-api-environment-variables)) (common-lisp:progn (common-lisp:defun get-introspection-schema @@ -11800,13 +11845,14 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/schema" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetIntrospectionSchema") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-introspection-schema)) (common-lisp:progn (common-lisp:defun get-resolver @@ -11828,20 +11874,23 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types/~A/resolvers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type-name)) - (quri.encode:url-encode + 'type-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'field-name)))) + 'field-name) + common-lisp:t))) "GetResolver")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver)) (common-lisp:progn (common-lisp:defun get-schema-creation-status @@ -11864,12 +11913,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/schemacreation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "GetSchemaCreationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema-creation-status)) (common-lisp:progn (common-lisp:defun get-source-api-association @@ -11893,16 +11943,18 @@ (common-lisp:format common-lisp:nil "/v1/mergedApis/~A/sourceApiAssociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'merged-api-identifier)) - (quri.encode:url-encode + 'merged-api-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "GetSourceApiAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-source-api-association)) (common-lisp:progn (common-lisp:defun get-type @@ -11924,16 +11976,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type-name)))) + 'type-name) + common-lisp:t))) "GetType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-type)) (common-lisp:progn (common-lisp:defun list-api-keys @@ -11955,12 +12009,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/apikeys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "ListApiKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-api-keys)) (common-lisp:progn (common-lisp:defun list-data-sources @@ -11982,12 +12037,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/datasources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "ListDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sources)) (common-lisp:progn (common-lisp:defun list-domain-names @@ -12004,7 +12060,7 @@ aws-sdk/generator/operation::input "GET" "/v1/domainnames" "ListDomainNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domain-names)) (common-lisp:progn (common-lisp:defun list-functions @@ -12026,12 +12082,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/functions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "ListFunctions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-functions)) (common-lisp:progn (common-lisp:defun list-graphql-apis @@ -12049,7 +12106,7 @@ aws-sdk/generator/operation::input "GET" "/v1/apis" "ListGraphqlApis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-graphql-apis)) (common-lisp:progn (common-lisp:defun list-resolvers @@ -12072,16 +12129,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types/~A/resolvers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type-name)))) + 'type-name) + common-lisp:t))) "ListResolvers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolvers)) (common-lisp:progn (common-lisp:defun list-resolvers-by-function @@ -12106,16 +12165,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/functions/~A/resolvers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-id)))) + 'function-id) + common-lisp:t))) "ListResolversByFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolvers-by-function)) (common-lisp:progn (common-lisp:defun list-source-api-associations @@ -12138,12 +12199,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/sourceApiAssociations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "ListSourceApiAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-source-api-associations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12165,12 +12227,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-types @@ -12193,12 +12256,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "ListTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-types)) (common-lisp:progn (common-lisp:defun list-types-by-association @@ -12224,16 +12288,18 @@ (common-lisp:format common-lisp:nil "/v1/mergedApis/~A/sourceApiAssociations/~A/types" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'merged-api-identifier)) - (quri.encode:url-encode + 'merged-api-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "ListTypesByAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-types-by-association)) (common-lisp:progn (common-lisp:defun put-graphql-api-environment-variables @@ -12256,12 +12322,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/environmentVariables" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "PutGraphqlApiEnvironmentVariables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-graphql-api-environment-variables)) (common-lisp:progn (common-lisp:defun start-data-source-introspection @@ -12280,7 +12347,7 @@ "POST" "/v1/datasources/introspections" "StartDataSourceIntrospection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-data-source-introspection)) (common-lisp:progn (common-lisp:defun start-schema-creation @@ -12302,12 +12369,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/schemacreation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "StartSchemaCreation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-schema-creation)) (common-lisp:progn (common-lisp:defun start-schema-merge @@ -12330,16 +12398,18 @@ (common-lisp:format common-lisp:nil "/v1/mergedApis/~A/sourceApiAssociations/~A/merge" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'merged-api-identifier)) - (quri.encode:url-encode + 'merged-api-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "StartSchemaMerge")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-schema-merge)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12361,12 +12431,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12388,12 +12459,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-api-cache @@ -12418,12 +12490,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/ApiCaches/update" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "UpdateApiCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-api-cache)) (common-lisp:progn (common-lisp:defun update-api-key @@ -12445,16 +12518,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/apikeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-api-key)) (common-lisp:progn (common-lisp:defun update-data-source @@ -12484,16 +12559,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source)) (common-lisp:progn (common-lisp:defun update-domain-name @@ -12515,12 +12592,13 @@ (common-lisp:format common-lisp:nil "/v1/domainnames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateDomainName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-name)) (common-lisp:progn (common-lisp:defun update-function @@ -12548,16 +12626,18 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/functions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-id)))) + 'function-id) + common-lisp:t))) "UpdateFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-function)) (common-lisp:progn (common-lisp:defun update-graphql-api @@ -12589,12 +12669,13 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)))) + 'api-id) + common-lisp:t))) "UpdateGraphqlApi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-graphql-api)) (common-lisp:progn (common-lisp:defun update-resolver @@ -12622,20 +12703,23 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types/~A/resolvers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type-name)) - (quri.encode:url-encode + 'type-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'field-name)))) + 'field-name) + common-lisp:t))) "UpdateResolver")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resolver)) (common-lisp:progn (common-lisp:defun update-source-api-association @@ -12661,16 +12745,18 @@ (common-lisp:format common-lisp:nil "/v1/mergedApis/~A/sourceApiAssociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'merged-api-identifier)) - (quri.encode:url-encode + 'merged-api-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "UpdateSourceApiAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-source-api-association)) (common-lisp:progn (common-lisp:defun update-type @@ -12693,14 +12779,16 @@ (common-lisp:format common-lisp:nil "/v1/apis/~A/types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'api-id)) - (quri.encode:url-encode + 'api-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type-name)))) + 'type-name) + common-lisp:t))) "UpdateType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-type)) diff --git a/services/arc-zonal-shift/api.lisp b/services/arc-zonal-shift/api.lisp index 6f9c5e4f..9fea2e18 100644 --- a/services/arc-zonal-shift/api.lisp +++ b/services/arc-zonal-shift/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/arc-zonal-shift/api - (:use) - (:nicknames #:aws/arc-zonal-shift) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/arc-zonal-shift/api (:use) + (:nicknames #:aws/arc-zonal-shift) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/arc-zonal-shift/api) (common-lisp:progn (common-lisp:define-condition arc-zonal-shift-error @@ -20,7 +19,7 @@ (common-lisp:export 'arc-zonal-shift-error)) (common-lisp:progn (common-lisp:defclass arc-zonal-shift-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "arc-zonal-shift" :api-version "2022-10-30" :host-prefix @@ -2215,12 +2214,13 @@ 'arc-zonal-shift-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/zonalshifts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'zonal-shift-id)))) + 'zonal-shift-id) + common-lisp:t))) "CancelZonalShift")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-zonal-shift)) (common-lisp:progn (common-lisp:defun create-practice-run-configuration @@ -2240,7 +2240,7 @@ (aws-sdk/generator/shape:make-request-with-input 'arc-zonal-shift-request aws-sdk/generator/operation::input "POST" "/configuration" "CreatePracticeRunConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-practice-run-configuration)) (common-lisp:progn (common-lisp:defun delete-practice-run-configuration @@ -2258,12 +2258,13 @@ 'arc-zonal-shift-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/configuration/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "DeletePracticeRunConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-practice-run-configuration)) (common-lisp:progn (common-lisp:defun get-managed-resource @@ -2280,12 +2281,13 @@ 'arc-zonal-shift-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/managedresources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "GetManagedResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-managed-resource)) (common-lisp:progn (common-lisp:defun list-autoshifts @@ -2301,7 +2303,7 @@ (aws-sdk/generator/shape:make-request-with-input 'arc-zonal-shift-request aws-sdk/generator/operation::input "GET" "/autoshifts" "ListAutoshifts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-autoshifts)) (common-lisp:progn (common-lisp:defun list-managed-resources @@ -2317,7 +2319,7 @@ (aws-sdk/generator/shape:make-request-with-input 'arc-zonal-shift-request aws-sdk/generator/operation::input "GET" "/managedresources" "ListManagedResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-managed-resources)) (common-lisp:progn (common-lisp:defun list-zonal-shifts @@ -2335,7 +2337,7 @@ (aws-sdk/generator/shape:make-request-with-input 'arc-zonal-shift-request aws-sdk/generator/operation::input "GET" "/zonalshifts" "ListZonalShifts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-zonal-shifts)) (common-lisp:progn (common-lisp:defun start-zonal-shift @@ -2353,7 +2355,7 @@ (aws-sdk/generator/shape:make-request-with-input 'arc-zonal-shift-request aws-sdk/generator/operation::input "POST" "/zonalshifts" "StartZonalShift")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-zonal-shift)) (common-lisp:progn (common-lisp:defun update-practice-run-configuration @@ -2374,12 +2376,13 @@ 'arc-zonal-shift-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/configuration/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "UpdatePracticeRunConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-practice-run-configuration)) (common-lisp:progn (common-lisp:defun update-zonal-autoshift-configuration @@ -2399,12 +2402,13 @@ 'arc-zonal-shift-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/managedresources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "UpdateZonalAutoshiftConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-zonal-autoshift-configuration)) (common-lisp:progn (common-lisp:defun update-zonal-shift @@ -2422,10 +2426,11 @@ 'arc-zonal-shift-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/zonalshifts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'zonal-shift-id)))) + 'zonal-shift-id) + common-lisp:t))) "UpdateZonalShift")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-zonal-shift)) diff --git a/services/artifact/api.lisp b/services/artifact/api.lisp index 22873b5b..dca40ff7 100644 --- a/services/artifact/api.lisp +++ b/services/artifact/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/artifact/api - (:use) - (:nicknames #:aws/artifact) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/artifact/api (:use) + (:nicknames #:aws/artifact) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/artifact/api) (common-lisp:progn (common-lisp:define-condition artifact-error @@ -20,7 +19,7 @@ (common-lisp:export 'artifact-error)) (common-lisp:progn (common-lisp:defclass artifact-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "artifact" :api-version "2018-05-10" :host-prefix "artifact" :signing-name @@ -1239,7 +1238,7 @@ aws-sdk/generator/operation::input "GET" "/v1/report/get" "GetReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-report)) (common-lisp:progn (common-lisp:defun get-report-metadata @@ -1257,7 +1256,7 @@ "GET" "/v1/report/getMetadata" "GetReportMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-report-metadata)) (common-lisp:progn (common-lisp:defun get-term-for-report @@ -1275,7 +1274,7 @@ "GET" "/v1/report/getTermForReport" "GetTermForReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-term-for-report)) (common-lisp:progn (common-lisp:defun list-reports @@ -1292,7 +1291,7 @@ aws-sdk/generator/operation::input "GET" "/v1/report/list" "ListReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-reports)) (common-lisp:progn (common-lisp:defun put-account-settings @@ -1311,5 +1310,5 @@ "PUT" "/v1/account-settings/put" "PutAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-settings)) diff --git a/services/athena/api.lisp b/services/athena/api.lisp index 7a0d250f..0b054dfb 100644 --- a/services/athena/api.lisp +++ b/services/athena/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/athena/api - (:use) - (:nicknames #:aws/athena) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/athena/api (:use) + (:nicknames #:aws/athena) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/athena/api) (common-lisp:progn (common-lisp:define-condition athena-error @@ -3263,13 +3262,6 @@ aws-sdk/generator/shape::input 'notebook-metadata)) (common-lisp:list (common-lisp:cons "NotebookMetadata" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))) - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" (aws-sdk/generator/shape::input-params aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload @@ -5141,13 +5133,6 @@ (common-lisp:cons "Name" (aws-sdk/generator/shape::input-params aws-sdk/generator/shape::value)))) - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'type)) @@ -11312,13 +11297,6 @@ (common-lisp:cons "NotebookId" (aws-sdk/generator/shape::input-params aws-sdk/generator/shape::value)))) - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'type)) @@ -12374,7 +12352,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetNamedQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-named-query)) (common-lisp:progn (common-lisp:defun batch-get-prepared-statement @@ -12393,7 +12371,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetPreparedStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-prepared-statement)) (common-lisp:progn (common-lisp:defun batch-get-query-execution @@ -12410,7 +12388,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetQueryExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-query-execution)) (common-lisp:progn (common-lisp:defun cancel-capacity-reservation @@ -12428,7 +12406,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-capacity-reservation)) (common-lisp:progn (common-lisp:defun create-capacity-reservation @@ -12446,7 +12424,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-capacity-reservation)) (common-lisp:progn (common-lisp:defun create-data-catalog @@ -12464,7 +12442,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-catalog)) (common-lisp:progn (common-lisp:defun create-named-query @@ -12484,7 +12462,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNamedQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-named-query)) (common-lisp:progn (common-lisp:defun create-notebook @@ -12502,7 +12480,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNotebook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-notebook)) (common-lisp:progn (common-lisp:defun create-prepared-statement @@ -12522,7 +12500,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePreparedStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-prepared-statement)) (common-lisp:progn (common-lisp:defun create-presigned-notebook-url @@ -12540,7 +12518,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePresignedNotebookUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-presigned-notebook-url)) (common-lisp:progn (common-lisp:defun create-work-group @@ -12558,7 +12536,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWorkGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-work-group)) (common-lisp:progn (common-lisp:defun delete-capacity-reservation @@ -12576,7 +12554,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-capacity-reservation)) (common-lisp:progn (common-lisp:defun delete-data-catalog @@ -12593,7 +12571,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-catalog)) (common-lisp:progn (common-lisp:defun delete-named-query @@ -12610,7 +12588,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNamedQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-named-query)) (common-lisp:progn (common-lisp:defun delete-notebook @@ -12627,7 +12605,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNotebook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-notebook)) (common-lisp:progn (common-lisp:defun delete-prepared-statement @@ -12644,7 +12622,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePreparedStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-prepared-statement)) (common-lisp:progn (common-lisp:defun delete-work-group @@ -12662,7 +12640,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWorkGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-work-group)) (common-lisp:progn (common-lisp:defun export-notebook @@ -12679,7 +12657,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportNotebook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-notebook)) (common-lisp:progn (common-lisp:defun get-calculation-execution @@ -12697,7 +12675,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCalculationExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-calculation-execution)) (common-lisp:progn (common-lisp:defun get-calculation-execution-code @@ -12715,7 +12693,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCalculationExecutionCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-calculation-execution-code)) (common-lisp:progn (common-lisp:defun get-calculation-execution-status @@ -12733,7 +12711,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCalculationExecutionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-calculation-execution-status)) (common-lisp:progn (common-lisp:defun get-capacity-assignment-configuration @@ -12751,7 +12729,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCapacityAssignmentConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-capacity-assignment-configuration)) (common-lisp:progn (common-lisp:defun get-capacity-reservation @@ -12768,7 +12746,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-capacity-reservation)) (common-lisp:progn (common-lisp:defun get-data-catalog @@ -12785,7 +12763,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDataCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-catalog)) (common-lisp:progn (common-lisp:defun get-database @@ -12803,7 +12781,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-database)) (common-lisp:progn (common-lisp:defun get-named-query @@ -12820,7 +12798,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetNamedQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-named-query)) (common-lisp:progn (common-lisp:defun get-notebook-metadata @@ -12837,7 +12815,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetNotebookMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-notebook-metadata)) (common-lisp:progn (common-lisp:defun get-prepared-statement @@ -12854,7 +12832,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPreparedStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-prepared-statement)) (common-lisp:progn (common-lisp:defun get-query-execution @@ -12871,7 +12849,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetQueryExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-execution)) (common-lisp:progn (common-lisp:defun get-query-results @@ -12890,7 +12868,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetQueryResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-results)) (common-lisp:progn (common-lisp:defun get-query-runtime-statistics @@ -12908,7 +12886,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetQueryRuntimeStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-runtime-statistics)) (common-lisp:progn (common-lisp:defun get-session @@ -12925,7 +12903,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-session)) (common-lisp:progn (common-lisp:defun get-session-status @@ -12942,7 +12920,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSessionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-session-status)) (common-lisp:progn (common-lisp:defun get-table-metadata @@ -12961,7 +12939,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTableMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table-metadata)) (common-lisp:progn (common-lisp:defun get-work-group @@ -12978,7 +12956,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWorkGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-work-group)) (common-lisp:progn (common-lisp:defun import-notebook @@ -12998,7 +12976,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportNotebook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-notebook)) (common-lisp:progn (common-lisp:defun list-application-dpusizes @@ -13015,7 +12993,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplicationDPUSizes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-dpusizes)) (common-lisp:progn (common-lisp:defun list-calculation-executions @@ -13035,7 +13013,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCalculationExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-calculation-executions)) (common-lisp:progn (common-lisp:defun list-capacity-reservations @@ -13052,7 +13030,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCapacityReservations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-capacity-reservations)) (common-lisp:progn (common-lisp:defun list-data-catalogs @@ -13070,7 +13048,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDataCatalogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-catalogs)) (common-lisp:progn (common-lisp:defun list-databases @@ -13089,7 +13067,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-databases)) (common-lisp:progn (common-lisp:defun list-engine-versions @@ -13106,7 +13084,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEngineVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-engine-versions)) (common-lisp:progn (common-lisp:defun list-executors @@ -13126,7 +13104,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExecutors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-executors)) (common-lisp:progn (common-lisp:defun list-named-queries @@ -13144,7 +13122,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListNamedQueries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-named-queries)) (common-lisp:progn (common-lisp:defun list-notebook-metadata @@ -13163,7 +13141,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListNotebookMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notebook-metadata)) (common-lisp:progn (common-lisp:defun list-notebook-sessions @@ -13181,7 +13159,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListNotebookSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notebook-sessions)) (common-lisp:progn (common-lisp:defun list-prepared-statements @@ -13199,7 +13177,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPreparedStatements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-prepared-statements)) (common-lisp:progn (common-lisp:defun list-query-executions @@ -13217,7 +13195,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListQueryExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-query-executions)) (common-lisp:progn (common-lisp:defun list-sessions @@ -13236,7 +13214,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sessions)) (common-lisp:progn (common-lisp:defun list-table-metadata @@ -13256,7 +13234,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTableMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-table-metadata)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -13274,7 +13252,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-work-groups @@ -13291,7 +13269,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWorkGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-work-groups)) (common-lisp:progn (common-lisp:defun put-capacity-assignment-configuration @@ -13311,7 +13289,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutCapacityAssignmentConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-capacity-assignment-configuration)) (common-lisp:progn (common-lisp:defun start-calculation-execution @@ -13332,7 +13310,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartCalculationExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-calculation-execution)) (common-lisp:progn (common-lisp:defun start-query-execution @@ -13354,7 +13332,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartQueryExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-query-execution)) (common-lisp:progn (common-lisp:defun start-session @@ -13375,7 +13353,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-session)) (common-lisp:progn (common-lisp:defun stop-calculation-execution @@ -13393,7 +13371,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopCalculationExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-calculation-execution)) (common-lisp:progn (common-lisp:defun stop-query-execution @@ -13410,7 +13388,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopQueryExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-query-execution)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13427,7 +13405,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun terminate-session @@ -13444,7 +13422,7 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-session)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13461,7 +13439,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-capacity-reservation @@ -13479,7 +13457,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-capacity-reservation)) (common-lisp:progn (common-lisp:defun update-data-catalog @@ -13497,7 +13475,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDataCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-catalog)) (common-lisp:progn (common-lisp:defun update-named-query @@ -13516,7 +13494,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateNamedQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-named-query)) (common-lisp:progn (common-lisp:defun update-notebook @@ -13536,7 +13514,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateNotebook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-notebook)) (common-lisp:progn (common-lisp:defun update-notebook-metadata @@ -13554,7 +13532,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateNotebookMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-notebook-metadata)) (common-lisp:progn (common-lisp:defun update-prepared-statement @@ -13574,7 +13552,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePreparedStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-prepared-statement)) (common-lisp:progn (common-lisp:defun update-work-group @@ -13593,5 +13571,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWorkGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-work-group)) diff --git a/services/auditmanager/api.lisp b/services/auditmanager/api.lisp index 80cb9ce8..5d82f2b7 100644 --- a/services/auditmanager/api.lisp +++ b/services/auditmanager/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/auditmanager/api - (:use) - (:nicknames #:aws/auditmanager) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/auditmanager/api (:use) + (:nicknames #:aws/auditmanager) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/auditmanager/api) (common-lisp:progn (common-lisp:define-condition auditmanager-error @@ -20,7 +19,7 @@ (common-lisp:export 'auditmanager-error)) (common-lisp:progn (common-lisp:defclass auditmanager-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "auditmanager" :api-version "2017-07-25" :host-prefix "auditmanager" :signing-name @@ -11654,12 +11653,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/associateToAssessmentReport" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "AssociateAssessmentReportEvidenceFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-assessment-report-evidence-folder)) (common-lisp:progn (common-lisp:defun batch-associate-assessment-report-evidence @@ -11684,12 +11684,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/batchAssociateToAssessmentReport" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "BatchAssociateAssessmentReportEvidence")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-assessment-report-evidence)) (common-lisp:progn (common-lisp:defun batch-create-delegation-by-assessment @@ -11713,12 +11714,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/delegations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "BatchCreateDelegationByAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-delegation-by-assessment)) (common-lisp:progn (common-lisp:defun batch-delete-delegation-by-assessment @@ -11741,12 +11743,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/delegations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "BatchDeleteDelegationByAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-delegation-by-assessment)) (common-lisp:progn (common-lisp:defun batch-disassociate-assessment-report-evidence @@ -11771,12 +11774,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/batchDisassociateFromAssessmentReport" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "BatchDisassociateAssessmentReportEvidence")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-assessment-report-evidence)) (common-lisp:progn (common-lisp:defun batch-import-evidence-to-assessment-control @@ -11802,20 +11806,23 @@ (common-lisp:format common-lisp:nil "/assessments/~A/controlSets/~A/controls/~A/evidence" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-set-id)) - (quri.encode:url-encode + 'control-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-id)))) + 'control-id) + common-lisp:t))) "BatchImportEvidenceToAssessmentControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-import-evidence-to-assessment-control)) (common-lisp:progn (common-lisp:defun create-assessment @@ -11836,7 +11843,7 @@ aws-sdk/generator/operation::input "POST" "/assessments" "CreateAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assessment)) (common-lisp:progn (common-lisp:defun create-assessment-framework @@ -11857,7 +11864,7 @@ "POST" "/assessmentFrameworks" "CreateAssessmentFramework")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assessment-framework)) (common-lisp:progn (common-lisp:defun create-assessment-report @@ -11881,12 +11888,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/reports" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "CreateAssessmentReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assessment-report)) (common-lisp:progn (common-lisp:defun create-control @@ -11907,7 +11915,7 @@ aws-sdk/generator/operation::input "POST" "/controls" "CreateControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-control)) (common-lisp:progn (common-lisp:defun delete-assessment @@ -11929,12 +11937,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "DeleteAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assessment)) (common-lisp:progn (common-lisp:defun delete-assessment-framework @@ -11957,12 +11966,13 @@ (common-lisp:format common-lisp:nil "/assessmentFrameworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'framework-id)))) + 'framework-id) + common-lisp:t))) "DeleteAssessmentFramework")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assessment-framework)) (common-lisp:progn (common-lisp:defun delete-assessment-framework-share @@ -11985,12 +11995,13 @@ (common-lisp:format common-lisp:nil "/assessmentFrameworkShareRequests/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'request-id)))) + 'request-id) + common-lisp:t))) "DeleteAssessmentFrameworkShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assessment-framework-share)) (common-lisp:progn (common-lisp:defun delete-assessment-report @@ -12013,16 +12024,18 @@ (common-lisp:format common-lisp:nil "/assessments/~A/reports/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-report-id)))) + 'assessment-report-id) + common-lisp:t))) "DeleteAssessmentReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assessment-report)) (common-lisp:progn (common-lisp:defun delete-control @@ -12044,12 +12057,13 @@ (common-lisp:format common-lisp:nil "/controls/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-id)))) + 'control-id) + common-lisp:t))) "DeleteControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-control)) (common-lisp:progn (common-lisp:defun deregister-account () @@ -12077,7 +12091,7 @@ "POST" "/account/deregisterOrganizationAdminAccount" "DeregisterOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-organization-admin-account)) (common-lisp:progn (common-lisp:defun disassociate-assessment-report-evidence-folder @@ -12101,12 +12115,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/disassociateFromAssessmentReport" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "DisassociateAssessmentReportEvidenceFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-assessment-report-evidence-folder)) (common-lisp:progn (common-lisp:defun get-account-status () @@ -12137,12 +12152,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "GetAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assessment)) (common-lisp:progn (common-lisp:defun get-assessment-framework @@ -12164,12 +12180,13 @@ (common-lisp:format common-lisp:nil "/assessmentFrameworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'framework-id)))) + 'framework-id) + common-lisp:t))) "GetAssessmentFramework")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assessment-framework)) (common-lisp:progn (common-lisp:defun get-assessment-report-url @@ -12193,16 +12210,18 @@ (common-lisp:format common-lisp:nil "/assessments/~A/reports/~A/url" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-report-id)))) + 'assessment-report-id) + common-lisp:t))) "GetAssessmentReportUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assessment-report-url)) (common-lisp:progn (common-lisp:defun get-change-logs @@ -12227,12 +12246,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/changelogs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "GetChangeLogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-change-logs)) (common-lisp:progn (common-lisp:defun get-control @@ -12254,12 +12274,13 @@ (common-lisp:format common-lisp:nil "/controls/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-id)))) + 'control-id) + common-lisp:t))) "GetControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-control)) (common-lisp:progn (common-lisp:defun get-delegations @@ -12276,7 +12297,7 @@ aws-sdk/generator/operation::input "GET" "/delegations" "GetDelegations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-delegations)) (common-lisp:progn (common-lisp:defun get-evidence @@ -12301,24 +12322,28 @@ (common-lisp:format common-lisp:nil "/assessments/~A/controlSets/~A/evidenceFolders/~A/evidence/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-set-id)) - (quri.encode:url-encode + 'control-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evidence-folder-id)) - (quri.encode:url-encode + 'evidence-folder-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evidence-id)))) + 'evidence-id) + common-lisp:t))) "GetEvidence")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-evidence)) (common-lisp:progn (common-lisp:defun get-evidence-by-evidence-folder @@ -12344,20 +12369,23 @@ (common-lisp:format common-lisp:nil "/assessments/~A/controlSets/~A/evidenceFolders/~A/evidence" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-set-id)) - (quri.encode:url-encode + 'control-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evidence-folder-id)))) + 'evidence-folder-id) + common-lisp:t))) "GetEvidenceByEvidenceFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-evidence-by-evidence-folder)) (common-lisp:progn (common-lisp:defun get-evidence-file-upload-url @@ -12376,7 +12404,7 @@ "GET" "/evidenceFileUploadUrl" "GetEvidenceFileUploadUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-evidence-file-upload-url)) (common-lisp:progn (common-lisp:defun get-evidence-folder @@ -12400,20 +12428,23 @@ (common-lisp:format common-lisp:nil "/assessments/~A/controlSets/~A/evidenceFolders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-set-id)) - (quri.encode:url-encode + 'control-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evidence-folder-id)))) + 'evidence-folder-id) + common-lisp:t))) "GetEvidenceFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-evidence-folder)) (common-lisp:progn (common-lisp:defun get-evidence-folders-by-assessment @@ -12437,12 +12468,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/evidenceFolders" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "GetEvidenceFoldersByAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-evidence-folders-by-assessment)) (common-lisp:progn (common-lisp:defun get-evidence-folders-by-assessment-control @@ -12468,20 +12500,23 @@ (common-lisp:format common-lisp:nil "/assessments/~A/evidenceFolders-by-assessment-control/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-set-id)) - (quri.encode:url-encode + 'control-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-id)))) + 'control-id) + common-lisp:t))) "GetEvidenceFoldersByAssessmentControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-evidence-folders-by-assessment-control)) (common-lisp:progn (common-lisp:defun get-insights () @@ -12512,12 +12547,13 @@ (common-lisp:format common-lisp:nil "/insights/assessments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "GetInsightsByAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-insights-by-assessment)) (common-lisp:progn (common-lisp:defun get-organization-admin-account () @@ -12556,12 +12592,13 @@ (common-lisp:format common-lisp:nil "/settings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute)))) + 'attribute) + common-lisp:t))) "GetSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-settings)) (common-lisp:progn (common-lisp:defun list-assessment-control-insights-by-control-domain @@ -12583,7 +12620,7 @@ "GET" "/insights/controls-by-assessment" "ListAssessmentControlInsightsByControlDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessment-control-insights-by-control-domain)) (common-lisp:progn (common-lisp:defun list-assessment-framework-share-requests @@ -12603,7 +12640,7 @@ "GET" "/assessmentFrameworkShareRequests" "ListAssessmentFrameworkShareRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessment-framework-share-requests)) (common-lisp:progn (common-lisp:defun list-assessment-frameworks @@ -12623,7 +12660,7 @@ "GET" "/assessmentFrameworks" "ListAssessmentFrameworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessment-frameworks)) (common-lisp:progn (common-lisp:defun list-assessment-reports @@ -12641,7 +12678,7 @@ "GET" "/assessmentReports" "ListAssessmentReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessment-reports)) (common-lisp:progn (common-lisp:defun list-assessments @@ -12658,7 +12695,7 @@ aws-sdk/generator/operation::input "GET" "/assessments" "ListAssessments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessments)) (common-lisp:progn (common-lisp:defun list-control-domain-insights @@ -12677,7 +12714,7 @@ "GET" "/insights/control-domains" "ListControlDomainInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-control-domain-insights)) (common-lisp:progn (common-lisp:defun list-control-domain-insights-by-assessment @@ -12697,7 +12734,7 @@ "GET" "/insights/control-domains-by-assessment" "ListControlDomainInsightsByAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-control-domain-insights-by-assessment)) (common-lisp:progn (common-lisp:defun list-control-insights-by-control-domain @@ -12717,7 +12754,7 @@ "GET" "/insights/controls" "ListControlInsightsByControlDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-control-insights-by-control-domain)) (common-lisp:progn (common-lisp:defun list-controls @@ -12735,7 +12772,7 @@ aws-sdk/generator/operation::input "GET" "/controls" "ListControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-controls)) (common-lisp:progn (common-lisp:defun list-keywords-for-data-source @@ -12754,7 +12791,7 @@ "GET" "/dataSourceKeywords" "ListKeywordsForDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-keywords-for-data-source)) (common-lisp:progn (common-lisp:defun list-notifications @@ -12771,7 +12808,7 @@ aws-sdk/generator/operation::input "GET" "/notifications" "ListNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notifications)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12793,12 +12830,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun register-account @@ -12817,7 +12855,7 @@ "POST" "/account/registerAccount" "RegisterAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-account)) (common-lisp:progn (common-lisp:defun register-organization-admin-account @@ -12836,7 +12874,7 @@ "POST" "/account/registerOrganizationAdminAccount" "RegisterOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-organization-admin-account)) (common-lisp:progn (common-lisp:defun start-assessment-framework-share @@ -12862,12 +12900,13 @@ (common-lisp:format common-lisp:nil "/assessmentFrameworks/~A/shareRequests" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'framework-id)))) + 'framework-id) + common-lisp:t))) "StartAssessmentFrameworkShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-assessment-framework-share)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12889,12 +12928,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12916,12 +12956,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-assessment @@ -12947,12 +12988,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "UpdateAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-assessment)) (common-lisp:progn (common-lisp:defun update-assessment-control @@ -12978,20 +13020,23 @@ (common-lisp:format common-lisp:nil "/assessments/~A/controlSets/~A/controls/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-set-id)) - (quri.encode:url-encode + 'control-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-id)))) + 'control-id) + common-lisp:t))) "UpdateAssessmentControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-assessment-control)) (common-lisp:progn (common-lisp:defun update-assessment-control-set-status @@ -13016,16 +13061,18 @@ (common-lisp:format common-lisp:nil "/assessments/~A/controlSets/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)) - (quri.encode:url-encode + 'assessment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-set-id)))) + 'control-set-id) + common-lisp:t))) "UpdateAssessmentControlSetStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-assessment-control-set-status)) (common-lisp:progn (common-lisp:defun update-assessment-framework @@ -13051,12 +13098,13 @@ (common-lisp:format common-lisp:nil "/assessmentFrameworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'framework-id)))) + 'framework-id) + common-lisp:t))) "UpdateAssessmentFramework")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-assessment-framework)) (common-lisp:progn (common-lisp:defun update-assessment-framework-share @@ -13079,12 +13127,13 @@ (common-lisp:format common-lisp:nil "/assessmentFrameworkShareRequests/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'request-id)))) + 'request-id) + common-lisp:t))) "UpdateAssessmentFrameworkShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-assessment-framework-share)) (common-lisp:progn (common-lisp:defun update-assessment-status @@ -13106,12 +13155,13 @@ (common-lisp:format common-lisp:nil "/assessments/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assessment-id)))) + 'assessment-id) + common-lisp:t))) "UpdateAssessmentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-assessment-status)) (common-lisp:progn (common-lisp:defun update-control @@ -13137,12 +13187,13 @@ (common-lisp:format common-lisp:nil "/controls/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-id)))) + 'control-id) + common-lisp:t))) "UpdateControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-control)) (common-lisp:progn (common-lisp:defun update-settings @@ -13165,7 +13216,7 @@ aws-sdk/generator/operation::input "PUT" "/settings" "UpdateSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-settings)) (common-lisp:progn (common-lisp:defun validate-assessment-report-integrity @@ -13184,5 +13235,5 @@ "POST" "/assessmentReports/integrity" "ValidateAssessmentReportIntegrity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-assessment-report-integrity)) diff --git a/services/autoscaling-plans/api.lisp b/services/autoscaling-plans/api.lisp index d1543d0f..a3c7fb9d 100644 --- a/services/autoscaling-plans/api.lisp +++ b/services/autoscaling-plans/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/autoscaling-plans/api - (:use) - (:nicknames #:aws/autoscaling-plans) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/autoscaling-plans/api (:use) + (:nicknames #:aws/autoscaling-plans) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/autoscaling-plans/api) (common-lisp:progn (common-lisp:define-condition autoscaling-plans-error @@ -2230,7 +2229,7 @@ (aws-sdk/generator/shape:make-request-with-input 'autoscaling-plans-request aws-sdk/generator/operation::input "POST" "/" "CreateScalingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-scaling-plan)) (common-lisp:progn (common-lisp:defun delete-scaling-plan @@ -2247,7 +2246,7 @@ (aws-sdk/generator/shape:make-request-with-input 'autoscaling-plans-request aws-sdk/generator/operation::input "POST" "/" "DeleteScalingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scaling-plan)) (common-lisp:progn (common-lisp:defun describe-scaling-plan-resources @@ -2267,7 +2266,7 @@ (aws-sdk/generator/shape:make-request-with-input 'autoscaling-plans-request aws-sdk/generator/operation::input "POST" "/" "DescribeScalingPlanResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scaling-plan-resources)) (common-lisp:progn (common-lisp:defun describe-scaling-plans @@ -2286,7 +2285,7 @@ (aws-sdk/generator/shape:make-request-with-input 'autoscaling-plans-request aws-sdk/generator/operation::input "POST" "/" "DescribeScalingPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scaling-plans)) (common-lisp:progn (common-lisp:defun get-scaling-plan-resource-forecast-data @@ -2308,7 +2307,7 @@ (aws-sdk/generator/shape:make-request-with-input 'autoscaling-plans-request aws-sdk/generator/operation::input "POST" "/" "GetScalingPlanResourceForecastData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-scaling-plan-resource-forecast-data)) (common-lisp:progn (common-lisp:defun update-scaling-plan @@ -2327,5 +2326,5 @@ (aws-sdk/generator/shape:make-request-with-input 'autoscaling-plans-request aws-sdk/generator/operation::input "POST" "/" "UpdateScalingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-scaling-plan)) diff --git a/services/autoscaling/api.lisp b/services/autoscaling/api.lisp index d918e00e..806d83ef 100644 --- a/services/autoscaling/api.lisp +++ b/services/autoscaling/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/autoscaling/api - (:use) - (:nicknames #:aws/autoscaling) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/autoscaling/api (:use) + (:nicknames #:aws/autoscaling) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/autoscaling/api) (common-lisp:progn (common-lisp:define-condition autoscaling-error @@ -14830,7 +14829,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-instances)) (common-lisp:progn (common-lisp:defun attach-load-balancer-target-groups @@ -14850,7 +14849,8 @@ aws-sdk/generator/operation::input "POST" "/" "AttachLoadBalancerTargetGroups")) - common-lisp:nil "AttachLoadBalancerTargetGroupsResult" *error-map*))) + common-lisp:nil "AttachLoadBalancerTargetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'attach-load-balancer-target-groups)) (common-lisp:progn (common-lisp:defun attach-load-balancers @@ -14869,7 +14869,8 @@ aws-sdk/generator/operation::input "POST" "/" "AttachLoadBalancers")) - common-lisp:nil "AttachLoadBalancersResult" *error-map*))) + common-lisp:nil "AttachLoadBalancersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'attach-load-balancers)) (common-lisp:progn (common-lisp:defun attach-traffic-sources @@ -14887,7 +14888,8 @@ aws-sdk/generator/operation::input "POST" "/" "AttachTrafficSources")) - common-lisp:nil "AttachTrafficSourcesResult" *error-map*))) + common-lisp:nil "AttachTrafficSourcesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'attach-traffic-sources)) (common-lisp:progn (common-lisp:defun batch-delete-scheduled-action @@ -14907,7 +14909,8 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteScheduledAction")) - common-lisp:nil "BatchDeleteScheduledActionResult" *error-map*))) + common-lisp:nil "BatchDeleteScheduledActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'batch-delete-scheduled-action)) (common-lisp:progn (common-lisp:defun batch-put-scheduled-update-group-action @@ -14928,7 +14931,8 @@ aws-sdk/generator/operation::input "POST" "/" "BatchPutScheduledUpdateGroupAction")) - common-lisp:nil "BatchPutScheduledUpdateGroupActionResult" *error-map*))) + common-lisp:nil "BatchPutScheduledUpdateGroupActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'batch-put-scheduled-update-group-action)) (common-lisp:progn (common-lisp:defun cancel-instance-refresh @@ -14945,7 +14949,8 @@ aws-sdk/generator/operation::input "POST" "/" "CancelInstanceRefresh")) - common-lisp:nil "CancelInstanceRefreshResult" *error-map*))) + common-lisp:nil "CancelInstanceRefreshResult" *error-map* + common-lisp:nil))) (common-lisp:export 'cancel-instance-refresh)) (common-lisp:progn (common-lisp:defun complete-lifecycle-action @@ -14966,7 +14971,8 @@ aws-sdk/generator/operation::input "POST" "/" "CompleteLifecycleAction")) - common-lisp:nil "CompleteLifecycleActionResult" *error-map*))) + common-lisp:nil "CompleteLifecycleActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'complete-lifecycle-action)) (common-lisp:progn (common-lisp:defun create-auto-scaling-group @@ -15003,7 +15009,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAutoScalingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-auto-scaling-group)) (common-lisp:progn (common-lisp:defun create-launch-configuration @@ -15032,7 +15038,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-launch-configuration)) (common-lisp:progn (common-lisp:defun create-or-update-tags @@ -15049,7 +15055,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateOrUpdateTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-or-update-tags)) (common-lisp:progn (common-lisp:defun delete-auto-scaling-group @@ -15067,7 +15073,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAutoScalingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-auto-scaling-group)) (common-lisp:progn (common-lisp:defun delete-launch-configuration @@ -15084,7 +15090,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-launch-configuration)) (common-lisp:progn (common-lisp:defun delete-lifecycle-hook @@ -15103,7 +15109,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLifecycleHook")) - common-lisp:nil "DeleteLifecycleHookResult" *error-map*))) + common-lisp:nil "DeleteLifecycleHookResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-lifecycle-hook)) (common-lisp:progn (common-lisp:defun delete-notification-configuration @@ -15122,7 +15129,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNotificationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-notification-configuration)) (common-lisp:progn (common-lisp:defun delete-policy @@ -15140,7 +15147,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-policy)) (common-lisp:progn (common-lisp:defun delete-scheduled-action @@ -15159,7 +15166,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-scheduled-action)) (common-lisp:progn (common-lisp:defun delete-tags @@ -15176,7 +15183,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun delete-warm-pool @@ -15194,7 +15201,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWarmPool")) - common-lisp:nil "DeleteWarmPoolResult" *error-map*))) + common-lisp:nil "DeleteWarmPoolResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-warm-pool)) (common-lisp:progn (common-lisp:defun describe-account-limits () @@ -15230,7 +15237,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAutoScalingGroups")) - common-lisp:nil "DescribeAutoScalingGroupsResult" *error-map*))) + common-lisp:nil "DescribeAutoScalingGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-auto-scaling-groups)) (common-lisp:progn (common-lisp:defun describe-auto-scaling-instances @@ -15249,7 +15257,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAutoScalingInstances")) - common-lisp:nil "DescribeAutoScalingInstancesResult" *error-map*))) + common-lisp:nil "DescribeAutoScalingInstancesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-auto-scaling-instances)) (common-lisp:progn (common-lisp:defun describe-auto-scaling-notification-types () @@ -15278,7 +15287,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceRefreshes")) - common-lisp:nil "DescribeInstanceRefreshesResult" *error-map*))) + common-lisp:nil "DescribeInstanceRefreshesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-instance-refreshes)) (common-lisp:progn (common-lisp:defun describe-launch-configurations @@ -15297,7 +15307,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLaunchConfigurations")) - common-lisp:nil "DescribeLaunchConfigurationsResult" *error-map*))) + common-lisp:nil "DescribeLaunchConfigurationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-launch-configurations)) (common-lisp:progn (common-lisp:defun describe-lifecycle-hook-types () @@ -15324,7 +15335,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLifecycleHooks")) - common-lisp:nil "DescribeLifecycleHooksResult" *error-map*))) + common-lisp:nil "DescribeLifecycleHooksResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-lifecycle-hooks)) (common-lisp:progn (common-lisp:defun describe-load-balancer-target-groups @@ -15344,7 +15356,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBalancerTargetGroups")) - common-lisp:nil "DescribeLoadBalancerTargetGroupsResult" *error-map*))) + common-lisp:nil "DescribeLoadBalancerTargetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-load-balancer-target-groups)) (common-lisp:progn (common-lisp:defun describe-load-balancers @@ -15363,7 +15376,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBalancers")) - common-lisp:nil "DescribeLoadBalancersResult" *error-map*))) + common-lisp:nil "DescribeLoadBalancersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-load-balancers)) (common-lisp:progn (common-lisp:defun describe-metric-collection-types () @@ -15391,7 +15405,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNotificationConfigurations")) - common-lisp:nil "DescribeNotificationConfigurationsResult" *error-map*))) + common-lisp:nil "DescribeNotificationConfigurationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-notification-configurations)) (common-lisp:progn (common-lisp:defun describe-policies @@ -15411,7 +15426,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePolicies")) - common-lisp:nil "DescribePoliciesResult" *error-map*))) + common-lisp:nil "DescribePoliciesResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-policies)) (common-lisp:progn (common-lisp:defun describe-scaling-activities @@ -15431,7 +15446,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeScalingActivities")) - common-lisp:nil "DescribeScalingActivitiesResult" *error-map*))) + common-lisp:nil "DescribeScalingActivitiesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-scaling-activities)) (common-lisp:progn (common-lisp:defun describe-scaling-process-types () @@ -15460,7 +15476,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeScheduledActions")) - common-lisp:nil "DescribeScheduledActionsResult" *error-map*))) + common-lisp:nil "DescribeScheduledActionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-scheduled-actions)) (common-lisp:progn (common-lisp:defun describe-tags @@ -15477,7 +15494,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil "DescribeTagsResult" *error-map*))) + common-lisp:nil "DescribeTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun describe-termination-policy-types () @@ -15505,7 +15522,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrafficSources")) - common-lisp:nil "DescribeTrafficSourcesResult" *error-map*))) + common-lisp:nil "DescribeTrafficSourcesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-traffic-sources)) (common-lisp:progn (common-lisp:defun describe-warm-pool @@ -15524,7 +15542,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWarmPool")) - common-lisp:nil "DescribeWarmPoolResult" *error-map*))) + common-lisp:nil "DescribeWarmPoolResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-warm-pool)) (common-lisp:progn (common-lisp:defun detach-instances @@ -15544,7 +15562,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachInstances")) - common-lisp:nil "DetachInstancesResult" *error-map*))) + common-lisp:nil "DetachInstancesResult" *error-map* common-lisp:nil))) (common-lisp:export 'detach-instances)) (common-lisp:progn (common-lisp:defun detach-load-balancer-target-groups @@ -15564,7 +15582,8 @@ aws-sdk/generator/operation::input "POST" "/" "DetachLoadBalancerTargetGroups")) - common-lisp:nil "DetachLoadBalancerTargetGroupsResult" *error-map*))) + common-lisp:nil "DetachLoadBalancerTargetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'detach-load-balancer-target-groups)) (common-lisp:progn (common-lisp:defun detach-load-balancers @@ -15583,7 +15602,8 @@ aws-sdk/generator/operation::input "POST" "/" "DetachLoadBalancers")) - common-lisp:nil "DetachLoadBalancersResult" *error-map*))) + common-lisp:nil "DetachLoadBalancersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'detach-load-balancers)) (common-lisp:progn (common-lisp:defun detach-traffic-sources @@ -15601,7 +15621,8 @@ aws-sdk/generator/operation::input "POST" "/" "DetachTrafficSources")) - common-lisp:nil "DetachTrafficSourcesResult" *error-map*))) + common-lisp:nil "DetachTrafficSourcesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'detach-traffic-sources)) (common-lisp:progn (common-lisp:defun disable-metrics-collection @@ -15619,7 +15640,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableMetricsCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-metrics-collection)) (common-lisp:progn (common-lisp:defun enable-metrics-collection @@ -15638,7 +15659,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableMetricsCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-metrics-collection)) (common-lisp:progn (common-lisp:defun enter-standby @@ -15658,7 +15679,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnterStandby")) - common-lisp:nil "EnterStandbyResult" *error-map*))) + common-lisp:nil "EnterStandbyResult" *error-map* common-lisp:nil))) (common-lisp:export 'enter-standby)) (common-lisp:progn (common-lisp:defun execute-policy @@ -15678,7 +15699,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecutePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'execute-policy)) (common-lisp:progn (common-lisp:defun exit-standby @@ -15696,7 +15717,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExitStandby")) - common-lisp:nil "ExitStandbyResult" *error-map*))) + common-lisp:nil "ExitStandbyResult" *error-map* common-lisp:nil))) (common-lisp:export 'exit-standby)) (common-lisp:progn (common-lisp:defun get-predictive-scaling-forecast @@ -15717,7 +15738,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetPredictiveScalingForecast")) - common-lisp:nil "GetPredictiveScalingForecastResult" *error-map*))) + common-lisp:nil "GetPredictiveScalingForecastResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-predictive-scaling-forecast)) (common-lisp:progn (common-lisp:defun put-lifecycle-hook @@ -15740,7 +15762,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutLifecycleHook")) - common-lisp:nil "PutLifecycleHookResult" *error-map*))) + common-lisp:nil "PutLifecycleHookResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-lifecycle-hook)) (common-lisp:progn (common-lisp:defun put-notification-configuration @@ -15761,7 +15783,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutNotificationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-notification-configuration)) (common-lisp:progn (common-lisp:defun put-scaling-policy @@ -15788,7 +15810,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutScalingPolicy")) - common-lisp:nil "PutScalingPolicyResult" *error-map*))) + common-lisp:nil "PutScalingPolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-scaling-policy)) (common-lisp:progn (common-lisp:defun put-scheduled-update-group-action @@ -15811,7 +15833,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutScheduledUpdateGroupAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-scheduled-update-group-action)) (common-lisp:progn (common-lisp:defun put-warm-pool @@ -15832,7 +15854,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutWarmPool")) - common-lisp:nil "PutWarmPoolResult" *error-map*))) + common-lisp:nil "PutWarmPoolResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-warm-pool)) (common-lisp:progn (common-lisp:defun record-lifecycle-action-heartbeat @@ -15854,7 +15876,8 @@ aws-sdk/generator/operation::input "POST" "/" "RecordLifecycleActionHeartbeat")) - common-lisp:nil "RecordLifecycleActionHeartbeatResult" *error-map*))) + common-lisp:nil "RecordLifecycleActionHeartbeatResult" *error-map* + common-lisp:nil))) (common-lisp:export 'record-lifecycle-action-heartbeat)) (common-lisp:progn (common-lisp:defun resume-processes @@ -15873,7 +15896,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResumeProcesses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'resume-processes)) (common-lisp:progn (common-lisp:defun rollback-instance-refresh @@ -15890,7 +15913,8 @@ aws-sdk/generator/operation::input "POST" "/" "RollbackInstanceRefresh")) - common-lisp:nil "RollbackInstanceRefreshResult" *error-map*))) + common-lisp:nil "RollbackInstanceRefreshResult" *error-map* + common-lisp:nil))) (common-lisp:export 'rollback-instance-refresh)) (common-lisp:progn (common-lisp:defun set-desired-capacity @@ -15910,7 +15934,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetDesiredCapacity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-desired-capacity)) (common-lisp:progn (common-lisp:defun set-instance-health @@ -15930,7 +15954,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetInstanceHealth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-instance-health)) (common-lisp:progn (common-lisp:defun set-instance-protection @@ -15950,7 +15974,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetInstanceProtection")) - common-lisp:nil "SetInstanceProtectionResult" *error-map*))) + common-lisp:nil "SetInstanceProtectionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-instance-protection)) (common-lisp:progn (common-lisp:defun start-instance-refresh @@ -15970,7 +15995,8 @@ aws-sdk/generator/operation::input "POST" "/" "StartInstanceRefresh")) - common-lisp:nil "StartInstanceRefreshResult" *error-map*))) + common-lisp:nil "StartInstanceRefreshResult" *error-map* + common-lisp:nil))) (common-lisp:export 'start-instance-refresh)) (common-lisp:progn (common-lisp:defun suspend-processes @@ -15989,7 +16015,7 @@ aws-sdk/generator/operation::input "POST" "/" "SuspendProcesses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'suspend-processes)) (common-lisp:progn (common-lisp:defun terminate-instance-in-auto-scaling-group @@ -16009,8 +16035,8 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateInstanceInAutoScalingGroup")) - common-lisp:nil "TerminateInstanceInAutoScalingGroupResult" - *error-map*))) + common-lisp:nil "TerminateInstanceInAutoScalingGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'terminate-instance-in-auto-scaling-group)) (common-lisp:progn (common-lisp:defun update-auto-scaling-group @@ -16044,5 +16070,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAutoScalingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-auto-scaling-group)) diff --git a/services/b2bi/api.lisp b/services/b2bi/api.lisp index e6f15c43..cda33ca0 100644 --- a/services/b2bi/api.lisp +++ b/services/b2bi/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/b2bi/api - (:use) - (:nicknames #:aws/b2bi) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/b2bi/api (:use) + (:nicknames #:aws/b2bi) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/b2bi/api) (common-lisp:progn (common-lisp:define-condition b2bi-error @@ -4882,7 +4881,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCapability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-capability)) (common-lisp:progn (common-lisp:defun create-partnership @@ -4902,7 +4901,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePartnership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-partnership)) (common-lisp:progn (common-lisp:defun create-profile @@ -4922,7 +4921,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profile)) (common-lisp:progn (common-lisp:defun create-transformer @@ -4942,7 +4941,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransformer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-transformer)) (common-lisp:progn (common-lisp:defun delete-capability @@ -4959,7 +4958,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCapability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-capability)) (common-lisp:progn (common-lisp:defun delete-partnership @@ -4976,7 +4975,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePartnership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-partnership)) (common-lisp:progn (common-lisp:defun delete-profile @@ -4993,7 +4992,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile)) (common-lisp:progn (common-lisp:defun delete-transformer @@ -5010,7 +5009,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransformer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-transformer)) (common-lisp:progn (common-lisp:defun get-capability @@ -5027,7 +5026,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCapability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-capability)) (common-lisp:progn (common-lisp:defun get-partnership @@ -5044,7 +5043,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPartnership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-partnership)) (common-lisp:progn (common-lisp:defun get-profile @@ -5061,7 +5060,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-profile)) (common-lisp:progn (common-lisp:defun get-transformer @@ -5078,7 +5077,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransformer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transformer)) (common-lisp:progn (common-lisp:defun get-transformer-job @@ -5096,7 +5095,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransformerJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transformer-job)) (common-lisp:progn (common-lisp:defun list-capabilities @@ -5113,7 +5112,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCapabilities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-capabilities)) (common-lisp:progn (common-lisp:defun list-partnerships @@ -5131,7 +5130,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPartnerships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-partnerships)) (common-lisp:progn (common-lisp:defun list-profiles @@ -5148,7 +5147,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profiles)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5165,7 +5164,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-transformers @@ -5182,7 +5181,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTransformers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-transformers)) (common-lisp:progn (common-lisp:defun start-transformer-job @@ -5202,7 +5201,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartTransformerJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-transformer-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5219,7 +5218,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-mapping @@ -5238,7 +5237,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-mapping)) (common-lisp:progn (common-lisp:defun test-parsing @@ -5256,7 +5255,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestParsing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-parsing)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5273,7 +5272,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-capability @@ -5293,7 +5292,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCapability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-capability)) (common-lisp:progn (common-lisp:defun update-partnership @@ -5311,7 +5310,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePartnership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-partnership)) (common-lisp:progn (common-lisp:defun update-profile @@ -5330,7 +5329,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-profile)) (common-lisp:progn (common-lisp:defun update-transformer @@ -5350,5 +5349,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTransformer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-transformer)) diff --git a/services/backup-gateway/api.lisp b/services/backup-gateway/api.lisp index a69859d3..432bc187 100644 --- a/services/backup-gateway/api.lisp +++ b/services/backup-gateway/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/backup-gateway/api - (:use) - (:nicknames #:aws/backup-gateway) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/backup-gateway/api (:use) + (:nicknames #:aws/backup-gateway) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/backup-gateway/api) (common-lisp:progn (common-lisp:define-condition backup-gateway-error @@ -3621,7 +3620,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AssociateGatewayToServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-gateway-to-server)) (common-lisp:progn (common-lisp:defun create-gateway @@ -3641,7 +3640,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-gateway)) (common-lisp:progn (common-lisp:defun delete-gateway @@ -3658,7 +3657,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-gateway)) (common-lisp:progn (common-lisp:defun delete-hypervisor @@ -3675,7 +3674,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteHypervisor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hypervisor)) (common-lisp:progn (common-lisp:defun disassociate-gateway-from-server @@ -3693,7 +3692,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DisassociateGatewayFromServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-gateway-from-server)) (common-lisp:progn (common-lisp:defun get-bandwidth-rate-limit-schedule @@ -3711,7 +3710,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBandwidthRateLimitSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bandwidth-rate-limit-schedule)) (common-lisp:progn (common-lisp:defun get-gateway @@ -3728,7 +3727,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-gateway)) (common-lisp:progn (common-lisp:defun get-hypervisor @@ -3745,7 +3744,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetHypervisor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-hypervisor)) (common-lisp:progn (common-lisp:defun get-hypervisor-property-mappings @@ -3763,7 +3762,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetHypervisorPropertyMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-hypervisor-property-mappings)) (common-lisp:progn (common-lisp:defun get-virtual-machine @@ -3780,7 +3779,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetVirtualMachine")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-virtual-machine)) (common-lisp:progn (common-lisp:defun import-hypervisor-configuration @@ -3800,7 +3799,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ImportHypervisorConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-hypervisor-configuration)) (common-lisp:progn (common-lisp:defun list-gateways @@ -3817,7 +3816,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gateways)) (common-lisp:progn (common-lisp:defun list-hypervisors @@ -3834,7 +3833,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListHypervisors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hypervisors)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3851,7 +3850,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-virtual-machines @@ -3869,7 +3868,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListVirtualMachines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-virtual-machines)) (common-lisp:progn (common-lisp:defun put-bandwidth-rate-limit-schedule @@ -3889,7 +3888,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutBandwidthRateLimitSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-bandwidth-rate-limit-schedule)) (common-lisp:progn (common-lisp:defun put-hypervisor-property-mappings @@ -3910,7 +3909,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutHypervisorPropertyMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-hypervisor-property-mappings)) (common-lisp:progn (common-lisp:defun put-maintenance-start-time @@ -3930,7 +3929,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutMaintenanceStartTime")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-maintenance-start-time)) (common-lisp:progn (common-lisp:defun start-virtual-machines-metadata-sync @@ -3948,7 +3947,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StartVirtualMachinesMetadataSync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-virtual-machines-metadata-sync)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3965,7 +3964,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-hypervisor-configuration @@ -3984,7 +3983,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TestHypervisorConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-hypervisor-configuration)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4001,7 +4000,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-gateway-information @@ -4019,7 +4018,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateGatewayInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-information)) (common-lisp:progn (common-lisp:defun update-gateway-software-now @@ -4037,7 +4036,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateGatewaySoftwareNow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-software-now)) (common-lisp:progn (common-lisp:defun update-hypervisor @@ -4057,5 +4056,5 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateHypervisor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-hypervisor)) diff --git a/services/backup/api.lisp b/services/backup/api.lisp index 4af29e5d..43a9f0f4 100644 --- a/services/backup/api.lisp +++ b/services/backup/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/backup/api - (:use) - (:nicknames #:aws/backup) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/backup/api (:use) + (:nicknames #:aws/backup) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/backup/api) (common-lisp:progn (common-lisp:define-condition backup-error @@ -20,7 +19,7 @@ (common-lisp:export 'backup-error)) (common-lisp:progn (common-lisp:defclass backup-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "backup" :api-version "2018-11-15" :host-prefix "backup" :signing-name @@ -16862,12 +16861,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/legal-holds/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'legal-hold-id)))) + 'legal-hold-id) + common-lisp:t))) "CancelLegalHold")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-legal-hold)) (common-lisp:progn (common-lisp:defun create-backup-plan @@ -16886,7 +16886,7 @@ common-lisp:nil aws-sdk/generator/operation::input "PUT" "/backup/plans/" "CreateBackupPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backup-plan)) (common-lisp:progn (common-lisp:defun create-backup-selection @@ -16910,12 +16910,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A/selections/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)))) + 'backup-plan-id) + common-lisp:t))) "CreateBackupSelection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backup-selection)) (common-lisp:progn (common-lisp:defun create-backup-vault @@ -16940,12 +16941,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "CreateBackupVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backup-vault)) (common-lisp:progn (common-lisp:defun create-framework @@ -16966,7 +16968,7 @@ common-lisp:nil "POST" "/audit/frameworks" "CreateFramework")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-framework)) (common-lisp:progn (common-lisp:defun create-legal-hold @@ -16986,7 +16988,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/legal-holds/" "CreateLegalHold")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-legal-hold)) (common-lisp:progn (common-lisp:defun create-logically-air-gapped-backup-vault @@ -17012,12 +17014,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/logically-air-gapped-backup-vaults/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "CreateLogicallyAirGappedBackupVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-logically-air-gapped-backup-vault)) (common-lisp:progn (common-lisp:defun create-report-plan @@ -17040,7 +17043,7 @@ common-lisp:nil "POST" "/audit/report-plans" "CreateReportPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-report-plan)) (common-lisp:progn (common-lisp:defun create-restore-testing-plan @@ -17061,7 +17064,7 @@ common-lisp:nil "PUT" "/restore-testing/plans" "CreateRestoreTestingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-restore-testing-plan)) (common-lisp:progn (common-lisp:defun create-restore-testing-selection @@ -17087,12 +17090,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-testing/plans/~A/selections" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-plan-name)))) + 'restore-testing-plan-name) + common-lisp:t))) "CreateRestoreTestingSelection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-restore-testing-selection)) (common-lisp:progn (common-lisp:defun delete-backup-plan @@ -17114,12 +17118,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)))) + 'backup-plan-id) + common-lisp:t))) "DeleteBackupPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup-plan)) (common-lisp:progn (common-lisp:defun delete-backup-selection @@ -17141,16 +17146,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A/selections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)) - (quri.encode:url-encode + 'backup-plan-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'selection-id)))) + 'selection-id) + common-lisp:t))) "DeleteBackupSelection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup-selection)) (common-lisp:progn (common-lisp:defun delete-backup-vault @@ -17172,12 +17179,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "DeleteBackupVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup-vault)) (common-lisp:progn (common-lisp:defun delete-backup-vault-access-policy @@ -17200,12 +17208,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/access-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "DeleteBackupVaultAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup-vault-access-policy)) (common-lisp:progn (common-lisp:defun delete-backup-vault-lock-configuration @@ -17228,12 +17237,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/vault-lock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "DeleteBackupVaultLockConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup-vault-lock-configuration)) (common-lisp:progn (common-lisp:defun delete-backup-vault-notifications @@ -17256,12 +17266,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/notification-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "DeleteBackupVaultNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup-vault-notifications)) (common-lisp:progn (common-lisp:defun delete-framework @@ -17283,12 +17294,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/audit/frameworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'framework-name)))) + 'framework-name) + common-lisp:t))) "DeleteFramework")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-framework)) (common-lisp:progn (common-lisp:defun delete-recovery-point @@ -17311,16 +17323,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/recovery-points/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)) - (quri.encode:url-encode + 'backup-vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-point-arn)))) + 'recovery-point-arn) + common-lisp:t))) "DeleteRecoveryPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recovery-point)) (common-lisp:progn (common-lisp:defun delete-report-plan @@ -17342,12 +17356,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/audit/report-plans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'report-plan-name)))) + 'report-plan-name) + common-lisp:t))) "DeleteReportPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-report-plan)) (common-lisp:progn (common-lisp:defun delete-restore-testing-plan @@ -17370,12 +17385,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-testing/plans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-plan-name)))) + 'restore-testing-plan-name) + common-lisp:t))) "DeleteRestoreTestingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-restore-testing-plan)) (common-lisp:progn (common-lisp:defun delete-restore-testing-selection @@ -17401,16 +17417,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-testing/plans/~A/selections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-plan-name)) - (quri.encode:url-encode + 'restore-testing-plan-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-selection-name)))) + 'restore-testing-selection-name) + common-lisp:t))) "DeleteRestoreTestingSelection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-restore-testing-selection)) (common-lisp:progn (common-lisp:defun describe-backup-job @@ -17432,12 +17450,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-job-id)))) + 'backup-job-id) + common-lisp:t))) "DescribeBackupJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-backup-job)) (common-lisp:progn (common-lisp:defun describe-backup-vault @@ -17461,12 +17480,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "DescribeBackupVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-backup-vault)) (common-lisp:progn (common-lisp:defun describe-copy-job @@ -17488,12 +17508,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/copy-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'copy-job-id)))) + 'copy-job-id) + common-lisp:t))) "DescribeCopyJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-copy-job)) (common-lisp:progn (common-lisp:defun describe-framework @@ -17515,12 +17536,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/audit/frameworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'framework-name)))) + 'framework-name) + common-lisp:t))) "DescribeFramework")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-framework)) (common-lisp:progn (common-lisp:defun describe-global-settings () @@ -17552,12 +17574,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "DescribeProtectedResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-protected-resource)) (common-lisp:progn (common-lisp:defun describe-recovery-point @@ -17582,16 +17605,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/recovery-points/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)) - (quri.encode:url-encode + 'backup-vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-point-arn)))) + 'recovery-point-arn) + common-lisp:t))) "DescribeRecoveryPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recovery-point)) (common-lisp:progn (common-lisp:defun describe-region-settings () @@ -17622,12 +17647,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/audit/report-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'report-job-id)))) + 'report-job-id) + common-lisp:t))) "DescribeReportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-report-job)) (common-lisp:progn (common-lisp:defun describe-report-plan @@ -17649,12 +17675,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/audit/report-plans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'report-plan-name)))) + 'report-plan-name) + common-lisp:t))) "DescribeReportPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-report-plan)) (common-lisp:progn (common-lisp:defun describe-restore-job @@ -17676,12 +17703,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-job-id)))) + 'restore-job-id) + common-lisp:t))) "DescribeRestoreJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-restore-job)) (common-lisp:progn (common-lisp:defun disassociate-recovery-point @@ -17705,16 +17733,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/recovery-points/~A/disassociate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)) - (quri.encode:url-encode + 'backup-vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-point-arn)))) + 'recovery-point-arn) + common-lisp:t))) "DisassociateRecoveryPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-recovery-point)) (common-lisp:progn (common-lisp:defun disassociate-recovery-point-from-parent @@ -17738,16 +17768,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/recovery-points/~A/parentAssociation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)) - (quri.encode:url-encode + 'backup-vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-point-arn)))) + 'recovery-point-arn) + common-lisp:t))) "DisassociateRecoveryPointFromParent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-recovery-point-from-parent)) (common-lisp:progn (common-lisp:defun export-backup-plan-template @@ -17770,12 +17802,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A/toTemplate/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)))) + 'backup-plan-id) + common-lisp:t))) "ExportBackupPlanTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-backup-plan-template)) (common-lisp:progn (common-lisp:defun get-backup-plan @@ -17797,12 +17830,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)))) + 'backup-plan-id) + common-lisp:t))) "GetBackupPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backup-plan)) (common-lisp:progn (common-lisp:defun get-backup-plan-from-json @@ -17820,7 +17854,7 @@ common-lisp:nil "POST" "/backup/template/json/toPlan" "GetBackupPlanFromJSON")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backup-plan-from-json)) (common-lisp:progn (common-lisp:defun get-backup-plan-from-template @@ -17843,12 +17877,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/template/plans/~A/toPlan" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "GetBackupPlanFromTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backup-plan-from-template)) (common-lisp:progn (common-lisp:defun get-backup-selection @@ -17870,16 +17905,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A/selections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)) - (quri.encode:url-encode + 'backup-plan-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'selection-id)))) + 'selection-id) + common-lisp:t))) "GetBackupSelection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backup-selection)) (common-lisp:progn (common-lisp:defun get-backup-vault-access-policy @@ -17902,12 +17939,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/access-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "GetBackupVaultAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backup-vault-access-policy)) (common-lisp:progn (common-lisp:defun get-backup-vault-notifications @@ -17930,12 +17968,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/notification-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "GetBackupVaultNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-backup-vault-notifications)) (common-lisp:progn (common-lisp:defun get-legal-hold @@ -17957,12 +17996,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/legal-holds/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'legal-hold-id)))) + 'legal-hold-id) + common-lisp:t))) "GetLegalHold")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-legal-hold)) (common-lisp:progn (common-lisp:defun get-recovery-point-restore-metadata @@ -17988,16 +18028,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/recovery-points/~A/restore-metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)) - (quri.encode:url-encode + 'backup-vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-point-arn)))) + 'recovery-point-arn) + common-lisp:t))) "GetRecoveryPointRestoreMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recovery-point-restore-metadata)) (common-lisp:progn (common-lisp:defun get-restore-job-metadata @@ -18019,12 +18061,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-jobs/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-job-id)))) + 'restore-job-id) + common-lisp:t))) "GetRestoreJobMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-restore-job-metadata)) (common-lisp:progn (common-lisp:defun get-restore-testing-inferred-metadata @@ -18046,7 +18089,7 @@ common-lisp:nil "GET" "/restore-testing/inferred-metadata" "GetRestoreTestingInferredMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-restore-testing-inferred-metadata)) (common-lisp:progn (common-lisp:defun get-restore-testing-plan @@ -18068,12 +18111,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-testing/plans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-plan-name)))) + 'restore-testing-plan-name) + common-lisp:t))) "GetRestoreTestingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-restore-testing-plan)) (common-lisp:progn (common-lisp:defun get-restore-testing-selection @@ -18099,16 +18143,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-testing/plans/~A/selections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-plan-name)) - (quri.encode:url-encode + 'restore-testing-plan-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-selection-name)))) + 'restore-testing-selection-name) + common-lisp:t))) "GetRestoreTestingSelection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-restore-testing-selection)) (common-lisp:progn (common-lisp:defun get-supported-resource-types () @@ -18139,7 +18185,7 @@ common-lisp:nil "GET" "/audit/backup-job-summaries" "ListBackupJobSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backup-job-summaries)) (common-lisp:progn (common-lisp:defun list-backup-jobs @@ -18164,7 +18210,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/backup-jobs/" "ListBackupJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backup-jobs)) (common-lisp:progn (common-lisp:defun list-backup-plan-templates @@ -18182,7 +18228,7 @@ common-lisp:nil "GET" "/backup/template/plans" "ListBackupPlanTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backup-plan-templates)) (common-lisp:progn (common-lisp:defun list-backup-plan-versions @@ -18205,12 +18251,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A/versions/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)))) + 'backup-plan-id) + common-lisp:t))) "ListBackupPlanVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backup-plan-versions)) (common-lisp:progn (common-lisp:defun list-backup-plans @@ -18228,7 +18275,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/backup/plans/" "ListBackupPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backup-plans)) (common-lisp:progn (common-lisp:defun list-backup-selections @@ -18251,12 +18298,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A/selections/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)))) + 'backup-plan-id) + common-lisp:t))) "ListBackupSelections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backup-selections)) (common-lisp:progn (common-lisp:defun list-backup-vaults @@ -18275,7 +18323,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/backup-vaults/" "ListBackupVaults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backup-vaults)) (common-lisp:progn (common-lisp:defun list-copy-job-summaries @@ -18297,7 +18345,7 @@ common-lisp:nil "GET" "/audit/copy-job-summaries" "ListCopyJobSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-copy-job-summaries)) (common-lisp:progn (common-lisp:defun list-copy-jobs @@ -18322,7 +18370,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/copy-jobs/" "ListCopyJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-copy-jobs)) (common-lisp:progn (common-lisp:defun list-frameworks @@ -18340,7 +18388,7 @@ common-lisp:nil "GET" "/audit/frameworks" "ListFrameworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-frameworks)) (common-lisp:progn (common-lisp:defun list-legal-holds @@ -18357,7 +18405,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/legal-holds/" "ListLegalHolds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-legal-holds)) (common-lisp:progn (common-lisp:defun list-protected-resources @@ -18374,7 +18422,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/resources/" "ListProtectedResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-protected-resources)) (common-lisp:progn (common-lisp:defun list-protected-resources-by-backup-vault @@ -18400,12 +18448,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/resources/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "ListProtectedResourcesByBackupVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-protected-resources-by-backup-vault)) (common-lisp:progn (common-lisp:defun list-recovery-points-by-backup-vault @@ -18434,12 +18483,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/recovery-points/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "ListRecoveryPointsByBackupVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recovery-points-by-backup-vault)) (common-lisp:progn (common-lisp:defun list-recovery-points-by-legal-hold @@ -18463,12 +18513,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/legal-holds/~A/recovery-points" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'legal-hold-id)))) + 'legal-hold-id) + common-lisp:t))) "ListRecoveryPointsByLegalHold")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recovery-points-by-legal-hold)) (common-lisp:progn (common-lisp:defun list-recovery-points-by-resource @@ -18492,12 +18543,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/resources/~A/recovery-points/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListRecoveryPointsByResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recovery-points-by-resource)) (common-lisp:progn (common-lisp:defun list-report-jobs @@ -18518,7 +18570,7 @@ common-lisp:nil "GET" "/audit/report-jobs" "ListReportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-report-jobs)) (common-lisp:progn (common-lisp:defun list-report-plans @@ -18536,7 +18588,7 @@ common-lisp:nil "GET" "/audit/report-plans" "ListReportPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-report-plans)) (common-lisp:progn (common-lisp:defun list-restore-job-summaries @@ -18557,7 +18609,7 @@ common-lisp:nil "GET" "/audit/restore-job-summaries" "ListRestoreJobSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-restore-job-summaries)) (common-lisp:progn (common-lisp:defun list-restore-jobs @@ -18580,7 +18632,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/restore-jobs/" "ListRestoreJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-restore-jobs)) (common-lisp:progn (common-lisp:defun list-restore-jobs-by-protected-resource @@ -18609,12 +18661,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/resources/~A/restore-jobs/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListRestoreJobsByProtectedResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-restore-jobs-by-protected-resource)) (common-lisp:progn (common-lisp:defun list-restore-testing-plans @@ -18632,7 +18685,7 @@ common-lisp:nil "GET" "/restore-testing/plans" "ListRestoreTestingPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-restore-testing-plans)) (common-lisp:progn (common-lisp:defun list-restore-testing-selections @@ -18657,12 +18710,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-testing/plans/~A/selections" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-plan-name)))) + 'restore-testing-plan-name) + common-lisp:t))) "ListRestoreTestingSelections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-restore-testing-selections)) (common-lisp:progn (common-lisp:defun list-tags @@ -18685,12 +18739,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun put-backup-vault-access-policy @@ -18713,12 +18768,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/access-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "PutBackupVaultAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-backup-vault-access-policy)) (common-lisp:progn (common-lisp:defun put-backup-vault-lock-configuration @@ -18744,12 +18800,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/vault-lock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "PutBackupVaultLockConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-backup-vault-lock-configuration)) (common-lisp:progn (common-lisp:defun put-backup-vault-notifications @@ -18774,12 +18831,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/notification-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)))) + 'backup-vault-name) + common-lisp:t))) "PutBackupVaultNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-backup-vault-notifications)) (common-lisp:progn (common-lisp:defun put-restore-validation-result @@ -18805,12 +18863,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-jobs/~A/validations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-job-id)))) + 'restore-job-id) + common-lisp:t))) "PutRestoreValidationResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-restore-validation-result)) (common-lisp:progn (common-lisp:defun start-backup-job @@ -18833,7 +18892,7 @@ common-lisp:nil aws-sdk/generator/operation::input "PUT" "/backup-jobs" "StartBackupJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-backup-job)) (common-lisp:progn (common-lisp:defun start-copy-job @@ -18854,7 +18913,7 @@ common-lisp:nil aws-sdk/generator/operation::input "PUT" "/copy-jobs" "StartCopyJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-copy-job)) (common-lisp:progn (common-lisp:defun start-report-job @@ -18877,12 +18936,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/audit/report-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'report-plan-name)))) + 'report-plan-name) + common-lisp:t))) "StartReportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-report-job)) (common-lisp:progn (common-lisp:defun start-restore-job @@ -18903,7 +18963,7 @@ common-lisp:nil aws-sdk/generator/operation::input "PUT" "/restore-jobs" "StartRestoreJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-restore-job)) (common-lisp:progn (common-lisp:defun stop-backup-job @@ -18925,12 +18985,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-job-id)))) + 'backup-job-id) + common-lisp:t))) "StopBackupJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-backup-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -18952,12 +19013,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -18979,12 +19041,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/untag/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-backup-plan @@ -19006,12 +19069,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup/plans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-plan-id)))) + 'backup-plan-id) + common-lisp:t))) "UpdateBackupPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-backup-plan)) (common-lisp:progn (common-lisp:defun update-framework @@ -19036,12 +19100,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/audit/frameworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'framework-name)))) + 'framework-name) + common-lisp:t))) "UpdateFramework")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-framework)) (common-lisp:progn (common-lisp:defun update-global-settings @@ -19059,7 +19124,7 @@ common-lisp:nil "PUT" "/global-settings" "UpdateGlobalSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-global-settings)) (common-lisp:progn (common-lisp:defun update-recovery-point-lifecycle @@ -19084,16 +19149,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-vaults/~A/recovery-points/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-vault-name)) - (quri.encode:url-encode + 'backup-vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-point-arn)))) + 'recovery-point-arn) + common-lisp:t))) "UpdateRecoveryPointLifecycle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-recovery-point-lifecycle)) (common-lisp:progn (common-lisp:defun update-region-settings @@ -19114,7 +19181,7 @@ common-lisp:nil "PUT" "/account-settings" "UpdateRegionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-region-settings)) (common-lisp:progn (common-lisp:defun update-report-plan @@ -19139,12 +19206,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/audit/report-plans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'report-plan-name)))) + 'report-plan-name) + common-lisp:t))) "UpdateReportPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-report-plan)) (common-lisp:progn (common-lisp:defun update-restore-testing-plan @@ -19169,12 +19237,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-testing/plans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-plan-name)))) + 'restore-testing-plan-name) + common-lisp:t))) "UpdateRestoreTestingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-restore-testing-plan)) (common-lisp:progn (common-lisp:defun update-restore-testing-selection @@ -19200,14 +19269,16 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-testing/plans/~A/selections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-plan-name)) - (quri.encode:url-encode + 'restore-testing-plan-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'restore-testing-selection-name)))) + 'restore-testing-selection-name) + common-lisp:t))) "UpdateRestoreTestingSelection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-restore-testing-selection)) diff --git a/services/backupstorage/api.lisp b/services/backupstorage/api.lisp index d47bbda9..f52c5fd9 100644 --- a/services/backupstorage/api.lisp +++ b/services/backupstorage/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/backupstorage/api - (:use) - (:nicknames #:aws/backupstorage) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/backupstorage/api (:use) + (:nicknames #:aws/backupstorage) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/backupstorage/api) (common-lisp:progn (common-lisp:define-condition backupstorage-error @@ -20,7 +19,7 @@ (common-lisp:export 'backupstorage-error)) (common-lisp:progn (common-lisp:defclass backupstorage-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "backupstorage" :api-version "2018-04-10" :host-prefix "backupstorage" :signing-name @@ -357,16 +356,22 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'length)) - (common-lisp:cons "x-amz-data-length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-checksum" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-checksum-algorithm" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-chunk-output)) (common-lisp:append @@ -379,7 +384,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-chunk-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'data))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'data)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-chunk-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-object-metadata-input common-lisp:nil ((storage-job-id :initarg :storage-job-id :initform @@ -476,24 +485,32 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-string)) - (common-lisp:cons "x-amz-metadata-string" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-metadata-string" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-blob-length)) - (common-lisp:cons "x-amz-data-length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-blob-checksum)) - (common-lisp:cons "x-amz-checksum" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-blob-checksum-algorithm)) - (common-lisp:cons "x-amz-checksum-algorithm" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -510,7 +527,13 @@ ( (aws-sdk/generator/shape::input get-object-metadata-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-blob))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-blob)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-object-metadata-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:define-condition illegal-argument-exception (backupstorage-error) @@ -836,7 +859,13 @@ ( (aws-sdk/generator/shape::input notify-object-complete-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-blob))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-blob)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + notify-object-complete-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass notify-object-complete-output common-lisp:nil ((object-checksum :initarg :object-checksum :initform @@ -977,7 +1006,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-chunk-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'data))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'data)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-chunk-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-chunk-output common-lisp:nil ((chunk-checksum :initarg :chunk-checksum :initform @@ -1124,7 +1157,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-object-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'inline-chunk))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'inline-chunk)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-object-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-object-output common-lisp:nil ((inline-chunk-checksum :initarg :inline-chunk-checksum @@ -1353,16 +1390,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-jobs/~A/object/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'object-name)))) + 'object-name) + common-lisp:t))) "DeleteObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-object)) (common-lisp:progn (common-lisp:defun get-chunk @@ -1384,17 +1423,19 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-jobs/~A/chunk/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'chunk-token)))) + 'chunk-token) + common-lisp:t))) "GetChunk") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-chunk)) (common-lisp:progn (common-lisp:defun get-object-metadata @@ -1416,17 +1457,19 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-jobs/~A/object/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'object-token)))) + 'object-token) + common-lisp:t))) "GetObjectMetadata") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-object-metadata)) (common-lisp:progn (common-lisp:defun list-chunks @@ -1450,16 +1493,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-jobs/~A/chunks/~A/list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'object-token)))) + 'object-token) + common-lisp:t))) "ListChunks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-chunks)) (common-lisp:progn (common-lisp:defun list-objects @@ -1486,12 +1531,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/restore-jobs/~A/objects/list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "ListObjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-objects)) (common-lisp:progn (common-lisp:defun notify-object-complete @@ -1520,16 +1566,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-jobs/~A/object/~A/complete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "NotifyObjectComplete")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-object-complete)) (common-lisp:progn (common-lisp:defun put-chunk @@ -1554,20 +1602,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-jobs/~A/chunk/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)) - (quri.encode:url-encode + 'upload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'chunk-index)))) + 'chunk-index) + common-lisp:t))) "PutChunk")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-chunk)) (common-lisp:progn (common-lisp:defun put-object @@ -1596,16 +1647,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-jobs/~A/object/~A/put-object" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'object-name)))) + 'object-name) + common-lisp:t))) "PutObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-object)) (common-lisp:progn (common-lisp:defun start-object @@ -1629,14 +1682,16 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/backup-jobs/~A/object/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'object-name)))) + 'object-name) + common-lisp:t))) "StartObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-object)) diff --git a/services/batch/api.lisp b/services/batch/api.lisp index e227bc5a..67684c46 100644 --- a/services/batch/api.lisp +++ b/services/batch/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/batch/api - (:use) - (:nicknames #:aws/batch) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/batch/api (:use) + (:nicknames #:aws/batch) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/batch/api) (common-lisp:progn (common-lisp:define-condition batch-error @@ -20,7 +19,7 @@ (common-lisp:export 'batch-error)) (common-lisp:progn (common-lisp:defclass batch-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "batch" :api-version "2016-08-10" :host-prefix "batch" :signing-name @@ -11058,7 +11057,7 @@ aws-sdk/generator/operation::input "POST" "/v1/canceljob" "CancelJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job)) (common-lisp:progn (common-lisp:defun create-compute-environment @@ -11081,7 +11080,7 @@ "POST" "/v1/createcomputeenvironment" "CreateComputeEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-compute-environment)) (common-lisp:progn (common-lisp:defun create-job-queue @@ -11103,7 +11102,7 @@ "POST" "/v1/createjobqueue" "CreateJobQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job-queue)) (common-lisp:progn (common-lisp:defun create-scheduling-policy @@ -11121,7 +11120,7 @@ "POST" "/v1/createschedulingpolicy" "CreateSchedulingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-scheduling-policy)) (common-lisp:progn (common-lisp:defun delete-compute-environment @@ -11140,7 +11139,7 @@ "POST" "/v1/deletecomputeenvironment" "DeleteComputeEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-compute-environment)) (common-lisp:progn (common-lisp:defun delete-job-queue @@ -11158,7 +11157,7 @@ "POST" "/v1/deletejobqueue" "DeleteJobQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job-queue)) (common-lisp:progn (common-lisp:defun delete-scheduling-policy @@ -11176,7 +11175,7 @@ "POST" "/v1/deleteschedulingpolicy" "DeleteSchedulingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scheduling-policy)) (common-lisp:progn (common-lisp:defun deregister-job-definition @@ -11195,7 +11194,7 @@ "POST" "/v1/deregisterjobdefinition" "DeregisterJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-job-definition)) (common-lisp:progn (common-lisp:defun describe-compute-environments @@ -11216,7 +11215,7 @@ "POST" "/v1/describecomputeenvironments" "DescribeComputeEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-compute-environments)) (common-lisp:progn (common-lisp:defun describe-job-definitions @@ -11237,7 +11236,7 @@ "POST" "/v1/describejobdefinitions" "DescribeJobDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-definitions)) (common-lisp:progn (common-lisp:defun describe-job-queues @@ -11256,7 +11255,7 @@ "POST" "/v1/describejobqueues" "DescribeJobQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-queues)) (common-lisp:progn (common-lisp:defun describe-jobs @@ -11274,7 +11273,7 @@ "POST" "/v1/describejobs" "DescribeJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-jobs)) (common-lisp:progn (common-lisp:defun describe-scheduling-policies @@ -11293,7 +11292,7 @@ "POST" "/v1/describeschedulingpolicies" "DescribeSchedulingPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scheduling-policies)) (common-lisp:progn (common-lisp:defun list-jobs @@ -11313,7 +11312,7 @@ aws-sdk/generator/operation::input "POST" "/v1/listjobs" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-scheduling-policies @@ -11331,7 +11330,7 @@ "POST" "/v1/listschedulingpolicies" "ListSchedulingPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scheduling-policies)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11353,12 +11352,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun register-job-definition @@ -11383,7 +11383,7 @@ "POST" "/v1/registerjobdefinition" "RegisterJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-job-definition)) (common-lisp:progn (common-lisp:defun submit-job @@ -11409,7 +11409,7 @@ aws-sdk/generator/operation::input "POST" "/v1/submitjob" "SubmitJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'submit-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -11431,12 +11431,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun terminate-job @@ -11454,7 +11455,7 @@ "POST" "/v1/terminatejob" "TerminateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-job)) (common-lisp:progn (common-lisp:defun untag-resource @@ -11476,12 +11477,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-compute-environment @@ -11503,7 +11505,7 @@ "POST" "/v1/updatecomputeenvironment" "UpdateComputeEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-compute-environment)) (common-lisp:progn (common-lisp:defun update-job-queue @@ -11525,7 +11527,7 @@ "POST" "/v1/updatejobqueue" "UpdateJobQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-job-queue)) (common-lisp:progn (common-lisp:defun update-scheduling-policy @@ -11543,5 +11545,5 @@ "POST" "/v1/updateschedulingpolicy" "UpdateSchedulingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-scheduling-policy)) diff --git a/services/bcm-data-exports/api.lisp b/services/bcm-data-exports/api.lisp index 68c37654..41823049 100644 --- a/services/bcm-data-exports/api.lisp +++ b/services/bcm-data-exports/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/bcm-data-exports/api - (:use) - (:nicknames #:aws/bcm-data-exports) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/bcm-data-exports/api (:use) + (:nicknames #:aws/bcm-data-exports) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/bcm-data-exports/api) (common-lisp:progn (common-lisp:define-condition bcm-data-exports-error @@ -2280,7 +2279,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "CreateExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-export)) (common-lisp:progn (common-lisp:defun delete-export @@ -2296,7 +2295,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "DeleteExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-export)) (common-lisp:progn (common-lisp:defun get-execution @@ -2312,7 +2311,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "GetExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-execution)) (common-lisp:progn (common-lisp:defun get-export @@ -2328,7 +2327,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "GetExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-export)) (common-lisp:progn (common-lisp:defun get-table @@ -2344,7 +2343,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "GetTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table)) (common-lisp:progn (common-lisp:defun list-executions @@ -2361,7 +2360,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "ListExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-executions)) (common-lisp:progn (common-lisp:defun list-exports @@ -2377,7 +2376,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "ListExports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-exports)) (common-lisp:progn (common-lisp:defun list-tables @@ -2393,7 +2392,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "ListTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tables)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2410,7 +2409,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2426,7 +2425,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2442,7 +2441,7 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-export @@ -2458,5 +2457,5 @@ (aws-sdk/generator/shape:make-request-with-input 'bcm-data-exports-request aws-sdk/generator/operation::input "POST" "/" "UpdateExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-export)) diff --git a/services/bedrock-agent-runtime/api.lisp b/services/bedrock-agent-runtime/api.lisp index 86c09627..11236238 100644 --- a/services/bedrock-agent-runtime/api.lisp +++ b/services/bedrock-agent-runtime/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/bedrock-agent-runtime/api - (:use) - (:nicknames #:aws/bedrock-agent-runtime) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/bedrock-agent-runtime/api + (:use) (:nicknames #:aws/bedrock-agent-runtime) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/bedrock-agent-runtime/api) (common-lisp:progn (common-lisp:define-condition bedrock-agent-runtime-error @@ -20,7 +19,7 @@ (common-lisp:export 'bedrock-agent-runtime-error)) (common-lisp:progn (common-lisp:defclass bedrock-agent-runtime-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "bedrock-agent-runtime" :api-version "2023-07-26" :host-prefix @@ -721,13 +720,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "x-amzn-bedrock-agent-content-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-bedrock-agent-content-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amz-bedrock-agent-session-id" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-bedrock-agent-session-id" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -744,7 +747,13 @@ ( (aws-sdk/generator/shape::input invoke-agent-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'completion))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'completion)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-agent-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype kms-key-arn () 'common-lisp:string) (common-lisp:deftype knowledge-base-id () 'common-lisp:string) (common-lisp:progn @@ -3146,19 +3155,21 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/agents/~A/agentAliases/~A/sessions/~A/text" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'agent-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-alias-id)) - (quri.encode:url-encode + 'agent-alias-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'session-id)))) + aws-sdk/generator/operation::input 'session-id) + common-lisp:t))) "InvokeAgent")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-agent)) (common-lisp:progn (common-lisp:defun retrieve @@ -3179,12 +3190,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/knowledgebases/~A/retrieve" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "Retrieve")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retrieve)) (common-lisp:progn (common-lisp:defun retrieve-and-generate @@ -3203,5 +3215,5 @@ (aws-sdk/generator/shape:make-request-with-input 'bedrock-agent-runtime-request aws-sdk/generator/operation::input "POST" "/retrieveAndGenerate" "RetrieveAndGenerate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retrieve-and-generate)) diff --git a/services/bedrock-agent/api.lisp b/services/bedrock-agent/api.lisp index 0012215f..f5d82f30 100644 --- a/services/bedrock-agent/api.lisp +++ b/services/bedrock-agent/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/bedrock-agent/api - (:use) - (:nicknames #:aws/bedrock-agent) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/bedrock-agent/api (:use) + (:nicknames #:aws/bedrock-agent) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/bedrock-agent/api) (common-lisp:progn (common-lisp:define-condition bedrock-agent-error @@ -20,7 +19,7 @@ (common-lisp:export 'bedrock-agent-error)) (common-lisp:progn (common-lisp:defclass bedrock-agent-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "bedrock-agent" :api-version "2023-06-05" :host-prefix "bedrock-agent" :signing-name @@ -8936,16 +8935,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/knowledgebases/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)))) + 'agent-version) + common-lisp:t))) "AssociateAgentKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-agent-knowledge-base)) (common-lisp:progn (common-lisp:defun create-agent @@ -8968,7 +8969,7 @@ aws-sdk/generator/operation::input "PUT" "/agents/" "CreateAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-agent)) (common-lisp:progn (common-lisp:defun create-agent-action-group @@ -8996,16 +8997,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/actiongroups/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)))) + 'agent-version) + common-lisp:t))) "CreateAgentActionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-agent-action-group)) (common-lisp:progn (common-lisp:defun create-agent-alias @@ -9030,12 +9033,13 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentaliases/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "CreateAgentAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-agent-alias)) (common-lisp:progn (common-lisp:defun create-data-source @@ -9063,12 +9067,13 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A/datasources/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "CreateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-source)) (common-lisp:progn (common-lisp:defun create-knowledge-base @@ -9089,7 +9094,7 @@ "PUT" "/knowledgebases/" "CreateKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-knowledge-base)) (common-lisp:progn (common-lisp:defun delete-agent @@ -9112,12 +9117,13 @@ (common-lisp:format common-lisp:nil "/agents/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "DeleteAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-agent)) (common-lisp:progn (common-lisp:defun delete-agent-action-group @@ -9143,20 +9149,23 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/actiongroups/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)) - (quri.encode:url-encode + 'agent-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-group-id)))) + 'action-group-id) + common-lisp:t))) "DeleteAgentActionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-agent-action-group)) (common-lisp:progn (common-lisp:defun delete-agent-alias @@ -9178,16 +9187,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentaliases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-alias-id)))) + 'agent-alias-id) + common-lisp:t))) "DeleteAgentAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-agent-alias)) (common-lisp:progn (common-lisp:defun delete-agent-version @@ -9211,16 +9222,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)))) + 'agent-version) + common-lisp:t))) "DeleteAgentVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-agent-version)) (common-lisp:progn (common-lisp:defun delete-data-source @@ -9243,16 +9256,18 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "DeleteDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-source)) (common-lisp:progn (common-lisp:defun delete-knowledge-base @@ -9274,12 +9289,13 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "DeleteKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-knowledge-base)) (common-lisp:progn (common-lisp:defun disassociate-agent-knowledge-base @@ -9303,20 +9319,23 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/knowledgebases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)) - (quri.encode:url-encode + 'agent-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "DisassociateAgentKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-agent-knowledge-base)) (common-lisp:progn (common-lisp:defun get-agent @@ -9338,12 +9357,13 @@ (common-lisp:format common-lisp:nil "/agents/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "GetAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-agent)) (common-lisp:progn (common-lisp:defun get-agent-action-group @@ -9366,20 +9386,23 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/actiongroups/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)) - (quri.encode:url-encode + 'agent-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-group-id)))) + 'action-group-id) + common-lisp:t))) "GetAgentActionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-agent-action-group)) (common-lisp:progn (common-lisp:defun get-agent-alias @@ -9401,16 +9424,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentaliases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-alias-id)))) + 'agent-alias-id) + common-lisp:t))) "GetAgentAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-agent-alias)) (common-lisp:progn (common-lisp:defun get-agent-knowledge-base @@ -9433,20 +9458,23 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/knowledgebases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)) - (quri.encode:url-encode + 'agent-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "GetAgentKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-agent-knowledge-base)) (common-lisp:progn (common-lisp:defun get-agent-version @@ -9468,16 +9496,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)))) + 'agent-version) + common-lisp:t))) "GetAgentVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-agent-version)) (common-lisp:progn (common-lisp:defun get-data-source @@ -9500,16 +9530,18 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "GetDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-source)) (common-lisp:progn (common-lisp:defun get-ingestion-job @@ -9533,20 +9565,23 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A/datasources/~A/ingestionjobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)) - (quri.encode:url-encode + 'data-source-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-job-id)))) + 'ingestion-job-id) + common-lisp:t))) "GetIngestionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ingestion-job)) (common-lisp:progn (common-lisp:defun get-knowledge-base @@ -9568,12 +9603,13 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "GetKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-knowledge-base)) (common-lisp:progn (common-lisp:defun list-agent-action-groups @@ -9597,16 +9633,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/actiongroups/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)))) + 'agent-version) + common-lisp:t))) "ListAgentActionGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-agent-action-groups)) (common-lisp:progn (common-lisp:defun list-agent-aliases @@ -9629,12 +9667,13 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentaliases/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "ListAgentAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-agent-aliases)) (common-lisp:progn (common-lisp:defun list-agent-knowledge-bases @@ -9659,16 +9698,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/knowledgebases/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)))) + 'agent-version) + common-lisp:t))) "ListAgentKnowledgeBases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-agent-knowledge-bases)) (common-lisp:progn (common-lisp:defun list-agent-versions @@ -9691,12 +9732,13 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "ListAgentVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-agent-versions)) (common-lisp:progn (common-lisp:defun list-agents @@ -9713,7 +9755,7 @@ aws-sdk/generator/operation::input "POST" "/agents/" "ListAgents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-agents)) (common-lisp:progn (common-lisp:defun list-data-sources @@ -9736,12 +9778,13 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A/datasources/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "ListDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sources)) (common-lisp:progn (common-lisp:defun list-ingestion-jobs @@ -9766,16 +9809,18 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A/datasources/~A/ingestionjobs/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "ListIngestionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ingestion-jobs)) (common-lisp:progn (common-lisp:defun list-knowledge-bases @@ -9793,7 +9838,7 @@ "POST" "/knowledgebases/" "ListKnowledgeBases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-knowledge-bases)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9815,12 +9860,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun prepare-agent @@ -9842,12 +9888,13 @@ (common-lisp:format common-lisp:nil "/agents/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "PrepareAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'prepare-agent)) (common-lisp:progn (common-lisp:defun start-ingestion-job @@ -9872,16 +9919,18 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A/datasources/~A/ingestionjobs/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "StartIngestionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-ingestion-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9903,12 +9952,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9930,12 +9980,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-agent @@ -9963,12 +10014,13 @@ (common-lisp:format common-lisp:nil "/agents/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "UpdateAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-agent)) (common-lisp:progn (common-lisp:defun update-agent-action-group @@ -9997,20 +10049,23 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/actiongroups/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)) - (quri.encode:url-encode + 'agent-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-group-id)))) + 'action-group-id) + common-lisp:t))) "UpdateAgentActionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-agent-action-group)) (common-lisp:progn (common-lisp:defun update-agent-alias @@ -10035,16 +10090,18 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentaliases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-alias-id)))) + 'agent-alias-id) + common-lisp:t))) "UpdateAgentAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-agent-alias)) (common-lisp:progn (common-lisp:defun update-agent-knowledge-base @@ -10070,20 +10127,23 @@ (common-lisp:format common-lisp:nil "/agents/~A/agentversions/~A/knowledgebases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)) - (quri.encode:url-encode + 'agent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-version)) - (quri.encode:url-encode + 'agent-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "UpdateAgentKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-agent-knowledge-base)) (common-lisp:progn (common-lisp:defun update-data-source @@ -10111,16 +10171,18 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "UpdateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source)) (common-lisp:progn (common-lisp:defun update-knowledge-base @@ -10146,10 +10208,11 @@ (common-lisp:format common-lisp:nil "/knowledgebases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "UpdateKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-knowledge-base)) diff --git a/services/bedrock-runtime/api.lisp b/services/bedrock-runtime/api.lisp index ba2131fe..86d7d9de 100644 --- a/services/bedrock-runtime/api.lisp +++ b/services/bedrock-runtime/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/bedrock-runtime/api - (:use) - (:nicknames #:aws/bedrock-runtime) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/bedrock-runtime/api (:use) + (:nicknames #:aws/bedrock-runtime) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/bedrock-runtime/api) (common-lisp:progn (common-lisp:define-condition bedrock-runtime-error @@ -20,7 +19,7 @@ (common-lisp:export 'bedrock-runtime-error)) (common-lisp:progn (common-lisp:defclass bedrock-runtime-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "bedrock-runtime" :api-version "2023-09-30" :host-prefix @@ -95,11 +94,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input invoke-model-request)) (common-lisp:append @@ -112,7 +115,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input invoke-model-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input invoke-model-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-model-response common-lisp:nil ((body :initarg :body :initform @@ -142,7 +149,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -159,7 +168,13 @@ ( (aws-sdk/generator/shape::input invoke-model-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-model-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-model-with-response-stream-request common-lisp:nil @@ -206,12 +221,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "X-Amzn-Bedrock-Accept" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Bedrock-Accept" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -228,7 +247,13 @@ ( (aws-sdk/generator/shape::input invoke-model-with-response-stream-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-model-with-response-stream-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-model-with-response-stream-response common-lisp:nil @@ -262,8 +287,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "X-Amzn-Bedrock-Content-Type" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Bedrock-Content-Type" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -280,7 +307,13 @@ ( (aws-sdk/generator/shape::input invoke-model-with-response-stream-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-model-with-response-stream-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype mime-type () 'common-lisp:string) (common-lisp:progn (common-lisp:define-condition model-error-exception @@ -514,13 +547,13 @@ 'bedrock-runtime-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/model/~A/invoke" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'model-id)))) + aws-sdk/generator/operation::input 'model-id) + common-lisp:t))) "InvokeModel") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-model)) (common-lisp:progn (common-lisp:defun invoke-model-with-response-stream @@ -540,10 +573,10 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/model/~A/invoke-with-response-stream" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'model-id)))) + aws-sdk/generator/operation::input 'model-id) + common-lisp:t))) "InvokeModelWithResponseStream")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-model-with-response-stream)) diff --git a/services/bedrock/api.lisp b/services/bedrock/api.lisp index b2318988..da06dcd1 100644 --- a/services/bedrock/api.lisp +++ b/services/bedrock/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/bedrock/api - (:use) - (:nicknames #:aws/bedrock) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/bedrock/api (:use) + (:nicknames #:aws/bedrock) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/bedrock/api) (common-lisp:progn (common-lisp:define-condition bedrock-error @@ -20,7 +19,7 @@ (common-lisp:export 'bedrock-error)) (common-lisp:progn (common-lisp:defclass bedrock-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "bedrock" :api-version "2023-04-20" :host-prefix "bedrock" :signing-name @@ -4205,7 +4204,7 @@ "POST" "/model-customization-jobs" "CreateModelCustomizationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-customization-job)) (common-lisp:progn (common-lisp:defun create-provisioned-model-throughput @@ -4227,7 +4226,7 @@ "POST" "/provisioned-model-throughput" "CreateProvisionedModelThroughput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-provisioned-model-throughput)) (common-lisp:progn (common-lisp:defun delete-custom-model @@ -4249,12 +4248,13 @@ (common-lisp:format common-lisp:nil "/custom-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-identifier)))) + 'model-identifier) + common-lisp:t))) "DeleteCustomModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-model)) (common-lisp:progn (common-lisp:defun delete-model-invocation-logging-configuration () @@ -4286,12 +4286,13 @@ (common-lisp:format common-lisp:nil "/provisioned-model-throughput/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'provisioned-model-id)))) + 'provisioned-model-id) + common-lisp:t))) "DeleteProvisionedModelThroughput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-provisioned-model-throughput)) (common-lisp:progn (common-lisp:defun get-custom-model @@ -4313,12 +4314,13 @@ (common-lisp:format common-lisp:nil "/custom-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-identifier)))) + 'model-identifier) + common-lisp:t))) "GetCustomModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-custom-model)) (common-lisp:progn (common-lisp:defun get-foundation-model @@ -4340,12 +4342,13 @@ (common-lisp:format common-lisp:nil "/foundation-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-identifier)))) + 'model-identifier) + common-lisp:t))) "GetFoundationModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-foundation-model)) (common-lisp:progn (common-lisp:defun get-model-customization-job @@ -4368,12 +4371,13 @@ (common-lisp:format common-lisp:nil "/model-customization-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-identifier)))) + 'job-identifier) + common-lisp:t))) "GetModelCustomizationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-model-customization-job)) (common-lisp:progn (common-lisp:defun get-model-invocation-logging-configuration () @@ -4405,12 +4409,13 @@ (common-lisp:format common-lisp:nil "/provisioned-model-throughput/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'provisioned-model-id)))) + 'provisioned-model-id) + common-lisp:t))) "GetProvisionedModelThroughput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-provisioned-model-throughput)) (common-lisp:progn (common-lisp:defun list-custom-models @@ -4433,7 +4438,7 @@ aws-sdk/generator/operation::input "GET" "/custom-models" "ListCustomModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-models)) (common-lisp:progn (common-lisp:defun list-foundation-models @@ -4454,7 +4459,7 @@ "GET" "/foundation-models" "ListFoundationModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-foundation-models)) (common-lisp:progn (common-lisp:defun list-model-customization-jobs @@ -4477,7 +4482,7 @@ "GET" "/model-customization-jobs" "ListModelCustomizationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-customization-jobs)) (common-lisp:progn (common-lisp:defun list-provisioned-model-throughputs @@ -4501,7 +4506,7 @@ "GET" "/provisioned-model-throughputs" "ListProvisionedModelThroughputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provisioned-model-throughputs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4519,7 +4524,7 @@ "POST" "/listTagsForResource" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-model-invocation-logging-configuration @@ -4538,7 +4543,7 @@ "PUT" "/logging/modelinvocations" "PutModelInvocationLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-model-invocation-logging-configuration)) (common-lisp:progn (common-lisp:defun stop-model-customization-job @@ -4561,12 +4566,13 @@ (common-lisp:format common-lisp:nil "/model-customization-jobs/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-identifier)))) + 'job-identifier) + common-lisp:t))) "StopModelCustomizationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-model-customization-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4583,7 +4589,7 @@ aws-sdk/generator/operation::input "POST" "/tagResource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4600,7 +4606,7 @@ aws-sdk/generator/operation::input "POST" "/untagResource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-provisioned-model-throughput @@ -4626,10 +4632,11 @@ (common-lisp:format common-lisp:nil "/provisioned-model-throughput/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'provisioned-model-id)))) + 'provisioned-model-id) + common-lisp:t))) "UpdateProvisionedModelThroughput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-provisioned-model-throughput)) diff --git a/services/billingconductor/api.lisp b/services/billingconductor/api.lisp index d3307a76..c99e23ef 100644 --- a/services/billingconductor/api.lisp +++ b/services/billingconductor/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/billingconductor/api - (:use) - (:nicknames #:aws/billingconductor) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/billingconductor/api (:use) + (:nicknames #:aws/billingconductor) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/billingconductor/api) (common-lisp:progn (common-lisp:define-condition billingconductor-error @@ -20,7 +19,7 @@ (common-lisp:export 'billingconductor-error)) (common-lisp:progn (common-lisp:defclass billingconductor-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "billingconductor" :api-version "2021-07-30" :host-prefix @@ -1445,8 +1444,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1616,8 +1616,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1807,8 +1808,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1979,8 +1981,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7949,7 +7952,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/associate-accounts" "AssociateAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-accounts)) (common-lisp:progn (common-lisp:defun associate-pricing-rules @@ -7965,7 +7968,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "PUT" "/associate-pricing-rules" "AssociatePricingRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-pricing-rules)) (common-lisp:progn (common-lisp:defun batch-associate-resources-to-custom-line-item @@ -7985,7 +7988,7 @@ 'billingconductor-request aws-sdk/generator/operation::input "PUT" "/batch-associate-resources-to-custom-line-item" "BatchAssociateResourcesToCustomLineItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-resources-to-custom-line-item)) (common-lisp:progn (common-lisp:defun batch-disassociate-resources-from-custom-line-item @@ -8005,7 +8008,7 @@ 'billingconductor-request aws-sdk/generator/operation::input "PUT" "/batch-disassociate-resources-from-custom-line-item" "BatchDisassociateResourcesFromCustomLineItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-resources-from-custom-line-item)) (common-lisp:progn (common-lisp:defun create-billing-group @@ -8025,7 +8028,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/create-billing-group" "CreateBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-billing-group)) (common-lisp:progn (common-lisp:defun create-custom-line-item @@ -8045,7 +8048,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/create-custom-line-item" "CreateCustomLineItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-line-item)) (common-lisp:progn (common-lisp:defun create-pricing-plan @@ -8064,7 +8067,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/create-pricing-plan" "CreatePricingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pricing-plan)) (common-lisp:progn (common-lisp:defun create-pricing-rule @@ -8085,7 +8088,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/create-pricing-rule" "CreatePricingRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pricing-rule)) (common-lisp:progn (common-lisp:defun delete-billing-group @@ -8101,7 +8104,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/delete-billing-group" "DeleteBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-billing-group)) (common-lisp:progn (common-lisp:defun delete-custom-line-item @@ -8117,7 +8120,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/delete-custom-line-item" "DeleteCustomLineItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-line-item)) (common-lisp:progn (common-lisp:defun delete-pricing-plan @@ -8133,7 +8136,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/delete-pricing-plan" "DeletePricingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pricing-plan)) (common-lisp:progn (common-lisp:defun delete-pricing-rule @@ -8149,7 +8152,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/delete-pricing-rule" "DeletePricingRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pricing-rule)) (common-lisp:progn (common-lisp:defun disassociate-accounts @@ -8165,7 +8168,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/disassociate-accounts" "DisassociateAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-accounts)) (common-lisp:progn (common-lisp:defun disassociate-pricing-rules @@ -8181,7 +8184,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "PUT" "/disassociate-pricing-rules" "DisassociatePricingRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-pricing-rules)) (common-lisp:progn (common-lisp:defun get-billing-group-cost-report @@ -8201,7 +8204,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/get-billing-group-cost-report" "GetBillingGroupCostReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-billing-group-cost-report)) (common-lisp:progn (common-lisp:defun list-account-associations @@ -8218,7 +8221,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-account-associations" "ListAccountAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-associations)) (common-lisp:progn (common-lisp:defun list-billing-group-cost-reports @@ -8237,7 +8240,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-billing-group-cost-reports" "ListBillingGroupCostReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-billing-group-cost-reports)) (common-lisp:progn (common-lisp:defun list-billing-groups @@ -8255,7 +8258,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-billing-groups" "ListBillingGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-billing-groups)) (common-lisp:progn (common-lisp:defun list-custom-line-item-versions @@ -8273,7 +8276,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-custom-line-item-versions" "ListCustomLineItemVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-line-item-versions)) (common-lisp:progn (common-lisp:defun list-custom-line-items @@ -8291,7 +8294,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-custom-line-items" "ListCustomLineItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-line-items)) (common-lisp:progn (common-lisp:defun list-pricing-plans @@ -8309,7 +8312,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-pricing-plans" "ListPricingPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pricing-plans)) (common-lisp:progn (common-lisp:defun list-pricing-plans-associated-with-pricing-rule @@ -8330,7 +8333,7 @@ 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-pricing-plans-associated-with-pricing-rule" "ListPricingPlansAssociatedWithPricingRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pricing-plans-associated-with-pricing-rule)) (common-lisp:progn (common-lisp:defun list-pricing-rules @@ -8348,7 +8351,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-pricing-rules" "ListPricingRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pricing-rules)) (common-lisp:progn (common-lisp:defun list-pricing-rules-associated-to-pricing-plan @@ -8369,7 +8372,7 @@ 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-pricing-rules-associated-to-pricing-plan" "ListPricingRulesAssociatedToPricingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pricing-rules-associated-to-pricing-plan)) (common-lisp:progn (common-lisp:defun list-resources-associated-to-custom-line-item @@ -8389,7 +8392,7 @@ 'billingconductor-request aws-sdk/generator/operation::input "POST" "/list-resources-associated-to-custom-line-item" "ListResourcesAssociatedToCustomLineItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources-associated-to-custom-line-item)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8406,12 +8409,13 @@ 'billingconductor-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8428,12 +8432,13 @@ 'billingconductor-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8450,12 +8455,13 @@ 'billingconductor-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-billing-group @@ -8474,7 +8480,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/update-billing-group" "UpdateBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-billing-group)) (common-lisp:progn (common-lisp:defun update-custom-line-item @@ -8493,7 +8499,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "POST" "/update-custom-line-item" "UpdateCustomLineItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-custom-line-item)) (common-lisp:progn (common-lisp:defun update-pricing-plan @@ -8509,7 +8515,7 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "PUT" "/update-pricing-plan" "UpdatePricingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pricing-plan)) (common-lisp:progn (common-lisp:defun update-pricing-rule @@ -8528,5 +8534,5 @@ (aws-sdk/generator/shape:make-request-with-input 'billingconductor-request aws-sdk/generator/operation::input "PUT" "/update-pricing-rule" "UpdatePricingRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pricing-rule)) diff --git a/services/braket/api.lisp b/services/braket/api.lisp index e733cc30..f1a9a346 100644 --- a/services/braket/api.lisp +++ b/services/braket/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/braket/api - (:use) - (:nicknames #:aws/braket) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/braket/api (:use) + (:nicknames #:aws/braket) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/braket/api) (common-lisp:progn (common-lisp:define-condition braket-error @@ -20,7 +19,7 @@ (common-lisp:export 'braket-error)) (common-lisp:progn (common-lisp:defclass braket-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "braket" :api-version "2019-09-01" :host-prefix "braket" :signing-name @@ -3585,12 +3584,13 @@ (common-lisp:format common-lisp:nil "/job/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-arn)))) + 'job-arn) + common-lisp:t))) "CancelJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job)) (common-lisp:progn (common-lisp:defun cancel-quantum-task @@ -3612,12 +3612,13 @@ (common-lisp:format common-lisp:nil "/quantum-task/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quantum-task-arn)))) + 'quantum-task-arn) + common-lisp:t))) "CancelQuantumTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-quantum-task)) (common-lisp:progn (common-lisp:defun create-job @@ -3642,7 +3643,7 @@ aws-sdk/generator/operation::input "POST" "/job" "CreateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun create-quantum-task @@ -3664,7 +3665,7 @@ aws-sdk/generator/operation::input "POST" "/quantum-task" "CreateQuantumTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-quantum-task)) (common-lisp:progn (common-lisp:defun get-device @@ -3686,12 +3687,13 @@ (common-lisp:format common-lisp:nil "/device/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-arn)))) + 'device-arn) + common-lisp:t))) "GetDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device)) (common-lisp:progn (common-lisp:defun get-job @@ -3714,12 +3716,13 @@ (common-lisp:format common-lisp:nil "/job/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-arn)))) + 'job-arn) + common-lisp:t))) "GetJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job)) (common-lisp:progn (common-lisp:defun get-quantum-task @@ -3743,12 +3746,13 @@ (common-lisp:format common-lisp:nil "/quantum-task/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quantum-task-arn)))) + 'quantum-task-arn) + common-lisp:t))) "GetQuantumTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-quantum-task)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3770,12 +3774,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun search-devices @@ -3792,7 +3797,7 @@ aws-sdk/generator/operation::input "POST" "/devices" "SearchDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-devices)) (common-lisp:progn (common-lisp:defun search-jobs @@ -3809,7 +3814,7 @@ aws-sdk/generator/operation::input "POST" "/jobs" "SearchJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-jobs)) (common-lisp:progn (common-lisp:defun search-quantum-tasks @@ -3826,7 +3831,7 @@ aws-sdk/generator/operation::input "POST" "/quantum-tasks" "SearchQuantumTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-quantum-tasks)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3848,12 +3853,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3875,10 +3881,11 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/budgets/api.lisp b/services/budgets/api.lisp index 7e1d5197..2e8afd62 100644 --- a/services/budgets/api.lisp +++ b/services/budgets/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/budgets/api - (:use) - (:nicknames #:aws/budgets) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/budgets/api (:use) + (:nicknames #:aws/budgets) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/budgets/api) (common-lisp:progn (common-lisp:define-condition budgets-error @@ -4798,7 +4797,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBudget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-budget)) (common-lisp:progn (common-lisp:defun create-budget-action @@ -4820,7 +4819,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBudgetAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-budget-action)) (common-lisp:progn (common-lisp:defun create-notification @@ -4839,7 +4838,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-notification)) (common-lisp:progn (common-lisp:defun create-subscriber @@ -4858,7 +4857,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSubscriber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subscriber)) (common-lisp:progn (common-lisp:defun delete-budget @@ -4875,7 +4874,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBudget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-budget)) (common-lisp:progn (common-lisp:defun delete-budget-action @@ -4893,7 +4892,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBudgetAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-budget-action)) (common-lisp:progn (common-lisp:defun delete-notification @@ -4911,7 +4910,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-notification)) (common-lisp:progn (common-lisp:defun delete-subscriber @@ -4930,7 +4929,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSubscriber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subscriber)) (common-lisp:progn (common-lisp:defun describe-budget @@ -4947,7 +4946,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBudget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-budget)) (common-lisp:progn (common-lisp:defun describe-budget-action @@ -4965,7 +4964,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBudgetAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-budget-action)) (common-lisp:progn (common-lisp:defun describe-budget-action-histories @@ -4986,7 +4985,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBudgetActionHistories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-budget-action-histories)) (common-lisp:progn (common-lisp:defun describe-budget-actions-for-account @@ -5005,7 +5004,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBudgetActionsForAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-budget-actions-for-account)) (common-lisp:progn (common-lisp:defun describe-budget-actions-for-budget @@ -5025,7 +5024,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBudgetActionsForBudget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-budget-actions-for-budget)) (common-lisp:progn (common-lisp:defun describe-budget-notifications-for-account @@ -5044,7 +5043,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBudgetNotificationsForAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-budget-notifications-for-account)) (common-lisp:progn (common-lisp:defun describe-budget-performance-history @@ -5065,7 +5064,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBudgetPerformanceHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-budget-performance-history)) (common-lisp:progn (common-lisp:defun describe-budgets @@ -5083,7 +5082,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBudgets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-budgets)) (common-lisp:progn (common-lisp:defun describe-notifications-for-budget @@ -5103,7 +5102,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNotificationsForBudget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-notifications-for-budget)) (common-lisp:progn (common-lisp:defun describe-subscribers-for-notification @@ -5124,7 +5123,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSubscribersForNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-subscribers-for-notification)) (common-lisp:progn (common-lisp:defun execute-budget-action @@ -5143,7 +5142,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecuteBudgetAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-budget-action)) (common-lisp:progn (common-lisp:defun update-budget @@ -5160,7 +5159,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateBudget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-budget)) (common-lisp:progn (common-lisp:defun update-budget-action @@ -5182,7 +5181,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateBudgetAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-budget-action)) (common-lisp:progn (common-lisp:defun update-notification @@ -5202,7 +5201,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-notification)) (common-lisp:progn (common-lisp:defun update-subscriber @@ -5222,5 +5221,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSubscriber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscriber)) diff --git a/services/ce/api.lisp b/services/ce/api.lisp index 2395f1a5..19d49e66 100644 --- a/services/ce/api.lisp +++ b/services/ce/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ce/api - (:use) - (:nicknames #:aws/ce) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ce/api (:use) + (:nicknames #:aws/ce) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ce/api) (common-lisp:progn (common-lisp:define-condition ce-error @@ -14158,7 +14157,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAnomalyMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-anomaly-monitor)) (common-lisp:progn (common-lisp:defun create-anomaly-subscription @@ -14177,7 +14176,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAnomalySubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-anomaly-subscription)) (common-lisp:progn (common-lisp:defun create-cost-category-definition @@ -14198,7 +14197,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCostCategoryDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cost-category-definition)) (common-lisp:progn (common-lisp:defun delete-anomaly-monitor @@ -14215,7 +14214,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAnomalyMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-anomaly-monitor)) (common-lisp:progn (common-lisp:defun delete-anomaly-subscription @@ -14233,7 +14232,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAnomalySubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-anomaly-subscription)) (common-lisp:progn (common-lisp:defun delete-cost-category-definition @@ -14251,7 +14250,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCostCategoryDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cost-category-definition)) (common-lisp:progn (common-lisp:defun describe-cost-category-definition @@ -14269,7 +14268,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCostCategoryDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cost-category-definition)) (common-lisp:progn (common-lisp:defun get-anomalies @@ -14289,7 +14288,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAnomalies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-anomalies)) (common-lisp:progn (common-lisp:defun get-anomaly-monitors @@ -14308,7 +14307,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAnomalyMonitors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-anomaly-monitors)) (common-lisp:progn (common-lisp:defun get-anomaly-subscriptions @@ -14329,7 +14328,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAnomalySubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-anomaly-subscriptions)) (common-lisp:progn (common-lisp:defun get-approximate-usage-records @@ -14349,7 +14348,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetApproximateUsageRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-approximate-usage-records)) (common-lisp:progn (common-lisp:defun get-cost-and-usage @@ -14369,7 +14368,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCostAndUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cost-and-usage)) (common-lisp:progn (common-lisp:defun get-cost-and-usage-with-resources @@ -14390,7 +14389,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCostAndUsageWithResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cost-and-usage-with-resources)) (common-lisp:progn (common-lisp:defun get-cost-categories @@ -14411,7 +14410,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCostCategories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cost-categories)) (common-lisp:progn (common-lisp:defun get-cost-forecast @@ -14431,7 +14430,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCostForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cost-forecast)) (common-lisp:progn (common-lisp:defun get-dimension-values @@ -14451,7 +14450,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDimensionValues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dimension-values)) (common-lisp:progn (common-lisp:defun get-reservation-coverage @@ -14471,7 +14470,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetReservationCoverage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-reservation-coverage)) (common-lisp:progn (common-lisp:defun get-reservation-purchase-recommendation @@ -14494,7 +14493,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetReservationPurchaseRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-reservation-purchase-recommendation)) (common-lisp:progn (common-lisp:defun get-reservation-utilization @@ -14515,7 +14514,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetReservationUtilization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-reservation-utilization)) (common-lisp:progn (common-lisp:defun get-rightsizing-recommendation @@ -14536,7 +14535,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRightsizingRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rightsizing-recommendation)) (common-lisp:progn (common-lisp:defun get-savings-plan-purchase-recommendation-details @@ -14554,7 +14553,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSavingsPlanPurchaseRecommendationDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-savings-plan-purchase-recommendation-details)) (common-lisp:progn (common-lisp:defun get-savings-plans-coverage @@ -14575,7 +14574,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSavingsPlansCoverage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-savings-plans-coverage)) (common-lisp:progn (common-lisp:defun get-savings-plans-purchase-recommendation @@ -14597,7 +14596,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSavingsPlansPurchaseRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-savings-plans-purchase-recommendation)) (common-lisp:progn (common-lisp:defun get-savings-plans-utilization @@ -14616,7 +14615,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSavingsPlansUtilization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-savings-plans-utilization)) (common-lisp:progn (common-lisp:defun get-savings-plans-utilization-details @@ -14637,7 +14636,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSavingsPlansUtilizationDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-savings-plans-utilization-details)) (common-lisp:progn (common-lisp:defun get-tags @@ -14656,7 +14655,7 @@ (aws-sdk/generator/shape:make-request-with-input 'ce-request aws-sdk/generator/operation::input "POST" "/" "GetTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tags)) (common-lisp:progn (common-lisp:defun get-usage-forecast @@ -14676,7 +14675,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUsageForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-forecast)) (common-lisp:progn (common-lisp:defun list-cost-allocation-tags @@ -14696,7 +14695,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCostAllocationTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cost-allocation-tags)) (common-lisp:progn (common-lisp:defun list-cost-category-definitions @@ -14715,7 +14714,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCostCategoryDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cost-category-definitions)) (common-lisp:progn (common-lisp:defun list-savings-plans-purchase-recommendation-generation @@ -14736,7 +14735,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSavingsPlansPurchaseRecommendationGeneration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-savings-plans-purchase-recommendation-generation)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14753,7 +14752,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun provide-anomaly-feedback @@ -14770,7 +14769,7 @@ aws-sdk/generator/operation::input "POST" "/" "ProvideAnomalyFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'provide-anomaly-feedback)) (common-lisp:progn (common-lisp:defun start-savings-plans-purchase-recommendation-generation () @@ -14795,7 +14794,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14812,7 +14811,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-anomaly-monitor @@ -14829,7 +14828,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAnomalyMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-anomaly-monitor)) (common-lisp:progn (common-lisp:defun update-anomaly-subscription @@ -14851,7 +14850,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAnomalySubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-anomaly-subscription)) (common-lisp:progn (common-lisp:defun update-cost-allocation-tags-status @@ -14869,7 +14868,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCostAllocationTagsStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cost-allocation-tags-status)) (common-lisp:progn (common-lisp:defun update-cost-category-definition @@ -14890,5 +14889,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCostCategoryDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cost-category-definition)) diff --git a/services/chatbot/api.lisp b/services/chatbot/api.lisp index b9886f03..f0e8f13f 100644 --- a/services/chatbot/api.lisp +++ b/services/chatbot/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/chatbot/api - (:use) - (:nicknames #:aws/chatbot) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/chatbot/api (:use) + (:nicknames #:aws/chatbot) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/chatbot/api) (common-lisp:progn (common-lisp:define-condition chatbot-error @@ -20,7 +19,7 @@ (common-lisp:export 'chatbot-error)) (common-lisp:progn (common-lisp:defclass chatbot-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "chatbot" :api-version "2017-10-11" :host-prefix "chatbot" :signing-name @@ -4016,7 +4015,7 @@ "POST" "/create-chime-webhook-configuration" "CreateChimeWebhookConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-chime-webhook-configuration)) (common-lisp:progn (common-lisp:defun create-microsoft-teams-channel-configuration @@ -4041,7 +4040,7 @@ "POST" "/create-ms-teams-channel-configuration" "CreateMicrosoftTeamsChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-microsoft-teams-channel-configuration)) (common-lisp:progn (common-lisp:defun create-slack-channel-configuration @@ -4066,7 +4065,7 @@ "POST" "/create-slack-channel-configuration" "CreateSlackChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-slack-channel-configuration)) (common-lisp:progn (common-lisp:defun delete-chime-webhook-configuration @@ -4085,7 +4084,7 @@ "POST" "/delete-chime-webhook-configuration" "DeleteChimeWebhookConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-chime-webhook-configuration)) (common-lisp:progn (common-lisp:defun delete-microsoft-teams-channel-configuration @@ -4104,7 +4103,7 @@ "POST" "/delete-ms-teams-channel-configuration" "DeleteMicrosoftTeamsChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-microsoft-teams-channel-configuration)) (common-lisp:progn (common-lisp:defun delete-microsoft-teams-configured-team @@ -4123,7 +4122,7 @@ "POST" "/delete-ms-teams-configured-teams" "DeleteMicrosoftTeamsConfiguredTeam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-microsoft-teams-configured-team)) (common-lisp:progn (common-lisp:defun delete-microsoft-teams-user-identity @@ -4142,7 +4141,7 @@ "POST" "/delete-ms-teams-user-identity" "DeleteMicrosoftTeamsUserIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-microsoft-teams-user-identity)) (common-lisp:progn (common-lisp:defun delete-slack-channel-configuration @@ -4161,7 +4160,7 @@ "POST" "/delete-slack-channel-configuration" "DeleteSlackChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slack-channel-configuration)) (common-lisp:progn (common-lisp:defun delete-slack-user-identity @@ -4182,7 +4181,7 @@ "POST" "/delete-slack-user-identity" "DeleteSlackUserIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slack-user-identity)) (common-lisp:progn (common-lisp:defun delete-slack-workspace-authorization @@ -4201,7 +4200,7 @@ "POST" "/delete-slack-workspace-authorization" "DeleteSlackWorkspaceAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slack-workspace-authorization)) (common-lisp:progn (common-lisp:defun describe-chime-webhook-configurations @@ -4222,7 +4221,7 @@ "POST" "/describe-chime-webhook-configurations" "DescribeChimeWebhookConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-chime-webhook-configurations)) (common-lisp:progn (common-lisp:defun describe-slack-channel-configurations @@ -4243,7 +4242,7 @@ "POST" "/describe-slack-channel-configurations" "DescribeSlackChannelConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-slack-channel-configurations)) (common-lisp:progn (common-lisp:defun describe-slack-user-identities @@ -4264,7 +4263,7 @@ "POST" "/describe-slack-user-identities" "DescribeSlackUserIdentities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-slack-user-identities)) (common-lisp:progn (common-lisp:defun describe-slack-workspaces @@ -4283,7 +4282,7 @@ "POST" "/describe-slack-workspaces" "DescribeSlackWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-slack-workspaces)) (common-lisp:progn (common-lisp:defun get-account-preferences () @@ -4311,7 +4310,7 @@ "POST" "/get-ms-teams-channel-configuration" "GetMicrosoftTeamsChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-microsoft-teams-channel-configuration)) (common-lisp:progn (common-lisp:defun list-microsoft-teams-channel-configurations @@ -4330,7 +4329,7 @@ "POST" "/list-ms-teams-channel-configurations" "ListMicrosoftTeamsChannelConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-microsoft-teams-channel-configurations)) (common-lisp:progn (common-lisp:defun list-microsoft-teams-configured-teams @@ -4349,7 +4348,7 @@ "POST" "/list-ms-teams-configured-teams" "ListMicrosoftTeamsConfiguredTeams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-microsoft-teams-configured-teams)) (common-lisp:progn (common-lisp:defun list-microsoft-teams-user-identities @@ -4370,7 +4369,7 @@ "POST" "/list-ms-teams-user-identities" "ListMicrosoftTeamsUserIdentities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-microsoft-teams-user-identities)) (common-lisp:progn (common-lisp:defun update-account-preferences @@ -4392,7 +4391,7 @@ "POST" "/update-account-preferences" "UpdateAccountPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-preferences)) (common-lisp:progn (common-lisp:defun update-chime-webhook-configuration @@ -4415,7 +4414,7 @@ "POST" "/update-chime-webhook-configuration" "UpdateChimeWebhookConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-chime-webhook-configuration)) (common-lisp:progn (common-lisp:defun update-microsoft-teams-channel-configuration @@ -4439,7 +4438,7 @@ "POST" "/update-ms-teams-channel-configuration" "UpdateMicrosoftTeamsChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-microsoft-teams-channel-configuration)) (common-lisp:progn (common-lisp:defun update-slack-channel-configuration @@ -4464,5 +4463,5 @@ "POST" "/update-slack-channel-configuration" "UpdateSlackChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-slack-channel-configuration)) diff --git a/services/chime-sdk-identity/api.lisp b/services/chime-sdk-identity/api.lisp index 00378168..1537e113 100644 --- a/services/chime-sdk-identity/api.lisp +++ b/services/chime-sdk-identity/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/chime-sdk-identity/api - (:use) - (:nicknames #:aws/chime-sdk-identity) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/chime-sdk-identity/api (:use) + (:nicknames #:aws/chime-sdk-identity) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/chime-sdk-identity/api) (common-lisp:progn (common-lisp:define-condition chime-sdk-identity-error @@ -20,7 +19,7 @@ (common-lisp:export 'chime-sdk-identity-error)) (common-lisp:progn (common-lisp:defclass chime-sdk-identity-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "chime-sdk-identity" :api-version "2021-04-20" :host-prefix "identity-chime" @@ -4270,7 +4269,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "POST" "/app-instances" "CreateAppInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-instance)) (common-lisp:progn (common-lisp:defun create-app-instance-admin @@ -4289,12 +4288,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/admins" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "CreateAppInstanceAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-instance-admin)) (common-lisp:progn (common-lisp:defun create-app-instance-bot @@ -4313,7 +4313,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "POST" "/app-instance-bots" "CreateAppInstanceBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-instance-bot)) (common-lisp:progn (common-lisp:defun create-app-instance-user @@ -4333,7 +4333,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "POST" "/app-instance-users" "CreateAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-instance-user)) (common-lisp:progn (common-lisp:defun delete-app-instance @@ -4350,12 +4350,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "DeleteAppInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-instance)) (common-lisp:progn (common-lisp:defun delete-app-instance-admin @@ -4374,16 +4375,18 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/admins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)) - (quri.encode:url-encode + 'app-instance-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-admin-arn)))) + 'app-instance-admin-arn) + common-lisp:t))) "DeleteAppInstanceAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-instance-admin)) (common-lisp:progn (common-lisp:defun delete-app-instance-bot @@ -4400,12 +4403,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-bots/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-bot-arn)))) + 'app-instance-bot-arn) + common-lisp:t))) "DeleteAppInstanceBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-instance-bot)) (common-lisp:progn (common-lisp:defun delete-app-instance-user @@ -4422,12 +4426,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "DeleteAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-instance-user)) (common-lisp:progn (common-lisp:defun deregister-app-instance-user-endpoint @@ -4447,16 +4452,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)) - (quri.encode:url-encode + 'app-instance-user-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "DeregisterAppInstanceUserEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-app-instance-user-endpoint)) (common-lisp:progn (common-lisp:defun describe-app-instance @@ -4473,12 +4480,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "DescribeAppInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-instance)) (common-lisp:progn (common-lisp:defun describe-app-instance-admin @@ -4497,16 +4505,18 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/admins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)) - (quri.encode:url-encode + 'app-instance-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-admin-arn)))) + 'app-instance-admin-arn) + common-lisp:t))) "DescribeAppInstanceAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-instance-admin)) (common-lisp:progn (common-lisp:defun describe-app-instance-bot @@ -4524,12 +4534,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-bots/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-bot-arn)))) + 'app-instance-bot-arn) + common-lisp:t))) "DescribeAppInstanceBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-instance-bot)) (common-lisp:progn (common-lisp:defun describe-app-instance-user @@ -4547,12 +4558,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "DescribeAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-instance-user)) (common-lisp:progn (common-lisp:defun describe-app-instance-user-endpoint @@ -4572,16 +4584,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)) - (quri.encode:url-encode + 'app-instance-user-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "DescribeAppInstanceUserEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-instance-user-endpoint)) (common-lisp:progn (common-lisp:defun get-app-instance-retention-settings @@ -4600,12 +4614,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/retention-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "GetAppInstanceRetentionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-instance-retention-settings)) (common-lisp:progn (common-lisp:defun list-app-instance-admins @@ -4623,12 +4638,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/admins" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "ListAppInstanceAdmins")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-instance-admins)) (common-lisp:progn (common-lisp:defun list-app-instance-bots @@ -4645,7 +4661,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" "/app-instance-bots" "ListAppInstanceBots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-instance-bots)) (common-lisp:progn (common-lisp:defun list-app-instance-user-endpoints @@ -4666,12 +4682,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A/endpoints" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "ListAppInstanceUserEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-instance-user-endpoints)) (common-lisp:progn (common-lisp:defun list-app-instance-users @@ -4688,7 +4705,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" "/app-instance-users" "ListAppInstanceUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-instance-users)) (common-lisp:progn (common-lisp:defun list-app-instances @@ -4704,7 +4721,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" "/app-instances" "ListAppInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-instances)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4720,7 +4737,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-app-instance-retention-settings @@ -4741,12 +4758,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/retention-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "PutAppInstanceRetentionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-app-instance-retention-settings)) (common-lisp:progn (common-lisp:defun put-app-instance-user-expiration-settings @@ -4767,12 +4785,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A/expiration-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "PutAppInstanceUserExpirationSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-app-instance-user-expiration-settings)) (common-lisp:progn (common-lisp:defun register-app-instance-user-endpoint @@ -4795,12 +4814,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A/endpoints" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "RegisterAppInstanceUserEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-app-instance-user-endpoint)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4816,7 +4836,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "POST" "/tags?operation=tag-resource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4832,7 +4852,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-identity-request aws-sdk/generator/operation::input "POST" "/tags?operation=untag-resource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-app-instance @@ -4849,12 +4869,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "UpdateAppInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-instance)) (common-lisp:progn (common-lisp:defun update-app-instance-bot @@ -4873,12 +4894,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-bots/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-bot-arn)))) + 'app-instance-bot-arn) + common-lisp:t))) "UpdateAppInstanceBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-instance-bot)) (common-lisp:progn (common-lisp:defun update-app-instance-user @@ -4896,12 +4918,13 @@ 'chime-sdk-identity-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "UpdateAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-instance-user)) (common-lisp:progn (common-lisp:defun update-app-instance-user-endpoint @@ -4923,14 +4946,16 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instance-users/~A/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)) - (quri.encode:url-encode + 'app-instance-user-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "UpdateAppInstanceUserEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-instance-user-endpoint)) diff --git a/services/chime-sdk-media-pipelines/api.lisp b/services/chime-sdk-media-pipelines/api.lisp index 45a5a152..fc9ca80d 100644 --- a/services/chime-sdk-media-pipelines/api.lisp +++ b/services/chime-sdk-media-pipelines/api.lisp @@ -1,17 +1,17 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/chime-sdk-media-pipelines/api - (:use) - (:nicknames #:aws/chime-sdk-media-pipelines) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/chime-sdk-media-pipelines/api + (:use) + (:nicknames #:aws/chime-sdk-media-pipelines) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/chime-sdk-media-pipelines/api) (common-lisp:progn (common-lisp:define-condition chime-sdk-media-pipelines-error @@ -20,7 +20,7 @@ (common-lisp:export 'chime-sdk-media-pipelines-error)) (common-lisp:progn (common-lisp:defclass chime-sdk-media-pipelines-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "chime-sdk-media-pipelines" :api-version "2021-07-15" :host-prefix @@ -9002,7 +9002,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/sdk-media-capture-pipelines" "CreateMediaCapturePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-media-capture-pipeline)) (common-lisp:progn (common-lisp:defun create-media-concatenation-pipeline @@ -9021,7 +9021,7 @@ 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/sdk-media-concatenation-pipelines" "CreateMediaConcatenationPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-media-concatenation-pipeline)) (common-lisp:progn (common-lisp:defun create-media-insights-pipeline @@ -9048,7 +9048,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/media-insights-pipelines" "CreateMediaInsightsPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-media-insights-pipeline)) (common-lisp:progn (common-lisp:defun create-media-insights-pipeline-configuration @@ -9072,7 +9072,7 @@ 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/media-insights-pipeline-configurations" "CreateMediaInsightsPipelineConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-media-insights-pipeline-configuration)) (common-lisp:progn (common-lisp:defun create-media-live-connector-pipeline @@ -9091,7 +9091,7 @@ 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/sdk-media-live-connector-pipelines" "CreateMediaLiveConnectorPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-media-live-connector-pipeline)) (common-lisp:progn (common-lisp:defun create-media-pipeline-kinesis-video-stream-pool @@ -9112,7 +9112,7 @@ 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/media-pipeline-kinesis-video-stream-pools" "CreateMediaPipelineKinesisVideoStreamPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-media-pipeline-kinesis-video-stream-pool)) (common-lisp:progn (common-lisp:defun create-media-stream-pipeline @@ -9130,7 +9130,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/sdk-media-stream-pipelines" "CreateMediaStreamPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-media-stream-pipeline)) (common-lisp:progn (common-lisp:defun delete-media-capture-pipeline @@ -9149,12 +9149,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sdk-media-capture-pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'media-pipeline-id)))) + 'media-pipeline-id) + common-lisp:t))) "DeleteMediaCapturePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-media-capture-pipeline)) (common-lisp:progn (common-lisp:defun delete-media-insights-pipeline-configuration @@ -9174,12 +9175,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipeline-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "DeleteMediaInsightsPipelineConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-media-insights-pipeline-configuration)) (common-lisp:progn (common-lisp:defun delete-media-pipeline @@ -9197,12 +9198,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sdk-media-pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'media-pipeline-id)))) + 'media-pipeline-id) + common-lisp:t))) "DeleteMediaPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-media-pipeline)) (common-lisp:progn (common-lisp:defun delete-media-pipeline-kinesis-video-stream-pool @@ -9222,12 +9224,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-pipeline-kinesis-video-stream-pools/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "DeleteMediaPipelineKinesisVideoStreamPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-media-pipeline-kinesis-video-stream-pool)) (common-lisp:progn (common-lisp:defun get-media-capture-pipeline @@ -9246,12 +9248,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sdk-media-capture-pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'media-pipeline-id)))) + 'media-pipeline-id) + common-lisp:t))) "GetMediaCapturePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-media-capture-pipeline)) (common-lisp:progn (common-lisp:defun get-media-insights-pipeline-configuration @@ -9271,12 +9274,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipeline-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "GetMediaInsightsPipelineConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-media-insights-pipeline-configuration)) (common-lisp:progn (common-lisp:defun get-media-pipeline @@ -9294,12 +9297,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sdk-media-pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'media-pipeline-id)))) + 'media-pipeline-id) + common-lisp:t))) "GetMediaPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-media-pipeline)) (common-lisp:progn (common-lisp:defun get-media-pipeline-kinesis-video-stream-pool @@ -9319,12 +9323,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-pipeline-kinesis-video-stream-pools/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "GetMediaPipelineKinesisVideoStreamPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-media-pipeline-kinesis-video-stream-pool)) (common-lisp:progn (common-lisp:defun get-speaker-search-task @@ -9344,16 +9348,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipelines/~A/speaker-search-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'speaker-search-task-id)))) + 'speaker-search-task-id) + common-lisp:t))) "GetSpeakerSearchTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-speaker-search-task)) (common-lisp:progn (common-lisp:defun get-voice-tone-analysis-task @@ -9374,16 +9379,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipelines/~A/voice-tone-analysis-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-tone-analysis-task-id)))) + 'voice-tone-analysis-task-id) + common-lisp:t))) "GetVoiceToneAnalysisTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-tone-analysis-task)) (common-lisp:progn (common-lisp:defun list-media-capture-pipelines @@ -9400,7 +9406,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "GET" "/sdk-media-capture-pipelines" "ListMediaCapturePipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-media-capture-pipelines)) (common-lisp:progn (common-lisp:defun list-media-insights-pipeline-configurations @@ -9418,7 +9424,7 @@ 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "GET" "/media-insights-pipeline-configurations" "ListMediaInsightsPipelineConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-media-insights-pipeline-configurations)) (common-lisp:progn (common-lisp:defun list-media-pipeline-kinesis-video-stream-pools @@ -9436,7 +9442,7 @@ 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "GET" "/media-pipeline-kinesis-video-stream-pools" "ListMediaPipelineKinesisVideoStreamPools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-media-pipeline-kinesis-video-stream-pools)) (common-lisp:progn (common-lisp:defun list-media-pipelines @@ -9452,7 +9458,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "GET" "/sdk-media-pipelines" "ListMediaPipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-media-pipelines)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9468,7 +9474,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-speaker-search-task @@ -9492,12 +9498,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipelines/~A/speaker-search-tasks?operation=start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "StartSpeakerSearchTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-speaker-search-task)) (common-lisp:progn (common-lisp:defun start-voice-tone-analysis-task @@ -9521,12 +9527,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipelines/~A/voice-tone-analysis-tasks?operation=start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "StartVoiceToneAnalysisTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-voice-tone-analysis-task)) (common-lisp:progn (common-lisp:defun stop-speaker-search-task @@ -9546,16 +9552,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipelines/~A/speaker-search-tasks/~A?operation=stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'speaker-search-task-id)))) + 'speaker-search-task-id) + common-lisp:t))) "StopSpeakerSearchTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-speaker-search-task)) (common-lisp:progn (common-lisp:defun stop-voice-tone-analysis-task @@ -9576,16 +9583,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipelines/~A/voice-tone-analysis-tasks/~A?operation=stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-tone-analysis-task-id)))) + 'voice-tone-analysis-task-id) + common-lisp:t))) "StopVoiceToneAnalysisTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-voice-tone-analysis-task)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9601,7 +9609,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/tags?operation=tag-resource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9617,7 +9625,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-media-pipelines-request aws-sdk/generator/operation::input "POST" "/tags?operation=untag-resource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-media-insights-pipeline-configuration @@ -9640,12 +9648,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipeline-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "UpdateMediaInsightsPipelineConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-media-insights-pipeline-configuration)) (common-lisp:progn (common-lisp:defun update-media-insights-pipeline-status @@ -9665,12 +9673,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-insights-pipeline-status/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "UpdateMediaInsightsPipelineStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-media-insights-pipeline-status)) (common-lisp:progn (common-lisp:defun update-media-pipeline-kinesis-video-stream-pool @@ -9691,10 +9699,10 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/media-pipeline-kinesis-video-stream-pools/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "UpdateMediaPipelineKinesisVideoStreamPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-media-pipeline-kinesis-video-stream-pool)) diff --git a/services/chime-sdk-meetings/api.lisp b/services/chime-sdk-meetings/api.lisp index 082d0527..24f97b9d 100644 --- a/services/chime-sdk-meetings/api.lisp +++ b/services/chime-sdk-meetings/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/chime-sdk-meetings/api - (:use) - (:nicknames #:aws/chime-sdk-meetings) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/chime-sdk-meetings/api (:use) + (:nicknames #:aws/chime-sdk-meetings) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/chime-sdk-meetings/api) (common-lisp:progn (common-lisp:define-condition chime-sdk-meetings-error @@ -20,7 +19,7 @@ (common-lisp:export 'chime-sdk-meetings-error)) (common-lisp:progn (common-lisp:defclass chime-sdk-meetings-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "chime-sdk-meetings" :api-version "2021-07-15" :host-prefix "meetings-chime" @@ -3008,12 +3007,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/attendees?operation=batch-create" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)))) + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t))) "BatchCreateAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-attendee)) (common-lisp:progn (common-lisp:defun batch-update-attendee-capabilities-except @@ -3034,12 +3033,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/attendees/capabilities?operation=batch-update-except" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)))) + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t))) "BatchUpdateAttendeeCapabilitiesExcept")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-attendee-capabilities-except)) (common-lisp:progn (common-lisp:defun create-attendee @@ -3057,12 +3056,12 @@ 'chime-sdk-meetings-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/attendees" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)))) + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t))) "CreateAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-attendee)) (common-lisp:progn (common-lisp:defun create-meeting @@ -3084,7 +3083,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-meetings-request aws-sdk/generator/operation::input "POST" "/meetings" "CreateMeeting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-meeting)) (common-lisp:progn (common-lisp:defun create-meeting-with-attendees @@ -3107,7 +3106,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-meetings-request aws-sdk/generator/operation::input "POST" "/meetings?operation=create-attendees" "CreateMeetingWithAttendees")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-meeting-with-attendees)) (common-lisp:progn (common-lisp:defun delete-attendee @@ -3124,16 +3123,17 @@ 'chime-sdk-meetings-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/attendees/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attendee-id)))) + 'attendee-id) + common-lisp:t))) "DeleteAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-attendee)) (common-lisp:progn (common-lisp:defun delete-meeting @@ -3150,12 +3150,12 @@ 'chime-sdk-meetings-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)))) + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t))) "DeleteMeeting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-meeting)) (common-lisp:progn (common-lisp:defun get-attendee @@ -3172,16 +3172,17 @@ 'chime-sdk-meetings-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/attendees/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attendee-id)))) + 'attendee-id) + common-lisp:t))) "GetAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-attendee)) (common-lisp:progn (common-lisp:defun get-meeting @@ -3198,12 +3199,12 @@ 'chime-sdk-meetings-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)))) + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t))) "GetMeeting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-meeting)) (common-lisp:progn (common-lisp:defun list-attendees @@ -3221,12 +3222,12 @@ 'chime-sdk-meetings-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/attendees" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)))) + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t))) "ListAttendees")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attendees)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3242,7 +3243,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-meetings-request aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-meeting-transcription @@ -3262,12 +3263,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/transcription?operation=start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)))) + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t))) "StartMeetingTranscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-meeting-transcription)) (common-lisp:progn (common-lisp:defun stop-meeting-transcription @@ -3286,12 +3287,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/transcription?operation=stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)))) + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t))) "StopMeetingTranscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-meeting-transcription)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3307,7 +3308,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-meetings-request aws-sdk/generator/operation::input "POST" "/tags?operation=tag-resource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3323,7 +3324,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-meetings-request aws-sdk/generator/operation::input "POST" "/tags?operation=untag-resource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-attendee-capabilities @@ -3343,14 +3344,15 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/meetings/~A/attendees/~A/capabilities" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'meeting-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'meeting-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attendee-id)))) + 'attendee-id) + common-lisp:t))) "UpdateAttendeeCapabilities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-attendee-capabilities)) diff --git a/services/chime-sdk-messaging/api.lisp b/services/chime-sdk-messaging/api.lisp index 7268b7ad..94c3d37a 100644 --- a/services/chime-sdk-messaging/api.lisp +++ b/services/chime-sdk-messaging/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/chime-sdk-messaging/api - (:use) - (:nicknames #:aws/chime-sdk-messaging) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/chime-sdk-messaging/api (:use) + (:nicknames #:aws/chime-sdk-messaging) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/chime-sdk-messaging/api) (common-lisp:progn (common-lisp:define-condition chime-sdk-messaging-error @@ -20,7 +19,7 @@ (common-lisp:export 'chime-sdk-messaging-error)) (common-lisp:progn (common-lisp:defclass chime-sdk-messaging-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "chime-sdk-messaging" :api-version "2021-05-15" :host-prefix @@ -144,7 +143,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -389,7 +390,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2361,7 +2364,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2618,7 +2623,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2756,7 +2763,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2932,7 +2941,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3102,7 +3113,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3189,7 +3202,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3244,7 +3259,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3295,7 +3312,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3335,7 +3354,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3416,7 +3437,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3576,7 +3599,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3673,7 +3698,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3765,7 +3792,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3860,7 +3889,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3940,7 +3971,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4027,7 +4060,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4224,7 +4259,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4346,7 +4383,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4440,7 +4479,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4770,7 +4811,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4990,7 +5033,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5117,7 +5162,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5264,7 +5311,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5400,7 +5449,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5627,7 +5678,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5744,7 +5797,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5848,7 +5903,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6408,7 +6465,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6525,7 +6584,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6752,7 +6813,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6890,7 +6953,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7139,7 +7204,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7814,7 +7881,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7965,7 +8034,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8060,7 +8131,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8147,12 +8220,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/channel-flow" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "AssociateChannelFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-channel-flow)) (common-lisp:progn (common-lisp:defun batch-create-channel-membership @@ -8174,12 +8248,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/memberships?operation=batch-create" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "BatchCreateChannelMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-channel-membership)) (common-lisp:progn (common-lisp:defun channel-flow-callback @@ -8200,12 +8275,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A?operation=channel-flow-callback" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ChannelFlowCallback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'channel-flow-callback)) (common-lisp:progn (common-lisp:defun create-channel @@ -8227,7 +8303,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" "/channels" "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-channel-ban @@ -8245,12 +8321,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/bans" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "CreateChannelBan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel-ban)) (common-lisp:progn (common-lisp:defun create-channel-flow @@ -8269,7 +8346,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" "/channel-flows" "CreateChannelFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel-flow)) (common-lisp:progn (common-lisp:defun create-channel-membership @@ -8290,12 +8367,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/memberships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "CreateChannelMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel-membership)) (common-lisp:progn (common-lisp:defun create-channel-moderator @@ -8314,12 +8392,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/moderators" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "CreateChannelModerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel-moderator)) (common-lisp:progn (common-lisp:defun delete-channel @@ -8337,12 +8416,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-channel-ban @@ -8361,16 +8441,17 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/bans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-arn)))) + aws-sdk/generator/operation::input 'member-arn) + common-lisp:t))) "DeleteChannelBan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-ban)) (common-lisp:progn (common-lisp:defun delete-channel-flow @@ -8388,12 +8469,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channel-flows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-flow-arn)))) + 'channel-flow-arn) + common-lisp:t))) "DeleteChannelFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-flow)) (common-lisp:progn (common-lisp:defun delete-channel-membership @@ -8414,16 +8496,17 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-arn)))) + aws-sdk/generator/operation::input 'member-arn) + common-lisp:t))) "DeleteChannelMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-membership)) (common-lisp:progn (common-lisp:defun delete-channel-message @@ -8443,16 +8526,17 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/messages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'message-id)))) + aws-sdk/generator/operation::input 'message-id) + common-lisp:t))) "DeleteChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-message)) (common-lisp:progn (common-lisp:defun delete-channel-moderator @@ -8472,16 +8556,18 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/moderators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-moderator-arn)))) + 'channel-moderator-arn) + common-lisp:t))) "DeleteChannelModerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-moderator)) (common-lisp:progn (common-lisp:defun delete-messaging-streaming-configurations @@ -8501,12 +8587,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/streaming-configurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "DeleteMessagingStreamingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-messaging-streaming-configurations)) (common-lisp:progn (common-lisp:defun describe-channel @@ -8523,12 +8610,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "DescribeChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel)) (common-lisp:progn (common-lisp:defun describe-channel-ban @@ -8546,16 +8634,17 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/bans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-arn)))) + aws-sdk/generator/operation::input 'member-arn) + common-lisp:t))) "DescribeChannelBan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-ban)) (common-lisp:progn (common-lisp:defun describe-channel-flow @@ -8572,12 +8661,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channel-flows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-flow-arn)))) + 'channel-flow-arn) + common-lisp:t))) "DescribeChannelFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-flow)) (common-lisp:progn (common-lisp:defun describe-channel-membership @@ -8597,16 +8687,17 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-arn)))) + aws-sdk/generator/operation::input 'member-arn) + common-lisp:t))) "DescribeChannelMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-membership)) (common-lisp:progn (common-lisp:defun describe-channel-membership-for-app-instance-user @@ -8627,12 +8718,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A?scope=app-instance-user-membership" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "DescribeChannelMembershipForAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-membership-for-app-instance-user)) (common-lisp:progn (common-lisp:defun describe-channel-moderated-by-app-instance-user @@ -8653,12 +8745,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A?scope=app-instance-user-moderated-channel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "DescribeChannelModeratedByAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-moderated-by-app-instance-user)) (common-lisp:progn (common-lisp:defun describe-channel-moderator @@ -8678,16 +8771,18 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/moderators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-moderator-arn)))) + 'channel-moderator-arn) + common-lisp:t))) "DescribeChannelModerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-moderator)) (common-lisp:progn (common-lisp:defun disassociate-channel-flow @@ -8708,16 +8803,18 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/channel-flow/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-flow-arn)))) + 'channel-flow-arn) + common-lisp:t))) "DisassociateChannelFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-channel-flow)) (common-lisp:progn (common-lisp:defun get-channel-membership-preferences @@ -8737,16 +8834,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/memberships/~A/preferences" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-arn)))) + aws-sdk/generator/operation::input 'member-arn) + common-lisp:t))) "GetChannelMembershipPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel-membership-preferences)) (common-lisp:progn (common-lisp:defun get-channel-message @@ -8765,16 +8863,17 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/messages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'message-id)))) + aws-sdk/generator/operation::input 'message-id) + common-lisp:t))) "GetChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel-message)) (common-lisp:progn (common-lisp:defun get-channel-message-status @@ -8795,16 +8894,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/messages/~A?scope=message-status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'message-id)))) + aws-sdk/generator/operation::input 'message-id) + common-lisp:t))) "GetChannelMessageStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel-message-status)) (common-lisp:progn (common-lisp:defun get-messaging-session-endpoint () @@ -8832,12 +8932,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/streaming-configurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "GetMessagingStreamingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-messaging-streaming-configurations)) (common-lisp:progn (common-lisp:defun list-channel-bans @@ -8856,12 +8957,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/bans" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListChannelBans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-bans)) (common-lisp:progn (common-lisp:defun list-channel-flows @@ -8878,7 +8980,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" "/channel-flows" "ListChannelFlows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-flows)) (common-lisp:progn (common-lisp:defun list-channel-memberships @@ -8898,12 +9000,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/memberships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListChannelMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-memberships)) (common-lisp:progn (common-lisp:defun list-channel-memberships-for-app-instance-user @@ -8924,7 +9027,7 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" "/channels?scope=app-instance-user-memberships" "ListChannelMembershipsForAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-memberships-for-app-instance-user)) (common-lisp:progn (common-lisp:defun list-channel-messages @@ -8945,12 +9048,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/messages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListChannelMessages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-messages)) (common-lisp:progn (common-lisp:defun list-channel-moderators @@ -8969,12 +9073,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/moderators" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListChannelModerators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-moderators)) (common-lisp:progn (common-lisp:defun list-channels @@ -8993,7 +9098,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" "/channels" "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-channels-associated-with-channel-flow @@ -9012,7 +9117,7 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" "/channels?scope=channel-flow-associations" "ListChannelsAssociatedWithChannelFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels-associated-with-channel-flow)) (common-lisp:progn (common-lisp:defun list-channels-moderated-by-app-instance-user @@ -9033,7 +9138,7 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" "/channels?scope=app-instance-user-moderated-channels" "ListChannelsModeratedByAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels-moderated-by-app-instance-user)) (common-lisp:progn (common-lisp:defun list-sub-channels @@ -9052,12 +9157,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/subchannels" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListSubChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sub-channels)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9073,7 +9179,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-messaging-request aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-channel-expiration-settings @@ -9094,12 +9200,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/expiration-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "PutChannelExpirationSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-channel-expiration-settings)) (common-lisp:progn (common-lisp:defun put-channel-membership-preferences @@ -9120,16 +9227,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/memberships/~A/preferences" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-arn)))) + aws-sdk/generator/operation::input 'member-arn) + common-lisp:t))) "PutChannelMembershipPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-channel-membership-preferences)) (common-lisp:progn (common-lisp:defun put-messaging-streaming-configurations @@ -9150,12 +9258,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/app-instances/~A/streaming-configurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "PutMessagingStreamingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-messaging-streaming-configurations)) (common-lisp:progn (common-lisp:defun redact-channel-message @@ -9175,16 +9284,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/messages/~A?operation=redact" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'message-id)))) + aws-sdk/generator/operation::input 'message-id) + common-lisp:t))) "RedactChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'redact-channel-message)) (common-lisp:progn (common-lisp:defun search-channels @@ -9202,7 +9312,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" "/channels?operation=search" "SearchChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-channels)) (common-lisp:progn (common-lisp:defun send-channel-message @@ -9225,12 +9335,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/messages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "SendChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-channel-message)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9246,7 +9357,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" "/tags?operation=tag-resource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9262,7 +9373,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-messaging-request aws-sdk/generator/operation::input "POST" "/tags?operation=untag-resource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-channel @@ -9281,12 +9392,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-channel-flow @@ -9304,12 +9416,13 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channel-flows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-flow-arn)))) + 'channel-flow-arn) + common-lisp:t))) "UpdateChannelFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel-flow)) (common-lisp:progn (common-lisp:defun update-channel-message @@ -9329,16 +9442,17 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/messages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'message-id)))) + aws-sdk/generator/operation::input 'message-id) + common-lisp:t))) "UpdateChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel-message)) (common-lisp:progn (common-lisp:defun update-channel-read-marker @@ -9356,10 +9470,11 @@ 'chime-sdk-messaging-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/channels/~A/readMarker" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "UpdateChannelReadMarker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel-read-marker)) diff --git a/services/chime-sdk-voice/api.lisp b/services/chime-sdk-voice/api.lisp index d49de84b..55c6460b 100644 --- a/services/chime-sdk-voice/api.lisp +++ b/services/chime-sdk-voice/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/chime-sdk-voice/api - (:use) - (:nicknames #:aws/chime-sdk-voice) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/chime-sdk-voice/api (:use) + (:nicknames #:aws/chime-sdk-voice) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/chime-sdk-voice/api) (common-lisp:progn (common-lisp:define-condition chime-sdk-voice-error @@ -20,7 +19,7 @@ (common-lisp:export 'chime-sdk-voice-error)) (common-lisp:progn (common-lisp:defclass chime-sdk-voice-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "chime-sdk-voice" :api-version "2022-08-03" :host-prefix "voice-chime" @@ -12024,12 +12023,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A?operation=associate-phone-numbers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "AssociatePhoneNumbersWithVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-phone-numbers-with-voice-connector)) (common-lisp:progn (common-lisp:defun associate-phone-numbers-with-voice-connector-group @@ -12051,12 +12051,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connector-groups/~A?operation=associate-phone-numbers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "AssociatePhoneNumbersWithVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-phone-numbers-with-voice-connector-group)) (common-lisp:progn (common-lisp:defun batch-delete-phone-number @@ -12073,7 +12074,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/phone-numbers?operation=batch-delete" "BatchDeletePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-phone-number)) (common-lisp:progn (common-lisp:defun batch-update-phone-number @@ -12091,7 +12092,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/phone-numbers?operation=batch-update" "BatchUpdatePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-phone-number)) (common-lisp:progn (common-lisp:defun create-phone-number-order @@ -12109,7 +12110,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/phone-number-orders" "CreatePhoneNumberOrder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-phone-number-order)) (common-lisp:progn (common-lisp:defun create-proxy-session @@ -12133,12 +12134,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "CreateProxySession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-proxy-session)) (common-lisp:progn (common-lisp:defun create-sip-media-application @@ -12155,7 +12157,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/sip-media-applications" "CreateSipMediaApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sip-media-application)) (common-lisp:progn (common-lisp:defun create-sip-media-application-call @@ -12177,12 +12179,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A/calls" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "CreateSipMediaApplicationCall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sip-media-application-call)) (common-lisp:progn (common-lisp:defun create-sip-rule @@ -12201,7 +12204,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/sip-rules" "CreateSipRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sip-rule)) (common-lisp:progn (common-lisp:defun create-voice-connector @@ -12218,7 +12221,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/voice-connectors" "CreateVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-voice-connector)) (common-lisp:progn (common-lisp:defun create-voice-connector-group @@ -12235,7 +12238,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/voice-connector-groups" "CreateVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-voice-connector-group)) (common-lisp:progn (common-lisp:defun create-voice-profile @@ -12251,7 +12254,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/voice-profiles" "CreateVoiceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-voice-profile)) (common-lisp:progn (common-lisp:defun create-voice-profile-domain @@ -12272,7 +12275,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/voice-profile-domains" "CreateVoiceProfileDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-voice-profile-domain)) (common-lisp:progn (common-lisp:defun delete-phone-number @@ -12289,12 +12292,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/phone-numbers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "DeletePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-phone-number)) (common-lisp:progn (common-lisp:defun delete-proxy-session @@ -12313,16 +12317,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proxy-session-id)))) + 'proxy-session-id) + common-lisp:t))) "DeleteProxySession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-proxy-session)) (common-lisp:progn (common-lisp:defun delete-sip-media-application @@ -12340,12 +12346,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "DeleteSipMediaApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sip-media-application)) (common-lisp:progn (common-lisp:defun delete-sip-rule @@ -12362,12 +12369,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-rule-id)))) + 'sip-rule-id) + common-lisp:t))) "DeleteSipRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sip-rule)) (common-lisp:progn (common-lisp:defun delete-voice-connector @@ -12384,12 +12392,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector)) (common-lisp:progn (common-lisp:defun delete-voice-connector-emergency-calling-configuration @@ -12408,12 +12417,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/emergency-calling-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorEmergencyCallingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-emergency-calling-configuration)) (common-lisp:progn (common-lisp:defun delete-voice-connector-group @@ -12431,12 +12441,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connector-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "DeleteVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-group)) (common-lisp:progn (common-lisp:defun delete-voice-connector-origination @@ -12455,12 +12466,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/origination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorOrigination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-origination)) (common-lisp:progn (common-lisp:defun delete-voice-connector-proxy @@ -12479,12 +12491,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/programmable-numbers/proxy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorProxy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-proxy)) (common-lisp:progn (common-lisp:defun delete-voice-connector-streaming-configuration @@ -12503,12 +12516,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/streaming-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorStreamingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-streaming-configuration)) (common-lisp:progn (common-lisp:defun delete-voice-connector-termination @@ -12527,12 +12541,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorTermination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-termination)) (common-lisp:progn (common-lisp:defun delete-voice-connector-termination-credentials @@ -12551,12 +12566,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination/credentials?operation=delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorTerminationCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-termination-credentials)) (common-lisp:progn (common-lisp:defun delete-voice-profile @@ -12573,12 +12589,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-profile-id)))) + 'voice-profile-id) + common-lisp:t))) "DeleteVoiceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-profile)) (common-lisp:progn (common-lisp:defun delete-voice-profile-domain @@ -12596,12 +12613,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-profile-domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-profile-domain-id)))) + 'voice-profile-domain-id) + common-lisp:t))) "DeleteVoiceProfileDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-profile-domain)) (common-lisp:progn (common-lisp:defun disassociate-phone-numbers-from-voice-connector @@ -12621,12 +12639,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A?operation=disassociate-phone-numbers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DisassociatePhoneNumbersFromVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-phone-numbers-from-voice-connector)) (common-lisp:progn (common-lisp:defun disassociate-phone-numbers-from-voice-connector-group @@ -12647,12 +12666,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connector-groups/~A?operation=disassociate-phone-numbers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "DisassociatePhoneNumbersFromVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-phone-numbers-from-voice-connector-group)) (common-lisp:progn (common-lisp:defun get-global-settings () @@ -12677,12 +12697,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/phone-numbers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "GetPhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-phone-number)) (common-lisp:progn (common-lisp:defun get-phone-number-order @@ -12699,12 +12720,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/phone-number-orders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-order-id)))) + 'phone-number-order-id) + common-lisp:t))) "GetPhoneNumberOrder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-phone-number-order)) (common-lisp:progn (common-lisp:defun get-phone-number-settings () @@ -12732,16 +12754,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proxy-session-id)))) + 'proxy-session-id) + common-lisp:t))) "GetProxySession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-proxy-session)) (common-lisp:progn (common-lisp:defun get-sip-media-application @@ -12759,12 +12783,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "GetSipMediaApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sip-media-application)) (common-lisp:progn (common-lisp:defun get-sip-media-application-alexa-skill-configuration @@ -12783,12 +12808,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A/alexa-skill-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "GetSipMediaApplicationAlexaSkillConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sip-media-application-alexa-skill-configuration)) (common-lisp:progn (common-lisp:defun get-sip-media-application-logging-configuration @@ -12807,12 +12833,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A/logging-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "GetSipMediaApplicationLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sip-media-application-logging-configuration)) (common-lisp:progn (common-lisp:defun get-sip-rule @@ -12829,12 +12856,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-rule-id)))) + 'sip-rule-id) + common-lisp:t))) "GetSipRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sip-rule)) (common-lisp:progn (common-lisp:defun get-speaker-search-task @@ -12854,16 +12882,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/speaker-search-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'speaker-search-task-id)))) + 'speaker-search-task-id) + common-lisp:t))) "GetSpeakerSearchTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-speaker-search-task)) (common-lisp:progn (common-lisp:defun get-voice-connector @@ -12880,12 +12910,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector)) (common-lisp:progn (common-lisp:defun get-voice-connector-emergency-calling-configuration @@ -12904,12 +12935,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/emergency-calling-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorEmergencyCallingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-emergency-calling-configuration)) (common-lisp:progn (common-lisp:defun get-voice-connector-group @@ -12927,12 +12959,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connector-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "GetVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-group)) (common-lisp:progn (common-lisp:defun get-voice-connector-logging-configuration @@ -12951,12 +12984,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/logging-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-logging-configuration)) (common-lisp:progn (common-lisp:defun get-voice-connector-origination @@ -12975,12 +13009,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/origination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorOrigination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-origination)) (common-lisp:progn (common-lisp:defun get-voice-connector-proxy @@ -12999,12 +13034,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/programmable-numbers/proxy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorProxy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-proxy)) (common-lisp:progn (common-lisp:defun get-voice-connector-streaming-configuration @@ -13023,12 +13059,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/streaming-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorStreamingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-streaming-configuration)) (common-lisp:progn (common-lisp:defun get-voice-connector-termination @@ -13047,12 +13084,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorTermination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-termination)) (common-lisp:progn (common-lisp:defun get-voice-connector-termination-health @@ -13071,12 +13109,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination/health" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorTerminationHealth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-termination-health)) (common-lisp:progn (common-lisp:defun get-voice-profile @@ -13093,12 +13132,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-profile-id)))) + 'voice-profile-id) + common-lisp:t))) "GetVoiceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-profile)) (common-lisp:progn (common-lisp:defun get-voice-profile-domain @@ -13115,12 +13155,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-profile-domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-profile-domain-id)))) + 'voice-profile-domain-id) + common-lisp:t))) "GetVoiceProfileDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-profile-domain)) (common-lisp:progn (common-lisp:defun get-voice-tone-analysis-task @@ -13142,16 +13183,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/voice-tone-analysis-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-tone-analysis-task-id)))) + 'voice-tone-analysis-task-id) + common-lisp:t))) "GetVoiceToneAnalysisTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-tone-analysis-task)) (common-lisp:progn (common-lisp:defun list-available-voice-connector-regions () @@ -13176,7 +13219,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/phone-number-orders" "ListPhoneNumberOrders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-phone-number-orders)) (common-lisp:progn (common-lisp:defun list-phone-numbers @@ -13195,7 +13238,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/phone-numbers" "ListPhoneNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-phone-numbers)) (common-lisp:progn (common-lisp:defun list-proxy-sessions @@ -13215,12 +13258,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "ListProxySessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-proxy-sessions)) (common-lisp:progn (common-lisp:defun list-sip-media-applications @@ -13237,7 +13281,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/sip-media-applications" "ListSipMediaApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sip-media-applications)) (common-lisp:progn (common-lisp:defun list-sip-rules @@ -13255,7 +13299,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/sip-rules" "ListSipRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sip-rules)) (common-lisp:progn (common-lisp:defun list-supported-phone-number-countries @@ -13272,7 +13316,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/phone-number-countries" "ListSupportedPhoneNumberCountries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-supported-phone-number-countries)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -13288,7 +13332,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-voice-connector-groups @@ -13305,7 +13349,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/voice-connector-groups" "ListVoiceConnectorGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-voice-connector-groups)) (common-lisp:progn (common-lisp:defun list-voice-connector-termination-credentials @@ -13324,12 +13368,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination/credentials" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "ListVoiceConnectorTerminationCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-voice-connector-termination-credentials)) (common-lisp:progn (common-lisp:defun list-voice-connectors @@ -13345,7 +13390,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/voice-connectors" "ListVoiceConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-voice-connectors)) (common-lisp:progn (common-lisp:defun list-voice-profile-domains @@ -13362,7 +13407,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/voice-profile-domains" "ListVoiceProfileDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-voice-profile-domains)) (common-lisp:progn (common-lisp:defun list-voice-profiles @@ -13380,7 +13425,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/voice-profiles" "ListVoiceProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-voice-profiles)) (common-lisp:progn (common-lisp:defun put-sip-media-application-alexa-skill-configuration @@ -13402,12 +13447,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A/alexa-skill-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "PutSipMediaApplicationAlexaSkillConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-sip-media-application-alexa-skill-configuration)) (common-lisp:progn (common-lisp:defun put-sip-media-application-logging-configuration @@ -13429,12 +13475,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A/logging-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "PutSipMediaApplicationLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-sip-media-application-logging-configuration)) (common-lisp:progn (common-lisp:defun put-voice-connector-emergency-calling-configuration @@ -13455,12 +13502,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/emergency-calling-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorEmergencyCallingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-emergency-calling-configuration)) (common-lisp:progn (common-lisp:defun put-voice-connector-logging-configuration @@ -13480,12 +13528,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/logging-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-logging-configuration)) (common-lisp:progn (common-lisp:defun put-voice-connector-origination @@ -13504,12 +13553,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/origination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorOrigination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-origination)) (common-lisp:progn (common-lisp:defun put-voice-connector-proxy @@ -13532,12 +13582,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/programmable-numbers/proxy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorProxy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-proxy)) (common-lisp:progn (common-lisp:defun put-voice-connector-streaming-configuration @@ -13558,12 +13609,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/streaming-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorStreamingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-streaming-configuration)) (common-lisp:progn (common-lisp:defun put-voice-connector-termination @@ -13582,12 +13634,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorTermination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-termination)) (common-lisp:progn (common-lisp:defun put-voice-connector-termination-credentials @@ -13606,12 +13659,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination/credentials?operation=put" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorTerminationCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-termination-credentials)) (common-lisp:progn (common-lisp:defun restore-phone-number @@ -13629,12 +13683,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/phone-numbers/~A?operation=restore" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "RestorePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-phone-number)) (common-lisp:progn (common-lisp:defun search-available-phone-numbers @@ -13654,7 +13709,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "GET" "/search?type=phone-numbers" "SearchAvailablePhoneNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-available-phone-numbers)) (common-lisp:progn (common-lisp:defun start-speaker-search-task @@ -13676,12 +13731,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/speaker-search-tasks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "StartSpeakerSearchTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-speaker-search-task)) (common-lisp:progn (common-lisp:defun start-voice-tone-analysis-task @@ -13703,12 +13759,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/voice-tone-analysis-tasks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "StartVoiceToneAnalysisTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-voice-tone-analysis-task)) (common-lisp:progn (common-lisp:defun stop-speaker-search-task @@ -13728,16 +13785,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/speaker-search-tasks/~A?operation=stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'speaker-search-task-id)))) + 'speaker-search-task-id) + common-lisp:t))) "StopSpeakerSearchTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-speaker-search-task)) (common-lisp:progn (common-lisp:defun stop-voice-tone-analysis-task @@ -13758,16 +13817,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/voice-tone-analysis-tasks/~A?operation=stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-tone-analysis-task-id)))) + 'voice-tone-analysis-task-id) + common-lisp:t))) "StopVoiceToneAnalysisTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-voice-tone-analysis-task)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13783,7 +13844,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/tags?operation=tag-resource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13799,7 +13860,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/tags?operation=untag-resource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-global-settings @@ -13815,7 +13876,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "PUT" "/settings" "UpdateGlobalSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-global-settings)) (common-lisp:progn (common-lisp:defun update-phone-number @@ -13834,12 +13895,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/phone-numbers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "UpdatePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-phone-number)) (common-lisp:progn (common-lisp:defun update-phone-number-settings @@ -13856,7 +13918,7 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "PUT" "/settings/phone-number" "UpdatePhoneNumberSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-phone-number-settings)) (common-lisp:progn (common-lisp:defun update-proxy-session @@ -13877,16 +13939,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proxy-session-id)))) + 'proxy-session-id) + common-lisp:t))) "UpdateProxySession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-proxy-session)) (common-lisp:progn (common-lisp:defun update-sip-media-application @@ -13905,12 +13969,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "UpdateSipMediaApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sip-media-application)) (common-lisp:progn (common-lisp:defun update-sip-media-application-call @@ -13931,16 +13996,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-media-applications/~A/calls/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)) - (quri.encode:url-encode + 'sip-media-application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'transaction-id)))) + 'transaction-id) + common-lisp:t))) "UpdateSipMediaApplicationCall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sip-media-application-call)) (common-lisp:progn (common-lisp:defun update-sip-rule @@ -13959,12 +14026,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sip-rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-rule-id)))) + 'sip-rule-id) + common-lisp:t))) "UpdateSipRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sip-rule)) (common-lisp:progn (common-lisp:defun update-voice-connector @@ -13983,12 +14051,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "UpdateVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-voice-connector)) (common-lisp:progn (common-lisp:defun update-voice-connector-group @@ -14009,12 +14078,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-connector-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "UpdateVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-voice-connector-group)) (common-lisp:progn (common-lisp:defun update-voice-profile @@ -14032,12 +14102,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-profile-id)))) + 'voice-profile-id) + common-lisp:t))) "UpdateVoiceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-voice-profile)) (common-lisp:progn (common-lisp:defun update-voice-profile-domain @@ -14056,12 +14127,13 @@ 'chime-sdk-voice-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/voice-profile-domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-profile-domain-id)))) + 'voice-profile-domain-id) + common-lisp:t))) "UpdateVoiceProfileDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-voice-profile-domain)) (common-lisp:progn (common-lisp:defun validate-e911address @@ -14080,5 +14152,5 @@ (aws-sdk/generator/shape:make-request-with-input 'chime-sdk-voice-request aws-sdk/generator/operation::input "POST" "/emergency-calling/address" "ValidateE911Address")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-e911address)) diff --git a/services/chime/api.lisp b/services/chime/api.lisp index 1e9d590f..5f0df65b 100644 --- a/services/chime/api.lisp +++ b/services/chime/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/chime/api - (:use) - (:nicknames #:aws/chime) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/chime/api (:use) + (:nicknames #:aws/chime) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/chime/api) (common-lisp:progn (common-lisp:define-condition chime-error @@ -20,7 +19,7 @@ (common-lisp:export 'chime-error)) (common-lisp:progn (common-lisp:defclass chime-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "chime" :api-version "2018-05-01" :host-prefix "chime" :signing-name @@ -1904,7 +1903,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4875,7 +4876,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4989,7 +4992,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5106,7 +5111,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5245,7 +5252,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7523,7 +7532,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7571,7 +7582,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7619,7 +7632,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7670,7 +7685,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7710,7 +7727,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8609,7 +8628,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8695,7 +8716,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8785,7 +8808,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8877,7 +8902,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8972,7 +8999,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9052,7 +9081,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10459,7 +10490,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13240,7 +13273,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13362,7 +13397,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13482,7 +13519,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13622,7 +13661,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13744,7 +13785,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13867,7 +13910,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13984,7 +14029,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -18678,7 +18725,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -19670,7 +19719,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21730,7 +21781,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21838,7 +21891,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21935,7 +21990,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'chime-bearer)) - (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-chime-bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -24297,16 +24354,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users/~A?operation=associate-phone-number" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "AssociatePhoneNumberWithUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-phone-number-with-user)) (common-lisp:progn (common-lisp:defun associate-phone-numbers-with-voice-connector @@ -24332,12 +24391,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A?operation=associate-phone-numbers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "AssociatePhoneNumbersWithVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-phone-numbers-with-voice-connector)) (common-lisp:progn (common-lisp:defun associate-phone-numbers-with-voice-connector-group @@ -24363,12 +24423,13 @@ (common-lisp:format common-lisp:nil "/voice-connector-groups/~A?operation=associate-phone-numbers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "AssociatePhoneNumbersWithVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-phone-numbers-with-voice-connector-group)) (common-lisp:progn (common-lisp:defun associate-signin-delegate-groups-with-account @@ -24392,12 +24453,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A?operation=associate-signin-delegate-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "AssociateSigninDelegateGroupsWithAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-signin-delegate-groups-with-account)) (common-lisp:progn (common-lisp:defun batch-create-attendee @@ -24419,12 +24481,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/attendees?operation=batch-create" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "BatchCreateAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-attendee)) (common-lisp:progn (common-lisp:defun batch-create-channel-membership @@ -24449,12 +24512,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/memberships?operation=batch-create" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "BatchCreateChannelMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-channel-membership)) (common-lisp:progn (common-lisp:defun batch-create-room-membership @@ -24478,16 +24542,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A/memberships?operation=batch-create" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)))) + 'room-id) + common-lisp:t))) "BatchCreateRoomMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-room-membership)) (common-lisp:progn (common-lisp:defun batch-delete-phone-number @@ -24506,7 +24572,7 @@ "POST" "/phone-numbers?operation=batch-delete" "BatchDeletePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-phone-number)) (common-lisp:progn (common-lisp:defun batch-suspend-user @@ -24528,12 +24594,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users?operation=suspend" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "BatchSuspendUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-suspend-user)) (common-lisp:progn (common-lisp:defun batch-unsuspend-user @@ -24555,12 +24622,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users?operation=unsuspend" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "BatchUnsuspendUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-unsuspend-user)) (common-lisp:progn (common-lisp:defun batch-update-phone-number @@ -24580,7 +24648,7 @@ "POST" "/phone-numbers?operation=batch-update" "BatchUpdatePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-phone-number)) (common-lisp:progn (common-lisp:defun batch-update-user @@ -24603,12 +24671,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "BatchUpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-user)) (common-lisp:progn (common-lisp:defun create-account @@ -24625,7 +24694,7 @@ aws-sdk/generator/operation::input "POST" "/accounts" "CreateAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-account)) (common-lisp:progn (common-lisp:defun create-app-instance @@ -24643,7 +24712,7 @@ aws-sdk/generator/operation::input "POST" "/app-instances" "CreateAppInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-instance)) (common-lisp:progn (common-lisp:defun create-app-instance-admin @@ -24667,12 +24736,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/admins" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "CreateAppInstanceAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-instance-admin)) (common-lisp:progn (common-lisp:defun create-app-instance-user @@ -24693,7 +24763,7 @@ "POST" "/app-instance-users" "CreateAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-instance-user)) (common-lisp:progn (common-lisp:defun create-attendee @@ -24716,12 +24786,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/attendees" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "CreateAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-attendee)) (common-lisp:progn (common-lisp:defun create-bot @@ -24743,12 +24814,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/bots" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "CreateBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bot)) (common-lisp:progn (common-lisp:defun create-channel @@ -24768,7 +24840,7 @@ aws-sdk/generator/operation::input "POST" "/channels" "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-channel-ban @@ -24791,12 +24863,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/bans" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "CreateChannelBan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel-ban)) (common-lisp:progn (common-lisp:defun create-channel-membership @@ -24820,12 +24893,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/memberships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "CreateChannelMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel-membership)) (common-lisp:progn (common-lisp:defun create-channel-moderator @@ -24849,12 +24923,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/moderators" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "CreateChannelModerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel-moderator)) (common-lisp:progn (common-lisp:defun create-media-capture-pipeline @@ -24876,7 +24951,7 @@ "POST" "/media-capture-pipelines" "CreateMediaCapturePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-media-capture-pipeline)) (common-lisp:progn (common-lisp:defun create-meeting @@ -24897,7 +24972,7 @@ aws-sdk/generator/operation::input "POST" "/meetings" "CreateMeeting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-meeting)) (common-lisp:progn (common-lisp:defun create-meeting-dial-out @@ -24922,12 +24997,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/dial-outs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "CreateMeetingDialOut")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-meeting-dial-out)) (common-lisp:progn (common-lisp:defun create-meeting-with-attendees @@ -24950,7 +25026,7 @@ "POST" "/meetings?operation=create-attendees" "CreateMeetingWithAttendees")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-meeting-with-attendees)) (common-lisp:progn (common-lisp:defun create-phone-number-order @@ -24969,7 +25045,7 @@ "POST" "/phone-number-orders" "CreatePhoneNumberOrder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-phone-number-order)) (common-lisp:progn (common-lisp:defun create-proxy-session @@ -24997,12 +25073,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "CreateProxySession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-proxy-session)) (common-lisp:progn (common-lisp:defun create-room @@ -25025,12 +25102,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "CreateRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-room)) (common-lisp:progn (common-lisp:defun create-room-membership @@ -25053,16 +25131,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A/memberships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)))) + 'room-id) + common-lisp:t))) "CreateRoomMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-room-membership)) (common-lisp:progn (common-lisp:defun create-sip-media-application @@ -25081,7 +25161,7 @@ "POST" "/sip-media-applications" "CreateSipMediaApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sip-media-application)) (common-lisp:progn (common-lisp:defun create-sip-media-application-call @@ -25107,12 +25187,13 @@ (common-lisp:format common-lisp:nil "/sip-media-applications/~A/calls" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "CreateSipMediaApplicationCall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sip-media-application-call)) (common-lisp:progn (common-lisp:defun create-sip-rule @@ -25132,7 +25213,7 @@ aws-sdk/generator/operation::input "POST" "/sip-rules" "CreateSipRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sip-rule)) (common-lisp:progn (common-lisp:defun create-user @@ -25155,12 +25236,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users?operation=create" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun create-voice-connector @@ -25179,7 +25261,7 @@ "POST" "/voice-connectors" "CreateVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-voice-connector)) (common-lisp:progn (common-lisp:defun create-voice-connector-group @@ -25198,7 +25280,7 @@ "POST" "/voice-connector-groups" "CreateVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-voice-connector-group)) (common-lisp:progn (common-lisp:defun delete-account @@ -25220,12 +25302,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "DeleteAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-account)) (common-lisp:progn (common-lisp:defun delete-app-instance @@ -25247,12 +25330,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "DeleteAppInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-instance)) (common-lisp:progn (common-lisp:defun delete-app-instance-admin @@ -25276,16 +25360,18 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/admins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)) - (quri.encode:url-encode + 'app-instance-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-admin-arn)))) + 'app-instance-admin-arn) + common-lisp:t))) "DeleteAppInstanceAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-instance-admin)) (common-lisp:progn (common-lisp:defun delete-app-instance-streaming-configurations @@ -25308,12 +25394,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/streaming-configurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "DeleteAppInstanceStreamingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-instance-streaming-configurations)) (common-lisp:progn (common-lisp:defun delete-app-instance-user @@ -25335,12 +25422,13 @@ (common-lisp:format common-lisp:nil "/app-instance-users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "DeleteAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-instance-user)) (common-lisp:progn (common-lisp:defun delete-attendee @@ -25362,16 +25450,18 @@ (common-lisp:format common-lisp:nil "/meetings/~A/attendees/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)) - (quri.encode:url-encode + 'meeting-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attendee-id)))) + 'attendee-id) + common-lisp:t))) "DeleteAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-attendee)) (common-lisp:progn (common-lisp:defun delete-channel @@ -25393,12 +25483,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-channel-ban @@ -25421,16 +25512,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/bans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-arn)))) + 'member-arn) + common-lisp:t))) "DeleteChannelBan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-ban)) (common-lisp:progn (common-lisp:defun delete-channel-membership @@ -25454,16 +25547,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-arn)))) + 'member-arn) + common-lisp:t))) "DeleteChannelMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-membership)) (common-lisp:progn (common-lisp:defun delete-channel-message @@ -25486,16 +25581,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/messages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'message-id)))) + 'message-id) + common-lisp:t))) "DeleteChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-message)) (common-lisp:progn (common-lisp:defun delete-channel-moderator @@ -25519,16 +25616,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/moderators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-moderator-arn)))) + 'channel-moderator-arn) + common-lisp:t))) "DeleteChannelModerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-moderator)) (common-lisp:progn (common-lisp:defun delete-events-configuration @@ -25551,16 +25650,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/bots/~A/events-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "DeleteEventsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-events-configuration)) (common-lisp:progn (common-lisp:defun delete-media-capture-pipeline @@ -25583,12 +25684,13 @@ (common-lisp:format common-lisp:nil "/media-capture-pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'media-pipeline-id)))) + 'media-pipeline-id) + common-lisp:t))) "DeleteMediaCapturePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-media-capture-pipeline)) (common-lisp:progn (common-lisp:defun delete-meeting @@ -25610,12 +25712,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "DeleteMeeting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-meeting)) (common-lisp:progn (common-lisp:defun delete-phone-number @@ -25637,12 +25740,13 @@ (common-lisp:format common-lisp:nil "/phone-numbers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "DeletePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-phone-number)) (common-lisp:progn (common-lisp:defun delete-proxy-session @@ -25665,16 +25769,18 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proxy-session-id)))) + 'proxy-session-id) + common-lisp:t))) "DeleteProxySession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-proxy-session)) (common-lisp:progn (common-lisp:defun delete-room @@ -25696,16 +25802,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)))) + 'room-id) + common-lisp:t))) "DeleteRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-room)) (common-lisp:progn (common-lisp:defun delete-room-membership @@ -25727,20 +25835,23 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)) - (quri.encode:url-encode + 'room-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-id)))) + 'member-id) + common-lisp:t))) "DeleteRoomMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-room-membership)) (common-lisp:progn (common-lisp:defun delete-sip-media-application @@ -25763,12 +25874,13 @@ (common-lisp:format common-lisp:nil "/sip-media-applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "DeleteSipMediaApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sip-media-application)) (common-lisp:progn (common-lisp:defun delete-sip-rule @@ -25790,12 +25902,13 @@ (common-lisp:format common-lisp:nil "/sip-rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-rule-id)))) + 'sip-rule-id) + common-lisp:t))) "DeleteSipRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sip-rule)) (common-lisp:progn (common-lisp:defun delete-voice-connector @@ -25817,12 +25930,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector)) (common-lisp:progn (common-lisp:defun delete-voice-connector-emergency-calling-configuration @@ -25845,12 +25959,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/emergency-calling-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorEmergencyCallingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-emergency-calling-configuration)) (common-lisp:progn (common-lisp:defun delete-voice-connector-group @@ -25873,12 +25988,13 @@ (common-lisp:format common-lisp:nil "/voice-connector-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "DeleteVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-group)) (common-lisp:progn (common-lisp:defun delete-voice-connector-origination @@ -25901,12 +26017,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/origination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorOrigination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-origination)) (common-lisp:progn (common-lisp:defun delete-voice-connector-proxy @@ -25929,12 +26046,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/programmable-numbers/proxy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorProxy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-proxy)) (common-lisp:progn (common-lisp:defun delete-voice-connector-streaming-configuration @@ -25957,12 +26075,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/streaming-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorStreamingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-streaming-configuration)) (common-lisp:progn (common-lisp:defun delete-voice-connector-termination @@ -25985,12 +26104,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorTermination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-termination)) (common-lisp:progn (common-lisp:defun delete-voice-connector-termination-credentials @@ -26013,12 +26133,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination/credentials?operation=delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DeleteVoiceConnectorTerminationCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-connector-termination-credentials)) (common-lisp:progn (common-lisp:defun describe-app-instance @@ -26040,12 +26161,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "DescribeAppInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-instance)) (common-lisp:progn (common-lisp:defun describe-app-instance-admin @@ -26069,16 +26191,18 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/admins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)) - (quri.encode:url-encode + 'app-instance-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-admin-arn)))) + 'app-instance-admin-arn) + common-lisp:t))) "DescribeAppInstanceAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-instance-admin)) (common-lisp:progn (common-lisp:defun describe-app-instance-user @@ -26101,12 +26225,13 @@ (common-lisp:format common-lisp:nil "/app-instance-users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "DescribeAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-instance-user)) (common-lisp:progn (common-lisp:defun describe-channel @@ -26128,12 +26253,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "DescribeChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel)) (common-lisp:progn (common-lisp:defun describe-channel-ban @@ -26156,16 +26282,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/bans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-arn)))) + 'member-arn) + common-lisp:t))) "DescribeChannelBan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-ban)) (common-lisp:progn (common-lisp:defun describe-channel-membership @@ -26189,16 +26317,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-arn)))) + 'member-arn) + common-lisp:t))) "DescribeChannelMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-membership)) (common-lisp:progn (common-lisp:defun describe-channel-membership-for-app-instance-user @@ -26223,12 +26353,13 @@ (common-lisp:format common-lisp:nil "/channels/~A?scope=app-instance-user-membership" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "DescribeChannelMembershipForAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-membership-for-app-instance-user)) (common-lisp:progn (common-lisp:defun describe-channel-moderated-by-app-instance-user @@ -26253,12 +26384,13 @@ (common-lisp:format common-lisp:nil "/channels/~A?scope=app-instance-user-moderated-channel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "DescribeChannelModeratedByAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-moderated-by-app-instance-user)) (common-lisp:progn (common-lisp:defun describe-channel-moderator @@ -26283,16 +26415,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/moderators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-moderator-arn)))) + 'channel-moderator-arn) + common-lisp:t))) "DescribeChannelModerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel-moderator)) (common-lisp:progn (common-lisp:defun disassociate-phone-number-from-user @@ -26315,16 +26449,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users/~A?operation=disassociate-phone-number" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DisassociatePhoneNumberFromUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-phone-number-from-user)) (common-lisp:progn (common-lisp:defun disassociate-phone-numbers-from-voice-connector @@ -26348,12 +26484,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A?operation=disassociate-phone-numbers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "DisassociatePhoneNumbersFromVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-phone-numbers-from-voice-connector)) (common-lisp:progn (common-lisp:defun disassociate-phone-numbers-from-voice-connector-group @@ -26378,12 +26515,13 @@ (common-lisp:format common-lisp:nil "/voice-connector-groups/~A?operation=disassociate-phone-numbers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "DisassociatePhoneNumbersFromVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-phone-numbers-from-voice-connector-group)) (common-lisp:progn (common-lisp:defun disassociate-signin-delegate-groups-from-account @@ -26406,12 +26544,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A?operation=disassociate-signin-delegate-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "DisassociateSigninDelegateGroupsFromAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-signin-delegate-groups-from-account)) (common-lisp:progn (common-lisp:defun get-account @@ -26433,12 +26572,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "GetAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-account)) (common-lisp:progn (common-lisp:defun get-account-settings @@ -26460,12 +26600,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "GetAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-account-settings)) (common-lisp:progn (common-lisp:defun get-app-instance-retention-settings @@ -26488,12 +26629,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/retention-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "GetAppInstanceRetentionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-instance-retention-settings)) (common-lisp:progn (common-lisp:defun get-app-instance-streaming-configurations @@ -26516,12 +26658,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/streaming-configurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "GetAppInstanceStreamingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-instance-streaming-configurations)) (common-lisp:progn (common-lisp:defun get-attendee @@ -26543,16 +26686,18 @@ (common-lisp:format common-lisp:nil "/meetings/~A/attendees/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)) - (quri.encode:url-encode + 'meeting-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attendee-id)))) + 'attendee-id) + common-lisp:t))) "GetAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-attendee)) (common-lisp:progn (common-lisp:defun get-bot @@ -26574,16 +26719,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/bots/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "GetBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bot)) (common-lisp:progn (common-lisp:defun get-channel-message @@ -26606,16 +26753,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/messages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'message-id)))) + 'message-id) + common-lisp:t))) "GetChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel-message)) (common-lisp:progn (common-lisp:defun get-events-configuration @@ -26637,16 +26786,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/bots/~A/events-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "GetEventsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-events-configuration)) (common-lisp:progn (common-lisp:defun get-global-settings () @@ -26677,12 +26828,13 @@ (common-lisp:format common-lisp:nil "/media-capture-pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'media-pipeline-id)))) + 'media-pipeline-id) + common-lisp:t))) "GetMediaCapturePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-media-capture-pipeline)) (common-lisp:progn (common-lisp:defun get-meeting @@ -26704,12 +26856,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "GetMeeting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-meeting)) (common-lisp:progn (common-lisp:defun get-messaging-session-endpoint () @@ -26740,12 +26893,13 @@ (common-lisp:format common-lisp:nil "/phone-numbers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "GetPhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-phone-number)) (common-lisp:progn (common-lisp:defun get-phone-number-order @@ -26767,12 +26921,13 @@ (common-lisp:format common-lisp:nil "/phone-number-orders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-order-id)))) + 'phone-number-order-id) + common-lisp:t))) "GetPhoneNumberOrder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-phone-number-order)) (common-lisp:progn (common-lisp:defun get-phone-number-settings () @@ -26804,16 +26959,18 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proxy-session-id)))) + 'proxy-session-id) + common-lisp:t))) "GetProxySession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-proxy-session)) (common-lisp:progn (common-lisp:defun get-retention-settings @@ -26835,12 +26992,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/retention-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "GetRetentionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-retention-settings)) (common-lisp:progn (common-lisp:defun get-room @@ -26862,16 +27020,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)))) + 'room-id) + common-lisp:t))) "GetRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-room)) (common-lisp:progn (common-lisp:defun get-sip-media-application @@ -26894,12 +27054,13 @@ (common-lisp:format common-lisp:nil "/sip-media-applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "GetSipMediaApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sip-media-application)) (common-lisp:progn (common-lisp:defun get-sip-media-application-logging-configuration @@ -26922,12 +27083,13 @@ (common-lisp:format common-lisp:nil "/sip-media-applications/~A/logging-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "GetSipMediaApplicationLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sip-media-application-logging-configuration)) (common-lisp:progn (common-lisp:defun get-sip-rule @@ -26949,12 +27111,13 @@ (common-lisp:format common-lisp:nil "/sip-rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-rule-id)))) + 'sip-rule-id) + common-lisp:t))) "GetSipRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sip-rule)) (common-lisp:progn (common-lisp:defun get-user @@ -26976,16 +27139,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "GetUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user)) (common-lisp:progn (common-lisp:defun get-user-settings @@ -27007,16 +27172,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users/~A/settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "GetUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-settings)) (common-lisp:progn (common-lisp:defun get-voice-connector @@ -27038,12 +27205,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector)) (common-lisp:progn (common-lisp:defun get-voice-connector-emergency-calling-configuration @@ -27066,12 +27234,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/emergency-calling-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorEmergencyCallingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-emergency-calling-configuration)) (common-lisp:progn (common-lisp:defun get-voice-connector-group @@ -27094,12 +27263,13 @@ (common-lisp:format common-lisp:nil "/voice-connector-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "GetVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-group)) (common-lisp:progn (common-lisp:defun get-voice-connector-logging-configuration @@ -27122,12 +27292,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/logging-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-logging-configuration)) (common-lisp:progn (common-lisp:defun get-voice-connector-origination @@ -27150,12 +27321,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/origination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorOrigination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-origination)) (common-lisp:progn (common-lisp:defun get-voice-connector-proxy @@ -27178,12 +27350,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/programmable-numbers/proxy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorProxy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-proxy)) (common-lisp:progn (common-lisp:defun get-voice-connector-streaming-configuration @@ -27206,12 +27379,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/streaming-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorStreamingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-streaming-configuration)) (common-lisp:progn (common-lisp:defun get-voice-connector-termination @@ -27234,12 +27408,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorTermination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-termination)) (common-lisp:progn (common-lisp:defun get-voice-connector-termination-health @@ -27262,12 +27437,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination/health" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "GetVoiceConnectorTerminationHealth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-connector-termination-health)) (common-lisp:progn (common-lisp:defun invite-users @@ -27290,12 +27466,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users?operation=add" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "InviteUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invite-users)) (common-lisp:progn (common-lisp:defun list-accounts @@ -27313,7 +27490,7 @@ aws-sdk/generator/operation::input "GET" "/accounts" "ListAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accounts)) (common-lisp:progn (common-lisp:defun list-app-instance-admins @@ -27336,12 +27513,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/admins" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "ListAppInstanceAdmins")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-instance-admins)) (common-lisp:progn (common-lisp:defun list-app-instance-users @@ -27360,7 +27538,7 @@ "GET" "/app-instance-users" "ListAppInstanceUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-instance-users)) (common-lisp:progn (common-lisp:defun list-app-instances @@ -27377,7 +27555,7 @@ aws-sdk/generator/operation::input "GET" "/app-instances" "ListAppInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-instances)) (common-lisp:progn (common-lisp:defun list-attendee-tags @@ -27399,16 +27577,18 @@ (common-lisp:format common-lisp:nil "/meetings/~A/attendees/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)) - (quri.encode:url-encode + 'meeting-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attendee-id)))) + 'attendee-id) + common-lisp:t))) "ListAttendeeTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attendee-tags)) (common-lisp:progn (common-lisp:defun list-attendees @@ -27431,12 +27611,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/attendees" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "ListAttendees")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attendees)) (common-lisp:progn (common-lisp:defun list-bots @@ -27459,12 +27640,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/bots" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "ListBots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bots)) (common-lisp:progn (common-lisp:defun list-channel-bans @@ -27488,12 +27670,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/bans" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListChannelBans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-bans)) (common-lisp:progn (common-lisp:defun list-channel-memberships @@ -27518,12 +27701,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/memberships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListChannelMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-memberships)) (common-lisp:progn (common-lisp:defun list-channel-memberships-for-app-instance-user @@ -27545,7 +27729,7 @@ "GET" "/channels?scope=app-instance-user-memberships" "ListChannelMembershipsForAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-memberships-for-app-instance-user)) (common-lisp:progn (common-lisp:defun list-channel-messages @@ -27570,12 +27754,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/messages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListChannelMessages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-messages)) (common-lisp:progn (common-lisp:defun list-channel-moderators @@ -27599,12 +27784,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/moderators" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "ListChannelModerators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-moderators)) (common-lisp:progn (common-lisp:defun list-channels @@ -27624,7 +27810,7 @@ aws-sdk/generator/operation::input "GET" "/channels" "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-channels-moderated-by-app-instance-user @@ -27646,7 +27832,7 @@ "GET" "/channels?scope=app-instance-user-moderated-channels" "ListChannelsModeratedByAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels-moderated-by-app-instance-user)) (common-lisp:progn (common-lisp:defun list-media-capture-pipelines @@ -27665,7 +27851,7 @@ "GET" "/media-capture-pipelines" "ListMediaCapturePipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-media-capture-pipelines)) (common-lisp:progn (common-lisp:defun list-meeting-tags @@ -27687,12 +27873,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "ListMeetingTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-meeting-tags)) (common-lisp:progn (common-lisp:defun list-meetings @@ -27709,7 +27896,7 @@ aws-sdk/generator/operation::input "GET" "/meetings" "ListMeetings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-meetings)) (common-lisp:progn (common-lisp:defun list-phone-number-orders @@ -27727,7 +27914,7 @@ "GET" "/phone-number-orders" "ListPhoneNumberOrders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-phone-number-orders)) (common-lisp:progn (common-lisp:defun list-phone-numbers @@ -27747,7 +27934,7 @@ aws-sdk/generator/operation::input "GET" "/phone-numbers" "ListPhoneNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-phone-numbers)) (common-lisp:progn (common-lisp:defun list-proxy-sessions @@ -27771,12 +27958,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "ListProxySessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-proxy-sessions)) (common-lisp:progn (common-lisp:defun list-room-memberships @@ -27800,16 +27988,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A/memberships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)))) + 'room-id) + common-lisp:t))) "ListRoomMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-room-memberships)) (common-lisp:progn (common-lisp:defun list-rooms @@ -27833,12 +28023,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "ListRooms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rooms)) (common-lisp:progn (common-lisp:defun list-sip-media-applications @@ -27857,7 +28048,7 @@ "GET" "/sip-media-applications" "ListSipMediaApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sip-media-applications)) (common-lisp:progn (common-lisp:defun list-sip-rules @@ -27876,7 +28067,7 @@ aws-sdk/generator/operation::input "GET" "/sip-rules" "ListSipRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sip-rules)) (common-lisp:progn (common-lisp:defun list-supported-phone-number-countries @@ -27895,7 +28086,7 @@ "GET" "/phone-number-countries" "ListSupportedPhoneNumberCountries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-supported-phone-number-countries)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -27912,7 +28103,7 @@ aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-users @@ -27937,12 +28128,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun list-voice-connector-groups @@ -27961,7 +28153,7 @@ "GET" "/voice-connector-groups" "ListVoiceConnectorGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-voice-connector-groups)) (common-lisp:progn (common-lisp:defun list-voice-connector-termination-credentials @@ -27984,12 +28176,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination/credentials" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "ListVoiceConnectorTerminationCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-voice-connector-termination-credentials)) (common-lisp:progn (common-lisp:defun list-voice-connectors @@ -28007,7 +28200,7 @@ "GET" "/voice-connectors" "ListVoiceConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-voice-connectors)) (common-lisp:progn (common-lisp:defun logout-user @@ -28029,16 +28222,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users/~A?operation=logout" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "LogoutUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'logout-user)) (common-lisp:progn (common-lisp:defun put-app-instance-retention-settings @@ -28063,12 +28258,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/retention-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "PutAppInstanceRetentionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-app-instance-retention-settings)) (common-lisp:progn (common-lisp:defun put-app-instance-streaming-configurations @@ -28094,12 +28290,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A/streaming-configurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "PutAppInstanceStreamingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-app-instance-streaming-configurations)) (common-lisp:progn (common-lisp:defun put-events-configuration @@ -28124,16 +28321,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/bots/~A/events-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "PutEventsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-events-configuration)) (common-lisp:progn (common-lisp:defun put-retention-settings @@ -28155,12 +28354,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/retention-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "PutRetentionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-retention-settings)) (common-lisp:progn (common-lisp:defun put-sip-media-application-logging-configuration @@ -28186,12 +28386,13 @@ (common-lisp:format common-lisp:nil "/sip-media-applications/~A/logging-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "PutSipMediaApplicationLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-sip-media-application-logging-configuration)) (common-lisp:progn (common-lisp:defun put-voice-connector-emergency-calling-configuration @@ -28216,12 +28417,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/emergency-calling-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorEmergencyCallingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-emergency-calling-configuration)) (common-lisp:progn (common-lisp:defun put-voice-connector-logging-configuration @@ -28245,12 +28447,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/logging-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-logging-configuration)) (common-lisp:progn (common-lisp:defun put-voice-connector-origination @@ -28273,12 +28476,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/origination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorOrigination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-origination)) (common-lisp:progn (common-lisp:defun put-voice-connector-proxy @@ -28305,12 +28509,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/programmable-numbers/proxy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorProxy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-proxy)) (common-lisp:progn (common-lisp:defun put-voice-connector-streaming-configuration @@ -28335,12 +28540,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/streaming-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorStreamingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-streaming-configuration)) (common-lisp:progn (common-lisp:defun put-voice-connector-termination @@ -28363,12 +28569,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorTermination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-termination)) (common-lisp:progn (common-lisp:defun put-voice-connector-termination-credentials @@ -28391,12 +28598,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/termination/credentials?operation=put" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "PutVoiceConnectorTerminationCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-voice-connector-termination-credentials)) (common-lisp:progn (common-lisp:defun redact-channel-message @@ -28419,16 +28627,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/messages/~A?operation=redact" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'message-id)))) + 'message-id) + common-lisp:t))) "RedactChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'redact-channel-message)) (common-lisp:progn (common-lisp:defun redact-conversation-message @@ -28452,20 +28662,23 @@ (common-lisp:format common-lisp:nil "/accounts/~A/conversations/~A/messages/~A?operation=redact" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'conversation-id)) - (quri.encode:url-encode + 'conversation-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'message-id)))) + 'message-id) + common-lisp:t))) "RedactConversationMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'redact-conversation-message)) (common-lisp:progn (common-lisp:defun redact-room-message @@ -28487,20 +28700,23 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A/messages/~A?operation=redact" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)) - (quri.encode:url-encode + 'room-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'message-id)))) + 'message-id) + common-lisp:t))) "RedactRoomMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'redact-room-message)) (common-lisp:progn (common-lisp:defun regenerate-security-token @@ -28523,16 +28739,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/bots/~A?operation=regenerate-security-token" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "RegenerateSecurityToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'regenerate-security-token)) (common-lisp:progn (common-lisp:defun reset-personal-pin @@ -28554,16 +28772,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users/~A?operation=reset-personal-pin" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "ResetPersonalPIN")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-personal-pin)) (common-lisp:progn (common-lisp:defun restore-phone-number @@ -28585,12 +28805,13 @@ (common-lisp:format common-lisp:nil "/phone-numbers/~A?operation=restore" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "RestorePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-phone-number)) (common-lisp:progn (common-lisp:defun search-available-phone-numbers @@ -28612,7 +28833,7 @@ "GET" "/search?type=phone-numbers" "SearchAvailablePhoneNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-available-phone-numbers)) (common-lisp:progn (common-lisp:defun send-channel-message @@ -28637,12 +28858,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/messages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "SendChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-channel-message)) (common-lisp:progn (common-lisp:defun start-meeting-transcription @@ -28666,12 +28888,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/transcription?operation=start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "StartMeetingTranscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-meeting-transcription)) (common-lisp:progn (common-lisp:defun stop-meeting-transcription @@ -28694,12 +28917,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/transcription?operation=stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "StopMeetingTranscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-meeting-transcription)) (common-lisp:progn (common-lisp:defun tag-attendee @@ -28721,16 +28945,18 @@ (common-lisp:format common-lisp:nil "/meetings/~A/attendees/~A/tags?operation=add" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)) - (quri.encode:url-encode + 'meeting-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attendee-id)))) + 'attendee-id) + common-lisp:t))) "TagAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-attendee)) (common-lisp:progn (common-lisp:defun tag-meeting @@ -28752,12 +28978,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/tags?operation=add" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "TagMeeting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-meeting)) (common-lisp:progn (common-lisp:defun tag-resource @@ -28775,7 +29002,7 @@ "POST" "/tags?operation=tag-resource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-attendee @@ -28798,16 +29025,18 @@ (common-lisp:format common-lisp:nil "/meetings/~A/attendees/~A/tags?operation=delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)) - (quri.encode:url-encode + 'meeting-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attendee-id)))) + 'attendee-id) + common-lisp:t))) "UntagAttendee")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-attendee)) (common-lisp:progn (common-lisp:defun untag-meeting @@ -28829,12 +29058,13 @@ (common-lisp:format common-lisp:nil "/meetings/~A/tags?operation=delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'meeting-id)))) + 'meeting-id) + common-lisp:t))) "UntagMeeting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-meeting)) (common-lisp:progn (common-lisp:defun untag-resource @@ -28852,7 +29082,7 @@ "POST" "/tags?operation=untag-resource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-account @@ -28875,12 +29105,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "UpdateAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account)) (common-lisp:progn (common-lisp:defun update-account-settings @@ -28902,12 +29133,13 @@ (common-lisp:format common-lisp:nil "/accounts/~A/settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "UpdateAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-settings)) (common-lisp:progn (common-lisp:defun update-app-instance @@ -28929,12 +29161,13 @@ (common-lisp:format common-lisp:nil "/app-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-arn)))) + 'app-instance-arn) + common-lisp:t))) "UpdateAppInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-instance)) (common-lisp:progn (common-lisp:defun update-app-instance-user @@ -28957,12 +29190,13 @@ (common-lisp:format common-lisp:nil "/app-instance-users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-instance-user-arn)))) + 'app-instance-user-arn) + common-lisp:t))) "UpdateAppInstanceUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-instance-user)) (common-lisp:progn (common-lisp:defun update-bot @@ -28984,16 +29218,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/bots/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "UpdateBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bot)) (common-lisp:progn (common-lisp:defun update-channel @@ -29017,12 +29253,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-channel-message @@ -29047,16 +29284,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/messages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)) - (quri.encode:url-encode + 'channel-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'message-id)))) + 'message-id) + common-lisp:t))) "UpdateChannelMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel-message)) (common-lisp:progn (common-lisp:defun update-channel-read-marker @@ -29079,12 +29318,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/readMarker" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-arn)))) + 'channel-arn) + common-lisp:t))) "UpdateChannelReadMarker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel-read-marker)) (common-lisp:progn (common-lisp:defun update-global-settings @@ -29102,7 +29342,7 @@ aws-sdk/generator/operation::input "PUT" "/settings" "UpdateGlobalSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-global-settings)) (common-lisp:progn (common-lisp:defun update-phone-number @@ -29126,12 +29366,13 @@ (common-lisp:format common-lisp:nil "/phone-numbers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "UpdatePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-phone-number)) (common-lisp:progn (common-lisp:defun update-phone-number-settings @@ -29150,7 +29391,7 @@ "PUT" "/settings/phone-number" "UpdatePhoneNumberSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-phone-number-settings)) (common-lisp:progn (common-lisp:defun update-proxy-session @@ -29175,16 +29416,18 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A/proxy-sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)) - (quri.encode:url-encode + 'voice-connector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proxy-session-id)))) + 'proxy-session-id) + common-lisp:t))) "UpdateProxySession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-proxy-session)) (common-lisp:progn (common-lisp:defun update-room @@ -29206,16 +29449,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)))) + 'room-id) + common-lisp:t))) "UpdateRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-room)) (common-lisp:progn (common-lisp:defun update-room-membership @@ -29238,20 +29483,23 @@ (common-lisp:format common-lisp:nil "/accounts/~A/rooms/~A/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'room-id)) - (quri.encode:url-encode + 'room-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-id)))) + 'member-id) + common-lisp:t))) "UpdateRoomMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-room-membership)) (common-lisp:progn (common-lisp:defun update-sip-media-application @@ -29275,12 +29523,13 @@ (common-lisp:format common-lisp:nil "/sip-media-applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)))) + 'sip-media-application-id) + common-lisp:t))) "UpdateSipMediaApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sip-media-application)) (common-lisp:progn (common-lisp:defun update-sip-media-application-call @@ -29305,16 +29554,18 @@ (common-lisp:format common-lisp:nil "/sip-media-applications/~A/calls/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-media-application-id)) - (quri.encode:url-encode + 'sip-media-application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'transaction-id)))) + 'transaction-id) + common-lisp:t))) "UpdateSipMediaApplicationCall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sip-media-application-call)) (common-lisp:progn (common-lisp:defun update-sip-rule @@ -29338,12 +29589,13 @@ (common-lisp:format common-lisp:nil "/sip-rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sip-rule-id)))) + 'sip-rule-id) + common-lisp:t))) "UpdateSipRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sip-rule)) (common-lisp:progn (common-lisp:defun update-user @@ -29368,16 +29620,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) (common-lisp:progn (common-lisp:defun update-user-settings @@ -29400,16 +29654,18 @@ (common-lisp:format common-lisp:nil "/accounts/~A/users/~A/settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-settings)) (common-lisp:progn (common-lisp:defun update-voice-connector @@ -29433,12 +29689,13 @@ (common-lisp:format common-lisp:nil "/voice-connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-id)))) + 'voice-connector-id) + common-lisp:t))) "UpdateVoiceConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-voice-connector)) (common-lisp:progn (common-lisp:defun update-voice-connector-group @@ -29464,12 +29721,13 @@ (common-lisp:format common-lisp:nil "/voice-connector-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'voice-connector-group-id)))) + 'voice-connector-group-id) + common-lisp:t))) "UpdateVoiceConnectorGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-voice-connector-group)) (common-lisp:progn (common-lisp:defun validate-e911address @@ -29490,5 +29748,5 @@ "POST" "/emergency-calling/address" "ValidateE911Address")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-e911address)) diff --git a/services/cleanrooms/api.lisp b/services/cleanrooms/api.lisp index 2183c0de..d4d98dd4 100644 --- a/services/cleanrooms/api.lisp +++ b/services/cleanrooms/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cleanrooms/api - (:use) - (:nicknames #:aws/cleanrooms) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cleanrooms/api (:use) + (:nicknames #:aws/cleanrooms) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cleanrooms/api) (common-lisp:progn (common-lisp:define-condition cleanrooms-error @@ -20,7 +19,7 @@ (common-lisp:export 'cleanrooms-error)) (common-lisp:progn (common-lisp:defclass cleanrooms-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "cleanrooms" :api-version "2022-02-17" :host-prefix "cleanrooms" :signing-name @@ -14591,12 +14590,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/batch-analysistemplates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "BatchGetCollaborationAnalysisTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-collaboration-analysis-template)) (common-lisp:progn (common-lisp:defun batch-get-schema @@ -14618,12 +14618,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/batch-schema" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "BatchGetSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-schema)) (common-lisp:progn (common-lisp:defun create-analysis-template @@ -14648,12 +14649,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/analysistemplates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "CreateAnalysisTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-analysis-template)) (common-lisp:progn (common-lisp:defun create-collaboration @@ -14677,7 +14679,7 @@ "POST" "/collaborations" "CreateCollaboration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-collaboration)) (common-lisp:progn (common-lisp:defun create-configured-audience-model-association @@ -14706,12 +14708,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredaudiencemodelassociations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "CreateConfiguredAudienceModelAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configured-audience-model-association)) (common-lisp:progn (common-lisp:defun create-configured-table @@ -14732,7 +14735,7 @@ "POST" "/configuredTables" "CreateConfiguredTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configured-table)) (common-lisp:progn (common-lisp:defun create-configured-table-analysis-rule @@ -14758,12 +14761,13 @@ (common-lisp:format common-lisp:nil "/configuredTables/~A/analysisRule" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-identifier)))) + 'configured-table-identifier) + common-lisp:t))) "CreateConfiguredTableAnalysisRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configured-table-analysis-rule)) (common-lisp:progn (common-lisp:defun create-configured-table-association @@ -14789,12 +14793,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredTableAssociations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "CreateConfiguredTableAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configured-table-association)) (common-lisp:progn (common-lisp:defun create-membership @@ -14814,7 +14819,7 @@ aws-sdk/generator/operation::input "POST" "/memberships" "CreateMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-membership)) (common-lisp:progn (common-lisp:defun create-privacy-budget-template @@ -14840,12 +14845,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/privacybudgettemplates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "CreatePrivacyBudgetTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-privacy-budget-template)) (common-lisp:progn (common-lisp:defun delete-analysis-template @@ -14869,16 +14875,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/analysistemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-template-identifier)))) + 'analysis-template-identifier) + common-lisp:t))) "DeleteAnalysisTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-analysis-template)) (common-lisp:progn (common-lisp:defun delete-collaboration @@ -14900,12 +14908,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "DeleteCollaboration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-collaboration)) (common-lisp:progn (common-lisp:defun delete-configured-audience-model-association @@ -14932,16 +14941,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredaudiencemodelassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-association-identifier)))) + 'configured-audience-model-association-identifier) + common-lisp:t))) "DeleteConfiguredAudienceModelAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configured-audience-model-association)) (common-lisp:progn (common-lisp:defun delete-configured-table @@ -14963,12 +14974,13 @@ (common-lisp:format common-lisp:nil "/configuredTables/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-identifier)))) + 'configured-table-identifier) + common-lisp:t))) "DeleteConfiguredTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configured-table)) (common-lisp:progn (common-lisp:defun delete-configured-table-analysis-rule @@ -14993,16 +15005,18 @@ (common-lisp:format common-lisp:nil "/configuredTables/~A/analysisRule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-identifier)) - (quri.encode:url-encode + 'configured-table-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-rule-type)))) + 'analysis-rule-type) + common-lisp:t))) "DeleteConfiguredTableAnalysisRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configured-table-analysis-rule)) (common-lisp:progn (common-lisp:defun delete-configured-table-association @@ -15028,16 +15042,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredTableAssociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-association-identifier)))) + 'configured-table-association-identifier) + common-lisp:t))) "DeleteConfiguredTableAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configured-table-association)) (common-lisp:progn (common-lisp:defun delete-member @@ -15060,16 +15076,18 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/member/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)) - (quri.encode:url-encode + 'collaboration-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "DeleteMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-member)) (common-lisp:progn (common-lisp:defun delete-membership @@ -15091,12 +15109,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "DeleteMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-membership)) (common-lisp:progn (common-lisp:defun delete-privacy-budget-template @@ -15122,16 +15141,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/privacybudgettemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'privacy-budget-template-identifier)))) + 'privacy-budget-template-identifier) + common-lisp:t))) "DeletePrivacyBudgetTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-privacy-budget-template)) (common-lisp:progn (common-lisp:defun get-analysis-template @@ -15155,16 +15176,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/analysistemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-template-identifier)))) + 'analysis-template-identifier) + common-lisp:t))) "GetAnalysisTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-analysis-template)) (common-lisp:progn (common-lisp:defun get-collaboration @@ -15186,12 +15209,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "GetCollaboration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-collaboration)) (common-lisp:progn (common-lisp:defun get-collaboration-analysis-template @@ -15216,16 +15240,18 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/analysistemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)) - (quri.encode:url-encode + 'collaboration-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-template-arn)))) + 'analysis-template-arn) + common-lisp:t))) "GetCollaborationAnalysisTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-collaboration-analysis-template)) (common-lisp:progn (common-lisp:defun get-collaboration-configured-audience-model-association @@ -15251,16 +15277,18 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/configuredaudiencemodelassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)) - (quri.encode:url-encode + 'collaboration-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-association-identifier)))) + 'configured-audience-model-association-identifier) + common-lisp:t))) "GetCollaborationConfiguredAudienceModelAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-collaboration-configured-audience-model-association)) (common-lisp:progn (common-lisp:defun get-collaboration-privacy-budget-template @@ -15286,16 +15314,18 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/privacybudgettemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)) - (quri.encode:url-encode + 'collaboration-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'privacy-budget-template-identifier)))) + 'privacy-budget-template-identifier) + common-lisp:t))) "GetCollaborationPrivacyBudgetTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-collaboration-privacy-budget-template)) (common-lisp:progn (common-lisp:defun get-configured-audience-model-association @@ -15322,16 +15352,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredaudiencemodelassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-association-identifier)))) + 'configured-audience-model-association-identifier) + common-lisp:t))) "GetConfiguredAudienceModelAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configured-audience-model-association)) (common-lisp:progn (common-lisp:defun get-configured-table @@ -15353,12 +15385,13 @@ (common-lisp:format common-lisp:nil "/configuredTables/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-identifier)))) + 'configured-table-identifier) + common-lisp:t))) "GetConfiguredTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configured-table)) (common-lisp:progn (common-lisp:defun get-configured-table-analysis-rule @@ -15383,16 +15416,18 @@ (common-lisp:format common-lisp:nil "/configuredTables/~A/analysisRule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-identifier)) - (quri.encode:url-encode + 'configured-table-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-rule-type)))) + 'analysis-rule-type) + common-lisp:t))) "GetConfiguredTableAnalysisRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configured-table-analysis-rule)) (common-lisp:progn (common-lisp:defun get-configured-table-association @@ -15418,16 +15453,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredTableAssociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-association-identifier)))) + 'configured-table-association-identifier) + common-lisp:t))) "GetConfiguredTableAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configured-table-association)) (common-lisp:progn (common-lisp:defun get-membership @@ -15449,12 +15486,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "GetMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-membership)) (common-lisp:progn (common-lisp:defun get-privacy-budget-template @@ -15480,16 +15518,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/privacybudgettemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'privacy-budget-template-identifier)))) + 'privacy-budget-template-identifier) + common-lisp:t))) "GetPrivacyBudgetTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-privacy-budget-template)) (common-lisp:progn (common-lisp:defun get-protected-query @@ -15513,16 +15553,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/protectedQueries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'protected-query-identifier)))) + 'protected-query-identifier) + common-lisp:t))) "GetProtectedQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-protected-query)) (common-lisp:progn (common-lisp:defun get-schema @@ -15544,16 +15586,18 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/schemas/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)) - (quri.encode:url-encode + 'collaboration-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema)) (common-lisp:progn (common-lisp:defun get-schema-analysis-rule @@ -15576,20 +15620,23 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/schemas/~A/analysisRule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)) - (quri.encode:url-encode + 'collaboration-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type)))) + 'type) + common-lisp:t))) "GetSchemaAnalysisRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema-analysis-rule)) (common-lisp:progn (common-lisp:defun list-analysis-templates @@ -15613,12 +15660,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/analysistemplates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "ListAnalysisTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-analysis-templates)) (common-lisp:progn (common-lisp:defun list-collaboration-analysis-templates @@ -15643,12 +15691,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/analysistemplates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "ListCollaborationAnalysisTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-collaboration-analysis-templates)) (common-lisp:progn (common-lisp:defun list-collaboration-configured-audience-model-associations @@ -15673,12 +15722,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/configuredaudiencemodelassociations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "ListCollaborationConfiguredAudienceModelAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-collaboration-configured-audience-model-associations)) (common-lisp:progn @@ -15704,12 +15754,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/privacybudgettemplates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "ListCollaborationPrivacyBudgetTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-collaboration-privacy-budget-templates)) (common-lisp:progn (common-lisp:defun list-collaboration-privacy-budgets @@ -15735,12 +15786,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/privacybudgets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "ListCollaborationPrivacyBudgets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-collaboration-privacy-budgets)) (common-lisp:progn (common-lisp:defun list-collaborations @@ -15758,7 +15810,7 @@ aws-sdk/generator/operation::input "GET" "/collaborations" "ListCollaborations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-collaborations)) (common-lisp:progn (common-lisp:defun list-configured-audience-model-associations @@ -15783,12 +15835,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredaudiencemodelassociations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "ListConfiguredAudienceModelAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configured-audience-model-associations)) (common-lisp:progn (common-lisp:defun list-configured-table-associations @@ -15813,12 +15866,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredTableAssociations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "ListConfiguredTableAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configured-table-associations)) (common-lisp:progn (common-lisp:defun list-configured-tables @@ -15836,7 +15890,7 @@ "GET" "/configuredTables" "ListConfiguredTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configured-tables)) (common-lisp:progn (common-lisp:defun list-members @@ -15860,12 +15914,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/members" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "ListMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-members)) (common-lisp:progn (common-lisp:defun list-memberships @@ -15882,7 +15937,7 @@ aws-sdk/generator/operation::input "GET" "/memberships" "ListMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-memberships)) (common-lisp:progn (common-lisp:defun list-privacy-budget-templates @@ -15907,12 +15962,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/privacybudgettemplates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "ListPrivacyBudgetTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-privacy-budget-templates)) (common-lisp:progn (common-lisp:defun list-privacy-budgets @@ -15937,12 +15993,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/privacybudgets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "ListPrivacyBudgets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-privacy-budgets)) (common-lisp:progn (common-lisp:defun list-protected-queries @@ -15967,12 +16024,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/protectedQueries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "ListProtectedQueries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-protected-queries)) (common-lisp:progn (common-lisp:defun list-schemas @@ -15997,12 +16055,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A/schemas" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "ListSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schemas)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -16024,12 +16083,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun preview-privacy-impact @@ -16052,12 +16112,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/previewprivacyimpact" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "PreviewPrivacyImpact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'preview-privacy-impact)) (common-lisp:progn (common-lisp:defun start-protected-query @@ -16082,12 +16143,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A/protectedQueries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "StartProtectedQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-protected-query)) (common-lisp:progn (common-lisp:defun tag-resource @@ -16109,12 +16171,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -16136,12 +16199,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-analysis-template @@ -16166,16 +16230,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/analysistemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-template-identifier)))) + 'analysis-template-identifier) + common-lisp:t))) "UpdateAnalysisTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-analysis-template)) (common-lisp:progn (common-lisp:defun update-collaboration @@ -16199,12 +16265,13 @@ (common-lisp:format common-lisp:nil "/collaborations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collaboration-identifier)))) + 'collaboration-identifier) + common-lisp:t))) "UpdateCollaboration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-collaboration)) (common-lisp:progn (common-lisp:defun update-configured-audience-model-association @@ -16231,16 +16298,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredaudiencemodelassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-association-identifier)))) + 'configured-audience-model-association-identifier) + common-lisp:t))) "UpdateConfiguredAudienceModelAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configured-audience-model-association)) (common-lisp:progn (common-lisp:defun update-configured-table @@ -16264,12 +16333,13 @@ (common-lisp:format common-lisp:nil "/configuredTables/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-identifier)))) + 'configured-table-identifier) + common-lisp:t))) "UpdateConfiguredTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configured-table)) (common-lisp:progn (common-lisp:defun update-configured-table-analysis-rule @@ -16295,16 +16365,18 @@ (common-lisp:format common-lisp:nil "/configuredTables/~A/analysisRule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-identifier)) - (quri.encode:url-encode + 'configured-table-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-rule-type)))) + 'analysis-rule-type) + common-lisp:t))) "UpdateConfiguredTableAnalysisRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configured-table-analysis-rule)) (common-lisp:progn (common-lisp:defun update-configured-table-association @@ -16330,16 +16402,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/configuredTableAssociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-table-association-identifier)))) + 'configured-table-association-identifier) + common-lisp:t))) "UpdateConfiguredTableAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configured-table-association)) (common-lisp:progn (common-lisp:defun update-membership @@ -16364,12 +16438,13 @@ (common-lisp:format common-lisp:nil "/memberships/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)))) + 'membership-identifier) + common-lisp:t))) "UpdateMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-membership)) (common-lisp:progn (common-lisp:defun update-privacy-budget-template @@ -16396,16 +16471,18 @@ (common-lisp:format common-lisp:nil "/memberships/~A/privacybudgettemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'privacy-budget-template-identifier)))) + 'privacy-budget-template-identifier) + common-lisp:t))) "UpdatePrivacyBudgetTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-privacy-budget-template)) (common-lisp:progn (common-lisp:defun update-protected-query @@ -16430,14 +16507,16 @@ (common-lisp:format common-lisp:nil "/memberships/~A/protectedQueries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'membership-identifier)) - (quri.encode:url-encode + 'membership-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'protected-query-identifier)))) + 'protected-query-identifier) + common-lisp:t))) "UpdateProtectedQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-protected-query)) diff --git a/services/cleanroomsml/api.lisp b/services/cleanroomsml/api.lisp index fc26d88a..adf0574e 100644 --- a/services/cleanroomsml/api.lisp +++ b/services/cleanroomsml/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cleanroomsml/api - (:use) - (:nicknames #:aws/cleanroomsml) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cleanroomsml/api (:use) + (:nicknames #:aws/cleanroomsml) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cleanroomsml/api) (common-lisp:progn (common-lisp:define-condition cleanroomsml-error @@ -20,7 +19,7 @@ (common-lisp:export 'cleanroomsml-error)) (common-lisp:progn (common-lisp:defclass cleanroomsml-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "cleanroomsml" :api-version "2023-09-06" :host-prefix "cleanrooms-ml" :signing-name @@ -4712,7 +4711,7 @@ "POST" "/audience-model" "CreateAudienceModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-audience-model)) (common-lisp:progn (common-lisp:defun create-configured-audience-model @@ -4737,7 +4736,7 @@ "POST" "/configured-audience-model" "CreateConfiguredAudienceModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configured-audience-model)) (common-lisp:progn (common-lisp:defun create-training-dataset @@ -4757,7 +4756,7 @@ "POST" "/training-dataset" "CreateTrainingDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-training-dataset)) (common-lisp:progn (common-lisp:defun delete-audience-generation-job @@ -4780,12 +4779,13 @@ (common-lisp:format common-lisp:nil "/audience-generation-job/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'audience-generation-job-arn)))) + 'audience-generation-job-arn) + common-lisp:t))) "DeleteAudienceGenerationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-audience-generation-job)) (common-lisp:progn (common-lisp:defun delete-audience-model @@ -4807,12 +4807,13 @@ (common-lisp:format common-lisp:nil "/audience-model/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'audience-model-arn)))) + 'audience-model-arn) + common-lisp:t))) "DeleteAudienceModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-audience-model)) (common-lisp:progn (common-lisp:defun delete-configured-audience-model @@ -4835,12 +4836,13 @@ (common-lisp:format common-lisp:nil "/configured-audience-model/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-arn)))) + 'configured-audience-model-arn) + common-lisp:t))) "DeleteConfiguredAudienceModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configured-audience-model)) (common-lisp:progn (common-lisp:defun delete-configured-audience-model-policy @@ -4863,12 +4865,13 @@ (common-lisp:format common-lisp:nil "/configured-audience-model/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-arn)))) + 'configured-audience-model-arn) + common-lisp:t))) "DeleteConfiguredAudienceModelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configured-audience-model-policy)) (common-lisp:progn (common-lisp:defun delete-training-dataset @@ -4890,12 +4893,13 @@ (common-lisp:format common-lisp:nil "/training-dataset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'training-dataset-arn)))) + 'training-dataset-arn) + common-lisp:t))) "DeleteTrainingDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-training-dataset)) (common-lisp:progn (common-lisp:defun get-audience-generation-job @@ -4918,12 +4922,13 @@ (common-lisp:format common-lisp:nil "/audience-generation-job/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'audience-generation-job-arn)))) + 'audience-generation-job-arn) + common-lisp:t))) "GetAudienceGenerationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-audience-generation-job)) (common-lisp:progn (common-lisp:defun get-audience-model @@ -4945,12 +4950,13 @@ (common-lisp:format common-lisp:nil "/audience-model/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'audience-model-arn)))) + 'audience-model-arn) + common-lisp:t))) "GetAudienceModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-audience-model)) (common-lisp:progn (common-lisp:defun get-configured-audience-model @@ -4973,12 +4979,13 @@ (common-lisp:format common-lisp:nil "/configured-audience-model/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-arn)))) + 'configured-audience-model-arn) + common-lisp:t))) "GetConfiguredAudienceModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configured-audience-model)) (common-lisp:progn (common-lisp:defun get-configured-audience-model-policy @@ -5001,12 +5008,13 @@ (common-lisp:format common-lisp:nil "/configured-audience-model/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-arn)))) + 'configured-audience-model-arn) + common-lisp:t))) "GetConfiguredAudienceModelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configured-audience-model-policy)) (common-lisp:progn (common-lisp:defun get-training-dataset @@ -5028,12 +5036,13 @@ (common-lisp:format common-lisp:nil "/training-dataset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'training-dataset-arn)))) + 'training-dataset-arn) + common-lisp:t))) "GetTrainingDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-training-dataset)) (common-lisp:progn (common-lisp:defun list-audience-export-jobs @@ -5054,7 +5063,7 @@ "GET" "/audience-export-job" "ListAudienceExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-audience-export-jobs)) (common-lisp:progn (common-lisp:defun list-audience-generation-jobs @@ -5076,7 +5085,7 @@ "GET" "/audience-generation-job" "ListAudienceGenerationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-audience-generation-jobs)) (common-lisp:progn (common-lisp:defun list-audience-models @@ -5093,7 +5102,7 @@ aws-sdk/generator/operation::input "GET" "/audience-model" "ListAudienceModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-audience-models)) (common-lisp:progn (common-lisp:defun list-configured-audience-models @@ -5112,7 +5121,7 @@ "GET" "/configured-audience-model" "ListConfiguredAudienceModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configured-audience-models)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5134,12 +5143,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-training-datasets @@ -5157,7 +5167,7 @@ "GET" "/training-dataset" "ListTrainingDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-training-datasets)) (common-lisp:progn (common-lisp:defun put-configured-audience-model-policy @@ -5185,12 +5195,13 @@ (common-lisp:format common-lisp:nil "/configured-audience-model/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-arn)))) + 'configured-audience-model-arn) + common-lisp:t))) "PutConfiguredAudienceModelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configured-audience-model-policy)) (common-lisp:progn (common-lisp:defun start-audience-export-job @@ -5212,7 +5223,7 @@ "POST" "/audience-export-job" "StartAudienceExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-audience-export-job)) (common-lisp:progn (common-lisp:defun start-audience-generation-job @@ -5235,7 +5246,7 @@ "POST" "/audience-generation-job" "StartAudienceGenerationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-audience-generation-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5257,12 +5268,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5284,12 +5296,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-configured-audience-model @@ -5318,10 +5331,11 @@ (common-lisp:format common-lisp:nil "/configured-audience-model/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configured-audience-model-arn)))) + 'configured-audience-model-arn) + common-lisp:t))) "UpdateConfiguredAudienceModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configured-audience-model)) diff --git a/services/cloud9/api.lisp b/services/cloud9/api.lisp index 06277732..9ea46175 100644 --- a/services/cloud9/api.lisp +++ b/services/cloud9/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloud9/api - (:use) - (:nicknames #:aws/cloud9) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloud9/api (:use) + (:nicknames #:aws/cloud9) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloud9/api) (common-lisp:progn (common-lisp:define-condition cloud9-error @@ -1833,7 +1832,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEnvironmentEC2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment-ec2)) (common-lisp:progn (common-lisp:defun create-environment-membership @@ -1852,7 +1851,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEnvironmentMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment-membership)) (common-lisp:progn (common-lisp:defun delete-environment @@ -1869,7 +1868,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun delete-environment-membership @@ -1887,7 +1886,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEnvironmentMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment-membership)) (common-lisp:progn (common-lisp:defun describe-environment-memberships @@ -1908,7 +1907,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEnvironmentMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-environment-memberships)) (common-lisp:progn (common-lisp:defun describe-environment-status @@ -1926,7 +1925,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEnvironmentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-environment-status)) (common-lisp:progn (common-lisp:defun describe-environments @@ -1943,7 +1942,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-environments)) (common-lisp:progn (common-lisp:defun list-environments @@ -1960,7 +1959,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1977,7 +1976,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1994,7 +1993,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2011,7 +2010,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-environment @@ -2031,7 +2030,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment)) (common-lisp:progn (common-lisp:defun update-environment-membership @@ -2050,5 +2049,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEnvironmentMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment-membership)) diff --git a/services/cloudcontrol/api.lisp b/services/cloudcontrol/api.lisp index c861f41d..06133487 100644 --- a/services/cloudcontrol/api.lisp +++ b/services/cloudcontrol/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudcontrol/api - (:use) - (:nicknames #:aws/cloudcontrol) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudcontrol/api (:use) + (:nicknames #:aws/cloudcontrol) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudcontrol/api) (common-lisp:progn (common-lisp:define-condition cloudcontrol-error @@ -1484,7 +1483,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelResourceRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-resource-request)) (common-lisp:progn (common-lisp:defun create-resource @@ -1504,7 +1503,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource)) (common-lisp:progn (common-lisp:defun delete-resource @@ -1524,7 +1523,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource)) (common-lisp:progn (common-lisp:defun get-resource @@ -1543,7 +1542,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource)) (common-lisp:progn (common-lisp:defun get-resource-request-status @@ -1561,7 +1560,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourceRequestStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-request-status)) (common-lisp:progn (common-lisp:defun list-resource-requests @@ -1581,7 +1580,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-requests)) (common-lisp:progn (common-lisp:defun list-resources @@ -1601,7 +1600,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources)) (common-lisp:progn (common-lisp:defun update-resource @@ -1621,5 +1620,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource)) diff --git a/services/clouddirectory/api.lisp b/services/clouddirectory/api.lisp index b17e34d2..77057f70 100644 --- a/services/clouddirectory/api.lisp +++ b/services/clouddirectory/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/clouddirectory/api - (:use) - (:nicknames #:aws/clouddirectory) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/clouddirectory/api (:use) + (:nicknames #:aws/clouddirectory) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/clouddirectory/api) (common-lisp:progn (common-lisp:define-condition clouddirectory-error @@ -20,7 +19,7 @@ (common-lisp:export 'clouddirectory-error)) (common-lisp:progn (common-lisp:defclass clouddirectory-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "clouddirectory" :api-version "2017-01-11" :host-prefix "clouddirectory" @@ -117,8 +116,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -206,8 +206,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input apply-schema-request)) (common-lisp:append @@ -325,8 +326,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -437,8 +439,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -526,8 +529,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -653,8 +657,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4205,12 +4210,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input batch-read-request)) (common-lisp:append @@ -5345,8 +5354,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input batch-write-request)) (common-lisp:append @@ -5434,8 +5444,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5582,8 +5593,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-facet-request)) (common-lisp:append @@ -5692,8 +5704,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-index-request)) (common-lisp:append @@ -5818,8 +5831,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6003,8 +6017,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6074,8 +6089,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6151,8 +6167,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input delete-facet-request)) (common-lisp:append @@ -6221,8 +6238,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6287,8 +6305,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6368,8 +6387,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6454,8 +6474,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6558,8 +6579,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6663,8 +6685,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6747,8 +6770,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6900,8 +6924,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6973,8 +6998,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7500,8 +7526,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7576,8 +7603,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-facet-request)) (common-lisp:append @@ -7670,8 +7698,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7799,12 +7828,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7917,12 +7950,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8018,8 +8055,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8114,8 +8152,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8636,12 +8675,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8991,8 +9034,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9113,8 +9157,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9261,8 +9306,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9427,12 +9473,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input list-index-request)) (common-lisp:append @@ -9692,12 +9742,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9842,12 +9896,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9979,8 +10037,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10127,12 +10186,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10292,12 +10355,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10453,8 +10520,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10616,12 +10684,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'consistency-level)) - (common-lisp:cons "x-amz-consistency-level" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-consistency-level" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10987,8 +11059,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11113,8 +11186,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11236,8 +11310,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11876,8 +11951,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'development-schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11978,8 +12054,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12076,8 +12153,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13182,8 +13260,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input update-facet-request)) (common-lisp:append @@ -13280,8 +13359,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13377,8 +13457,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'directory-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13472,8 +13553,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13580,8 +13662,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'schema-arn)) - (common-lisp:cons "x-amz-data-partition" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-data-partition" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13909,7 +13992,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/object/facets" "AddFacetToObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-facet-to-object)) (common-lisp:progn (common-lisp:defun apply-schema @@ -13928,7 +14011,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/schema/apply" "ApplySchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'apply-schema)) (common-lisp:progn (common-lisp:defun attach-object @@ -13949,7 +14032,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/object/attach" "AttachObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-object)) (common-lisp:progn (common-lisp:defun attach-policy @@ -13969,7 +14052,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/policy/attach" "AttachPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-policy)) (common-lisp:progn (common-lisp:defun attach-to-index @@ -13989,7 +14072,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/index/attach" "AttachToIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-to-index)) (common-lisp:progn (common-lisp:defun attach-typed-link @@ -14010,7 +14093,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/typedlink/attach" "AttachTypedLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-typed-link)) (common-lisp:progn (common-lisp:defun batch-read @@ -14030,7 +14113,7 @@ "POST" "/amazonclouddirectory/2017-01-11/batchread" "BatchRead")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-read)) (common-lisp:progn (common-lisp:defun batch-write @@ -14048,7 +14131,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/batchwrite" "BatchWrite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-write)) (common-lisp:progn (common-lisp:defun create-directory @@ -14066,7 +14149,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/directory/create" "CreateDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-directory)) (common-lisp:progn (common-lisp:defun create-facet @@ -14086,7 +14169,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/facet/create" "CreateFacet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-facet)) (common-lisp:progn (common-lisp:defun create-index @@ -14108,7 +14191,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/index" "CreateIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-index)) (common-lisp:progn (common-lisp:defun create-object @@ -14129,7 +14212,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/object" "CreateObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-object)) (common-lisp:progn (common-lisp:defun create-schema @@ -14147,7 +14230,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/schema/create" "CreateSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-schema)) (common-lisp:progn (common-lisp:defun create-typed-link-facet @@ -14165,7 +14248,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/typedlink/facet/create" "CreateTypedLinkFacet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-typed-link-facet)) (common-lisp:progn (common-lisp:defun delete-directory @@ -14183,7 +14266,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/directory" "DeleteDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-directory)) (common-lisp:progn (common-lisp:defun delete-facet @@ -14201,7 +14284,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/facet/delete" "DeleteFacet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-facet)) (common-lisp:progn (common-lisp:defun delete-object @@ -14219,7 +14302,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/object/delete" "DeleteObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-object)) (common-lisp:progn (common-lisp:defun delete-schema @@ -14237,7 +14320,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/schema" "DeleteSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schema)) (common-lisp:progn (common-lisp:defun delete-typed-link-facet @@ -14255,7 +14338,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/typedlink/facet/delete" "DeleteTypedLinkFacet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-typed-link-facet)) (common-lisp:progn (common-lisp:defun detach-from-index @@ -14275,7 +14358,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/index/detach" "DetachFromIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-from-index)) (common-lisp:progn (common-lisp:defun detach-object @@ -14294,7 +14377,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/object/detach" "DetachObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-object)) (common-lisp:progn (common-lisp:defun detach-policy @@ -14314,7 +14397,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/policy/detach" "DetachPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-policy)) (common-lisp:progn (common-lisp:defun detach-typed-link @@ -14333,7 +14416,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/typedlink/detach" "DetachTypedLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-typed-link)) (common-lisp:progn (common-lisp:defun disable-directory @@ -14351,7 +14434,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/directory/disable" "DisableDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-directory)) (common-lisp:progn (common-lisp:defun enable-directory @@ -14369,7 +14452,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/directory/enable" "EnableDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-directory)) (common-lisp:progn (common-lisp:defun get-applied-schema-version @@ -14388,7 +14471,7 @@ "POST" "/amazonclouddirectory/2017-01-11/schema/getappliedschema" "GetAppliedSchemaVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-applied-schema-version)) (common-lisp:progn (common-lisp:defun get-directory @@ -14406,7 +14489,7 @@ "POST" "/amazonclouddirectory/2017-01-11/directory/get" "GetDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-directory)) (common-lisp:progn (common-lisp:defun get-facet @@ -14424,7 +14507,7 @@ "POST" "/amazonclouddirectory/2017-01-11/facet" "GetFacet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-facet)) (common-lisp:progn (common-lisp:defun get-link-attributes @@ -14445,7 +14528,7 @@ "POST" "/amazonclouddirectory/2017-01-11/typedlink/attributes/get" "GetLinkAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-link-attributes)) (common-lisp:progn (common-lisp:defun get-object-attributes @@ -14466,7 +14549,7 @@ "POST" "/amazonclouddirectory/2017-01-11/object/attributes/get" "GetObjectAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-object-attributes)) (common-lisp:progn (common-lisp:defun get-object-information @@ -14486,7 +14569,7 @@ "POST" "/amazonclouddirectory/2017-01-11/object/information" "GetObjectInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-object-information)) (common-lisp:progn (common-lisp:defun get-schema-as-json @@ -14504,7 +14587,7 @@ "POST" "/amazonclouddirectory/2017-01-11/schema/json" "GetSchemaAsJson")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema-as-json)) (common-lisp:progn (common-lisp:defun get-typed-link-facet-information @@ -14523,7 +14606,7 @@ "POST" "/amazonclouddirectory/2017-01-11/typedlink/facet/get" "GetTypedLinkFacetInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-typed-link-facet-information)) (common-lisp:progn (common-lisp:defun list-applied-schema-arns @@ -14543,7 +14626,7 @@ "POST" "/amazonclouddirectory/2017-01-11/schema/applied" "ListAppliedSchemaArns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applied-schema-arns)) (common-lisp:progn (common-lisp:defun list-attached-indices @@ -14564,7 +14647,7 @@ "POST" "/amazonclouddirectory/2017-01-11/object/indices" "ListAttachedIndices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attached-indices)) (common-lisp:progn (common-lisp:defun list-development-schema-arns @@ -14583,7 +14666,7 @@ "POST" "/amazonclouddirectory/2017-01-11/schema/development" "ListDevelopmentSchemaArns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-development-schema-arns)) (common-lisp:progn (common-lisp:defun list-directories @@ -14601,7 +14684,7 @@ "POST" "/amazonclouddirectory/2017-01-11/directory/list" "ListDirectories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-directories)) (common-lisp:progn (common-lisp:defun list-facet-attributes @@ -14620,7 +14703,7 @@ "POST" "/amazonclouddirectory/2017-01-11/facet/attributes" "ListFacetAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-facet-attributes)) (common-lisp:progn (common-lisp:defun list-facet-names @@ -14639,7 +14722,7 @@ "POST" "/amazonclouddirectory/2017-01-11/facet/list" "ListFacetNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-facet-names)) (common-lisp:progn (common-lisp:defun list-incoming-typed-links @@ -14663,7 +14746,7 @@ "POST" "/amazonclouddirectory/2017-01-11/typedlink/incoming" "ListIncomingTypedLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-incoming-typed-links)) (common-lisp:progn (common-lisp:defun list-index @@ -14684,7 +14767,7 @@ "POST" "/amazonclouddirectory/2017-01-11/index/targets" "ListIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-index)) (common-lisp:progn (common-lisp:defun list-managed-schema-arns @@ -14703,7 +14786,7 @@ "POST" "/amazonclouddirectory/2017-01-11/schema/managed" "ListManagedSchemaArns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-managed-schema-arns)) (common-lisp:progn (common-lisp:defun list-object-attributes @@ -14724,7 +14807,7 @@ "POST" "/amazonclouddirectory/2017-01-11/object/attributes" "ListObjectAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-object-attributes)) (common-lisp:progn (common-lisp:defun list-object-children @@ -14745,7 +14828,7 @@ "POST" "/amazonclouddirectory/2017-01-11/object/children" "ListObjectChildren")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-object-children)) (common-lisp:progn (common-lisp:defun list-object-parent-paths @@ -14766,7 +14849,7 @@ "POST" "/amazonclouddirectory/2017-01-11/object/parentpaths" "ListObjectParentPaths")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-object-parent-paths)) (common-lisp:progn (common-lisp:defun list-object-parents @@ -14788,7 +14871,7 @@ "POST" "/amazonclouddirectory/2017-01-11/object/parent" "ListObjectParents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-object-parents)) (common-lisp:progn (common-lisp:defun list-object-policies @@ -14809,7 +14892,7 @@ "POST" "/amazonclouddirectory/2017-01-11/object/policy" "ListObjectPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-object-policies)) (common-lisp:progn (common-lisp:defun list-outgoing-typed-links @@ -14833,7 +14916,7 @@ "POST" "/amazonclouddirectory/2017-01-11/typedlink/outgoing" "ListOutgoingTypedLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-outgoing-typed-links)) (common-lisp:progn (common-lisp:defun list-policy-attachments @@ -14854,7 +14937,7 @@ "POST" "/amazonclouddirectory/2017-01-11/policy/attachment" "ListPolicyAttachments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policy-attachments)) (common-lisp:progn (common-lisp:defun list-published-schema-arns @@ -14874,7 +14957,7 @@ "POST" "/amazonclouddirectory/2017-01-11/schema/published" "ListPublishedSchemaArns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-published-schema-arns)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14893,7 +14976,7 @@ "POST" "/amazonclouddirectory/2017-01-11/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-typed-link-facet-attributes @@ -14913,7 +14996,7 @@ "POST" "/amazonclouddirectory/2017-01-11/typedlink/facet/attributes" "ListTypedLinkFacetAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-typed-link-facet-attributes)) (common-lisp:progn (common-lisp:defun list-typed-link-facet-names @@ -14933,7 +15016,7 @@ "POST" "/amazonclouddirectory/2017-01-11/typedlink/facet/list" "ListTypedLinkFacetNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-typed-link-facet-names)) (common-lisp:progn (common-lisp:defun lookup-policy @@ -14954,7 +15037,7 @@ "POST" "/amazonclouddirectory/2017-01-11/policy/lookup" "LookupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'lookup-policy)) (common-lisp:progn (common-lisp:defun publish-schema @@ -14974,7 +15057,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/schema/publish" "PublishSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish-schema)) (common-lisp:progn (common-lisp:defun put-schema-from-json @@ -14992,7 +15075,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/schema/json" "PutSchemaFromJson")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-schema-from-json)) (common-lisp:progn (common-lisp:defun remove-facet-from-object @@ -15012,7 +15095,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/object/facets/delete" "RemoveFacetFromObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-facet-from-object)) (common-lisp:progn (common-lisp:defun tag-resource @@ -15030,7 +15113,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/tags/add" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -15048,7 +15131,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/tags/remove" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-facet @@ -15068,7 +15151,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/facet" "UpdateFacet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-facet)) (common-lisp:progn (common-lisp:defun update-link-attributes @@ -15089,7 +15172,7 @@ "POST" "/amazonclouddirectory/2017-01-11/typedlink/attributes/update" "UpdateLinkAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-link-attributes)) (common-lisp:progn (common-lisp:defun update-object-attributes @@ -15109,7 +15192,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/object/update" "UpdateObjectAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-object-attributes)) (common-lisp:progn (common-lisp:defun update-schema @@ -15127,7 +15210,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/schema/update" "UpdateSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-schema)) (common-lisp:progn (common-lisp:defun update-typed-link-facet @@ -15148,7 +15231,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/typedlink/facet" "UpdateTypedLinkFacet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-typed-link-facet)) (common-lisp:progn (common-lisp:defun upgrade-applied-schema @@ -15168,7 +15251,7 @@ "PUT" "/amazonclouddirectory/2017-01-11/schema/upgradeapplied" "UpgradeAppliedSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upgrade-applied-schema)) (common-lisp:progn (common-lisp:defun upgrade-published-schema @@ -15189,5 +15272,5 @@ "PUT" "/amazonclouddirectory/2017-01-11/schema/upgradepublished" "UpgradePublishedSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upgrade-published-schema)) diff --git a/services/cloudformation/api.lisp b/services/cloudformation/api.lisp index dae238d9..a35e273b 100644 --- a/services/cloudformation/api.lisp +++ b/services/cloudformation/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudformation/api - (:use) - (:nicknames #:aws/cloudformation) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudformation/api (:use) + (:nicknames #:aws/cloudformation) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudformation/api) (common-lisp:progn (common-lisp:define-condition cloudformation-error @@ -19455,7 +19454,7 @@ aws-sdk/generator/operation::input "POST" "/" "ActivateType")) - common-lisp:nil "ActivateTypeResult" *error-map*))) + common-lisp:nil "ActivateTypeResult" *error-map* common-lisp:nil))) (common-lisp:export 'activate-type)) (common-lisp:progn (common-lisp:defun batch-describe-type-configurations @@ -19473,7 +19472,8 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDescribeTypeConfigurations")) - common-lisp:nil "BatchDescribeTypeConfigurationsResult" *error-map*))) + common-lisp:nil "BatchDescribeTypeConfigurationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'batch-describe-type-configurations)) (common-lisp:progn (common-lisp:defun cancel-update-stack @@ -19491,7 +19491,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelUpdateStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-update-stack)) (common-lisp:progn (common-lisp:defun continue-update-rollback @@ -19511,7 +19511,8 @@ aws-sdk/generator/operation::input "POST" "/" "ContinueUpdateRollback")) - common-lisp:nil "ContinueUpdateRollbackResult" *error-map*))) + common-lisp:nil "ContinueUpdateRollbackResult" *error-map* + common-lisp:nil))) (common-lisp:export 'continue-update-rollback)) (common-lisp:progn (common-lisp:defun create-change-set @@ -19539,7 +19540,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateChangeSet")) - common-lisp:nil "CreateChangeSetResult" *error-map*))) + common-lisp:nil "CreateChangeSetResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-change-set)) (common-lisp:progn (common-lisp:defun create-generated-template @@ -19559,7 +19560,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGeneratedTemplate")) - common-lisp:nil "CreateGeneratedTemplateResult" *error-map*))) + common-lisp:nil "CreateGeneratedTemplateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-generated-template)) (common-lisp:progn (common-lisp:defun create-stack @@ -19586,7 +19588,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStack")) - common-lisp:nil "CreateStackResult" *error-map*))) + common-lisp:nil "CreateStackResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-stack)) (common-lisp:progn (common-lisp:defun create-stack-instances @@ -19607,7 +19609,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStackInstances")) - common-lisp:nil "CreateStackInstancesResult" *error-map*))) + common-lisp:nil "CreateStackInstancesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-stack-instances)) (common-lisp:progn (common-lisp:defun create-stack-set @@ -19632,7 +19635,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStackSet")) - common-lisp:nil "CreateStackSetResult" *error-map*))) + common-lisp:nil "CreateStackSetResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-stack-set)) (common-lisp:progn (common-lisp:defun deactivate-organizations-access () @@ -19658,7 +19661,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeactivateType")) - common-lisp:nil "DeactivateTypeResult" *error-map*))) + common-lisp:nil "DeactivateTypeResult" *error-map* common-lisp:nil))) (common-lisp:export 'deactivate-type)) (common-lisp:progn (common-lisp:defun delete-change-set @@ -19675,7 +19678,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteChangeSet")) - common-lisp:nil "DeleteChangeSetResult" *error-map*))) + common-lisp:nil "DeleteChangeSetResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-change-set)) (common-lisp:progn (common-lisp:defun delete-generated-template @@ -19692,7 +19695,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGeneratedTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-generated-template)) (common-lisp:progn (common-lisp:defun delete-stack @@ -19712,7 +19715,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-stack)) (common-lisp:progn (common-lisp:defun delete-stack-instances @@ -19733,7 +19736,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStackInstances")) - common-lisp:nil "DeleteStackInstancesResult" *error-map*))) + common-lisp:nil "DeleteStackInstancesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-stack-instances)) (common-lisp:progn (common-lisp:defun delete-stack-set @@ -19750,7 +19754,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStackSet")) - common-lisp:nil "DeleteStackSetResult" *error-map*))) + common-lisp:nil "DeleteStackSetResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-stack-set)) (common-lisp:progn (common-lisp:defun deregister-type @@ -19767,7 +19771,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterType")) - common-lisp:nil "DeregisterTypeResult" *error-map*))) + common-lisp:nil "DeregisterTypeResult" *error-map* common-lisp:nil))) (common-lisp:export 'deregister-type)) (common-lisp:progn (common-lisp:defun describe-account-limits @@ -19784,7 +19788,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccountLimits")) - common-lisp:nil "DescribeAccountLimitsResult" *error-map*))) + common-lisp:nil "DescribeAccountLimitsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-account-limits)) (common-lisp:progn (common-lisp:defun describe-change-set @@ -19802,7 +19807,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeChangeSet")) - common-lisp:nil "DescribeChangeSetResult" *error-map*))) + common-lisp:nil "DescribeChangeSetResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-change-set)) (common-lisp:progn (common-lisp:defun describe-change-set-hooks @@ -19822,7 +19827,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeChangeSetHooks")) - common-lisp:nil "DescribeChangeSetHooksResult" *error-map*))) + common-lisp:nil "DescribeChangeSetHooksResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-change-set-hooks)) (common-lisp:progn (common-lisp:defun describe-generated-template @@ -19840,7 +19846,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGeneratedTemplate")) - common-lisp:nil "DescribeGeneratedTemplateResult" *error-map*))) + common-lisp:nil "DescribeGeneratedTemplateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-generated-template)) (common-lisp:progn (common-lisp:defun describe-organizations-access @@ -19858,7 +19865,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrganizationsAccess")) - common-lisp:nil "DescribeOrganizationsAccessResult" *error-map*))) + common-lisp:nil "DescribeOrganizationsAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-organizations-access)) (common-lisp:progn (common-lisp:defun describe-publisher @@ -19875,7 +19883,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePublisher")) - common-lisp:nil "DescribePublisherResult" *error-map*))) + common-lisp:nil "DescribePublisherResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-publisher)) (common-lisp:progn (common-lisp:defun describe-resource-scan @@ -19892,7 +19900,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeResourceScan")) - common-lisp:nil "DescribeResourceScanResult" *error-map*))) + common-lisp:nil "DescribeResourceScanResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-resource-scan)) (common-lisp:progn (common-lisp:defun describe-stack-drift-detection-status @@ -19910,7 +19919,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackDriftDetectionStatus")) - common-lisp:nil "DescribeStackDriftDetectionStatusResult" *error-map*))) + common-lisp:nil "DescribeStackDriftDetectionStatusResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-stack-drift-detection-status)) (common-lisp:progn (common-lisp:defun describe-stack-events @@ -19927,7 +19937,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackEvents")) - common-lisp:nil "DescribeStackEventsResult" *error-map*))) + common-lisp:nil "DescribeStackEventsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-stack-events)) (common-lisp:progn (common-lisp:defun describe-stack-instance @@ -19947,7 +19958,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackInstance")) - common-lisp:nil "DescribeStackInstanceResult" *error-map*))) + common-lisp:nil "DescribeStackInstanceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-stack-instance)) (common-lisp:progn (common-lisp:defun describe-stack-resource @@ -19964,7 +19976,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackResource")) - common-lisp:nil "DescribeStackResourceResult" *error-map*))) + common-lisp:nil "DescribeStackResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-stack-resource)) (common-lisp:progn (common-lisp:defun describe-stack-resource-drifts @@ -19986,7 +19999,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackResourceDrifts")) - common-lisp:nil "DescribeStackResourceDriftsResult" *error-map*))) + common-lisp:nil "DescribeStackResourceDriftsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-stack-resource-drifts)) (common-lisp:progn (common-lisp:defun describe-stack-resources @@ -20006,7 +20020,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackResources")) - common-lisp:nil "DescribeStackResourcesResult" *error-map*))) + common-lisp:nil "DescribeStackResourcesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-stack-resources)) (common-lisp:progn (common-lisp:defun describe-stack-set @@ -20023,7 +20038,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackSet")) - common-lisp:nil "DescribeStackSetResult" *error-map*))) + common-lisp:nil "DescribeStackSetResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-stack-set)) (common-lisp:progn (common-lisp:defun describe-stack-set-operation @@ -20042,7 +20057,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackSetOperation")) - common-lisp:nil "DescribeStackSetOperationResult" *error-map*))) + common-lisp:nil "DescribeStackSetOperationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-stack-set-operation)) (common-lisp:progn (common-lisp:defun describe-stacks @@ -20059,7 +20075,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStacks")) - common-lisp:nil "DescribeStacksResult" *error-map*))) + common-lisp:nil "DescribeStacksResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-stacks)) (common-lisp:progn (common-lisp:defun describe-type @@ -20079,7 +20095,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeType")) - common-lisp:nil "DescribeTypeResult" *error-map*))) + common-lisp:nil "DescribeTypeResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-type)) (common-lisp:progn (common-lisp:defun describe-type-registration @@ -20096,7 +20112,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTypeRegistration")) - common-lisp:nil "DescribeTypeRegistrationResult" *error-map*))) + common-lisp:nil "DescribeTypeRegistrationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-type-registration)) (common-lisp:progn (common-lisp:defun detect-stack-drift @@ -20114,7 +20131,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectStackDrift")) - common-lisp:nil "DetectStackDriftResult" *error-map*))) + common-lisp:nil "DetectStackDriftResult" *error-map* common-lisp:nil))) (common-lisp:export 'detect-stack-drift)) (common-lisp:progn (common-lisp:defun detect-stack-resource-drift @@ -20132,7 +20149,8 @@ aws-sdk/generator/operation::input "POST" "/" "DetectStackResourceDrift")) - common-lisp:nil "DetectStackResourceDriftResult" *error-map*))) + common-lisp:nil "DetectStackResourceDriftResult" *error-map* + common-lisp:nil))) (common-lisp:export 'detect-stack-resource-drift)) (common-lisp:progn (common-lisp:defun detect-stack-set-drift @@ -20152,7 +20170,8 @@ aws-sdk/generator/operation::input "POST" "/" "DetectStackSetDrift")) - common-lisp:nil "DetectStackSetDriftResult" *error-map*))) + common-lisp:nil "DetectStackSetDriftResult" *error-map* + common-lisp:nil))) (common-lisp:export 'detect-stack-set-drift)) (common-lisp:progn (common-lisp:defun estimate-template-cost @@ -20170,7 +20189,8 @@ aws-sdk/generator/operation::input "POST" "/" "EstimateTemplateCost")) - common-lisp:nil "EstimateTemplateCostResult" *error-map*))) + common-lisp:nil "EstimateTemplateCostResult" *error-map* + common-lisp:nil))) (common-lisp:export 'estimate-template-cost)) (common-lisp:progn (common-lisp:defun execute-change-set @@ -20191,7 +20211,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecuteChangeSet")) - common-lisp:nil "ExecuteChangeSetResult" *error-map*))) + common-lisp:nil "ExecuteChangeSetResult" *error-map* common-lisp:nil))) (common-lisp:export 'execute-change-set)) (common-lisp:progn (common-lisp:defun get-generated-template @@ -20208,7 +20228,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetGeneratedTemplate")) - common-lisp:nil "GetGeneratedTemplateResult" *error-map*))) + common-lisp:nil "GetGeneratedTemplateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-generated-template)) (common-lisp:progn (common-lisp:defun get-stack-policy @@ -20225,7 +20246,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetStackPolicy")) - common-lisp:nil "GetStackPolicyResult" *error-map*))) + common-lisp:nil "GetStackPolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-stack-policy)) (common-lisp:progn (common-lisp:defun get-template @@ -20244,7 +20265,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTemplate")) - common-lisp:nil "GetTemplateResult" *error-map*))) + common-lisp:nil "GetTemplateResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-template)) (common-lisp:progn (common-lisp:defun get-template-summary @@ -20264,7 +20285,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTemplateSummary")) - common-lisp:nil "GetTemplateSummaryResult" *error-map*))) + common-lisp:nil "GetTemplateSummaryResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-template-summary)) (common-lisp:progn (common-lisp:defun import-stacks-to-stack-set @@ -20285,7 +20306,8 @@ aws-sdk/generator/operation::input "POST" "/" "ImportStacksToStackSet")) - common-lisp:nil "ImportStacksToStackSetResult" *error-map*))) + common-lisp:nil "ImportStacksToStackSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'import-stacks-to-stack-set)) (common-lisp:progn (common-lisp:defun list-change-sets @@ -20302,7 +20324,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListChangeSets")) - common-lisp:nil "ListChangeSetsResult" *error-map*))) + common-lisp:nil "ListChangeSetsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-change-sets)) (common-lisp:progn (common-lisp:defun list-exports @@ -20319,7 +20341,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExports")) - common-lisp:nil "ListExportsResult" *error-map*))) + common-lisp:nil "ListExportsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-exports)) (common-lisp:progn (common-lisp:defun list-generated-templates @@ -20336,7 +20358,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListGeneratedTemplates")) - common-lisp:nil "ListGeneratedTemplatesResult" *error-map*))) + common-lisp:nil "ListGeneratedTemplatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-generated-templates)) (common-lisp:progn (common-lisp:defun list-imports @@ -20353,7 +20376,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImports")) - common-lisp:nil "ListImportsResult" *error-map*))) + common-lisp:nil "ListImportsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-imports)) (common-lisp:progn (common-lisp:defun list-resource-scan-related-resources @@ -20373,7 +20396,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceScanRelatedResources")) - common-lisp:nil "ListResourceScanRelatedResourcesResult" *error-map*))) + common-lisp:nil "ListResourceScanRelatedResourcesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-resource-scan-related-resources)) (common-lisp:progn (common-lisp:defun list-resource-scan-resources @@ -20395,7 +20419,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceScanResources")) - common-lisp:nil "ListResourceScanResourcesResult" *error-map*))) + common-lisp:nil "ListResourceScanResourcesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-resource-scan-resources)) (common-lisp:progn (common-lisp:defun list-resource-scans @@ -20412,7 +20437,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceScans")) - common-lisp:nil "ListResourceScansResult" *error-map*))) + common-lisp:nil "ListResourceScansResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-resource-scans)) (common-lisp:progn (common-lisp:defun list-stack-instance-resource-drifts @@ -20436,7 +20461,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListStackInstanceResourceDrifts")) - common-lisp:nil "ListStackInstanceResourceDriftsResult" *error-map*))) + common-lisp:nil "ListStackInstanceResourceDriftsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-stack-instance-resource-drifts)) (common-lisp:progn (common-lisp:defun list-stack-instances @@ -20457,7 +20483,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStackInstances")) - common-lisp:nil "ListStackInstancesResult" *error-map*))) + common-lisp:nil "ListStackInstancesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-stack-instances)) (common-lisp:progn (common-lisp:defun list-stack-resources @@ -20474,7 +20500,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStackResources")) - common-lisp:nil "ListStackResourcesResult" *error-map*))) + common-lisp:nil "ListStackResourcesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-stack-resources)) (common-lisp:progn (common-lisp:defun list-stack-set-operation-results @@ -20495,7 +20521,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListStackSetOperationResults")) - common-lisp:nil "ListStackSetOperationResultsResult" *error-map*))) + common-lisp:nil "ListStackSetOperationResultsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-stack-set-operation-results)) (common-lisp:progn (common-lisp:defun list-stack-set-operations @@ -20514,7 +20541,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListStackSetOperations")) - common-lisp:nil "ListStackSetOperationsResult" *error-map*))) + common-lisp:nil "ListStackSetOperationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-stack-set-operations)) (common-lisp:progn (common-lisp:defun list-stack-sets @@ -20532,7 +20560,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStackSets")) - common-lisp:nil "ListStackSetsResult" *error-map*))) + common-lisp:nil "ListStackSetsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-stack-sets)) (common-lisp:progn (common-lisp:defun list-stacks @@ -20549,7 +20577,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStacks")) - common-lisp:nil "ListStacksResult" *error-map*))) + common-lisp:nil "ListStacksResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-stacks)) (common-lisp:progn (common-lisp:defun list-type-registrations @@ -20569,7 +20597,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListTypeRegistrations")) - common-lisp:nil "ListTypeRegistrationsResult" *error-map*))) + common-lisp:nil "ListTypeRegistrationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-type-registrations)) (common-lisp:progn (common-lisp:defun list-type-versions @@ -20589,7 +20618,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTypeVersions")) - common-lisp:nil "ListTypeVersionsResult" *error-map*))) + common-lisp:nil "ListTypeVersionsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-type-versions)) (common-lisp:progn (common-lisp:defun list-types @@ -20609,7 +20638,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTypes")) - common-lisp:nil "ListTypesResult" *error-map*))) + common-lisp:nil "ListTypesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-types)) (common-lisp:progn (common-lisp:defun publish-type @@ -20627,7 +20656,7 @@ aws-sdk/generator/operation::input "POST" "/" "PublishType")) - common-lisp:nil "PublishTypeResult" *error-map*))) + common-lisp:nil "PublishTypeResult" *error-map* common-lisp:nil))) (common-lisp:export 'publish-type)) (common-lisp:progn (common-lisp:defun record-handler-progress @@ -20649,7 +20678,8 @@ aws-sdk/generator/operation::input "POST" "/" "RecordHandlerProgress")) - common-lisp:nil "RecordHandlerProgressResult" *error-map*))) + common-lisp:nil "RecordHandlerProgressResult" *error-map* + common-lisp:nil))) (common-lisp:export 'record-handler-progress)) (common-lisp:progn (common-lisp:defun register-publisher @@ -20668,7 +20698,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterPublisher")) - common-lisp:nil "RegisterPublisherResult" *error-map*))) + common-lisp:nil "RegisterPublisherResult" *error-map* common-lisp:nil))) (common-lisp:export 'register-publisher)) (common-lisp:progn (common-lisp:defun register-type @@ -20688,7 +20718,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterType")) - common-lisp:nil "RegisterTypeResult" *error-map*))) + common-lisp:nil "RegisterTypeResult" *error-map* common-lisp:nil))) (common-lisp:export 'register-type)) (common-lisp:progn (common-lisp:defun rollback-stack @@ -20708,7 +20738,7 @@ aws-sdk/generator/operation::input "POST" "/" "RollbackStack")) - common-lisp:nil "RollbackStackResult" *error-map*))) + common-lisp:nil "RollbackStackResult" *error-map* common-lisp:nil))) (common-lisp:export 'rollback-stack)) (common-lisp:progn (common-lisp:defun set-stack-policy @@ -20727,7 +20757,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetStackPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-stack-policy)) (common-lisp:progn (common-lisp:defun set-type-configuration @@ -20747,7 +20777,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetTypeConfiguration")) - common-lisp:nil "SetTypeConfigurationResult" *error-map*))) + common-lisp:nil "SetTypeConfigurationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-type-configuration)) (common-lisp:progn (common-lisp:defun set-type-default-version @@ -20764,7 +20795,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetTypeDefaultVersion")) - common-lisp:nil "SetTypeDefaultVersionResult" *error-map*))) + common-lisp:nil "SetTypeDefaultVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-type-default-version)) (common-lisp:progn (common-lisp:defun signal-resource @@ -20783,7 +20815,7 @@ aws-sdk/generator/operation::input "POST" "/" "SignalResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'signal-resource)) (common-lisp:progn (common-lisp:defun start-resource-scan @@ -20800,7 +20832,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartResourceScan")) - common-lisp:nil "StartResourceScanResult" *error-map*))) + common-lisp:nil "StartResourceScanResult" *error-map* common-lisp:nil))) (common-lisp:export 'start-resource-scan)) (common-lisp:progn (common-lisp:defun stop-stack-set-operation @@ -20818,7 +20850,8 @@ aws-sdk/generator/operation::input "POST" "/" "StopStackSetOperation")) - common-lisp:nil "StopStackSetOperationResult" *error-map*))) + common-lisp:nil "StopStackSetOperationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'stop-stack-set-operation)) (common-lisp:progn (common-lisp:defun test-type @@ -20836,7 +20869,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudformation-request aws-sdk/generator/operation::input "POST" "/" "TestType")) - common-lisp:nil "TestTypeResult" *error-map*))) + common-lisp:nil "TestTypeResult" *error-map* common-lisp:nil))) (common-lisp:export 'test-type)) (common-lisp:progn (common-lisp:defun update-generated-template @@ -20858,7 +20891,8 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGeneratedTemplate")) - common-lisp:nil "UpdateGeneratedTemplateResult" *error-map*))) + common-lisp:nil "UpdateGeneratedTemplateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-generated-template)) (common-lisp:progn (common-lisp:defun update-stack @@ -20887,7 +20921,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStack")) - common-lisp:nil "UpdateStackResult" *error-map*))) + common-lisp:nil "UpdateStackResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-stack)) (common-lisp:progn (common-lisp:defun update-stack-instances @@ -20908,7 +20942,8 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStackInstances")) - common-lisp:nil "UpdateStackInstancesResult" *error-map*))) + common-lisp:nil "UpdateStackInstancesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-stack-instances)) (common-lisp:progn (common-lisp:defun update-stack-set @@ -20935,7 +20970,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStackSet")) - common-lisp:nil "UpdateStackSetResult" *error-map*))) + common-lisp:nil "UpdateStackSetResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-stack-set)) (common-lisp:progn (common-lisp:defun update-termination-protection @@ -20954,7 +20989,8 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTerminationProtection")) - common-lisp:nil "UpdateTerminationProtectionResult" *error-map*))) + common-lisp:nil "UpdateTerminationProtectionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-termination-protection)) (common-lisp:progn (common-lisp:defun validate-template @@ -20971,5 +21007,5 @@ aws-sdk/generator/operation::input "POST" "/" "ValidateTemplate")) - common-lisp:nil "ValidateTemplateResult" *error-map*))) + common-lisp:nil "ValidateTemplateResult" *error-map* common-lisp:nil))) (common-lisp:export 'validate-template)) diff --git a/services/cloudfront/api.lisp b/services/cloudfront/api.lisp index 1f189664..72a0f3d5 100644 --- a/services/cloudfront/api.lisp +++ b/services/cloudfront/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudfront/api - (:use) - (:nicknames #:aws/cloudfront) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudfront/api (:use) + (:nicknames #:aws/cloudfront) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudfront/api) (common-lisp:progn (common-lisp:define-condition cloudfront-error @@ -2703,11 +2702,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'staging)) - (common-lisp:cons "Staging" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Staging" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2767,11 +2770,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2788,7 +2795,13 @@ ( (aws-sdk/generator/shape::input copy-distribution-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + copy-distribution-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-cache-policy-request common-lisp:nil ((cache-policy-config :initarg :cache-policy-config @@ -2830,7 +2843,14 @@ (aws-sdk/generator/shape::input create-cache-policy-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cache-policy-config))) + 'cache-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-cache-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "CachePolicyConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-cache-policy-result common-lisp:nil ((cache-policy :initarg :cache-policy :initform @@ -2868,11 +2888,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2889,7 +2913,13 @@ ( (aws-sdk/generator/shape::input create-cache-policy-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-policy))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-cache-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-cloud-front-origin-access-identity-request common-lisp:nil @@ -2938,7 +2968,15 @@ (aws-sdk/generator/shape::input create-cloud-front-origin-access-identity-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cloud-front-origin-access-identity-config))) + 'cloud-front-origin-access-identity-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-cloud-front-origin-access-identity-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "CloudFrontOriginAccessIdentityConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-cloud-front-origin-access-identity-result common-lisp:nil @@ -2981,11 +3019,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3004,7 +3046,13 @@ (aws-sdk/generator/shape::input create-cloud-front-origin-access-identity-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cloud-front-origin-access-identity))) + 'cloud-front-origin-access-identity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-cloud-front-origin-access-identity-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-continuous-deployment-policy-request common-lisp:nil @@ -3052,7 +3100,15 @@ (aws-sdk/generator/shape::input create-continuous-deployment-policy-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'continuous-deployment-policy-config))) + 'continuous-deployment-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-continuous-deployment-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "ContinuousDeploymentPolicyConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-continuous-deployment-policy-result common-lisp:nil @@ -3095,11 +3151,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3118,7 +3178,13 @@ (aws-sdk/generator/shape::input create-continuous-deployment-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'continuous-deployment-policy))) + 'continuous-deployment-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-continuous-deployment-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-distribution-request common-lisp:nil ((distribution-config :initarg :distribution-config @@ -3160,7 +3226,14 @@ (aws-sdk/generator/shape::input create-distribution-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'distribution-config))) + 'distribution-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-distribution-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "DistributionConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-distribution-result common-lisp:nil ((distribution :initarg :distribution :initform @@ -3198,11 +3271,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3219,7 +3296,13 @@ ( (aws-sdk/generator/shape::input create-distribution-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-distribution-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-distribution-with-tags-request common-lisp:nil ((distribution-config-with-tags :initarg @@ -3266,7 +3349,14 @@ (aws-sdk/generator/shape::input create-distribution-with-tags-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'distribution-config-with-tags))) + 'distribution-config-with-tags)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-distribution-with-tags-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "DistributionConfigWithTags" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-distribution-with-tags-result common-lisp:nil ((distribution :initarg :distribution :initform @@ -3306,11 +3396,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3327,7 +3421,13 @@ ( (aws-sdk/generator/shape::input create-distribution-with-tags-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-distribution-with-tags-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-field-level-encryption-config-request common-lisp:nil @@ -3375,7 +3475,14 @@ (aws-sdk/generator/shape::input create-field-level-encryption-config-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-config))) + 'field-level-encryption-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-field-level-encryption-config-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "FieldLevelEncryptionConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-field-level-encryption-config-result common-lisp:nil @@ -3418,11 +3525,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3441,7 +3552,13 @@ (aws-sdk/generator/shape::input create-field-level-encryption-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption))) + 'field-level-encryption)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-field-level-encryption-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-field-level-encryption-profile-request common-lisp:nil @@ -3489,7 +3606,15 @@ (aws-sdk/generator/shape::input create-field-level-encryption-profile-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-profile-config))) + 'field-level-encryption-profile-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-field-level-encryption-profile-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "FieldLevelEncryptionProfileConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-field-level-encryption-profile-result common-lisp:nil @@ -3532,11 +3657,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3555,7 +3684,13 @@ (aws-sdk/generator/shape::input create-field-level-encryption-profile-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-profile))) + 'field-level-encryption-profile)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-field-level-encryption-profile-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-function-request common-lisp:nil ((name :initarg :name :initform @@ -3657,11 +3792,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3678,7 +3817,13 @@ ( (aws-sdk/generator/shape::input create-function-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'function-summary))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'function-summary)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-function-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-invalidation-request common-lisp:nil ((distribution-id :initarg :distribution-id :initform @@ -3727,7 +3872,14 @@ ( (aws-sdk/generator/shape::input create-invalidation-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'invalidation-batch))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'invalidation-batch)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-invalidation-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "InvalidationBatch" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-invalidation-result common-lisp:nil ((location :initarg :location :initform common-lisp:nil @@ -3760,7 +3912,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3777,7 +3931,13 @@ ( (aws-sdk/generator/shape::input create-invalidation-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'invalidation))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'invalidation)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-invalidation-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-key-group-request common-lisp:nil ((key-group-config :initarg :key-group-config :initform @@ -3816,7 +3976,14 @@ ( (aws-sdk/generator/shape::input create-key-group-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group-config))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-key-group-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "KeyGroupConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-key-group-result common-lisp:nil ((key-group :initarg :key-group :initform @@ -3851,11 +4018,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3872,7 +4043,13 @@ ( (aws-sdk/generator/shape::input create-key-group-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-key-group-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-key-value-store-request common-lisp:nil ((name :initarg :name :initform @@ -3980,11 +4157,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4001,7 +4182,13 @@ ( (aws-sdk/generator/shape::input create-key-value-store-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-value-store))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-value-store)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-key-value-store-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-monitoring-subscription-request common-lisp:nil ((distribution-id :initarg :distribution-id :initform @@ -4056,7 +4243,14 @@ (aws-sdk/generator/shape::input create-monitoring-subscription-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'monitoring-subscription))) + 'monitoring-subscription)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-monitoring-subscription-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "MonitoringSubscription" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-monitoring-subscription-result common-lisp:nil ((monitoring-subscription :initarg @@ -4100,7 +4294,13 @@ (aws-sdk/generator/shape::input create-monitoring-subscription-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'monitoring-subscription))) + 'monitoring-subscription)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-monitoring-subscription-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-origin-access-control-request common-lisp:nil ((origin-access-control-config :initarg @@ -4147,7 +4347,14 @@ (aws-sdk/generator/shape::input create-origin-access-control-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-access-control-config))) + 'origin-access-control-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-origin-access-control-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "OriginAccessControlConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-origin-access-control-result common-lisp:nil ((origin-access-control :initarg :origin-access-control @@ -4188,11 +4395,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4211,7 +4422,13 @@ (aws-sdk/generator/shape::input create-origin-access-control-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-access-control))) + 'origin-access-control)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-origin-access-control-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-origin-request-policy-request common-lisp:nil ((origin-request-policy-config :initarg @@ -4258,7 +4475,14 @@ (aws-sdk/generator/shape::input create-origin-request-policy-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-request-policy-config))) + 'origin-request-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-origin-request-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "OriginRequestPolicyConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-origin-request-policy-result common-lisp:nil ((origin-request-policy :initarg :origin-request-policy @@ -4299,11 +4523,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4322,7 +4550,13 @@ (aws-sdk/generator/shape::input create-origin-request-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-request-policy))) + 'origin-request-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-origin-request-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-public-key-request common-lisp:nil ((public-key-config :initarg :public-key-config @@ -4363,7 +4597,14 @@ ( (aws-sdk/generator/shape::input create-public-key-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key-config))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-public-key-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "PublicKeyConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-public-key-result common-lisp:nil ((public-key :initarg :public-key :initform @@ -4398,11 +4639,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4419,7 +4664,13 @@ ( (aws-sdk/generator/shape::input create-public-key-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-public-key-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-realtime-log-config-request common-lisp:nil ((end-points :initarg :end-points :initform @@ -4587,7 +4838,15 @@ (aws-sdk/generator/shape::input create-response-headers-policy-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'response-headers-policy-config))) + 'response-headers-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-response-headers-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "ResponseHeadersPolicyConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-response-headers-policy-result common-lisp:nil ((response-headers-policy :initarg @@ -4629,11 +4888,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4652,7 +4915,13 @@ (aws-sdk/generator/shape::input create-response-headers-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'response-headers-policy))) + 'response-headers-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-response-headers-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-streaming-distribution-request common-lisp:nil ((streaming-distribution-config :initarg @@ -4699,7 +4968,15 @@ (aws-sdk/generator/shape::input create-streaming-distribution-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution-config))) + 'streaming-distribution-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-streaming-distribution-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "StreamingDistributionConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-streaming-distribution-result common-lisp:nil ((streaming-distribution :initarg @@ -4741,11 +5018,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4764,7 +5045,13 @@ (aws-sdk/generator/shape::input create-streaming-distribution-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution))) + 'streaming-distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-streaming-distribution-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-streaming-distribution-with-tags-request common-lisp:nil @@ -4813,7 +5100,15 @@ (aws-sdk/generator/shape::input create-streaming-distribution-with-tags-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution-config-with-tags))) + 'streaming-distribution-config-with-tags)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-streaming-distribution-with-tags-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "StreamingDistributionConfigWithTags" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass create-streaming-distribution-with-tags-result common-lisp:nil @@ -4856,11 +5151,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4879,7 +5178,13 @@ (aws-sdk/generator/shape::input create-streaming-distribution-with-tags-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution))) + 'streaming-distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-streaming-distribution-with-tags-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass custom-error-response common-lisp:nil ((error-code :initarg :error-code :initform @@ -5492,7 +5797,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5536,7 +5843,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5580,7 +5889,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5621,7 +5932,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5665,7 +5978,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5709,7 +6024,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5749,7 +6066,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5789,7 +6108,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5833,7 +6154,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5937,7 +6260,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5980,7 +6305,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6021,7 +6348,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6116,7 +6445,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6159,7 +6490,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6234,7 +6567,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6251,7 +6586,13 @@ ( (aws-sdk/generator/shape::input describe-function-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'function-summary))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'function-summary)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-function-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass describe-key-value-store-request common-lisp:nil ((name :initarg :name :initform @@ -6317,7 +6658,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6334,7 +6677,13 @@ ( (aws-sdk/generator/shape::input describe-key-value-store-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-value-store))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-value-store)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-key-value-store-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass distribution common-lisp:nil ((id :initarg :id :initform @@ -9005,7 +9354,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9023,7 +9374,13 @@ (aws-sdk/generator/shape::input get-cache-policy-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cache-policy-config))) + 'cache-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-cache-policy-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-cache-policy-request common-lisp:nil ((id :initarg :id :initform @@ -9082,7 +9439,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9099,7 +9458,13 @@ ( (aws-sdk/generator/shape::input get-cache-policy-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-policy))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-cache-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-cloud-front-origin-access-identity-config-request common-lisp:nil @@ -9170,7 +9535,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9189,7 +9556,13 @@ (aws-sdk/generator/shape::input get-cloud-front-origin-access-identity-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cloud-front-origin-access-identity-config))) + 'cloud-front-origin-access-identity-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-cloud-front-origin-access-identity-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-cloud-front-origin-access-identity-request common-lisp:nil @@ -9258,7 +9631,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9277,7 +9652,13 @@ (aws-sdk/generator/shape::input get-cloud-front-origin-access-identity-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cloud-front-origin-access-identity))) + 'cloud-front-origin-access-identity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-cloud-front-origin-access-identity-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-continuous-deployment-policy-config-request common-lisp:nil @@ -9346,7 +9727,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9365,7 +9748,13 @@ (aws-sdk/generator/shape::input get-continuous-deployment-policy-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'continuous-deployment-policy-config))) + 'continuous-deployment-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-continuous-deployment-policy-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-continuous-deployment-policy-request common-lisp:nil ((id :initarg :id :initform @@ -9432,7 +9821,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9451,7 +9842,13 @@ (aws-sdk/generator/shape::input get-continuous-deployment-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'continuous-deployment-policy))) + 'continuous-deployment-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-continuous-deployment-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-distribution-config-request common-lisp:nil ((id :initarg :id :initform @@ -9516,7 +9913,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9534,7 +9933,13 @@ (aws-sdk/generator/shape::input get-distribution-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'distribution-config))) + 'distribution-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-distribution-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-distribution-request common-lisp:nil ((id :initarg :id :initform @@ -9593,7 +9998,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9610,7 +10017,13 @@ ( (aws-sdk/generator/shape::input get-distribution-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-distribution-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-field-level-encryption-config-request common-lisp:nil @@ -9678,7 +10091,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9697,7 +10112,13 @@ (aws-sdk/generator/shape::input get-field-level-encryption-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-config))) + 'field-level-encryption-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-field-level-encryption-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-field-level-encryption-profile-config-request common-lisp:nil @@ -9766,7 +10187,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9785,7 +10208,13 @@ (aws-sdk/generator/shape::input get-field-level-encryption-profile-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-profile-config))) + 'field-level-encryption-profile-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-field-level-encryption-profile-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-field-level-encryption-profile-request common-lisp:nil @@ -9854,7 +10283,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9873,7 +10304,13 @@ (aws-sdk/generator/shape::input get-field-level-encryption-profile-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-profile))) + 'field-level-encryption-profile)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-field-level-encryption-profile-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-field-level-encryption-request common-lisp:nil ((id :initarg :id :initform @@ -9940,7 +10377,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9959,7 +10398,13 @@ (aws-sdk/generator/shape::input get-field-level-encryption-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption))) + 'field-level-encryption)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-field-level-encryption-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-function-request common-lisp:nil ((name :initarg :name :initform @@ -10021,11 +10466,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-function-result)) (common-lisp:append @@ -10038,7 +10487,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-function-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'function-code))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'function-code)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-function-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-invalidation-request common-lisp:nil ((distribution-id :initarg :distribution-id :initform @@ -10113,7 +10566,13 @@ ( (aws-sdk/generator/shape::input get-invalidation-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'invalidation))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'invalidation)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-invalidation-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-key-group-config-request common-lisp:nil ((id :initarg :id :initform @@ -10174,7 +10633,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10191,7 +10652,13 @@ ( (aws-sdk/generator/shape::input get-key-group-config-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group-config))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-key-group-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-key-group-request common-lisp:nil ((id :initarg :id :initform @@ -10247,7 +10714,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-key-group-result)) (common-lisp:append @@ -10260,7 +10729,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-key-group-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-key-group-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-monitoring-subscription-request common-lisp:nil ((distribution-id :initarg :distribution-id :initform @@ -10338,7 +10811,13 @@ (aws-sdk/generator/shape::input get-monitoring-subscription-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'monitoring-subscription))) + 'monitoring-subscription)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-monitoring-subscription-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-origin-access-control-config-request common-lisp:nil ((id :initarg :id :initform @@ -10405,7 +10884,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10424,7 +10905,13 @@ (aws-sdk/generator/shape::input get-origin-access-control-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-access-control-config))) + 'origin-access-control-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-origin-access-control-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-origin-access-control-request common-lisp:nil ((id :initarg :id :initform @@ -10490,7 +10977,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10509,7 +10998,13 @@ (aws-sdk/generator/shape::input get-origin-access-control-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-access-control))) + 'origin-access-control)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-origin-access-control-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-origin-request-policy-config-request common-lisp:nil ((id :initarg :id :initform @@ -10576,7 +11071,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10595,7 +11092,13 @@ (aws-sdk/generator/shape::input get-origin-request-policy-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-request-policy-config))) + 'origin-request-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-origin-request-policy-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-origin-request-policy-request common-lisp:nil ((id :initarg :id :initform @@ -10661,7 +11164,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10680,7 +11185,13 @@ (aws-sdk/generator/shape::input get-origin-request-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-request-policy))) + 'origin-request-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-origin-request-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-public-key-config-request common-lisp:nil ((id :initarg :id :initform @@ -10743,7 +11254,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10760,7 +11273,13 @@ ( (aws-sdk/generator/shape::input get-public-key-config-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key-config))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-public-key-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-public-key-request common-lisp:nil ((id :initarg :id :initform @@ -10818,7 +11337,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10835,7 +11356,13 @@ ( (aws-sdk/generator/shape::input get-public-key-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-public-key-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-realtime-log-config-request common-lisp:nil ((name :initarg :name :initform common-lisp:nil :type @@ -10996,7 +11523,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11015,7 +11544,13 @@ (aws-sdk/generator/shape::input get-response-headers-policy-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'response-headers-policy-config))) + 'response-headers-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-response-headers-policy-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-response-headers-policy-request common-lisp:nil ((id :initarg :id :initform @@ -11082,7 +11617,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11101,7 +11638,13 @@ (aws-sdk/generator/shape::input get-response-headers-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'response-headers-policy))) + 'response-headers-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-response-headers-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-streaming-distribution-config-request common-lisp:nil @@ -11169,7 +11712,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11188,7 +11733,13 @@ (aws-sdk/generator/shape::input get-streaming-distribution-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution-config))) + 'streaming-distribution-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-streaming-distribution-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-streaming-distribution-request common-lisp:nil ((id :initarg :id :initform @@ -11255,7 +11806,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11274,7 +11827,13 @@ (aws-sdk/generator/shape::input get-streaming-distribution-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution))) + 'streaming-distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-streaming-distribution-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:deftype header-list () '(trivial-types:proper-list common-lisp:string)) @@ -12768,7 +13327,13 @@ ( (aws-sdk/generator/shape::input list-cache-policies-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-policy-list))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-policy-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-cache-policies-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-cloud-front-origin-access-identities-request common-lisp:nil @@ -12855,7 +13420,13 @@ (aws-sdk/generator/shape::input list-cloud-front-origin-access-identities-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cloud-front-origin-access-identity-list))) + 'cloud-front-origin-access-identity-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-cloud-front-origin-access-identities-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-conflicting-aliases-request common-lisp:nil ((distribution-id :initarg :distribution-id :initform @@ -12957,7 +13528,13 @@ (aws-sdk/generator/shape::input list-conflicting-aliases-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'conflicting-aliases-list))) + 'conflicting-aliases-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-conflicting-aliases-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-continuous-deployment-policies-request common-lisp:nil @@ -13043,7 +13620,13 @@ (aws-sdk/generator/shape::input list-continuous-deployment-policies-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'continuous-deployment-policy-list))) + 'continuous-deployment-policy-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-continuous-deployment-policies-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-distributions-by-cache-policy-id-request common-lisp:nil @@ -13135,7 +13718,13 @@ (aws-sdk/generator/shape::input list-distributions-by-cache-policy-id-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'distribution-id-list))) + 'distribution-id-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-distributions-by-cache-policy-id-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-distributions-by-key-group-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -13224,7 +13813,13 @@ (aws-sdk/generator/shape::input list-distributions-by-key-group-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'distribution-id-list))) + 'distribution-id-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-distributions-by-key-group-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-distributions-by-origin-request-policy-id-request common-lisp:nil @@ -13318,7 +13913,13 @@ (aws-sdk/generator/shape::input list-distributions-by-origin-request-policy-id-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'distribution-id-list))) + 'distribution-id-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-distributions-by-origin-request-policy-id-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-distributions-by-realtime-log-config-request common-lisp:nil @@ -13446,7 +14047,13 @@ ( (aws-sdk/generator/shape::input list-distributions-by-realtime-log-config-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution-list))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-distributions-by-realtime-log-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-distributions-by-response-headers-policy-id-request common-lisp:nil @@ -13540,7 +14147,13 @@ (aws-sdk/generator/shape::input list-distributions-by-response-headers-policy-id-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'distribution-id-list))) + 'distribution-id-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-distributions-by-response-headers-policy-id-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-distributions-by-web-aclid-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -13627,7 +14240,13 @@ ( (aws-sdk/generator/shape::input list-distributions-by-web-aclid-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution-list))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-distributions-by-web-aclid-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-distributions-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -13705,7 +14324,13 @@ ( (aws-sdk/generator/shape::input list-distributions-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution-list))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-distributions-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-field-level-encryption-configs-request common-lisp:nil @@ -13791,7 +14416,13 @@ (aws-sdk/generator/shape::input list-field-level-encryption-configs-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-list))) + 'field-level-encryption-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-field-level-encryption-configs-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-field-level-encryption-profiles-request common-lisp:nil @@ -13877,7 +14508,13 @@ (aws-sdk/generator/shape::input list-field-level-encryption-profiles-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-profile-list))) + 'field-level-encryption-profile-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-field-level-encryption-profiles-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-functions-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -13957,7 +14594,13 @@ ( (aws-sdk/generator/shape::input list-functions-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'function-list))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'function-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-functions-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-invalidations-request common-lisp:nil ((distribution-id :initarg :distribution-id :initform @@ -14043,7 +14686,13 @@ ( (aws-sdk/generator/shape::input list-invalidations-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'invalidation-list))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'invalidation-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-invalidations-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-key-groups-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -14118,7 +14767,13 @@ ( (aws-sdk/generator/shape::input list-key-groups-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group-list))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-key-groups-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-key-value-stores-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -14206,7 +14861,13 @@ (aws-sdk/generator/shape::input list-key-value-stores-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'key-value-store-list))) + 'key-value-store-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-key-value-stores-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-origin-access-controls-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -14290,7 +14951,13 @@ (aws-sdk/generator/shape::input list-origin-access-controls-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-access-control-list))) + 'origin-access-control-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-origin-access-controls-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-origin-request-policies-request common-lisp:nil ((type :initarg :type :initform common-lisp:nil :type @@ -14381,7 +15048,13 @@ (aws-sdk/generator/shape::input list-origin-request-policies-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-request-policy-list))) + 'origin-request-policy-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-origin-request-policies-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-public-keys-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -14456,7 +15129,13 @@ ( (aws-sdk/generator/shape::input list-public-keys-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key-list))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-public-keys-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-realtime-log-configs-request common-lisp:nil ((max-items :initarg :max-items :initform @@ -14538,7 +15217,13 @@ (aws-sdk/generator/shape::input list-realtime-log-configs-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'realtime-log-configs))) + 'realtime-log-configs)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-realtime-log-configs-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-response-headers-policies-request common-lisp:nil ((type :initarg :type :initform common-lisp:nil :type @@ -14629,7 +15314,13 @@ (aws-sdk/generator/shape::input list-response-headers-policies-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'response-headers-policy-list))) + 'response-headers-policy-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-response-headers-policies-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-streaming-distributions-request common-lisp:nil ((marker :initarg :marker :initform common-lisp:nil @@ -14713,7 +15404,13 @@ (aws-sdk/generator/shape::input list-streaming-distributions-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution-list))) + 'streaming-distribution-list)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-streaming-distributions-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-tags-for-resource-request common-lisp:nil ((resource :initarg :resource :initform @@ -14785,7 +15482,13 @@ ( (aws-sdk/generator/shape::input list-tags-for-resource-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'tags))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'tags)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-tags-for-resource-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:deftype location-list () '(trivial-types:proper-list common-lisp:string)) @@ -17090,7 +17793,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17138,7 +17843,13 @@ ( (aws-sdk/generator/shape::input publish-function-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'function-summary))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'function-summary)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + publish-function-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass query-arg-profile common-lisp:nil ((query-arg :initarg :query-arg :initform @@ -20409,7 +21120,12 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input tag-resource-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'tags))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'tags)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input tag-resource-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "Tags" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:deftype tag-value () 'common-lisp:string) (common-lisp:progn (common-lisp:defclass tags common-lisp:nil @@ -20486,7 +21202,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -20542,7 +21260,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input test-function-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'test-result))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'test-result)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input test-function-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass test-result common-lisp:nil ((function-summary :initarg :function-summary :initform @@ -21298,7 +22020,14 @@ ( (aws-sdk/generator/shape::input untag-resource-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'tag-keys))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'tag-keys)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + untag-resource-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "TagKeys" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-cache-policy-request common-lisp:nil ((cache-policy-config :initarg :cache-policy-config @@ -21338,7 +22067,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21356,7 +22087,14 @@ (aws-sdk/generator/shape::input update-cache-policy-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cache-policy-config))) + 'cache-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-cache-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "CachePolicyConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-cache-policy-result common-lisp:nil ((cache-policy :initarg :cache-policy :initform @@ -21387,7 +22125,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21404,7 +22144,13 @@ ( (aws-sdk/generator/shape::input update-cache-policy-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-policy))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-cache-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-cloud-front-origin-access-identity-request common-lisp:nil @@ -21451,7 +22197,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21470,7 +22218,15 @@ (aws-sdk/generator/shape::input update-cloud-front-origin-access-identity-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cloud-front-origin-access-identity-config))) + 'cloud-front-origin-access-identity-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-cloud-front-origin-access-identity-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "CloudFrontOriginAccessIdentityConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-cloud-front-origin-access-identity-result common-lisp:nil @@ -21506,7 +22262,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21525,7 +22283,13 @@ (aws-sdk/generator/shape::input update-cloud-front-origin-access-identity-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'cloud-front-origin-access-identity))) + 'cloud-front-origin-access-identity)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-cloud-front-origin-access-identity-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-continuous-deployment-policy-request common-lisp:nil @@ -21571,7 +22335,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21590,7 +22356,15 @@ (aws-sdk/generator/shape::input update-continuous-deployment-policy-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'continuous-deployment-policy-config))) + 'continuous-deployment-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-continuous-deployment-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "ContinuousDeploymentPolicyConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-continuous-deployment-policy-result common-lisp:nil @@ -21626,7 +22400,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21645,7 +22421,13 @@ (aws-sdk/generator/shape::input update-continuous-deployment-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'continuous-deployment-policy))) + 'continuous-deployment-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-continuous-deployment-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-distribution-request common-lisp:nil ((distribution-config :initarg :distribution-config @@ -21685,7 +22467,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21703,7 +22487,14 @@ (aws-sdk/generator/shape::input update-distribution-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'distribution-config))) + 'distribution-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-distribution-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "DistributionConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-distribution-result common-lisp:nil ((distribution :initarg :distribution :initform @@ -21734,7 +22525,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21751,7 +22544,13 @@ ( (aws-sdk/generator/shape::input update-distribution-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-distribution-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-distribution-with-staging-config-request common-lisp:nil @@ -21793,7 +22592,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21837,7 +22638,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21854,7 +22657,13 @@ ( (aws-sdk/generator/shape::input update-distribution-with-staging-config-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-distribution-with-staging-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-field-level-encryption-config-request common-lisp:nil @@ -21900,7 +22709,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21919,7 +22730,14 @@ (aws-sdk/generator/shape::input update-field-level-encryption-config-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-config))) + 'field-level-encryption-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-field-level-encryption-config-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "FieldLevelEncryptionConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-field-level-encryption-config-result common-lisp:nil @@ -21955,7 +22773,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21974,7 +22794,13 @@ (aws-sdk/generator/shape::input update-field-level-encryption-config-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption))) + 'field-level-encryption)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-field-level-encryption-config-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-field-level-encryption-profile-request common-lisp:nil @@ -22020,7 +22846,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22039,7 +22867,15 @@ (aws-sdk/generator/shape::input update-field-level-encryption-profile-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-profile-config))) + 'field-level-encryption-profile-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-field-level-encryption-profile-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "FieldLevelEncryptionProfileConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-field-level-encryption-profile-result common-lisp:nil @@ -22075,7 +22911,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22094,7 +22932,13 @@ (aws-sdk/generator/shape::input update-field-level-encryption-profile-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'field-level-encryption-profile))) + 'field-level-encryption-profile)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-field-level-encryption-profile-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-function-request common-lisp:nil ((name :initarg :name :initform @@ -22138,7 +22982,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22192,7 +23038,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETtag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETtag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22209,7 +23057,13 @@ ( (aws-sdk/generator/shape::input update-function-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'function-summary))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'function-summary)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-function-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-key-group-request common-lisp:nil ((key-group-config :initarg :key-group-config :initform @@ -22247,7 +23101,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22264,7 +23120,14 @@ ( (aws-sdk/generator/shape::input update-key-group-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group-config))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-key-group-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "KeyGroupConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-key-group-result common-lisp:nil ((key-group :initarg :key-group :initform @@ -22293,7 +23156,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22310,7 +23175,13 @@ ( (aws-sdk/generator/shape::input update-key-group-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-group)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-key-group-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-key-value-store-request common-lisp:nil ((name :initarg :name :initform @@ -22352,7 +23223,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22401,7 +23274,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22418,7 +23293,13 @@ ( (aws-sdk/generator/shape::input update-key-value-store-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'key-value-store))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'key-value-store)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-key-value-store-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-origin-access-control-request common-lisp:nil ((origin-access-control-config :initarg @@ -22463,7 +23344,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22482,7 +23365,14 @@ (aws-sdk/generator/shape::input update-origin-access-control-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-access-control-config))) + 'origin-access-control-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-origin-access-control-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "OriginAccessControlConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-origin-access-control-result common-lisp:nil ((origin-access-control :initarg :origin-access-control @@ -22516,7 +23406,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22535,7 +23427,13 @@ (aws-sdk/generator/shape::input update-origin-access-control-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-access-control))) + 'origin-access-control)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-origin-access-control-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-origin-request-policy-request common-lisp:nil ((origin-request-policy-config :initarg @@ -22580,7 +23478,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22599,7 +23499,14 @@ (aws-sdk/generator/shape::input update-origin-request-policy-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-request-policy-config))) + 'origin-request-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-origin-request-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "OriginRequestPolicyConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-origin-request-policy-result common-lisp:nil ((origin-request-policy :initarg :origin-request-policy @@ -22633,7 +23540,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22652,7 +23561,13 @@ (aws-sdk/generator/shape::input update-origin-request-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'origin-request-policy))) + 'origin-request-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-origin-request-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-public-key-request common-lisp:nil ((public-key-config :initarg :public-key-config @@ -22692,7 +23607,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22709,7 +23626,14 @@ ( (aws-sdk/generator/shape::input update-public-key-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key-config))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-public-key-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "PublicKeyConfig" :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-public-key-result common-lisp:nil ((public-key :initarg :public-key :initform @@ -22738,7 +23662,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22755,7 +23681,13 @@ ( (aws-sdk/generator/shape::input update-public-key-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'public-key)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-public-key-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-realtime-log-config-request common-lisp:nil ((end-points :initarg :end-points :initform @@ -22933,7 +23865,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22952,7 +23886,15 @@ (aws-sdk/generator/shape::input update-response-headers-policy-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'response-headers-policy-config))) + 'response-headers-policy-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-response-headers-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "ResponseHeadersPolicyConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-response-headers-policy-result common-lisp:nil ((response-headers-policy :initarg @@ -22987,7 +23929,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -23006,7 +23950,13 @@ (aws-sdk/generator/shape::input update-response-headers-policy-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'response-headers-policy))) + 'response-headers-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-response-headers-policy-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-streaming-distribution-request common-lisp:nil ((streaming-distribution-config :initarg @@ -23051,7 +24001,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -23070,7 +24022,15 @@ (aws-sdk/generator/shape::input update-streaming-distribution-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution-config))) + 'streaming-distribution-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-streaming-distribution-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "StreamingDistributionConfig" + :xml-namespace + "http://cloudfront.amazonaws.com/doc/2020-05-31/"))) (common-lisp:progn (common-lisp:defclass update-streaming-distribution-result common-lisp:nil ((streaming-distribution :initarg @@ -23105,7 +24065,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -23124,7 +24086,13 @@ (aws-sdk/generator/shape::input update-streaming-distribution-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'streaming-distribution))) + 'streaming-distribution)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-streaming-distribution-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass viewer-certificate common-lisp:nil ((cloud-front-default-certificate :initarg @@ -23277,12 +24245,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A/associate-alias" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'target-distribution-id)))) + 'target-distribution-id) + common-lisp:t))) "AssociateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'associate-alias)) (common-lisp:progn (common-lisp:defun copy-distribution @@ -23307,12 +24276,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A/copy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'primary-distribution-id)))) + 'primary-distribution-id) + common-lisp:t))) "CopyDistribution")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'copy-distribution)) (common-lisp:progn (common-lisp:defun create-cache-policy @@ -23330,7 +24300,7 @@ common-lisp:nil "POST" "/2020-05-31/cache-policy" "CreateCachePolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-cache-policy)) (common-lisp:progn (common-lisp:defun create-cloud-front-origin-access-identity @@ -23351,7 +24321,7 @@ common-lisp:nil "POST" "/2020-05-31/origin-access-identity/cloudfront" "CreateCloudFrontOriginAccessIdentity")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-cloud-front-origin-access-identity)) (common-lisp:progn (common-lisp:defun create-continuous-deployment-policy @@ -23371,7 +24341,7 @@ common-lisp:nil "POST" "/2020-05-31/continuous-deployment-policy" "CreateContinuousDeploymentPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-continuous-deployment-policy)) (common-lisp:progn (common-lisp:defun create-distribution @@ -23389,7 +24359,7 @@ common-lisp:nil "POST" "/2020-05-31/distribution" "CreateDistribution")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-distribution)) (common-lisp:progn (common-lisp:defun create-distribution-with-tags @@ -23408,7 +24378,7 @@ common-lisp:nil "POST" "/2020-05-31/distribution?WithTags" "CreateDistributionWithTags")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-distribution-with-tags)) (common-lisp:progn (common-lisp:defun create-field-level-encryption-config @@ -23427,7 +24397,7 @@ common-lisp:nil "POST" "/2020-05-31/field-level-encryption" "CreateFieldLevelEncryptionConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-field-level-encryption-config)) (common-lisp:progn (common-lisp:defun create-field-level-encryption-profile @@ -23447,7 +24417,7 @@ common-lisp:nil "POST" "/2020-05-31/field-level-encryption-profile" "CreateFieldLevelEncryptionProfile")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-field-level-encryption-profile)) (common-lisp:progn (common-lisp:defun create-function @@ -23466,7 +24436,7 @@ common-lisp:nil "POST" "/2020-05-31/function" "CreateFunction")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-function)) (common-lisp:progn (common-lisp:defun create-invalidation @@ -23489,12 +24459,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A/invalidation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'distribution-id)))) + 'distribution-id) + common-lisp:t))) "CreateInvalidation")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-invalidation)) (common-lisp:progn (common-lisp:defun create-key-group @@ -23512,7 +24483,7 @@ common-lisp:nil "POST" "/2020-05-31/key-group" "CreateKeyGroup")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-key-group)) (common-lisp:progn (common-lisp:defun create-key-value-store @@ -23530,7 +24501,7 @@ common-lisp:nil "POST" "/2020-05-31/key-value-store/" "CreateKeyValueStore")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-key-value-store)) (common-lisp:progn (common-lisp:defun create-monitoring-subscription @@ -23554,12 +24525,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distributions/~A/monitoring-subscription/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'distribution-id)))) + 'distribution-id) + common-lisp:t))) "CreateMonitoringSubscription")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-monitoring-subscription)) (common-lisp:progn (common-lisp:defun create-origin-access-control @@ -23578,7 +24550,7 @@ common-lisp:nil "POST" "/2020-05-31/origin-access-control" "CreateOriginAccessControl")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-origin-access-control)) (common-lisp:progn (common-lisp:defun create-origin-request-policy @@ -23597,7 +24569,7 @@ common-lisp:nil "POST" "/2020-05-31/origin-request-policy" "CreateOriginRequestPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-origin-request-policy)) (common-lisp:progn (common-lisp:defun create-public-key @@ -23615,7 +24587,7 @@ common-lisp:nil "POST" "/2020-05-31/public-key" "CreatePublicKey")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-public-key)) (common-lisp:progn (common-lisp:defun create-realtime-log-config @@ -23635,7 +24607,7 @@ common-lisp:nil "POST" "/2020-05-31/realtime-log-config" "CreateRealtimeLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-realtime-log-config)) (common-lisp:progn (common-lisp:defun create-response-headers-policy @@ -23654,7 +24626,7 @@ common-lisp:nil "POST" "/2020-05-31/response-headers-policy" "CreateResponseHeadersPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-response-headers-policy)) (common-lisp:progn (common-lisp:defun create-streaming-distribution @@ -23673,7 +24645,7 @@ common-lisp:nil "POST" "/2020-05-31/streaming-distribution" "CreateStreamingDistribution")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-streaming-distribution)) (common-lisp:progn (common-lisp:defun create-streaming-distribution-with-tags @@ -23693,7 +24665,7 @@ common-lisp:nil "POST" "/2020-05-31/streaming-distribution?WithTags" "CreateStreamingDistributionWithTags")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-streaming-distribution-with-tags)) (common-lisp:progn (common-lisp:defun delete-cache-policy @@ -23715,12 +24687,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/cache-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteCachePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-cache-policy)) (common-lisp:progn (common-lisp:defun delete-cloud-front-origin-access-identity @@ -23743,12 +24716,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-access-identity/cloudfront/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteCloudFrontOriginAccessIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-cloud-front-origin-access-identity)) (common-lisp:progn (common-lisp:defun delete-continuous-deployment-policy @@ -23771,12 +24745,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/continuous-deployment-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteContinuousDeploymentPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-continuous-deployment-policy)) (common-lisp:progn (common-lisp:defun delete-distribution @@ -23798,12 +24773,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-distribution)) (common-lisp:progn (common-lisp:defun delete-field-level-encryption-config @@ -23826,12 +24802,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/field-level-encryption/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteFieldLevelEncryptionConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-field-level-encryption-config)) (common-lisp:progn (common-lisp:defun delete-field-level-encryption-profile @@ -23854,12 +24831,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/field-level-encryption-profile/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteFieldLevelEncryptionProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-field-level-encryption-profile)) (common-lisp:progn (common-lisp:defun delete-function @@ -23881,12 +24859,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/function/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-function)) (common-lisp:progn (common-lisp:defun delete-key-group @@ -23908,12 +24887,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/key-group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteKeyGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-key-group)) (common-lisp:progn (common-lisp:defun delete-key-value-store @@ -23935,12 +24915,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/key-value-store/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteKeyValueStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-key-value-store)) (common-lisp:progn (common-lisp:defun delete-monitoring-subscription @@ -23963,12 +24944,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distributions/~A/monitoring-subscription/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'distribution-id)))) + 'distribution-id) + common-lisp:t))) "DeleteMonitoringSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-monitoring-subscription)) (common-lisp:progn (common-lisp:defun delete-origin-access-control @@ -23991,12 +24973,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-access-control/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteOriginAccessControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-origin-access-control)) (common-lisp:progn (common-lisp:defun delete-origin-request-policy @@ -24019,12 +25002,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-request-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteOriginRequestPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-origin-request-policy)) (common-lisp:progn (common-lisp:defun delete-public-key @@ -24046,12 +25030,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/public-key/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeletePublicKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-public-key)) (common-lisp:progn (common-lisp:defun delete-realtime-log-config @@ -24070,7 +25055,7 @@ common-lisp:nil "POST" "/2020-05-31/delete-realtime-log-config/" "DeleteRealtimeLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-realtime-log-config)) (common-lisp:progn (common-lisp:defun delete-response-headers-policy @@ -24093,12 +25078,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/response-headers-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteResponseHeadersPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-response-headers-policy)) (common-lisp:progn (common-lisp:defun delete-streaming-distribution @@ -24121,12 +25107,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/streaming-distribution/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteStreamingDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-streaming-distribution)) (common-lisp:progn (common-lisp:defun describe-function @@ -24148,12 +25135,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/function/~A/describe" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeFunction")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'describe-function)) (common-lisp:progn (common-lisp:defun describe-key-value-store @@ -24175,12 +25163,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/key-value-store/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeKeyValueStore")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'describe-key-value-store)) (common-lisp:progn (common-lisp:defun get-cache-policy @@ -24202,12 +25191,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/cache-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetCachePolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-cache-policy)) (common-lisp:progn (common-lisp:defun get-cache-policy-config @@ -24229,12 +25219,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/cache-policy/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetCachePolicyConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-cache-policy-config)) (common-lisp:progn (common-lisp:defun get-cloud-front-origin-access-identity @@ -24257,12 +25248,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-access-identity/cloudfront/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetCloudFrontOriginAccessIdentity")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-cloud-front-origin-access-identity)) (common-lisp:progn (common-lisp:defun get-cloud-front-origin-access-identity-config @@ -24285,12 +25277,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-access-identity/cloudfront/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetCloudFrontOriginAccessIdentityConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-cloud-front-origin-access-identity-config)) (common-lisp:progn (common-lisp:defun get-continuous-deployment-policy @@ -24313,12 +25306,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/continuous-deployment-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetContinuousDeploymentPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-continuous-deployment-policy)) (common-lisp:progn (common-lisp:defun get-continuous-deployment-policy-config @@ -24341,12 +25335,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/continuous-deployment-policy/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetContinuousDeploymentPolicyConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-continuous-deployment-policy-config)) (common-lisp:progn (common-lisp:defun get-distribution @@ -24368,12 +25363,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetDistribution")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-distribution)) (common-lisp:progn (common-lisp:defun get-distribution-config @@ -24395,12 +25391,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetDistributionConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-distribution-config)) (common-lisp:progn (common-lisp:defun get-field-level-encryption @@ -24423,12 +25420,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/field-level-encryption/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetFieldLevelEncryption")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-field-level-encryption)) (common-lisp:progn (common-lisp:defun get-field-level-encryption-config @@ -24451,12 +25449,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/field-level-encryption/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetFieldLevelEncryptionConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-field-level-encryption-config)) (common-lisp:progn (common-lisp:defun get-field-level-encryption-profile @@ -24479,12 +25478,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/field-level-encryption-profile/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetFieldLevelEncryptionProfile")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-field-level-encryption-profile)) (common-lisp:progn (common-lisp:defun get-field-level-encryption-profile-config @@ -24507,12 +25507,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/field-level-encryption-profile/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetFieldLevelEncryptionProfileConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-field-level-encryption-profile-config)) (common-lisp:progn (common-lisp:defun get-function @@ -24534,13 +25535,14 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/function/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetFunction") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-function)) (common-lisp:progn (common-lisp:defun get-invalidation @@ -24562,16 +25564,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A/invalidation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'distribution-id)) - (quri.encode:url-encode + 'distribution-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetInvalidation")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-invalidation)) (common-lisp:progn (common-lisp:defun get-key-group @@ -24593,12 +25597,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/key-group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetKeyGroup")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-key-group)) (common-lisp:progn (common-lisp:defun get-key-group-config @@ -24620,12 +25625,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/key-group/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetKeyGroupConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-key-group-config)) (common-lisp:progn (common-lisp:defun get-monitoring-subscription @@ -24648,12 +25654,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distributions/~A/monitoring-subscription/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'distribution-id)))) + 'distribution-id) + common-lisp:t))) "GetMonitoringSubscription")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-monitoring-subscription)) (common-lisp:progn (common-lisp:defun get-origin-access-control @@ -24676,12 +25683,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-access-control/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetOriginAccessControl")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-origin-access-control)) (common-lisp:progn (common-lisp:defun get-origin-access-control-config @@ -24704,12 +25712,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-access-control/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetOriginAccessControlConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-origin-access-control-config)) (common-lisp:progn (common-lisp:defun get-origin-request-policy @@ -24732,12 +25741,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-request-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetOriginRequestPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-origin-request-policy)) (common-lisp:progn (common-lisp:defun get-origin-request-policy-config @@ -24760,12 +25770,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-request-policy/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetOriginRequestPolicyConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-origin-request-policy-config)) (common-lisp:progn (common-lisp:defun get-public-key @@ -24787,12 +25798,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/public-key/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetPublicKey")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-public-key)) (common-lisp:progn (common-lisp:defun get-public-key-config @@ -24814,12 +25826,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/public-key/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetPublicKeyConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-public-key-config)) (common-lisp:progn (common-lisp:defun get-realtime-log-config @@ -24837,7 +25850,7 @@ common-lisp:nil "POST" "/2020-05-31/get-realtime-log-config/" "GetRealtimeLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-realtime-log-config)) (common-lisp:progn (common-lisp:defun get-response-headers-policy @@ -24860,12 +25873,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/response-headers-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetResponseHeadersPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-response-headers-policy)) (common-lisp:progn (common-lisp:defun get-response-headers-policy-config @@ -24888,12 +25902,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/response-headers-policy/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetResponseHeadersPolicyConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-response-headers-policy-config)) (common-lisp:progn (common-lisp:defun get-streaming-distribution @@ -24916,12 +25931,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/streaming-distribution/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetStreamingDistribution")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-streaming-distribution)) (common-lisp:progn (common-lisp:defun get-streaming-distribution-config @@ -24944,12 +25960,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/streaming-distribution/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetStreamingDistributionConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-streaming-distribution-config)) (common-lisp:progn (common-lisp:defun list-cache-policies @@ -24967,7 +25984,7 @@ common-lisp:nil "GET" "/2020-05-31/cache-policy" "ListCachePolicies")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-cache-policies)) (common-lisp:progn (common-lisp:defun list-cloud-front-origin-access-identities @@ -24986,7 +26003,7 @@ common-lisp:nil "GET" "/2020-05-31/origin-access-identity/cloudfront" "ListCloudFrontOriginAccessIdentities")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-cloud-front-origin-access-identities)) (common-lisp:progn (common-lisp:defun list-conflicting-aliases @@ -25005,7 +26022,7 @@ common-lisp:nil "GET" "/2020-05-31/conflicting-alias" "ListConflictingAliases")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-conflicting-aliases)) (common-lisp:progn (common-lisp:defun list-continuous-deployment-policies @@ -25024,7 +26041,7 @@ common-lisp:nil "GET" "/2020-05-31/continuous-deployment-policy" "ListContinuousDeploymentPolicies")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-continuous-deployment-policies)) (common-lisp:progn (common-lisp:defun list-distributions @@ -25042,7 +26059,7 @@ common-lisp:nil "GET" "/2020-05-31/distribution" "ListDistributions")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-distributions)) (common-lisp:progn (common-lisp:defun list-distributions-by-cache-policy-id @@ -25066,12 +26083,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distributionsByCachePolicyId/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cache-policy-id)))) + 'cache-policy-id) + common-lisp:t))) "ListDistributionsByCachePolicyId")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-distributions-by-cache-policy-id)) (common-lisp:progn (common-lisp:defun list-distributions-by-key-group @@ -25094,12 +26112,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distributionsByKeyGroupId/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-group-id)))) + 'key-group-id) + common-lisp:t))) "ListDistributionsByKeyGroup")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-distributions-by-key-group)) (common-lisp:progn (common-lisp:defun list-distributions-by-origin-request-policy-id @@ -25124,12 +26143,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distributionsByOriginRequestPolicyId/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'origin-request-policy-id)))) + 'origin-request-policy-id) + common-lisp:t))) "ListDistributionsByOriginRequestPolicyId")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-distributions-by-origin-request-policy-id)) (common-lisp:progn (common-lisp:defun list-distributions-by-realtime-log-config @@ -25151,7 +26171,7 @@ common-lisp:nil "POST" "/2020-05-31/distributionsByRealtimeLogConfig/" "ListDistributionsByRealtimeLogConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-distributions-by-realtime-log-config)) (common-lisp:progn (common-lisp:defun list-distributions-by-response-headers-policy-id @@ -25176,12 +26196,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distributionsByResponseHeadersPolicyId/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'response-headers-policy-id)))) + 'response-headers-policy-id) + common-lisp:t))) "ListDistributionsByResponseHeadersPolicyId")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-distributions-by-response-headers-policy-id)) (common-lisp:progn (common-lisp:defun list-distributions-by-web-aclid @@ -25204,12 +26225,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distributionsByWebACLId/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'web-aclid)))) + 'web-aclid) + common-lisp:t))) "ListDistributionsByWebACLId")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-distributions-by-web-aclid)) (common-lisp:progn (common-lisp:defun list-field-level-encryption-configs @@ -25228,7 +26250,7 @@ common-lisp:nil "GET" "/2020-05-31/field-level-encryption" "ListFieldLevelEncryptionConfigs")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-field-level-encryption-configs)) (common-lisp:progn (common-lisp:defun list-field-level-encryption-profiles @@ -25247,7 +26269,7 @@ common-lisp:nil "GET" "/2020-05-31/field-level-encryption-profile" "ListFieldLevelEncryptionProfiles")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-field-level-encryption-profiles)) (common-lisp:progn (common-lisp:defun list-functions @@ -25265,7 +26287,7 @@ common-lisp:nil "GET" "/2020-05-31/function" "ListFunctions")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-functions)) (common-lisp:progn (common-lisp:defun list-invalidations @@ -25288,12 +26310,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A/invalidation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'distribution-id)))) + 'distribution-id) + common-lisp:t))) "ListInvalidations")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-invalidations)) (common-lisp:progn (common-lisp:defun list-key-groups @@ -25311,7 +26334,7 @@ common-lisp:nil "GET" "/2020-05-31/key-group" "ListKeyGroups")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-key-groups)) (common-lisp:progn (common-lisp:defun list-key-value-stores @@ -25329,7 +26352,7 @@ common-lisp:nil "GET" "/2020-05-31/key-value-store" "ListKeyValueStores")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-key-value-stores)) (common-lisp:progn (common-lisp:defun list-origin-access-controls @@ -25348,7 +26371,7 @@ common-lisp:nil "GET" "/2020-05-31/origin-access-control" "ListOriginAccessControls")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-origin-access-controls)) (common-lisp:progn (common-lisp:defun list-origin-request-policies @@ -25367,7 +26390,7 @@ common-lisp:nil "GET" "/2020-05-31/origin-request-policy" "ListOriginRequestPolicies")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-origin-request-policies)) (common-lisp:progn (common-lisp:defun list-public-keys @@ -25385,7 +26408,7 @@ common-lisp:nil "GET" "/2020-05-31/public-key" "ListPublicKeys")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-public-keys)) (common-lisp:progn (common-lisp:defun list-realtime-log-configs @@ -25404,7 +26427,7 @@ common-lisp:nil "GET" "/2020-05-31/realtime-log-config" "ListRealtimeLogConfigs")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-realtime-log-configs)) (common-lisp:progn (common-lisp:defun list-response-headers-policies @@ -25423,7 +26446,7 @@ common-lisp:nil "GET" "/2020-05-31/response-headers-policy" "ListResponseHeadersPolicies")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-response-headers-policies)) (common-lisp:progn (common-lisp:defun list-streaming-distributions @@ -25442,7 +26465,7 @@ common-lisp:nil "GET" "/2020-05-31/streaming-distribution" "ListStreamingDistributions")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-streaming-distributions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -25460,7 +26483,7 @@ common-lisp:nil "GET" "/2020-05-31/tagging" "ListTagsForResource")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun publish-function @@ -25482,12 +26505,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/function/~A/publish" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PublishFunction")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'publish-function)) (common-lisp:progn (common-lisp:defun tag-resource @@ -25505,7 +26529,7 @@ common-lisp:nil "POST" "/2020-05-31/tagging?Operation=Tag" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-function @@ -25528,12 +26552,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/function/~A/test" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "TestFunction")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'test-function)) (common-lisp:progn (common-lisp:defun untag-resource @@ -25551,7 +26576,7 @@ common-lisp:nil "POST" "/2020-05-31/tagging?Operation=Untag" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-cache-policy @@ -25574,12 +26599,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/cache-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateCachePolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-cache-policy)) (common-lisp:progn (common-lisp:defun update-cloud-front-origin-access-identity @@ -25605,12 +26631,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-access-identity/cloudfront/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateCloudFrontOriginAccessIdentity")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-cloud-front-origin-access-identity)) (common-lisp:progn (common-lisp:defun update-continuous-deployment-policy @@ -25635,12 +26662,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/continuous-deployment-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateContinuousDeploymentPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-continuous-deployment-policy)) (common-lisp:progn (common-lisp:defun update-distribution @@ -25663,12 +26691,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateDistribution")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-distribution)) (common-lisp:progn (common-lisp:defun update-distribution-with-staging-config @@ -25692,12 +26721,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/distribution/~A/promote-staging-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateDistributionWithStagingConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-distribution-with-staging-config)) (common-lisp:progn (common-lisp:defun update-field-level-encryption-config @@ -25722,12 +26752,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/field-level-encryption/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateFieldLevelEncryptionConfig")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-field-level-encryption-config)) (common-lisp:progn (common-lisp:defun update-field-level-encryption-profile @@ -25752,12 +26783,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/field-level-encryption-profile/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateFieldLevelEncryptionProfile")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-field-level-encryption-profile)) (common-lisp:progn (common-lisp:defun update-function @@ -25781,12 +26813,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/function/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateFunction")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-function)) (common-lisp:progn (common-lisp:defun update-key-group @@ -25808,12 +26841,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/key-group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateKeyGroup")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-key-group)) (common-lisp:progn (common-lisp:defun update-key-value-store @@ -25835,12 +26869,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/key-value-store/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateKeyValueStore")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-key-value-store)) (common-lisp:progn (common-lisp:defun update-origin-access-control @@ -25864,12 +26899,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-access-control/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateOriginAccessControl")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-origin-access-control)) (common-lisp:progn (common-lisp:defun update-origin-request-policy @@ -25893,12 +26929,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/origin-request-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateOriginRequestPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-origin-request-policy)) (common-lisp:progn (common-lisp:defun update-public-key @@ -25920,12 +26957,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/public-key/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdatePublicKey")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-public-key)) (common-lisp:progn (common-lisp:defun update-realtime-log-config @@ -25945,7 +26983,7 @@ common-lisp:nil "PUT" "/2020-05-31/realtime-log-config/" "UpdateRealtimeLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-realtime-log-config)) (common-lisp:progn (common-lisp:defun update-response-headers-policy @@ -25970,12 +27008,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/response-headers-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateResponseHeadersPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-response-headers-policy)) (common-lisp:progn (common-lisp:defun update-streaming-distribution @@ -26000,10 +27039,11 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/2020-05-31/streaming-distribution/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateStreamingDistribution")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-streaming-distribution)) diff --git a/services/cloudhsm/api.lisp b/services/cloudhsm/api.lisp index c0f69ebf..c8ab87d5 100644 --- a/services/cloudhsm/api.lisp +++ b/services/cloudhsm/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudhsm/api - (:use) - (:nicknames #:aws/cloudhsm) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudhsm/api (:use) + (:nicknames #:aws/cloudhsm) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudhsm/api) (common-lisp:progn (common-lisp:define-condition cloudhsm-error @@ -2367,7 +2366,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun create-hapg @@ -2384,7 +2383,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateHapg")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hapg)) (common-lisp:progn (common-lisp:defun create-hsm @@ -2404,7 +2403,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateHsm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hsm)) (common-lisp:progn (common-lisp:defun create-luna-client @@ -2421,7 +2420,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLunaClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-luna-client)) (common-lisp:progn (common-lisp:defun delete-hapg @@ -2438,7 +2437,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHapg")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hapg)) (common-lisp:progn (common-lisp:defun delete-hsm @@ -2455,7 +2454,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHsm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hsm)) (common-lisp:progn (common-lisp:defun delete-luna-client @@ -2472,7 +2471,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLunaClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-luna-client)) (common-lisp:progn (common-lisp:defun describe-hapg @@ -2489,7 +2488,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHapg")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-hapg)) (common-lisp:progn (common-lisp:defun describe-hsm @@ -2506,7 +2505,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHsm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-hsm)) (common-lisp:progn (common-lisp:defun describe-luna-client @@ -2524,7 +2523,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLunaClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-luna-client)) (common-lisp:progn (common-lisp:defun get-config @@ -2542,7 +2541,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-config)) (common-lisp:progn (common-lisp:defun list-available-zones () @@ -2567,7 +2566,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListHapgs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hapgs)) (common-lisp:progn (common-lisp:defun list-hsms @@ -2583,7 +2582,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudhsm-request aws-sdk/generator/operation::input "POST" "/" "ListHsms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hsms)) (common-lisp:progn (common-lisp:defun list-luna-clients @@ -2600,7 +2599,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLunaClients")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-luna-clients)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2617,7 +2616,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-hapg @@ -2635,7 +2634,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyHapg")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-hapg)) (common-lisp:progn (common-lisp:defun modify-hsm @@ -2655,7 +2654,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyHsm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-hsm)) (common-lisp:progn (common-lisp:defun modify-luna-client @@ -2672,7 +2671,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyLunaClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-luna-client)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -2690,5 +2689,5 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-resource)) diff --git a/services/cloudhsmv2/api.lisp b/services/cloudhsmv2/api.lisp index eb0fdb0a..dae0a71e 100644 --- a/services/cloudhsmv2/api.lisp +++ b/services/cloudhsmv2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudhsmv2/api - (:use) - (:nicknames #:aws/cloudhsmv2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudhsmv2/api (:use) + (:nicknames #:aws/cloudhsmv2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudhsmv2/api) (common-lisp:progn (common-lisp:define-condition cloudhsmv2-error @@ -2350,7 +2349,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyBackupToRegion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-backup-to-region)) (common-lisp:progn (common-lisp:defun create-cluster @@ -2370,7 +2369,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-hsm @@ -2388,7 +2387,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateHsm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hsm)) (common-lisp:progn (common-lisp:defun delete-backup @@ -2405,7 +2404,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -2422,7 +2421,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-hsm @@ -2440,7 +2439,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHsm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hsm)) (common-lisp:progn (common-lisp:defun describe-backups @@ -2459,7 +2458,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBackups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-backups)) (common-lisp:progn (common-lisp:defun describe-clusters @@ -2476,7 +2475,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-clusters)) (common-lisp:progn (common-lisp:defun initialize-cluster @@ -2494,7 +2493,7 @@ aws-sdk/generator/operation::input "POST" "/" "InitializeCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initialize-cluster)) (common-lisp:progn (common-lisp:defun list-tags @@ -2511,7 +2510,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudhsmv2-request aws-sdk/generator/operation::input "POST" "/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun modify-backup-attributes @@ -2528,7 +2527,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyBackupAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-backup-attributes)) (common-lisp:progn (common-lisp:defun modify-cluster @@ -2546,7 +2545,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-cluster)) (common-lisp:progn (common-lisp:defun restore-backup @@ -2563,7 +2562,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-backup)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2580,7 +2579,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2597,5 +2596,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/cloudsearch/api.lisp b/services/cloudsearch/api.lisp index 673c721c..3e68d888 100644 --- a/services/cloudsearch/api.lisp +++ b/services/cloudsearch/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudsearch/api - (:use) - (:nicknames #:aws/cloudsearch) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudsearch/api (:use) + (:nicknames #:aws/cloudsearch) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudsearch/api) (common-lisp:progn (common-lisp:define-condition cloudsearch-error @@ -4944,7 +4943,7 @@ aws-sdk/generator/operation::input "POST" "/" "BuildSuggesters")) - common-lisp:nil "BuildSuggestersResult" *error-map*))) + common-lisp:nil "BuildSuggestersResult" *error-map* common-lisp:nil))) (common-lisp:export 'build-suggesters)) (common-lisp:progn (common-lisp:defun create-domain @@ -4961,7 +4960,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDomain")) - common-lisp:nil "CreateDomainResult" *error-map*))) + common-lisp:nil "CreateDomainResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun define-analysis-scheme @@ -4978,7 +4977,8 @@ aws-sdk/generator/operation::input "POST" "/" "DefineAnalysisScheme")) - common-lisp:nil "DefineAnalysisSchemeResult" *error-map*))) + common-lisp:nil "DefineAnalysisSchemeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'define-analysis-scheme)) (common-lisp:progn (common-lisp:defun define-expression @@ -4995,7 +4995,7 @@ aws-sdk/generator/operation::input "POST" "/" "DefineExpression")) - common-lisp:nil "DefineExpressionResult" *error-map*))) + common-lisp:nil "DefineExpressionResult" *error-map* common-lisp:nil))) (common-lisp:export 'define-expression)) (common-lisp:progn (common-lisp:defun define-index-field @@ -5012,7 +5012,7 @@ aws-sdk/generator/operation::input "POST" "/" "DefineIndexField")) - common-lisp:nil "DefineIndexFieldResult" *error-map*))) + common-lisp:nil "DefineIndexFieldResult" *error-map* common-lisp:nil))) (common-lisp:export 'define-index-field)) (common-lisp:progn (common-lisp:defun define-suggester @@ -5029,7 +5029,7 @@ aws-sdk/generator/operation::input "POST" "/" "DefineSuggester")) - common-lisp:nil "DefineSuggesterResult" *error-map*))) + common-lisp:nil "DefineSuggesterResult" *error-map* common-lisp:nil))) (common-lisp:export 'define-suggester)) (common-lisp:progn (common-lisp:defun delete-analysis-scheme @@ -5047,7 +5047,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAnalysisScheme")) - common-lisp:nil "DeleteAnalysisSchemeResult" *error-map*))) + common-lisp:nil "DeleteAnalysisSchemeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-analysis-scheme)) (common-lisp:progn (common-lisp:defun delete-domain @@ -5064,7 +5065,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDomain")) - common-lisp:nil "DeleteDomainResult" *error-map*))) + common-lisp:nil "DeleteDomainResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-expression @@ -5081,7 +5082,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteExpression")) - common-lisp:nil "DeleteExpressionResult" *error-map*))) + common-lisp:nil "DeleteExpressionResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-expression)) (common-lisp:progn (common-lisp:defun delete-index-field @@ -5098,7 +5099,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIndexField")) - common-lisp:nil "DeleteIndexFieldResult" *error-map*))) + common-lisp:nil "DeleteIndexFieldResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-index-field)) (common-lisp:progn (common-lisp:defun delete-suggester @@ -5115,7 +5116,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSuggester")) - common-lisp:nil "DeleteSuggesterResult" *error-map*))) + common-lisp:nil "DeleteSuggesterResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-suggester)) (common-lisp:progn (common-lisp:defun describe-analysis-schemes @@ -5135,7 +5136,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAnalysisSchemes")) - common-lisp:nil "DescribeAnalysisSchemesResult" *error-map*))) + common-lisp:nil "DescribeAnalysisSchemesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-analysis-schemes)) (common-lisp:progn (common-lisp:defun describe-availability-options @@ -5153,7 +5155,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAvailabilityOptions")) - common-lisp:nil "DescribeAvailabilityOptionsResult" *error-map*))) + common-lisp:nil "DescribeAvailabilityOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-availability-options)) (common-lisp:progn (common-lisp:defun describe-domain-endpoint-options @@ -5171,7 +5174,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDomainEndpointOptions")) - common-lisp:nil "DescribeDomainEndpointOptionsResult" *error-map*))) + common-lisp:nil "DescribeDomainEndpointOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-domain-endpoint-options)) (common-lisp:progn (common-lisp:defun describe-domains @@ -5188,7 +5192,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDomains")) - common-lisp:nil "DescribeDomainsResult" *error-map*))) + common-lisp:nil "DescribeDomainsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-domains)) (common-lisp:progn (common-lisp:defun describe-expressions @@ -5206,7 +5210,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExpressions")) - common-lisp:nil "DescribeExpressionsResult" *error-map*))) + common-lisp:nil "DescribeExpressionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-expressions)) (common-lisp:progn (common-lisp:defun describe-index-fields @@ -5224,7 +5229,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIndexFields")) - common-lisp:nil "DescribeIndexFieldsResult" *error-map*))) + common-lisp:nil "DescribeIndexFieldsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-index-fields)) (common-lisp:progn (common-lisp:defun describe-scaling-parameters @@ -5242,7 +5248,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeScalingParameters")) - common-lisp:nil "DescribeScalingParametersResult" *error-map*))) + common-lisp:nil "DescribeScalingParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-scaling-parameters)) (common-lisp:progn (common-lisp:defun describe-service-access-policies @@ -5260,7 +5267,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServiceAccessPolicies")) - common-lisp:nil "DescribeServiceAccessPoliciesResult" *error-map*))) + common-lisp:nil "DescribeServiceAccessPoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-service-access-policies)) (common-lisp:progn (common-lisp:defun describe-suggesters @@ -5278,7 +5286,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSuggesters")) - common-lisp:nil "DescribeSuggestersResult" *error-map*))) + common-lisp:nil "DescribeSuggestersResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-suggesters)) (common-lisp:progn (common-lisp:defun index-documents @@ -5295,7 +5303,7 @@ aws-sdk/generator/operation::input "POST" "/" "IndexDocuments")) - common-lisp:nil "IndexDocumentsResult" *error-map*))) + common-lisp:nil "IndexDocumentsResult" *error-map* common-lisp:nil))) (common-lisp:export 'index-documents)) (common-lisp:progn (common-lisp:defun list-domain-names () @@ -5321,7 +5329,8 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAvailabilityOptions")) - common-lisp:nil "UpdateAvailabilityOptionsResult" *error-map*))) + common-lisp:nil "UpdateAvailabilityOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-availability-options)) (common-lisp:progn (common-lisp:defun update-domain-endpoint-options @@ -5340,7 +5349,8 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDomainEndpointOptions")) - common-lisp:nil "UpdateDomainEndpointOptionsResult" *error-map*))) + common-lisp:nil "UpdateDomainEndpointOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-domain-endpoint-options)) (common-lisp:progn (common-lisp:defun update-scaling-parameters @@ -5358,7 +5368,8 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateScalingParameters")) - common-lisp:nil "UpdateScalingParametersResult" *error-map*))) + common-lisp:nil "UpdateScalingParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-scaling-parameters)) (common-lisp:progn (common-lisp:defun update-service-access-policies @@ -5376,5 +5387,6 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceAccessPolicies")) - common-lisp:nil "UpdateServiceAccessPoliciesResult" *error-map*))) + common-lisp:nil "UpdateServiceAccessPoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-service-access-policies)) diff --git a/services/cloudsearchdomain/api.lisp b/services/cloudsearchdomain/api.lisp index a2daf4ed..9a07fbd9 100644 --- a/services/cloudsearchdomain/api.lisp +++ b/services/cloudsearchdomain/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudsearchdomain/api - (:use) - (:nicknames #:aws/cloudsearchdomain) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudsearchdomain/api (:use) + (:nicknames #:aws/cloudsearchdomain) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudsearchdomain/api) (common-lisp:progn (common-lisp:define-condition cloudsearchdomain-error @@ -20,7 +19,7 @@ (common-lisp:export 'cloudsearchdomain-error)) (common-lisp:progn (common-lisp:defclass cloudsearchdomain-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "cloudsearchdomain" :api-version "2013-01-01" :host-prefix @@ -930,7 +929,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -947,7 +948,13 @@ ( (aws-sdk/generator/shape::input upload-documents-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'documents))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'documents)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + upload-documents-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass upload-documents-response common-lisp:nil ((status :initarg :status :initform common-lisp:nil @@ -1044,7 +1051,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudsearchdomain-request aws-sdk/generator/operation::input "GET" "/2013-01-01/search?format=sdk&pretty=true" "Search")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search)) (common-lisp:progn (common-lisp:defun suggest @@ -1060,7 +1067,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudsearchdomain-request aws-sdk/generator/operation::input "GET" "/2013-01-01/suggest?format=sdk&pretty=true" "Suggest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'suggest)) (common-lisp:progn (common-lisp:defun upload-documents @@ -1076,5 +1083,5 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudsearchdomain-request aws-sdk/generator/operation::input "POST" "/2013-01-01/documents/batch?format=sdk" "UploadDocuments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upload-documents)) diff --git a/services/cloudtrail-data/api.lisp b/services/cloudtrail-data/api.lisp index 5a650279..57c91d89 100644 --- a/services/cloudtrail-data/api.lisp +++ b/services/cloudtrail-data/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudtrail-data/api - (:use) - (:nicknames #:aws/cloudtrail-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudtrail-data/api (:use) + (:nicknames #:aws/cloudtrail-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudtrail-data/api) (common-lisp:progn (common-lisp:define-condition cloudtrail-data-error @@ -20,7 +19,7 @@ (common-lisp:export 'cloudtrail-data-error)) (common-lisp:progn (common-lisp:defclass cloudtrail-data-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "cloudtrail-data" :api-version "2021-08-11" :host-prefix @@ -394,5 +393,5 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudtrail-data-request aws-sdk/generator/operation::input "POST" "/PutAuditEvents" "PutAuditEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-audit-events)) diff --git a/services/cloudtrail/api.lisp b/services/cloudtrail/api.lisp index a850f68c..63eb296d 100644 --- a/services/cloudtrail/api.lisp +++ b/services/cloudtrail/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cloudtrail/api - (:use) - (:nicknames #:aws/cloudtrail) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cloudtrail/api (:use) + (:nicknames #:aws/cloudtrail) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cloudtrail/api) (common-lisp:progn (common-lisp:define-condition cloudtrail-error @@ -9912,7 +9911,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudtrail-request aws-sdk/generator/operation::input "POST" "/" "AddTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun cancel-query @@ -9929,7 +9928,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-query)) (common-lisp:progn (common-lisp:defun create-channel @@ -9946,7 +9945,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-event-data-store @@ -9969,7 +9968,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventDataStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-data-store)) (common-lisp:progn (common-lisp:defun create-trail @@ -9994,7 +9993,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-trail)) (common-lisp:progn (common-lisp:defun delete-channel @@ -10011,7 +10010,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-event-data-store @@ -10028,7 +10027,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventDataStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-data-store)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -10045,7 +10044,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-trail @@ -10062,7 +10061,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-trail)) (common-lisp:progn (common-lisp:defun deregister-organization-delegated-admin @@ -10080,7 +10079,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterOrganizationDelegatedAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-organization-delegated-admin)) (common-lisp:progn (common-lisp:defun describe-query @@ -10098,7 +10097,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-query)) (common-lisp:progn (common-lisp:defun describe-trails @@ -10116,7 +10115,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trails)) (common-lisp:progn (common-lisp:defun disable-federation @@ -10133,7 +10132,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableFederation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-federation)) (common-lisp:progn (common-lisp:defun enable-federation @@ -10151,7 +10150,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableFederation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-federation)) (common-lisp:progn (common-lisp:defun get-channel @@ -10168,7 +10167,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel)) (common-lisp:progn (common-lisp:defun get-event-data-store @@ -10185,7 +10184,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEventDataStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-data-store)) (common-lisp:progn (common-lisp:defun get-event-selectors @@ -10202,7 +10201,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEventSelectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-selectors)) (common-lisp:progn (common-lisp:defun get-import @@ -10219,7 +10218,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-import)) (common-lisp:progn (common-lisp:defun get-insight-selectors @@ -10236,7 +10235,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInsightSelectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-insight-selectors)) (common-lisp:progn (common-lisp:defun get-query-results @@ -10256,7 +10255,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetQueryResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-results)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -10273,7 +10272,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun get-trail @@ -10289,7 +10288,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudtrail-request aws-sdk/generator/operation::input "POST" "/" "GetTrail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-trail)) (common-lisp:progn (common-lisp:defun get-trail-status @@ -10306,7 +10305,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTrailStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-trail-status)) (common-lisp:progn (common-lisp:defun list-channels @@ -10323,7 +10322,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-event-data-stores @@ -10340,7 +10339,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEventDataStores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-data-stores)) (common-lisp:progn (common-lisp:defun list-import-failures @@ -10358,7 +10357,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImportFailures")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-import-failures)) (common-lisp:progn (common-lisp:defun list-imports @@ -10377,7 +10376,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-imports)) (common-lisp:progn (common-lisp:defun list-insights-metric-data @@ -10399,7 +10398,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListInsightsMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-insights-metric-data)) (common-lisp:progn (common-lisp:defun list-public-keys @@ -10416,7 +10415,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPublicKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-public-keys)) (common-lisp:progn (common-lisp:defun list-queries @@ -10436,7 +10435,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListQueries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-queries)) (common-lisp:progn (common-lisp:defun list-tags @@ -10452,7 +10451,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cloudtrail-request aws-sdk/generator/operation::input "POST" "/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun list-trails @@ -10469,7 +10468,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTrails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-trails)) (common-lisp:progn (common-lisp:defun lookup-events @@ -10489,7 +10488,7 @@ aws-sdk/generator/operation::input "POST" "/" "LookupEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'lookup-events)) (common-lisp:progn (common-lisp:defun put-event-selectors @@ -10509,7 +10508,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutEventSelectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-event-selectors)) (common-lisp:progn (common-lisp:defun put-insight-selectors @@ -10529,7 +10528,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutInsightSelectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-insight-selectors)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -10546,7 +10545,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun register-organization-delegated-admin @@ -10564,7 +10563,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterOrganizationDelegatedAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-organization-delegated-admin)) (common-lisp:progn (common-lisp:defun remove-tags @@ -10581,7 +10580,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags)) (common-lisp:progn (common-lisp:defun restore-event-data-store @@ -10598,7 +10597,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreEventDataStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-event-data-store)) (common-lisp:progn (common-lisp:defun start-event-data-store-ingestion @@ -10616,7 +10615,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartEventDataStoreIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-event-data-store-ingestion)) (common-lisp:progn (common-lisp:defun start-import @@ -10636,7 +10635,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import)) (common-lisp:progn (common-lisp:defun start-logging @@ -10653,7 +10652,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartLogging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-logging)) (common-lisp:progn (common-lisp:defun start-query @@ -10673,7 +10672,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-query)) (common-lisp:progn (common-lisp:defun stop-event-data-store-ingestion @@ -10691,7 +10690,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopEventDataStoreIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-event-data-store-ingestion)) (common-lisp:progn (common-lisp:defun stop-import @@ -10708,7 +10707,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-import)) (common-lisp:progn (common-lisp:defun stop-logging @@ -10725,7 +10724,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopLogging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-logging)) (common-lisp:progn (common-lisp:defun update-channel @@ -10742,7 +10741,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-event-data-store @@ -10765,7 +10764,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEventDataStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-data-store)) (common-lisp:progn (common-lisp:defun update-trail @@ -10790,5 +10789,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTrail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-trail)) diff --git a/services/codeartifact/api.lisp b/services/codeartifact/api.lisp index c31f14e9..8c26ecec 100644 --- a/services/codeartifact/api.lisp +++ b/services/codeartifact/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codeartifact/api - (:use) - (:nicknames #:aws/codeartifact) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codeartifact/api (:use) + (:nicknames #:aws/codeartifact) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codeartifact/api) (common-lisp:progn (common-lisp:define-condition codeartifact-error @@ -20,7 +19,7 @@ (common-lisp:export 'codeartifact-error)) (common-lisp:progn (common-lisp:defclass codeartifact-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "codeartifact" :api-version "2018-09-22" :host-prefix "codeartifact" :signing-name @@ -2454,17 +2453,23 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'asset-name)) - (common-lisp:cons "X-AssetName" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-AssetName" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'package-version)) - (common-lisp:cons "X-PackageVersion" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-PackageVersion" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'package-version-revision)) - (common-lisp:cons "X-PackageVersionRevision" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-PackageVersionRevision" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2481,7 +2486,13 @@ ( (aws-sdk/generator/shape::input get-package-version-asset-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'asset))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'asset)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-package-version-asset-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-package-version-readme-request common-lisp:nil ((domain :initarg :domain :initform @@ -4912,8 +4923,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'asset-sha256)) - (common-lisp:cons "x-amz-content-sha256" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-content-sha256" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4930,7 +4942,13 @@ ( (aws-sdk/generator/shape::input publish-package-version-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'asset-content))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'asset-content)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + publish-package-version-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass publish-package-version-result common-lisp:nil ((format :initarg :format :initform common-lisp:nil @@ -6517,7 +6535,7 @@ "POST" "/v1/repository/external-connection" "AssociateExternalConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-external-connection)) (common-lisp:progn (common-lisp:defun copy-package-versions @@ -6540,7 +6558,7 @@ "POST" "/v1/package/versions/copy" "CopyPackageVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-package-versions)) (common-lisp:progn (common-lisp:defun create-domain @@ -6557,7 +6575,7 @@ aws-sdk/generator/operation::input "POST" "/v1/domain" "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun create-repository @@ -6577,7 +6595,7 @@ aws-sdk/generator/operation::input "POST" "/v1/repository" "CreateRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-repository)) (common-lisp:progn (common-lisp:defun delete-domain @@ -6594,7 +6612,7 @@ aws-sdk/generator/operation::input "DELETE" "/v1/domain" "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-domain-permissions-policy @@ -6614,7 +6632,7 @@ "DELETE" "/v1/domain/permissions/policy" "DeleteDomainPermissionsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain-permissions-policy)) (common-lisp:progn (common-lisp:defun delete-package @@ -6634,7 +6652,7 @@ aws-sdk/generator/operation::input "DELETE" "/v1/package" "DeletePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-package)) (common-lisp:progn (common-lisp:defun delete-package-versions @@ -6655,7 +6673,7 @@ "POST" "/v1/package/versions/delete" "DeletePackageVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-package-versions)) (common-lisp:progn (common-lisp:defun delete-repository @@ -6673,7 +6691,7 @@ "DELETE" "/v1/repository" "DeleteRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository)) (common-lisp:progn (common-lisp:defun delete-repository-permissions-policy @@ -6694,7 +6712,7 @@ "DELETE" "/v1/repository/permissions/policies" "DeleteRepositoryPermissionsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository-permissions-policy)) (common-lisp:progn (common-lisp:defun describe-domain @@ -6711,7 +6729,7 @@ aws-sdk/generator/operation::input "GET" "/v1/domain" "DescribeDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain)) (common-lisp:progn (common-lisp:defun describe-package @@ -6731,7 +6749,7 @@ aws-sdk/generator/operation::input "GET" "/v1/package" "DescribePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-package)) (common-lisp:progn (common-lisp:defun describe-package-version @@ -6752,7 +6770,7 @@ "GET" "/v1/package/version" "DescribePackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-package-version)) (common-lisp:progn (common-lisp:defun describe-repository @@ -6769,7 +6787,7 @@ aws-sdk/generator/operation::input "GET" "/v1/repository" "DescribeRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-repository)) (common-lisp:progn (common-lisp:defun disassociate-external-connection @@ -6790,7 +6808,7 @@ "DELETE" "/v1/repository/external-connection" "DisassociateExternalConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-external-connection)) (common-lisp:progn (common-lisp:defun dispose-package-versions @@ -6812,7 +6830,7 @@ "POST" "/v1/package/versions/dispose" "DisposePackageVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'dispose-package-versions)) (common-lisp:progn (common-lisp:defun get-authorization-token @@ -6831,7 +6849,7 @@ "POST" "/v1/authorization-token" "GetAuthorizationToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-authorization-token)) (common-lisp:progn (common-lisp:defun get-domain-permissions-policy @@ -6850,7 +6868,7 @@ "GET" "/v1/domain/permissions/policy" "GetDomainPermissionsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-permissions-policy)) (common-lisp:progn (common-lisp:defun get-package-version-asset @@ -6874,7 +6892,7 @@ "/v1/package/version/asset" "GetPackageVersionAsset") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-package-version-asset)) (common-lisp:progn (common-lisp:defun get-package-version-readme @@ -6896,7 +6914,7 @@ "GET" "/v1/package/version/readme" "GetPackageVersionReadme")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-package-version-readme)) (common-lisp:progn (common-lisp:defun get-repository-endpoint @@ -6915,7 +6933,7 @@ "GET" "/v1/repository/endpoint" "GetRepositoryEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-endpoint)) (common-lisp:progn (common-lisp:defun get-repository-permissions-policy @@ -6934,7 +6952,7 @@ "GET" "/v1/repository/permissions/policy" "GetRepositoryPermissionsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-permissions-policy)) (common-lisp:progn (common-lisp:defun list-domains @@ -6951,7 +6969,7 @@ aws-sdk/generator/operation::input "POST" "/v1/domains" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-package-version-assets @@ -6973,7 +6991,7 @@ "POST" "/v1/package/version/assets" "ListPackageVersionAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-package-version-assets)) (common-lisp:progn (common-lisp:defun list-package-version-dependencies @@ -6995,7 +7013,7 @@ "POST" "/v1/package/version/dependencies" "ListPackageVersionDependencies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-package-version-dependencies)) (common-lisp:progn (common-lisp:defun list-package-versions @@ -7017,7 +7035,7 @@ "POST" "/v1/package/versions" "ListPackageVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-package-versions)) (common-lisp:progn (common-lisp:defun list-packages @@ -7038,7 +7056,7 @@ aws-sdk/generator/operation::input "POST" "/v1/packages" "ListPackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-packages)) (common-lisp:progn (common-lisp:defun list-repositories @@ -7057,7 +7075,7 @@ "POST" "/v1/repositories" "ListRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repositories)) (common-lisp:progn (common-lisp:defun list-repositories-in-domain @@ -7079,7 +7097,7 @@ "POST" "/v1/domain/repositories" "ListRepositoriesInDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repositories-in-domain)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7096,7 +7114,7 @@ aws-sdk/generator/operation::input "POST" "/v1/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun publish-package-version @@ -7118,7 +7136,7 @@ "POST" "/v1/package/version/publish" "PublishPackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish-package-version)) (common-lisp:progn (common-lisp:defun put-domain-permissions-policy @@ -7140,7 +7158,7 @@ "PUT" "/v1/domain/permissions/policy" "PutDomainPermissionsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-domain-permissions-policy)) (common-lisp:progn (common-lisp:defun put-package-origin-configuration @@ -7161,7 +7179,7 @@ aws-sdk/generator/operation::input "POST" "/v1/package" "PutPackageOriginConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-package-origin-configuration)) (common-lisp:progn (common-lisp:defun put-repository-permissions-policy @@ -7183,7 +7201,7 @@ "PUT" "/v1/repository/permissions/policy" "PutRepositoryPermissionsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-repository-permissions-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7200,7 +7218,7 @@ aws-sdk/generator/operation::input "POST" "/v1/tag" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7217,7 +7235,7 @@ aws-sdk/generator/operation::input "POST" "/v1/untag" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-package-versions-status @@ -7240,7 +7258,7 @@ "POST" "/v1/package/versions/update_status" "UpdatePackageVersionsStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-package-versions-status)) (common-lisp:progn (common-lisp:defun update-repository @@ -7260,5 +7278,5 @@ aws-sdk/generator/operation::input "PUT" "/v1/repository" "UpdateRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-repository)) diff --git a/services/codebuild/api.lisp b/services/codebuild/api.lisp index 3a243409..03289a46 100644 --- a/services/codebuild/api.lisp +++ b/services/codebuild/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codebuild/api - (:use) - (:nicknames #:aws/codebuild) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codebuild/api (:use) + (:nicknames #:aws/codebuild) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codebuild/api) (common-lisp:progn (common-lisp:define-condition codebuild-error @@ -12228,7 +12227,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteBuilds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-builds)) (common-lisp:progn (common-lisp:defun batch-get-build-batches @@ -12245,7 +12244,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetBuildBatches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-build-batches)) (common-lisp:progn (common-lisp:defun batch-get-builds @@ -12262,7 +12261,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetBuilds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-builds)) (common-lisp:progn (common-lisp:defun batch-get-fleets @@ -12279,7 +12278,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-fleets)) (common-lisp:progn (common-lisp:defun batch-get-projects @@ -12296,7 +12295,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-projects)) (common-lisp:progn (common-lisp:defun batch-get-report-groups @@ -12313,7 +12312,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetReportGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-report-groups)) (common-lisp:progn (common-lisp:defun batch-get-reports @@ -12330,7 +12329,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-reports)) (common-lisp:progn (common-lisp:defun create-fleet @@ -12350,7 +12349,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet)) (common-lisp:progn (common-lisp:defun create-project @@ -12379,7 +12378,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun create-report-group @@ -12396,7 +12395,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReportGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-report-group)) (common-lisp:progn (common-lisp:defun create-webhook @@ -12416,7 +12415,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-webhook)) (common-lisp:progn (common-lisp:defun delete-build-batch @@ -12433,7 +12432,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBuildBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-build-batch)) (common-lisp:progn (common-lisp:defun delete-fleet @@ -12450,7 +12449,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet)) (common-lisp:progn (common-lisp:defun delete-project @@ -12467,7 +12466,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-report @@ -12484,7 +12483,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-report)) (common-lisp:progn (common-lisp:defun delete-report-group @@ -12501,7 +12500,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReportGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-report-group)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -12518,7 +12517,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-source-credentials @@ -12535,7 +12534,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSourceCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-source-credentials)) (common-lisp:progn (common-lisp:defun delete-webhook @@ -12552,7 +12551,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-webhook)) (common-lisp:progn (common-lisp:defun describe-code-coverages @@ -12573,7 +12572,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCodeCoverages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-code-coverages)) (common-lisp:progn (common-lisp:defun describe-test-cases @@ -12591,7 +12590,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTestCases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-test-cases)) (common-lisp:progn (common-lisp:defun get-report-group-trend @@ -12610,7 +12609,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetReportGroupTrend")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-report-group-trend)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -12627,7 +12626,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun import-source-credentials @@ -12647,7 +12646,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportSourceCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-source-credentials)) (common-lisp:progn (common-lisp:defun invalidate-project-cache @@ -12664,7 +12663,7 @@ aws-sdk/generator/operation::input "POST" "/" "InvalidateProjectCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invalidate-project-cache)) (common-lisp:progn (common-lisp:defun list-build-batches @@ -12682,7 +12681,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBuildBatches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-build-batches)) (common-lisp:progn (common-lisp:defun list-build-batches-for-project @@ -12703,7 +12702,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBuildBatchesForProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-build-batches-for-project)) (common-lisp:progn (common-lisp:defun list-builds @@ -12720,7 +12719,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBuilds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-builds)) (common-lisp:progn (common-lisp:defun list-builds-for-project @@ -12738,7 +12737,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBuildsForProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-builds-for-project)) (common-lisp:progn (common-lisp:defun list-curated-environment-images () @@ -12765,7 +12764,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fleets)) (common-lisp:progn (common-lisp:defun list-projects @@ -12782,7 +12781,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-report-groups @@ -12801,7 +12800,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListReportGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-report-groups)) (common-lisp:progn (common-lisp:defun list-reports @@ -12819,7 +12818,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-reports)) (common-lisp:progn (common-lisp:defun list-reports-for-report-group @@ -12840,7 +12839,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListReportsForReportGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-reports-for-report-group)) (common-lisp:progn (common-lisp:defun list-shared-projects @@ -12859,7 +12858,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSharedProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-shared-projects)) (common-lisp:progn (common-lisp:defun list-shared-report-groups @@ -12878,7 +12877,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSharedReportGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-shared-report-groups)) (common-lisp:progn (common-lisp:defun list-source-credentials () @@ -12903,7 +12902,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun retry-build @@ -12920,7 +12919,7 @@ aws-sdk/generator/operation::input "POST" "/" "RetryBuild")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retry-build)) (common-lisp:progn (common-lisp:defun retry-build-batch @@ -12938,7 +12937,7 @@ aws-sdk/generator/operation::input "POST" "/" "RetryBuildBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retry-build-batch)) (common-lisp:progn (common-lisp:defun start-build @@ -12984,7 +12983,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartBuild")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-build)) (common-lisp:progn (common-lisp:defun start-build-batch @@ -13030,7 +13029,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartBuildBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-build-batch)) (common-lisp:progn (common-lisp:defun stop-build @@ -13047,7 +13046,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopBuild")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-build)) (common-lisp:progn (common-lisp:defun stop-build-batch @@ -13064,7 +13063,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopBuildBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-build-batch)) (common-lisp:progn (common-lisp:defun update-fleet @@ -13084,7 +13083,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fleet)) (common-lisp:progn (common-lisp:defun update-project @@ -13113,7 +13112,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) (common-lisp:progn (common-lisp:defun update-project-visibility @@ -13133,7 +13132,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProjectVisibility")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project-visibility)) (common-lisp:progn (common-lisp:defun update-report-group @@ -13150,7 +13149,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateReportGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-report-group)) (common-lisp:progn (common-lisp:defun update-webhook @@ -13170,5 +13169,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-webhook)) diff --git a/services/codecommit/api.lisp b/services/codecommit/api.lisp index 1afa5182..76be8cdf 100644 --- a/services/codecommit/api.lisp +++ b/services/codecommit/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codecommit/api - (:use) - (:nicknames #:aws/codecommit) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codecommit/api (:use) + (:nicknames #:aws/codecommit) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codecommit/api) (common-lisp:progn (common-lisp:define-condition codecommit-error @@ -16129,7 +16128,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AssociateApprovalRuleTemplateWithRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-approval-rule-template-with-repository)) (common-lisp:progn (common-lisp:defun batch-associate-approval-rule-template-with-repositories @@ -16149,7 +16148,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchAssociateApprovalRuleTemplateWithRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-approval-rule-template-with-repositories)) (common-lisp:progn (common-lisp:defun batch-describe-merge-conflicts @@ -16174,7 +16173,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchDescribeMergeConflicts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-describe-merge-conflicts)) (common-lisp:progn (common-lisp:defun batch-disassociate-approval-rule-template-from-repositories @@ -16194,7 +16193,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchDisassociateApprovalRuleTemplateFromRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-approval-rule-template-from-repositories)) (common-lisp:progn @@ -16212,7 +16211,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchGetCommits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-commits)) (common-lisp:progn (common-lisp:defun batch-get-repositories @@ -16229,7 +16228,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchGetRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-repositories)) (common-lisp:progn (common-lisp:defun create-approval-rule-template @@ -16251,7 +16250,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateApprovalRuleTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-approval-rule-template)) (common-lisp:progn (common-lisp:defun create-branch @@ -16269,7 +16268,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateBranch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-branch)) (common-lisp:progn (common-lisp:defun create-commit @@ -16291,7 +16290,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateCommit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-commit)) (common-lisp:progn (common-lisp:defun create-pull-request @@ -16310,7 +16309,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreatePullRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pull-request)) (common-lisp:progn (common-lisp:defun create-pull-request-approval-rule @@ -16331,7 +16330,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreatePullRequestApprovalRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pull-request-approval-rule)) (common-lisp:progn (common-lisp:defun create-repository @@ -16351,7 +16350,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-repository)) (common-lisp:progn (common-lisp:defun create-unreferenced-merge-commit @@ -16377,7 +16376,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateUnreferencedMergeCommit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-unreferenced-merge-commit)) (common-lisp:progn (common-lisp:defun delete-approval-rule-template @@ -16395,7 +16394,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteApprovalRuleTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-approval-rule-template)) (common-lisp:progn (common-lisp:defun delete-branch @@ -16412,7 +16411,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteBranch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-branch)) (common-lisp:progn (common-lisp:defun delete-comment-content @@ -16429,7 +16428,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteCommentContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-comment-content)) (common-lisp:progn (common-lisp:defun delete-file @@ -16450,7 +16449,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteFile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-file)) (common-lisp:progn (common-lisp:defun delete-pull-request-approval-rule @@ -16469,7 +16468,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeletePullRequestApprovalRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pull-request-approval-rule)) (common-lisp:progn (common-lisp:defun delete-repository @@ -16486,7 +16485,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository)) (common-lisp:progn (common-lisp:defun describe-merge-conflicts @@ -16510,7 +16509,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeMergeConflicts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-merge-conflicts)) (common-lisp:progn (common-lisp:defun describe-pull-request-events @@ -16531,7 +16530,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribePullRequestEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pull-request-events)) (common-lisp:progn (common-lisp:defun disassociate-approval-rule-template-from-repository @@ -16551,7 +16550,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DisassociateApprovalRuleTemplateFromRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-approval-rule-template-from-repository)) (common-lisp:progn (common-lisp:defun evaluate-pull-request-approval-rules @@ -16569,7 +16568,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "EvaluatePullRequestApprovalRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'evaluate-pull-request-approval-rules)) (common-lisp:progn (common-lisp:defun get-approval-rule-template @@ -16586,7 +16585,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetApprovalRuleTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-approval-rule-template)) (common-lisp:progn (common-lisp:defun get-blob @@ -16602,7 +16601,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'codecommit-request aws-sdk/generator/operation::input "POST" "/" "GetBlob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-blob)) (common-lisp:progn (common-lisp:defun get-branch @@ -16619,7 +16618,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBranch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-branch)) (common-lisp:progn (common-lisp:defun get-comment @@ -16636,7 +16635,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetComment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-comment)) (common-lisp:progn (common-lisp:defun get-comment-reactions @@ -16656,7 +16655,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetCommentReactions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-comment-reactions)) (common-lisp:progn (common-lisp:defun get-comments-for-compared-commit @@ -16677,7 +16676,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetCommentsForComparedCommit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-comments-for-compared-commit)) (common-lisp:progn (common-lisp:defun get-comments-for-pull-request @@ -16698,7 +16697,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetCommentsForPullRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-comments-for-pull-request)) (common-lisp:progn (common-lisp:defun get-commit @@ -16715,7 +16714,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetCommit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-commit)) (common-lisp:progn (common-lisp:defun get-differences @@ -16736,7 +16735,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDifferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-differences)) (common-lisp:progn (common-lisp:defun get-file @@ -16754,7 +16753,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'codecommit-request aws-sdk/generator/operation::input "POST" "/" "GetFile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-file)) (common-lisp:progn (common-lisp:defun get-folder @@ -16773,7 +16772,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-folder)) (common-lisp:progn (common-lisp:defun get-merge-commit @@ -16795,7 +16794,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetMergeCommit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-merge-commit)) (common-lisp:progn (common-lisp:defun get-merge-conflicts @@ -16818,7 +16817,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetMergeConflicts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-merge-conflicts)) (common-lisp:progn (common-lisp:defun get-merge-options @@ -16840,7 +16839,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetMergeOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-merge-options)) (common-lisp:progn (common-lisp:defun get-pull-request @@ -16857,7 +16856,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetPullRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pull-request)) (common-lisp:progn (common-lisp:defun get-pull-request-approval-states @@ -16875,7 +16874,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetPullRequestApprovalStates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pull-request-approval-states)) (common-lisp:progn (common-lisp:defun get-pull-request-override-state @@ -16893,7 +16892,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetPullRequestOverrideState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pull-request-override-state)) (common-lisp:progn (common-lisp:defun get-repository @@ -16910,7 +16909,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository)) (common-lisp:progn (common-lisp:defun get-repository-triggers @@ -16927,7 +16926,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRepositoryTriggers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-triggers)) (common-lisp:progn (common-lisp:defun list-approval-rule-templates @@ -16945,7 +16944,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListApprovalRuleTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-approval-rule-templates)) (common-lisp:progn (common-lisp:defun list-associated-approval-rule-templates-for-repository @@ -16964,7 +16963,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListAssociatedApprovalRuleTemplatesForRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-approval-rule-templates-for-repository)) (common-lisp:progn (common-lisp:defun list-branches @@ -16981,7 +16980,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListBranches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-branches)) (common-lisp:progn (common-lisp:defun list-file-commit-history @@ -17001,7 +17000,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListFileCommitHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-file-commit-history)) (common-lisp:progn (common-lisp:defun list-pull-requests @@ -17021,7 +17020,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListPullRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pull-requests)) (common-lisp:progn (common-lisp:defun list-repositories @@ -17038,7 +17037,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repositories)) (common-lisp:progn (common-lisp:defun list-repositories-for-approval-rule-template @@ -17058,7 +17057,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListRepositoriesForApprovalRuleTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repositories-for-approval-rule-template)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -17075,7 +17074,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun merge-branches-by-fast-forward @@ -17096,7 +17095,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "MergeBranchesByFastForward")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-branches-by-fast-forward)) (common-lisp:progn (common-lisp:defun merge-branches-by-squash @@ -17121,7 +17120,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "MergeBranchesBySquash")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-branches-by-squash)) (common-lisp:progn (common-lisp:defun merge-branches-by-three-way @@ -17147,7 +17146,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "MergeBranchesByThreeWay")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-branches-by-three-way)) (common-lisp:progn (common-lisp:defun merge-pull-request-by-fast-forward @@ -17167,7 +17166,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "MergePullRequestByFastForward")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-pull-request-by-fast-forward)) (common-lisp:progn (common-lisp:defun merge-pull-request-by-squash @@ -17191,7 +17190,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "MergePullRequestBySquash")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-pull-request-by-squash)) (common-lisp:progn (common-lisp:defun merge-pull-request-by-three-way @@ -17215,7 +17214,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "MergePullRequestByThreeWay")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-pull-request-by-three-way)) (common-lisp:progn (common-lisp:defun override-pull-request-approval-rules @@ -17235,7 +17234,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "OverridePullRequestApprovalRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'override-pull-request-approval-rules)) (common-lisp:progn (common-lisp:defun post-comment-for-compared-commit @@ -17256,7 +17255,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PostCommentForComparedCommit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'post-comment-for-compared-commit)) (common-lisp:progn (common-lisp:defun post-comment-for-pull-request @@ -17278,7 +17277,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PostCommentForPullRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'post-comment-for-pull-request)) (common-lisp:progn (common-lisp:defun post-comment-reply @@ -17296,7 +17295,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PostCommentReply")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'post-comment-reply)) (common-lisp:progn (common-lisp:defun put-comment-reaction @@ -17313,7 +17312,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutCommentReaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-comment-reaction)) (common-lisp:progn (common-lisp:defun put-file @@ -17333,7 +17332,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'codecommit-request aws-sdk/generator/operation::input "POST" "/" "PutFile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-file)) (common-lisp:progn (common-lisp:defun put-repository-triggers @@ -17350,7 +17349,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutRepositoryTriggers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-repository-triggers)) (common-lisp:progn (common-lisp:defun tag-resource @@ -17367,7 +17366,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-repository-triggers @@ -17384,7 +17383,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TestRepositoryTriggers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-repository-triggers)) (common-lisp:progn (common-lisp:defun untag-resource @@ -17401,7 +17400,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-approval-rule-template-content @@ -17422,7 +17421,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateApprovalRuleTemplateContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-approval-rule-template-content)) (common-lisp:progn (common-lisp:defun update-approval-rule-template-description @@ -17443,7 +17442,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateApprovalRuleTemplateDescription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-approval-rule-template-description)) (common-lisp:progn (common-lisp:defun update-approval-rule-template-name @@ -17464,7 +17463,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateApprovalRuleTemplateName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-approval-rule-template-name)) (common-lisp:progn (common-lisp:defun update-comment @@ -17481,7 +17480,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateComment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-comment)) (common-lisp:progn (common-lisp:defun update-default-branch @@ -17499,7 +17498,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDefaultBranch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-default-branch)) (common-lisp:progn (common-lisp:defun update-pull-request-approval-rule-content @@ -17520,7 +17519,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdatePullRequestApprovalRuleContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pull-request-approval-rule-content)) (common-lisp:progn (common-lisp:defun update-pull-request-approval-state @@ -17540,7 +17539,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdatePullRequestApprovalState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pull-request-approval-state)) (common-lisp:progn (common-lisp:defun update-pull-request-description @@ -17558,7 +17557,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdatePullRequestDescription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pull-request-description)) (common-lisp:progn (common-lisp:defun update-pull-request-status @@ -17576,7 +17575,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdatePullRequestStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pull-request-status)) (common-lisp:progn (common-lisp:defun update-pull-request-title @@ -17593,7 +17592,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdatePullRequestTitle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pull-request-title)) (common-lisp:progn (common-lisp:defun update-repository-description @@ -17612,7 +17611,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateRepositoryDescription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-repository-description)) (common-lisp:progn (common-lisp:defun update-repository-encryption-key @@ -17630,7 +17629,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateRepositoryEncryptionKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-repository-encryption-key)) (common-lisp:progn (common-lisp:defun update-repository-name @@ -17647,5 +17646,5 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateRepositoryName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-repository-name)) diff --git a/services/codedeploy/api.lisp b/services/codedeploy/api.lisp index dbb67c41..6bba9caa 100644 --- a/services/codedeploy/api.lisp +++ b/services/codedeploy/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codedeploy/api - (:use) - (:nicknames #:aws/codedeploy) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codedeploy/api (:use) + (:nicknames #:aws/codedeploy) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codedeploy/api) (common-lisp:progn (common-lisp:define-condition codedeploy-error @@ -10487,7 +10486,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToOnPremisesInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-on-premises-instances)) (common-lisp:progn (common-lisp:defun batch-get-application-revisions @@ -10505,7 +10504,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetApplicationRevisions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-application-revisions)) (common-lisp:progn (common-lisp:defun batch-get-applications @@ -10522,7 +10521,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-applications)) (common-lisp:progn (common-lisp:defun batch-get-deployment-groups @@ -10541,7 +10540,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetDeploymentGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-deployment-groups)) (common-lisp:progn (common-lisp:defun batch-get-deployment-instances @@ -10559,7 +10558,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetDeploymentInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-deployment-instances)) (common-lisp:progn (common-lisp:defun batch-get-deployment-targets @@ -10577,7 +10576,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetDeploymentTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-deployment-targets)) (common-lisp:progn (common-lisp:defun batch-get-deployments @@ -10594,7 +10593,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-deployments)) (common-lisp:progn (common-lisp:defun batch-get-on-premises-instances @@ -10612,7 +10611,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetOnPremisesInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-on-premises-instances)) (common-lisp:progn (common-lisp:defun continue-deployment @@ -10630,7 +10629,7 @@ aws-sdk/generator/operation::input "POST" "/" "ContinueDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'continue-deployment)) (common-lisp:progn (common-lisp:defun create-application @@ -10648,7 +10647,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-deployment @@ -10674,7 +10673,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun create-deployment-config @@ -10695,7 +10694,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDeploymentConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment-config)) (common-lisp:progn (common-lisp:defun create-deployment-group @@ -10727,7 +10726,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDeploymentGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment-group)) (common-lisp:progn (common-lisp:defun delete-application @@ -10744,7 +10743,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-deployment-config @@ -10761,7 +10760,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeploymentConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-deployment-config)) (common-lisp:progn (common-lisp:defun delete-deployment-group @@ -10779,7 +10778,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeploymentGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-deployment-group)) (common-lisp:progn (common-lisp:defun delete-git-hub-account-token @@ -10797,7 +10796,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGitHubAccountToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-git-hub-account-token)) (common-lisp:progn (common-lisp:defun delete-resources-by-external-id @@ -10815,7 +10814,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcesByExternalId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resources-by-external-id)) (common-lisp:progn (common-lisp:defun deregister-on-premises-instance @@ -10833,7 +10832,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterOnPremisesInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-on-premises-instance)) (common-lisp:progn (common-lisp:defun get-application @@ -10850,7 +10849,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-application-revision @@ -10867,7 +10866,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetApplicationRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-revision)) (common-lisp:progn (common-lisp:defun get-deployment @@ -10884,7 +10883,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment)) (common-lisp:progn (common-lisp:defun get-deployment-config @@ -10901,7 +10900,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeploymentConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment-config)) (common-lisp:progn (common-lisp:defun get-deployment-group @@ -10919,7 +10918,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeploymentGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment-group)) (common-lisp:progn (common-lisp:defun get-deployment-instance @@ -10936,7 +10935,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeploymentInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment-instance)) (common-lisp:progn (common-lisp:defun get-deployment-target @@ -10953,7 +10952,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeploymentTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment-target)) (common-lisp:progn (common-lisp:defun get-on-premises-instance @@ -10970,7 +10969,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOnPremisesInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-on-premises-instance)) (common-lisp:progn (common-lisp:defun list-application-revisions @@ -10990,7 +10989,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplicationRevisions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-revisions)) (common-lisp:progn (common-lisp:defun list-applications @@ -11007,7 +11006,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-deployment-configs @@ -11024,7 +11023,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeploymentConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployment-configs)) (common-lisp:progn (common-lisp:defun list-deployment-groups @@ -11041,7 +11040,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeploymentGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployment-groups)) (common-lisp:progn (common-lisp:defun list-deployment-instances @@ -11061,7 +11060,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeploymentInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployment-instances)) (common-lisp:progn (common-lisp:defun list-deployment-targets @@ -11079,7 +11078,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeploymentTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployment-targets)) (common-lisp:progn (common-lisp:defun list-deployments @@ -11100,7 +11099,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployments)) (common-lisp:progn (common-lisp:defun list-git-hub-account-token-names @@ -11118,7 +11117,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGitHubAccountTokenNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-git-hub-account-token-names)) (common-lisp:progn (common-lisp:defun list-on-premises-instances @@ -11137,7 +11136,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOnPremisesInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-on-premises-instances)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11154,7 +11153,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-lifecycle-event-hook-execution-status @@ -11175,7 +11174,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutLifecycleEventHookExecutionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-lifecycle-event-hook-execution-status)) (common-lisp:progn (common-lisp:defun register-application-revision @@ -11194,7 +11193,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterApplicationRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-application-revision)) (common-lisp:progn (common-lisp:defun register-on-premises-instance @@ -11214,7 +11213,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterOnPremisesInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-on-premises-instance)) (common-lisp:progn (common-lisp:defun remove-tags-from-on-premises-instances @@ -11232,7 +11231,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromOnPremisesInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-on-premises-instances)) (common-lisp:progn (common-lisp:defun skip-wait-time-for-instance-termination @@ -11250,7 +11249,7 @@ aws-sdk/generator/operation::input "POST" "/" "SkipWaitTimeForInstanceTermination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'skip-wait-time-for-instance-termination)) (common-lisp:progn (common-lisp:defun stop-deployment @@ -11268,7 +11267,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-deployment)) (common-lisp:progn (common-lisp:defun tag-resource @@ -11285,7 +11284,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -11302,7 +11301,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -11320,7 +11319,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-deployment-group @@ -11353,5 +11352,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDeploymentGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-deployment-group)) diff --git a/services/codeguru-reviewer/api.lisp b/services/codeguru-reviewer/api.lisp index b819d7ba..c2db4982 100644 --- a/services/codeguru-reviewer/api.lisp +++ b/services/codeguru-reviewer/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codeguru-reviewer/api - (:use) - (:nicknames #:aws/codeguru-reviewer) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codeguru-reviewer/api (:use) + (:nicknames #:aws/codeguru-reviewer) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codeguru-reviewer/api) (common-lisp:progn (common-lisp:define-condition codeguru-reviewer-error @@ -20,7 +19,7 @@ (common-lisp:export 'codeguru-reviewer-error)) (common-lisp:progn (common-lisp:defclass codeguru-reviewer-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "codeguru-reviewer" :api-version "2019-09-19" :host-prefix @@ -3710,7 +3709,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-reviewer-request aws-sdk/generator/operation::input "POST" "/associations" "AssociateRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-repository)) (common-lisp:progn (common-lisp:defun create-code-review @@ -3729,7 +3728,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-reviewer-request aws-sdk/generator/operation::input "POST" "/codereviews" "CreateCodeReview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-code-review)) (common-lisp:progn (common-lisp:defun describe-code-review @@ -3746,12 +3745,13 @@ 'codeguru-reviewer-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/codereviews/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'code-review-arn)))) + 'code-review-arn) + common-lisp:t))) "DescribeCodeReview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-code-review)) (common-lisp:progn (common-lisp:defun describe-recommendation-feedback @@ -3771,12 +3771,13 @@ 'codeguru-reviewer-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/feedback/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'code-review-arn)))) + 'code-review-arn) + common-lisp:t))) "DescribeRecommendationFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recommendation-feedback)) (common-lisp:progn (common-lisp:defun describe-repository-association @@ -3794,12 +3795,13 @@ 'codeguru-reviewer-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-arn)))) + 'association-arn) + common-lisp:t))) "DescribeRepositoryAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-repository-association)) (common-lisp:progn (common-lisp:defun disassociate-repository @@ -3816,12 +3818,13 @@ 'codeguru-reviewer-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-arn)))) + 'association-arn) + common-lisp:t))) "DisassociateRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-repository)) (common-lisp:progn (common-lisp:defun list-code-reviews @@ -3840,7 +3843,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-reviewer-request aws-sdk/generator/operation::input "GET" "/codereviews" "ListCodeReviews")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-code-reviews)) (common-lisp:progn (common-lisp:defun list-recommendation-feedback @@ -3862,12 +3865,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/feedback/~A/RecommendationFeedback" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'code-review-arn)))) + 'code-review-arn) + common-lisp:t))) "ListRecommendationFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendation-feedback)) (common-lisp:progn (common-lisp:defun list-recommendations @@ -3885,12 +3889,13 @@ 'codeguru-reviewer-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/codereviews/~A/Recommendations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'code-review-arn)))) + 'code-review-arn) + common-lisp:t))) "ListRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendations)) (common-lisp:progn (common-lisp:defun list-repository-associations @@ -3910,7 +3915,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-reviewer-request aws-sdk/generator/operation::input "GET" "/associations" "ListRepositoryAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repository-associations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3927,12 +3932,13 @@ 'codeguru-reviewer-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-recommendation-feedback @@ -3951,7 +3957,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-reviewer-request aws-sdk/generator/operation::input "PUT" "/feedback" "PutRecommendationFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-recommendation-feedback)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3968,12 +3974,13 @@ 'codeguru-reviewer-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3990,10 +3997,11 @@ 'codeguru-reviewer-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/codeguru-security/api.lisp b/services/codeguru-security/api.lisp index 6bc1ac80..b78062b9 100644 --- a/services/codeguru-security/api.lisp +++ b/services/codeguru-security/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codeguru-security/api - (:use) - (:nicknames #:aws/codeguru-security) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codeguru-security/api (:use) + (:nicknames #:aws/codeguru-security) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codeguru-security/api) (common-lisp:progn (common-lisp:define-condition codeguru-security-error @@ -20,7 +19,7 @@ (common-lisp:export 'codeguru-security-error)) (common-lisp:progn (common-lisp:defclass codeguru-security-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "codeguru-security" :api-version "2018-05-10" :host-prefix @@ -2815,7 +2814,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-security-request aws-sdk/generator/operation::input "POST" "/batchGetFindings" "BatchGetFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-findings)) (common-lisp:progn (common-lisp:defun create-scan @@ -2834,7 +2833,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-security-request aws-sdk/generator/operation::input "POST" "/scans" "CreateScan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-scan)) (common-lisp:progn (common-lisp:defun create-upload-url @@ -2850,7 +2849,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-security-request aws-sdk/generator/operation::input "POST" "/uploadUrl" "CreateUploadUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-upload-url)) (common-lisp:progn (common-lisp:defun get-account-configuration () @@ -2877,12 +2876,12 @@ 'codeguru-security-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/findings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'scan-name)))) + aws-sdk/generator/operation::input 'scan-name) + common-lisp:t))) "GetFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-findings)) (common-lisp:progn (common-lisp:defun get-metrics-summary @@ -2898,7 +2897,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-security-request aws-sdk/generator/operation::input "GET" "/metrics/summary" "GetMetricsSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-metrics-summary)) (common-lisp:progn (common-lisp:defun get-scan @@ -2915,12 +2914,12 @@ 'codeguru-security-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/scans/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'scan-name)))) + aws-sdk/generator/operation::input 'scan-name) + common-lisp:t))) "GetScan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-scan)) (common-lisp:progn (common-lisp:defun list-findings-metrics @@ -2938,7 +2937,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-security-request aws-sdk/generator/operation::input "GET" "/metrics/findings" "ListFindingsMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings-metrics)) (common-lisp:progn (common-lisp:defun list-scans @@ -2954,7 +2953,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-security-request aws-sdk/generator/operation::input "GET" "/scans" "ListScans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scans)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2971,12 +2970,13 @@ 'codeguru-security-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2993,12 +2993,13 @@ 'codeguru-security-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3015,12 +3016,13 @@ 'codeguru-security-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-account-configuration @@ -3037,5 +3039,5 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguru-security-request aws-sdk/generator/operation::input "PUT" "/updateAccountConfiguration" "UpdateAccountConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-configuration)) diff --git a/services/codeguruprofiler/api.lisp b/services/codeguruprofiler/api.lisp index 85cda524..ebdc7892 100644 --- a/services/codeguruprofiler/api.lisp +++ b/services/codeguruprofiler/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codeguruprofiler/api - (:use) - (:nicknames #:aws/codeguruprofiler) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codeguruprofiler/api (:use) + (:nicknames #:aws/codeguruprofiler) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codeguruprofiler/api) (common-lisp:progn (common-lisp:define-condition codeguruprofiler-error @@ -20,7 +19,7 @@ (common-lisp:export 'codeguruprofiler-error)) (common-lisp:progn (common-lisp:defclass codeguruprofiler-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "codeguruprofiler" :api-version "2019-07-18" :host-prefix @@ -779,7 +778,13 @@ ( (aws-sdk/generator/shape::input configure-agent-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'configuration))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + configure-agent-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:define-condition conflict-exception (codeguruprofiler-error) @@ -921,7 +926,13 @@ ( (aws-sdk/generator/shape::input create-profiling-group-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'profiling-group))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'profiling-group)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-profiling-group-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-profiling-group-request common-lisp:nil ((profiling-group-name :initarg :profiling-group-name @@ -1060,7 +1071,13 @@ ( (aws-sdk/generator/shape::input describe-profiling-group-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'profiling-group))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'profiling-group)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-profiling-group-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype double () 'common-lisp:double-float) (common-lisp:deftype event-publisher () 'common-lisp:string) (common-lisp:progn @@ -1604,7 +1621,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-profile-request)) (common-lisp:append)) @@ -1644,11 +1663,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-encoding)) - (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-profile-response)) (common-lisp:append @@ -1661,7 +1684,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-profile-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'profile))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'profile)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-profile-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-recommendations-request common-lisp:nil ((end-time :initarg :end-time :initform @@ -2598,7 +2625,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2615,7 +2644,13 @@ ( (aws-sdk/generator/shape::input post-agent-profile-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'agent-profile))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'agent-profile)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + post-agent-profile-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass post-agent-profile-response common-lisp:nil common-lisp:nil @@ -3728,7 +3763,13 @@ ( (aws-sdk/generator/shape::input update-profiling-group-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'profiling-group))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'profiling-group)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-profiling-group-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass user-feedback common-lisp:nil ((type :initarg :type :initform @@ -3783,12 +3824,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/notificationConfiguration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "AddNotificationChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-notification-channels)) (common-lisp:progn (common-lisp:defun batch-get-frame-metric-data @@ -3810,12 +3852,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/frames/-/metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "BatchGetFrameMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-frame-metric-data)) (common-lisp:progn (common-lisp:defun configure-agent @@ -3835,12 +3878,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/configureAgent" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "ConfigureAgent")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'configure-agent)) (common-lisp:progn (common-lisp:defun create-profiling-group @@ -3859,7 +3903,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguruprofiler-request aws-sdk/generator/operation::input "POST" "/profilingGroups" "CreateProfilingGroup")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profiling-group)) (common-lisp:progn (common-lisp:defun delete-profiling-group @@ -3876,12 +3920,13 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "DeleteProfilingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profiling-group)) (common-lisp:progn (common-lisp:defun describe-profiling-group @@ -3898,12 +3943,13 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "DescribeProfilingGroup")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-profiling-group)) (common-lisp:progn (common-lisp:defun get-findings-report-account-summary @@ -3922,7 +3968,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguruprofiler-request aws-sdk/generator/operation::input "GET" "/internal/findingsReports" "GetFindingsReportAccountSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-findings-report-account-summary)) (common-lisp:progn (common-lisp:defun get-notification-configuration @@ -3941,12 +3987,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/notificationConfiguration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "GetNotificationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-notification-configuration)) (common-lisp:progn (common-lisp:defun get-policy @@ -3963,12 +4010,13 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "GetPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy)) (common-lisp:progn (common-lisp:defun get-profile @@ -3988,13 +4036,14 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/profile" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "GetProfile") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-profile)) (common-lisp:progn (common-lisp:defun get-recommendations @@ -4014,12 +4063,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/internal/profilingGroups/~A/recommendations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "GetRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendations)) (common-lisp:progn (common-lisp:defun list-findings-reports @@ -4040,12 +4090,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/internal/profilingGroups/~A/findingsReports" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "ListFindingsReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings-reports)) (common-lisp:progn (common-lisp:defun list-profile-times @@ -4066,12 +4117,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/profileTimes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "ListProfileTimes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profile-times)) (common-lisp:progn (common-lisp:defun list-profiling-groups @@ -4089,7 +4141,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codeguruprofiler-request aws-sdk/generator/operation::input "GET" "/profilingGroups" "ListProfilingGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profiling-groups)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4106,12 +4158,13 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun post-agent-profile @@ -4132,12 +4185,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/agentProfile" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "PostAgentProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'post-agent-profile)) (common-lisp:progn (common-lisp:defun put-permission @@ -4157,16 +4211,18 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)) - (quri.encode:url-encode + 'profiling-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-group)))) + 'action-group) + common-lisp:t))) "PutPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-permission)) (common-lisp:progn (common-lisp:defun remove-notification-channel @@ -4186,16 +4242,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/notificationConfiguration/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)) - (quri.encode:url-encode + 'profiling-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'channel-id)))) + aws-sdk/generator/operation::input 'channel-id) + common-lisp:t))) "RemoveNotificationChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-notification-channel)) (common-lisp:progn (common-lisp:defun remove-permission @@ -4214,16 +4271,18 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A/policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)) - (quri.encode:url-encode + 'profiling-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-group)))) + 'action-group) + common-lisp:t))) "RemovePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-permission)) (common-lisp:progn (common-lisp:defun submit-feedback @@ -4244,16 +4303,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/internal/profilingGroups/~A/anomalies/~A/feedback" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)) - (quri.encode:url-encode + 'profiling-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'anomaly-instance-id)))) + 'anomaly-instance-id) + common-lisp:t))) "SubmitFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'submit-feedback)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4270,12 +4331,13 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4292,12 +4354,13 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-profiling-group @@ -4316,10 +4379,11 @@ 'codeguruprofiler-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profilingGroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profiling-group-name)))) + 'profiling-group-name) + common-lisp:t))) "UpdateProfilingGroup")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-profiling-group)) diff --git a/services/codepipeline/api.lisp b/services/codepipeline/api.lisp index 5e85c8fc..0d1c148b 100644 --- a/services/codepipeline/api.lisp +++ b/services/codepipeline/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codepipeline/api - (:use) - (:nicknames #:aws/codepipeline) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codepipeline/api (:use) + (:nicknames #:aws/codepipeline) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codepipeline/api) (common-lisp:progn (common-lisp:define-condition codepipeline-error @@ -10162,7 +10161,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcknowledgeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'acknowledge-job)) (common-lisp:progn (common-lisp:defun acknowledge-third-party-job @@ -10180,7 +10179,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcknowledgeThirdPartyJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'acknowledge-third-party-job)) (common-lisp:progn (common-lisp:defun create-custom-action-type @@ -10202,7 +10201,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCustomActionType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-action-type)) (common-lisp:progn (common-lisp:defun create-pipeline @@ -10219,7 +10218,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pipeline)) (common-lisp:progn (common-lisp:defun delete-custom-action-type @@ -10236,7 +10235,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCustomActionType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-action-type)) (common-lisp:progn (common-lisp:defun delete-pipeline @@ -10253,7 +10252,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pipeline)) (common-lisp:progn (common-lisp:defun delete-webhook @@ -10270,7 +10269,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-webhook)) (common-lisp:progn (common-lisp:defun deregister-webhook-with-third-party @@ -10288,7 +10287,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterWebhookWithThirdParty")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-webhook-with-third-party)) (common-lisp:progn (common-lisp:defun disable-stage-transition @@ -10307,7 +10306,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableStageTransition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-stage-transition)) (common-lisp:progn (common-lisp:defun enable-stage-transition @@ -10325,7 +10324,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableStageTransition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-stage-transition)) (common-lisp:progn (common-lisp:defun get-action-type @@ -10343,7 +10342,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetActionType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-action-type)) (common-lisp:progn (common-lisp:defun get-job-details @@ -10360,7 +10359,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetJobDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-details)) (common-lisp:progn (common-lisp:defun get-pipeline @@ -10377,7 +10376,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pipeline)) (common-lisp:progn (common-lisp:defun get-pipeline-execution @@ -10395,7 +10394,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pipeline-execution)) (common-lisp:progn (common-lisp:defun get-pipeline-state @@ -10412,7 +10411,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPipelineState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pipeline-state)) (common-lisp:progn (common-lisp:defun get-third-party-job-details @@ -10430,7 +10429,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetThirdPartyJobDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-third-party-job-details)) (common-lisp:progn (common-lisp:defun list-action-executions @@ -10449,7 +10448,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListActionExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-action-executions)) (common-lisp:progn (common-lisp:defun list-action-types @@ -10468,7 +10467,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListActionTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-action-types)) (common-lisp:progn (common-lisp:defun list-pipeline-executions @@ -10486,7 +10485,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPipelineExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipeline-executions)) (common-lisp:progn (common-lisp:defun list-pipelines @@ -10503,7 +10502,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipelines)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10521,7 +10520,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-webhooks @@ -10538,7 +10537,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWebhooks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-webhooks)) (common-lisp:progn (common-lisp:defun poll-for-jobs @@ -10557,7 +10556,7 @@ aws-sdk/generator/operation::input "POST" "/" "PollForJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'poll-for-jobs)) (common-lisp:progn (common-lisp:defun poll-for-third-party-jobs @@ -10574,7 +10573,7 @@ aws-sdk/generator/operation::input "POST" "/" "PollForThirdPartyJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'poll-for-third-party-jobs)) (common-lisp:progn (common-lisp:defun put-action-revision @@ -10594,7 +10593,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutActionRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-action-revision)) (common-lisp:progn (common-lisp:defun put-approval-result @@ -10613,7 +10612,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutApprovalResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-approval-result)) (common-lisp:progn (common-lisp:defun put-job-failure-result @@ -10630,7 +10629,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutJobFailureResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-job-failure-result)) (common-lisp:progn (common-lisp:defun put-job-success-result @@ -10650,7 +10649,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutJobSuccessResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-job-success-result)) (common-lisp:progn (common-lisp:defun put-third-party-job-failure-result @@ -10669,7 +10668,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutThirdPartyJobFailureResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-third-party-job-failure-result)) (common-lisp:progn (common-lisp:defun put-third-party-job-success-result @@ -10690,7 +10689,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutThirdPartyJobSuccessResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-third-party-job-success-result)) (common-lisp:progn (common-lisp:defun put-webhook @@ -10707,7 +10706,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutWebhook")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-webhook)) (common-lisp:progn (common-lisp:defun register-webhook-with-third-party @@ -10725,7 +10724,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterWebhookWithThirdParty")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-webhook-with-third-party)) (common-lisp:progn (common-lisp:defun retry-stage-execution @@ -10745,7 +10744,7 @@ aws-sdk/generator/operation::input "POST" "/" "RetryStageExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retry-stage-execution)) (common-lisp:progn (common-lisp:defun start-pipeline-execution @@ -10765,7 +10764,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartPipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-pipeline-execution)) (common-lisp:progn (common-lisp:defun stop-pipeline-execution @@ -10784,7 +10783,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopPipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-pipeline-execution)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10801,7 +10800,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10818,7 +10817,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-action-type @@ -10835,7 +10834,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateActionType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-action-type)) (common-lisp:progn (common-lisp:defun update-pipeline @@ -10852,5 +10851,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipeline)) diff --git a/services/codestar-connections/api.lisp b/services/codestar-connections/api.lisp index ec0de2a0..72908685 100644 --- a/services/codestar-connections/api.lisp +++ b/services/codestar-connections/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codestar-connections/api - (:use) - (:nicknames #:aws/codestar-connections) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codestar-connections/api (:use) + (:nicknames #:aws/codestar-connections) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codestar-connections/api) (common-lisp:progn (common-lisp:define-condition codestar-connections-error @@ -4423,7 +4422,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "CreateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connection)) (common-lisp:progn (common-lisp:defun create-host @@ -4442,7 +4441,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "CreateHost")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-host)) (common-lisp:progn (common-lisp:defun create-repository-link @@ -4461,7 +4460,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "CreateRepositoryLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-repository-link)) (common-lisp:progn (common-lisp:defun create-sync-configuration @@ -4480,7 +4479,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "CreateSyncConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sync-configuration)) (common-lisp:progn (common-lisp:defun delete-connection @@ -4496,7 +4495,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun delete-host @@ -4512,7 +4511,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "DeleteHost")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-host)) (common-lisp:progn (common-lisp:defun delete-repository-link @@ -4528,7 +4527,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "DeleteRepositoryLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository-link)) (common-lisp:progn (common-lisp:defun delete-sync-configuration @@ -4544,7 +4543,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "DeleteSyncConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sync-configuration)) (common-lisp:progn (common-lisp:defun get-connection @@ -4560,7 +4559,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "GetConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connection)) (common-lisp:progn (common-lisp:defun get-host @@ -4576,7 +4575,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "GetHost")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-host)) (common-lisp:progn (common-lisp:defun get-repository-link @@ -4592,7 +4591,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "GetRepositoryLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-link)) (common-lisp:progn (common-lisp:defun get-repository-sync-status @@ -4609,7 +4608,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "GetRepositorySyncStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-sync-status)) (common-lisp:progn (common-lisp:defun get-resource-sync-status @@ -4625,7 +4624,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "GetResourceSyncStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-sync-status)) (common-lisp:progn (common-lisp:defun get-sync-blocker-summary @@ -4641,7 +4640,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "GetSyncBlockerSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sync-blocker-summary)) (common-lisp:progn (common-lisp:defun get-sync-configuration @@ -4657,7 +4656,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "GetSyncConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sync-configuration)) (common-lisp:progn (common-lisp:defun list-connections @@ -4676,7 +4675,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "ListConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connections)) (common-lisp:progn (common-lisp:defun list-hosts @@ -4692,7 +4691,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "ListHosts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hosts)) (common-lisp:progn (common-lisp:defun list-repository-links @@ -4708,7 +4707,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "ListRepositoryLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repository-links)) (common-lisp:progn (common-lisp:defun list-repository-sync-definitions @@ -4725,7 +4724,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "ListRepositorySyncDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repository-sync-definitions)) (common-lisp:progn (common-lisp:defun list-sync-configurations @@ -4744,7 +4743,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "ListSyncConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sync-configurations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4760,7 +4759,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4776,7 +4775,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4792,7 +4791,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-host @@ -4810,7 +4809,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "UpdateHost")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-host)) (common-lisp:progn (common-lisp:defun update-repository-link @@ -4829,7 +4828,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "UpdateRepositoryLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-repository-link)) (common-lisp:progn (common-lisp:defun update-sync-blocker @@ -4847,7 +4846,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "UpdateSyncBlocker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sync-blocker)) (common-lisp:progn (common-lisp:defun update-sync-configuration @@ -4866,5 +4865,5 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-connections-request aws-sdk/generator/operation::input "POST" "/" "UpdateSyncConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sync-configuration)) diff --git a/services/codestar-notifications/api.lisp b/services/codestar-notifications/api.lisp index 58ed2125..31ba2abb 100644 --- a/services/codestar-notifications/api.lisp +++ b/services/codestar-notifications/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codestar-notifications/api - (:use) - (:nicknames #:aws/codestar-notifications) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codestar-notifications/api + (:use) (:nicknames #:aws/codestar-notifications) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codestar-notifications/api) (common-lisp:progn (common-lisp:define-condition codestar-notifications-error @@ -20,7 +19,7 @@ (common-lisp:export 'codestar-notifications-error)) (common-lisp:progn (common-lisp:defclass codestar-notifications-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "codestar-notifications" :api-version "2019-10-15" :host-prefix @@ -2018,7 +2017,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/createNotificationRule" "CreateNotificationRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-notification-rule)) (common-lisp:progn (common-lisp:defun delete-notification-rule @@ -2034,7 +2033,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/deleteNotificationRule" "DeleteNotificationRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-notification-rule)) (common-lisp:progn (common-lisp:defun delete-target @@ -2051,7 +2050,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/deleteTarget" "DeleteTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-target)) (common-lisp:progn (common-lisp:defun describe-notification-rule @@ -2068,7 +2067,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/describeNotificationRule" "DescribeNotificationRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-notification-rule)) (common-lisp:progn (common-lisp:defun list-event-types @@ -2084,7 +2083,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/listEventTypes" "ListEventTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-types)) (common-lisp:progn (common-lisp:defun list-notification-rules @@ -2100,7 +2099,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/listNotificationRules" "ListNotificationRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notification-rules)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2116,7 +2115,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/listTagsForResource" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-targets @@ -2132,7 +2131,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/listTargets" "ListTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-targets)) (common-lisp:progn (common-lisp:defun subscribe @@ -2149,7 +2148,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/subscribe" "Subscribe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'subscribe)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2165,7 +2164,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/tagResource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun unsubscribe @@ -2181,7 +2180,7 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/unsubscribe" "Unsubscribe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unsubscribe)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2199,12 +2198,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/untagResource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-notification-rule @@ -2222,5 +2222,5 @@ (aws-sdk/generator/shape:make-request-with-input 'codestar-notifications-request aws-sdk/generator/operation::input "POST" "/updateNotificationRule" "UpdateNotificationRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-notification-rule)) diff --git a/services/codestar/api.lisp b/services/codestar/api.lisp index f1a838f9..b037edd4 100644 --- a/services/codestar/api.lisp +++ b/services/codestar/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/codestar/api - (:use) - (:nicknames #:aws/codestar) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/codestar/api (:use) + (:nicknames #:aws/codestar) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/codestar/api) (common-lisp:progn (common-lisp:define-condition codestar-error @@ -3129,7 +3128,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateTeamMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-team-member)) (common-lisp:progn (common-lisp:defun create-project @@ -3149,7 +3148,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun create-user-profile @@ -3168,7 +3167,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-profile)) (common-lisp:progn (common-lisp:defun delete-project @@ -3186,7 +3185,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-user-profile @@ -3203,7 +3202,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-profile)) (common-lisp:progn (common-lisp:defun describe-project @@ -3220,7 +3219,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-project)) (common-lisp:progn (common-lisp:defun describe-user-profile @@ -3237,7 +3236,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-profile)) (common-lisp:progn (common-lisp:defun disassociate-team-member @@ -3254,7 +3253,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateTeamMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-team-member)) (common-lisp:progn (common-lisp:defun list-projects @@ -3271,7 +3270,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-resources @@ -3289,7 +3288,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources)) (common-lisp:progn (common-lisp:defun list-tags-for-project @@ -3306,7 +3305,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-project)) (common-lisp:progn (common-lisp:defun list-team-members @@ -3324,7 +3323,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTeamMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-team-members)) (common-lisp:progn (common-lisp:defun list-user-profiles @@ -3341,7 +3340,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUserProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-profiles)) (common-lisp:progn (common-lisp:defun tag-project @@ -3358,7 +3357,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-project)) (common-lisp:progn (common-lisp:defun untag-project @@ -3375,7 +3374,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-project)) (common-lisp:progn (common-lisp:defun update-project @@ -3392,7 +3391,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) (common-lisp:progn (common-lisp:defun update-team-member @@ -3412,7 +3411,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTeamMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-team-member)) (common-lisp:progn (common-lisp:defun update-user-profile @@ -3431,5 +3430,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-profile)) diff --git a/services/cognito-identity/api.lisp b/services/cognito-identity/api.lisp index 8e96c6fc..c4629e0e 100644 --- a/services/cognito-identity/api.lisp +++ b/services/cognito-identity/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cognito-identity/api - (:use) - (:nicknames #:aws/cognito-identity) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cognito-identity/api (:use) + (:nicknames #:aws/cognito-identity) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cognito-identity/api) (common-lisp:progn (common-lisp:define-condition cognito-identity-error @@ -3241,7 +3240,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "CreateIdentityPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-identity-pool)) (common-lisp:progn (common-lisp:defun delete-identities @@ -3257,7 +3256,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "DeleteIdentities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-identities)) (common-lisp:progn (common-lisp:defun delete-identity-pool @@ -3273,7 +3272,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "DeleteIdentityPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-identity-pool)) (common-lisp:progn (common-lisp:defun describe-identity @@ -3289,7 +3288,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "DescribeIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-identity)) (common-lisp:progn (common-lisp:defun describe-identity-pool @@ -3305,7 +3304,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "DescribeIdentityPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-identity-pool)) (common-lisp:progn (common-lisp:defun get-credentials-for-identity @@ -3323,7 +3322,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "GetCredentialsForIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-credentials-for-identity)) (common-lisp:progn (common-lisp:defun get-id @@ -3340,7 +3339,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "GetId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-id)) (common-lisp:progn (common-lisp:defun get-identity-pool-roles @@ -3356,7 +3355,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "GetIdentityPoolRoles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-identity-pool-roles)) (common-lisp:progn (common-lisp:defun get-open-id-token @@ -3372,7 +3371,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "GetOpenIdToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-open-id-token)) (common-lisp:progn (common-lisp:defun get-open-id-token-for-developer-identity @@ -3392,7 +3391,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "GetOpenIdTokenForDeveloperIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-open-id-token-for-developer-identity)) (common-lisp:progn (common-lisp:defun get-principal-tag-attribute-map @@ -3410,7 +3409,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "GetPrincipalTagAttributeMap")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-principal-tag-attribute-map)) (common-lisp:progn (common-lisp:defun list-identities @@ -3429,7 +3428,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "ListIdentities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identities)) (common-lisp:progn (common-lisp:defun list-identity-pools @@ -3445,7 +3444,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "ListIdentityPools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-pools)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3461,7 +3460,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun lookup-developer-identity @@ -3480,7 +3479,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "LookupDeveloperIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'lookup-developer-identity)) (common-lisp:progn (common-lisp:defun merge-developer-identities @@ -3500,7 +3499,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "MergeDeveloperIdentities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-developer-identities)) (common-lisp:progn (common-lisp:defun set-identity-pool-roles @@ -3517,7 +3516,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "SetIdentityPoolRoles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-identity-pool-roles)) (common-lisp:progn (common-lisp:defun set-principal-tag-attribute-map @@ -3537,7 +3536,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "SetPrincipalTagAttributeMap")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-principal-tag-attribute-map)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3553,7 +3552,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun unlink-developer-identity @@ -3572,7 +3571,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "UnlinkDeveloperIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unlink-developer-identity)) (common-lisp:progn (common-lisp:defun unlink-identity @@ -3589,7 +3588,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "UnlinkIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unlink-identity)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3605,7 +3604,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-identity-pool @@ -3630,5 +3629,5 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-identity-request aws-sdk/generator/operation::input "POST" "/" "UpdateIdentityPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-identity-pool)) diff --git a/services/cognito-idp/api.lisp b/services/cognito-idp/api.lisp index 750bfd85..dcaf99b4 100644 --- a/services/cognito-idp/api.lisp +++ b/services/cognito-idp/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cognito-idp/api - (:use) - (:nicknames #:aws/cognito-idp) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cognito-idp/api (:use) + (:nicknames #:aws/cognito-idp) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cognito-idp/api) (common-lisp:progn (common-lisp:define-condition cognito-idp-error @@ -19049,7 +19048,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddCustomAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-custom-attributes)) (common-lisp:progn (common-lisp:defun admin-add-user-to-group @@ -19067,7 +19066,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminAddUserToGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-add-user-to-group)) (common-lisp:progn (common-lisp:defun admin-confirm-sign-up @@ -19085,7 +19084,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminConfirmSignUp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-confirm-sign-up)) (common-lisp:progn (common-lisp:defun admin-create-user @@ -19107,7 +19106,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminCreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-create-user)) (common-lisp:progn (common-lisp:defun admin-delete-user @@ -19124,7 +19123,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminDeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-delete-user)) (common-lisp:progn (common-lisp:defun admin-delete-user-attributes @@ -19144,7 +19143,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminDeleteUserAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-delete-user-attributes)) (common-lisp:progn (common-lisp:defun admin-disable-provider-for-user @@ -19162,7 +19161,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminDisableProviderForUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-disable-provider-for-user)) (common-lisp:progn (common-lisp:defun admin-disable-user @@ -19179,7 +19178,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminDisableUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-disable-user)) (common-lisp:progn (common-lisp:defun admin-enable-user @@ -19196,7 +19195,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminEnableUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-enable-user)) (common-lisp:progn (common-lisp:defun admin-forget-device @@ -19214,7 +19213,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminForgetDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-forget-device)) (common-lisp:progn (common-lisp:defun admin-get-device @@ -19232,7 +19231,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminGetDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-get-device)) (common-lisp:progn (common-lisp:defun admin-get-user @@ -19249,7 +19248,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminGetUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-get-user)) (common-lisp:progn (common-lisp:defun admin-initiate-auth @@ -19270,7 +19269,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminInitiateAuth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-initiate-auth)) (common-lisp:progn (common-lisp:defun admin-link-provider-for-user @@ -19290,7 +19289,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminLinkProviderForUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-link-provider-for-user)) (common-lisp:progn (common-lisp:defun admin-list-devices @@ -19309,7 +19308,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-list-devices)) (common-lisp:progn (common-lisp:defun admin-list-groups-for-user @@ -19328,7 +19327,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminListGroupsForUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-list-groups-for-user)) (common-lisp:progn (common-lisp:defun admin-list-user-auth-events @@ -19348,7 +19347,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminListUserAuthEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-list-user-auth-events)) (common-lisp:progn (common-lisp:defun admin-remove-user-from-group @@ -19367,7 +19366,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminRemoveUserFromGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-remove-user-from-group)) (common-lisp:progn (common-lisp:defun admin-reset-user-password @@ -19386,7 +19385,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminResetUserPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-reset-user-password)) (common-lisp:progn (common-lisp:defun admin-respond-to-auth-challenge @@ -19409,7 +19408,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminRespondToAuthChallenge")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-respond-to-auth-challenge)) (common-lisp:progn (common-lisp:defun admin-set-user-mfapreference @@ -19430,7 +19429,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminSetUserMFAPreference")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-set-user-mfapreference)) (common-lisp:progn (common-lisp:defun admin-set-user-password @@ -19448,7 +19447,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminSetUserPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-set-user-password)) (common-lisp:progn (common-lisp:defun admin-set-user-settings @@ -19466,7 +19465,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminSetUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-set-user-settings)) (common-lisp:progn (common-lisp:defun admin-update-auth-event-feedback @@ -19486,7 +19485,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminUpdateAuthEventFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-update-auth-event-feedback)) (common-lisp:progn (common-lisp:defun admin-update-device-status @@ -19507,7 +19506,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminUpdateDeviceStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-update-device-status)) (common-lisp:progn (common-lisp:defun admin-update-user-attributes @@ -19528,7 +19527,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminUpdateUserAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-update-user-attributes)) (common-lisp:progn (common-lisp:defun admin-user-global-sign-out @@ -19546,7 +19545,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdminUserGlobalSignOut")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'admin-user-global-sign-out)) (common-lisp:progn (common-lisp:defun associate-software-token @@ -19563,7 +19562,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateSoftwareToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-software-token)) (common-lisp:progn (common-lisp:defun change-password @@ -19582,7 +19581,7 @@ aws-sdk/generator/operation::input "POST" "/" "ChangePassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'change-password)) (common-lisp:progn (common-lisp:defun confirm-device @@ -19602,7 +19601,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-device)) (common-lisp:progn (common-lisp:defun confirm-forgot-password @@ -19623,7 +19622,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmForgotPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-forgot-password)) (common-lisp:progn (common-lisp:defun confirm-sign-up @@ -19645,7 +19644,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmSignUp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-sign-up)) (common-lisp:progn (common-lisp:defun create-group @@ -19665,7 +19664,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun create-identity-provider @@ -19685,7 +19684,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-identity-provider)) (common-lisp:progn (common-lisp:defun create-resource-server @@ -19703,7 +19702,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateResourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-server)) (common-lisp:progn (common-lisp:defun create-user-import-job @@ -19722,7 +19721,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-import-job)) (common-lisp:progn (common-lisp:defun create-user-pool @@ -19756,7 +19755,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-pool)) (common-lisp:progn (common-lisp:defun create-user-pool-client @@ -19791,7 +19790,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserPoolClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-pool-client)) (common-lisp:progn (common-lisp:defun create-user-pool-domain @@ -19809,7 +19808,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserPoolDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-pool-domain)) (common-lisp:progn (common-lisp:defun delete-group @@ -19826,7 +19825,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun delete-identity-provider @@ -19843,7 +19842,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-identity-provider)) (common-lisp:progn (common-lisp:defun delete-resource-server @@ -19860,7 +19859,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-server)) (common-lisp:progn (common-lisp:defun delete-user @@ -19877,7 +19876,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun delete-user-attributes @@ -19895,7 +19894,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-attributes)) (common-lisp:progn (common-lisp:defun delete-user-pool @@ -19912,7 +19911,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-pool)) (common-lisp:progn (common-lisp:defun delete-user-pool-client @@ -19929,7 +19928,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserPoolClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-pool-client)) (common-lisp:progn (common-lisp:defun delete-user-pool-domain @@ -19946,7 +19945,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserPoolDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-pool-domain)) (common-lisp:progn (common-lisp:defun describe-identity-provider @@ -19964,7 +19963,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-identity-provider)) (common-lisp:progn (common-lisp:defun describe-resource-server @@ -19981,7 +19980,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeResourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-server)) (common-lisp:progn (common-lisp:defun describe-risk-configuration @@ -19999,7 +19998,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRiskConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-risk-configuration)) (common-lisp:progn (common-lisp:defun describe-user-import-job @@ -20016,7 +20015,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-import-job)) (common-lisp:progn (common-lisp:defun describe-user-pool @@ -20033,7 +20032,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-pool)) (common-lisp:progn (common-lisp:defun describe-user-pool-client @@ -20051,7 +20050,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserPoolClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-pool-client)) (common-lisp:progn (common-lisp:defun describe-user-pool-domain @@ -20069,7 +20068,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserPoolDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-pool-domain)) (common-lisp:progn (common-lisp:defun forget-device @@ -20086,7 +20085,7 @@ aws-sdk/generator/operation::input "POST" "/" "ForgetDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'forget-device)) (common-lisp:progn (common-lisp:defun forgot-password @@ -20106,7 +20105,7 @@ aws-sdk/generator/operation::input "POST" "/" "ForgotPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'forgot-password)) (common-lisp:progn (common-lisp:defun get-csvheader @@ -20123,7 +20122,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCSVHeader")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-csvheader)) (common-lisp:progn (common-lisp:defun get-device @@ -20140,7 +20139,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device)) (common-lisp:progn (common-lisp:defun get-group @@ -20156,7 +20155,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-idp-request aws-sdk/generator/operation::input "POST" "/" "GetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group)) (common-lisp:progn (common-lisp:defun get-identity-provider-by-identifier @@ -20174,7 +20173,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetIdentityProviderByIdentifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-identity-provider-by-identifier)) (common-lisp:progn (common-lisp:defun get-log-delivery-configuration @@ -20192,7 +20191,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLogDeliveryConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-log-delivery-configuration)) (common-lisp:progn (common-lisp:defun get-signing-certificate @@ -20209,7 +20208,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSigningCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-signing-certificate)) (common-lisp:progn (common-lisp:defun get-uicustomization @@ -20226,7 +20225,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUICustomization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-uicustomization)) (common-lisp:progn (common-lisp:defun get-user @@ -20242,7 +20241,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-idp-request aws-sdk/generator/operation::input "POST" "/" "GetUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user)) (common-lisp:progn (common-lisp:defun get-user-attribute-verification-code @@ -20262,7 +20261,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUserAttributeVerificationCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-attribute-verification-code)) (common-lisp:progn (common-lisp:defun get-user-pool-mfa-config @@ -20279,7 +20278,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUserPoolMfaConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-pool-mfa-config)) (common-lisp:progn (common-lisp:defun global-sign-out @@ -20296,7 +20295,7 @@ aws-sdk/generator/operation::input "POST" "/" "GlobalSignOut")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'global-sign-out)) (common-lisp:progn (common-lisp:defun initiate-auth @@ -20316,7 +20315,7 @@ aws-sdk/generator/operation::input "POST" "/" "InitiateAuth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initiate-auth)) (common-lisp:progn (common-lisp:defun list-devices @@ -20334,7 +20333,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices)) (common-lisp:progn (common-lisp:defun list-groups @@ -20351,7 +20350,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun list-identity-providers @@ -20369,7 +20368,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListIdentityProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-providers)) (common-lisp:progn (common-lisp:defun list-resource-servers @@ -20387,7 +20386,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-servers)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -20404,7 +20403,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-user-import-jobs @@ -20423,7 +20422,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUserImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-import-jobs)) (common-lisp:progn (common-lisp:defun list-user-pool-clients @@ -20441,7 +20440,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUserPoolClients")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-pool-clients)) (common-lisp:progn (common-lisp:defun list-user-pools @@ -20458,7 +20457,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUserPools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-pools)) (common-lisp:progn (common-lisp:defun list-users @@ -20478,7 +20477,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun list-users-in-group @@ -20496,7 +20495,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUsersInGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users-in-group)) (common-lisp:progn (common-lisp:defun resend-confirmation-code @@ -20516,7 +20515,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResendConfirmationCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resend-confirmation-code)) (common-lisp:progn (common-lisp:defun respond-to-auth-challenge @@ -20538,7 +20537,7 @@ aws-sdk/generator/operation::input "POST" "/" "RespondToAuthChallenge")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'respond-to-auth-challenge)) (common-lisp:progn (common-lisp:defun revoke-token @@ -20555,7 +20554,7 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-token)) (common-lisp:progn (common-lisp:defun set-log-delivery-configuration @@ -20574,7 +20573,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetLogDeliveryConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-log-delivery-configuration)) (common-lisp:progn (common-lisp:defun set-risk-configuration @@ -20597,7 +20596,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetRiskConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-risk-configuration)) (common-lisp:progn (common-lisp:defun set-uicustomization @@ -20615,7 +20614,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetUICustomization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-uicustomization)) (common-lisp:progn (common-lisp:defun set-user-mfapreference @@ -20635,7 +20634,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetUserMFAPreference")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-user-mfapreference)) (common-lisp:progn (common-lisp:defun set-user-pool-mfa-config @@ -20655,7 +20654,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetUserPoolMfaConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-user-pool-mfa-config)) (common-lisp:progn (common-lisp:defun set-user-settings @@ -20672,7 +20671,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-user-settings)) (common-lisp:progn (common-lisp:defun sign-up @@ -20693,7 +20692,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cognito-idp-request aws-sdk/generator/operation::input "POST" "/" "SignUp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'sign-up)) (common-lisp:progn (common-lisp:defun start-user-import-job @@ -20710,7 +20709,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartUserImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-user-import-job)) (common-lisp:progn (common-lisp:defun stop-user-import-job @@ -20727,7 +20726,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopUserImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-user-import-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -20744,7 +20743,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -20761,7 +20760,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-auth-event-feedback @@ -20782,7 +20781,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAuthEventFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-auth-event-feedback)) (common-lisp:progn (common-lisp:defun update-device-status @@ -20801,7 +20800,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDeviceStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device-status)) (common-lisp:progn (common-lisp:defun update-group @@ -20821,7 +20820,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group)) (common-lisp:progn (common-lisp:defun update-identity-provider @@ -20841,7 +20840,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-identity-provider)) (common-lisp:progn (common-lisp:defun update-resource-server @@ -20859,7 +20858,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateResourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-server)) (common-lisp:progn (common-lisp:defun update-user-attributes @@ -20878,7 +20877,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUserAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-attributes)) (common-lisp:progn (common-lisp:defun update-user-pool @@ -20909,7 +20908,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUserPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-pool)) (common-lisp:progn (common-lisp:defun update-user-pool-client @@ -20944,7 +20943,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUserPoolClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-pool-client)) (common-lisp:progn (common-lisp:defun update-user-pool-domain @@ -20962,7 +20961,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUserPoolDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-pool-domain)) (common-lisp:progn (common-lisp:defun verify-software-token @@ -20982,7 +20981,7 @@ aws-sdk/generator/operation::input "POST" "/" "VerifySoftwareToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-software-token)) (common-lisp:progn (common-lisp:defun verify-user-attribute @@ -21000,5 +20999,5 @@ aws-sdk/generator/operation::input "POST" "/" "VerifyUserAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-user-attribute)) diff --git a/services/cognito-sync/api.lisp b/services/cognito-sync/api.lisp index 1fe7491d..5b85c21c 100644 --- a/services/cognito-sync/api.lisp +++ b/services/cognito-sync/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cognito-sync/api - (:use) - (:nicknames #:aws/cognito-sync) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cognito-sync/api (:use) + (:nicknames #:aws/cognito-sync) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cognito-sync/api) (common-lisp:progn (common-lisp:define-condition cognito-sync-error @@ -20,7 +19,7 @@ (common-lisp:export 'cognito-sync-error)) (common-lisp:progn (common-lisp:defclass cognito-sync-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "cognito-sync" :api-version "2014-06-30" :host-prefix "cognito-sync" :signing-name @@ -2391,8 +2390,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-context)) - (common-lisp:cons "x-amz-Client-Context" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-Client-Context" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2480,12 +2480,13 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/bulkpublish" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)))) + 'identity-pool-id) + common-lisp:t))) "BulkPublish")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'bulk-publish)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -2509,20 +2510,23 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identities/~A/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)) - (quri.encode:url-encode + 'identity-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -2546,20 +2550,23 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identities/~A/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)) - (quri.encode:url-encode + 'identity-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-identity-pool-usage @@ -2582,12 +2589,13 @@ (common-lisp:format common-lisp:nil "/identitypools/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)))) + 'identity-pool-id) + common-lisp:t))) "DescribeIdentityPoolUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-identity-pool-usage)) (common-lisp:progn (common-lisp:defun describe-identity-usage @@ -2609,16 +2617,18 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)))) + 'identity-id) + common-lisp:t))) "DescribeIdentityUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-identity-usage)) (common-lisp:progn (common-lisp:defun get-bulk-publish-details @@ -2640,12 +2650,13 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/getBulkPublishDetails" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)))) + 'identity-pool-id) + common-lisp:t))) "GetBulkPublishDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bulk-publish-details)) (common-lisp:progn (common-lisp:defun get-cognito-events @@ -2667,12 +2678,13 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/events" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)))) + 'identity-pool-id) + common-lisp:t))) "GetCognitoEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cognito-events)) (common-lisp:progn (common-lisp:defun get-identity-pool-configuration @@ -2695,12 +2707,13 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)))) + 'identity-pool-id) + common-lisp:t))) "GetIdentityPoolConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-identity-pool-configuration)) (common-lisp:progn (common-lisp:defun list-datasets @@ -2725,16 +2738,18 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identities/~A/datasets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)))) + 'identity-id) + common-lisp:t))) "ListDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasets)) (common-lisp:progn (common-lisp:defun list-identity-pool-usage @@ -2751,7 +2766,7 @@ aws-sdk/generator/operation::input "GET" "/identitypools" "ListIdentityPoolUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-pool-usage)) (common-lisp:progn (common-lisp:defun list-records @@ -2776,20 +2791,23 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identities/~A/datasets/~A/records" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)) - (quri.encode:url-encode + 'identity-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "ListRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-records)) (common-lisp:progn (common-lisp:defun register-device @@ -2813,16 +2831,18 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identity/~A/device" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)))) + 'identity-id) + common-lisp:t))) "RegisterDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-device)) (common-lisp:progn (common-lisp:defun set-cognito-events @@ -2844,12 +2864,13 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/events" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)))) + 'identity-pool-id) + common-lisp:t))) "SetCognitoEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-cognito-events)) (common-lisp:progn (common-lisp:defun set-identity-pool-configuration @@ -2874,12 +2895,13 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)))) + 'identity-pool-id) + common-lisp:t))) "SetIdentityPoolConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-identity-pool-configuration)) (common-lisp:progn (common-lisp:defun subscribe-to-dataset @@ -2904,24 +2926,28 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identities/~A/datasets/~A/subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)) - (quri.encode:url-encode + 'identity-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)) - (quri.encode:url-encode + 'dataset-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "SubscribeToDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'subscribe-to-dataset)) (common-lisp:progn (common-lisp:defun unsubscribe-from-dataset @@ -2946,24 +2972,28 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identities/~A/datasets/~A/subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)) - (quri.encode:url-encode + 'identity-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)) - (quri.encode:url-encode + 'dataset-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "UnsubscribeFromDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unsubscribe-from-dataset)) (common-lisp:progn (common-lisp:defun update-records @@ -2989,18 +3019,21 @@ (common-lisp:format common-lisp:nil "/identitypools/~A/identities/~A/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-pool-id)) - (quri.encode:url-encode + 'identity-pool-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identity-id)) - (quri.encode:url-encode + 'identity-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "UpdateRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-records)) diff --git a/services/comprehend/api.lisp b/services/comprehend/api.lisp index fa593249..839c5111 100644 --- a/services/comprehend/api.lisp +++ b/services/comprehend/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/comprehend/api - (:use) - (:nicknames #:aws/comprehend) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/comprehend/api (:use) + (:nicknames #:aws/comprehend) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/comprehend/api) (common-lisp:progn (common-lisp:define-condition comprehend-error @@ -20149,7 +20148,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDetectDominantLanguage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-detect-dominant-language)) (common-lisp:progn (common-lisp:defun batch-detect-entities @@ -20166,7 +20165,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDetectEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-detect-entities)) (common-lisp:progn (common-lisp:defun batch-detect-key-phrases @@ -20183,7 +20182,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDetectKeyPhrases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-detect-key-phrases)) (common-lisp:progn (common-lisp:defun batch-detect-sentiment @@ -20200,7 +20199,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDetectSentiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-detect-sentiment)) (common-lisp:progn (common-lisp:defun batch-detect-syntax @@ -20217,7 +20216,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDetectSyntax")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-detect-syntax)) (common-lisp:progn (common-lisp:defun batch-detect-targeted-sentiment @@ -20235,7 +20234,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDetectTargetedSentiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-detect-targeted-sentiment)) (common-lisp:progn (common-lisp:defun classify-document @@ -20254,7 +20253,7 @@ aws-sdk/generator/operation::input "POST" "/" "ClassifyDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'classify-document)) (common-lisp:progn (common-lisp:defun contains-pii-entities @@ -20271,7 +20270,7 @@ aws-sdk/generator/operation::input "POST" "/" "ContainsPiiEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'contains-pii-entities)) (common-lisp:progn (common-lisp:defun create-dataset @@ -20291,7 +20290,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-document-classifier @@ -20317,7 +20316,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDocumentClassifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-document-classifier)) (common-lisp:progn (common-lisp:defun create-endpoint @@ -20338,7 +20337,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-endpoint)) (common-lisp:progn (common-lisp:defun create-entity-recognizer @@ -20361,7 +20360,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEntityRecognizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-entity-recognizer)) (common-lisp:progn (common-lisp:defun create-flywheel @@ -20384,7 +20383,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFlywheel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-flywheel)) (common-lisp:progn (common-lisp:defun delete-document-classifier @@ -20402,7 +20401,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDocumentClassifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-document-classifier)) (common-lisp:progn (common-lisp:defun delete-endpoint @@ -20419,7 +20418,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint)) (common-lisp:progn (common-lisp:defun delete-entity-recognizer @@ -20436,7 +20435,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEntityRecognizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-entity-recognizer)) (common-lisp:progn (common-lisp:defun delete-flywheel @@ -20453,7 +20452,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFlywheel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-flywheel)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -20471,7 +20470,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -20488,7 +20487,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-document-classification-job @@ -20506,7 +20505,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDocumentClassificationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-document-classification-job)) (common-lisp:progn (common-lisp:defun describe-document-classifier @@ -20524,7 +20523,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDocumentClassifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-document-classifier)) (common-lisp:progn (common-lisp:defun describe-dominant-language-detection-job @@ -20542,7 +20541,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDominantLanguageDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dominant-language-detection-job)) (common-lisp:progn (common-lisp:defun describe-endpoint @@ -20559,7 +20558,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoint)) (common-lisp:progn (common-lisp:defun describe-entities-detection-job @@ -20577,7 +20576,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEntitiesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-entities-detection-job)) (common-lisp:progn (common-lisp:defun describe-entity-recognizer @@ -20595,7 +20594,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEntityRecognizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-entity-recognizer)) (common-lisp:progn (common-lisp:defun describe-events-detection-job @@ -20613,7 +20612,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventsDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-events-detection-job)) (common-lisp:progn (common-lisp:defun describe-flywheel @@ -20630,7 +20629,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFlywheel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-flywheel)) (common-lisp:progn (common-lisp:defun describe-flywheel-iteration @@ -20649,7 +20648,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFlywheelIteration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-flywheel-iteration)) (common-lisp:progn (common-lisp:defun describe-key-phrases-detection-job @@ -20667,7 +20666,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeKeyPhrasesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-key-phrases-detection-job)) (common-lisp:progn (common-lisp:defun describe-pii-entities-detection-job @@ -20685,7 +20684,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePiiEntitiesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pii-entities-detection-job)) (common-lisp:progn (common-lisp:defun describe-resource-policy @@ -20702,7 +20701,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-policy)) (common-lisp:progn (common-lisp:defun describe-sentiment-detection-job @@ -20720,7 +20719,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSentimentDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-sentiment-detection-job)) (common-lisp:progn (common-lisp:defun describe-targeted-sentiment-detection-job @@ -20738,7 +20737,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTargetedSentimentDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-targeted-sentiment-detection-job)) (common-lisp:progn (common-lisp:defun describe-topics-detection-job @@ -20756,7 +20755,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTopicsDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-topics-detection-job)) (common-lisp:progn (common-lisp:defun detect-dominant-language @@ -20773,7 +20772,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectDominantLanguage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-dominant-language)) (common-lisp:progn (common-lisp:defun detect-entities @@ -20793,7 +20792,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-entities)) (common-lisp:progn (common-lisp:defun detect-key-phrases @@ -20810,7 +20809,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectKeyPhrases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-key-phrases)) (common-lisp:progn (common-lisp:defun detect-pii-entities @@ -20827,7 +20826,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectPiiEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-pii-entities)) (common-lisp:progn (common-lisp:defun detect-sentiment @@ -20844,7 +20843,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectSentiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-sentiment)) (common-lisp:progn (common-lisp:defun detect-syntax @@ -20861,7 +20860,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectSyntax")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-syntax)) (common-lisp:progn (common-lisp:defun detect-targeted-sentiment @@ -20879,7 +20878,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectTargetedSentiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-targeted-sentiment)) (common-lisp:progn (common-lisp:defun detect-toxic-content @@ -20896,7 +20895,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectToxicContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-toxic-content)) (common-lisp:progn (common-lisp:defun import-model @@ -20916,7 +20915,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-model)) (common-lisp:progn (common-lisp:defun list-datasets @@ -20935,7 +20934,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasets)) (common-lisp:progn (common-lisp:defun list-document-classification-jobs @@ -20953,7 +20952,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDocumentClassificationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-document-classification-jobs)) (common-lisp:progn (common-lisp:defun list-document-classifier-summaries @@ -20971,7 +20970,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDocumentClassifierSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-document-classifier-summaries)) (common-lisp:progn (common-lisp:defun list-document-classifiers @@ -20989,7 +20988,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDocumentClassifiers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-document-classifiers)) (common-lisp:progn (common-lisp:defun list-dominant-language-detection-jobs @@ -21007,7 +21006,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDominantLanguageDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dominant-language-detection-jobs)) (common-lisp:progn (common-lisp:defun list-endpoints @@ -21024,7 +21023,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-endpoints)) (common-lisp:progn (common-lisp:defun list-entities-detection-jobs @@ -21042,7 +21041,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEntitiesDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entities-detection-jobs)) (common-lisp:progn (common-lisp:defun list-entity-recognizer-summaries @@ -21060,7 +21059,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEntityRecognizerSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entity-recognizer-summaries)) (common-lisp:progn (common-lisp:defun list-entity-recognizers @@ -21077,7 +21076,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEntityRecognizers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entity-recognizers)) (common-lisp:progn (common-lisp:defun list-events-detection-jobs @@ -21095,7 +21094,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEventsDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-events-detection-jobs)) (common-lisp:progn (common-lisp:defun list-flywheel-iteration-history @@ -21115,7 +21114,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFlywheelIterationHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-flywheel-iteration-history)) (common-lisp:progn (common-lisp:defun list-flywheels @@ -21132,7 +21131,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFlywheels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-flywheels)) (common-lisp:progn (common-lisp:defun list-key-phrases-detection-jobs @@ -21150,7 +21149,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListKeyPhrasesDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-key-phrases-detection-jobs)) (common-lisp:progn (common-lisp:defun list-pii-entities-detection-jobs @@ -21168,7 +21167,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPiiEntitiesDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pii-entities-detection-jobs)) (common-lisp:progn (common-lisp:defun list-sentiment-detection-jobs @@ -21186,7 +21185,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSentimentDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sentiment-detection-jobs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -21203,7 +21202,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-targeted-sentiment-detection-jobs @@ -21221,7 +21220,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTargetedSentimentDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-targeted-sentiment-detection-jobs)) (common-lisp:progn (common-lisp:defun list-topics-detection-jobs @@ -21239,7 +21238,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTopicsDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-topics-detection-jobs)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -21258,7 +21257,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun start-document-classification-job @@ -21282,7 +21281,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDocumentClassificationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-document-classification-job)) (common-lisp:progn (common-lisp:defun start-dominant-language-detection-job @@ -21305,7 +21304,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDominantLanguageDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-dominant-language-detection-job)) (common-lisp:progn (common-lisp:defun start-entities-detection-job @@ -21329,7 +21328,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartEntitiesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-entities-detection-job)) (common-lisp:progn (common-lisp:defun start-events-detection-job @@ -21352,7 +21351,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartEventsDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-events-detection-job)) (common-lisp:progn (common-lisp:defun start-flywheel-iteration @@ -21370,7 +21369,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFlywheelIteration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-flywheel-iteration)) (common-lisp:progn (common-lisp:defun start-key-phrases-detection-job @@ -21393,7 +21392,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartKeyPhrasesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-key-phrases-detection-job)) (common-lisp:progn (common-lisp:defun start-pii-entities-detection-job @@ -21416,7 +21415,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartPiiEntitiesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-pii-entities-detection-job)) (common-lisp:progn (common-lisp:defun start-sentiment-detection-job @@ -21439,7 +21438,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartSentimentDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-sentiment-detection-job)) (common-lisp:progn (common-lisp:defun start-targeted-sentiment-detection-job @@ -21462,7 +21461,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartTargetedSentimentDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-targeted-sentiment-detection-job)) (common-lisp:progn (common-lisp:defun start-topics-detection-job @@ -21485,7 +21484,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartTopicsDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-topics-detection-job)) (common-lisp:progn (common-lisp:defun stop-dominant-language-detection-job @@ -21503,7 +21502,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopDominantLanguageDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-dominant-language-detection-job)) (common-lisp:progn (common-lisp:defun stop-entities-detection-job @@ -21521,7 +21520,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopEntitiesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-entities-detection-job)) (common-lisp:progn (common-lisp:defun stop-events-detection-job @@ -21539,7 +21538,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopEventsDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-events-detection-job)) (common-lisp:progn (common-lisp:defun stop-key-phrases-detection-job @@ -21557,7 +21556,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopKeyPhrasesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-key-phrases-detection-job)) (common-lisp:progn (common-lisp:defun stop-pii-entities-detection-job @@ -21575,7 +21574,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopPiiEntitiesDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-pii-entities-detection-job)) (common-lisp:progn (common-lisp:defun stop-sentiment-detection-job @@ -21593,7 +21592,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopSentimentDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-sentiment-detection-job)) (common-lisp:progn (common-lisp:defun stop-targeted-sentiment-detection-job @@ -21611,7 +21610,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopTargetedSentimentDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-targeted-sentiment-detection-job)) (common-lisp:progn (common-lisp:defun stop-training-document-classifier @@ -21629,7 +21628,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopTrainingDocumentClassifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-training-document-classifier)) (common-lisp:progn (common-lisp:defun stop-training-entity-recognizer @@ -21647,7 +21646,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopTrainingEntityRecognizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-training-entity-recognizer)) (common-lisp:progn (common-lisp:defun tag-resource @@ -21664,7 +21663,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -21681,7 +21680,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-endpoint @@ -21702,7 +21701,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-endpoint)) (common-lisp:progn (common-lisp:defun update-flywheel @@ -21722,5 +21721,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFlywheel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-flywheel)) diff --git a/services/comprehendmedical/api.lisp b/services/comprehendmedical/api.lisp index e0d7e9f6..0ecd3a85 100644 --- a/services/comprehendmedical/api.lisp +++ b/services/comprehendmedical/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/comprehendmedical/api - (:use) - (:nicknames #:aws/comprehendmedical) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/comprehendmedical/api (:use) + (:nicknames #:aws/comprehendmedical) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/comprehendmedical/api) (common-lisp:progn (common-lisp:define-condition comprehendmedical-error @@ -5185,7 +5184,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "DescribeEntitiesDetectionV2Job")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-entities-detection-v2job)) (common-lisp:progn (common-lisp:defun describe-icd10cminference-job @@ -5202,7 +5201,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "DescribeICD10CMInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-icd10cminference-job)) (common-lisp:progn (common-lisp:defun describe-phidetection-job @@ -5219,7 +5218,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "DescribePHIDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-phidetection-job)) (common-lisp:progn (common-lisp:defun describe-rx-norm-inference-job @@ -5236,7 +5235,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "DescribeRxNormInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rx-norm-inference-job)) (common-lisp:progn (common-lisp:defun describe-snomedctinference-job @@ -5253,7 +5252,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "DescribeSNOMEDCTInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-snomedctinference-job)) (common-lisp:progn (common-lisp:defun detect-entities @@ -5269,7 +5268,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "DetectEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-entities)) (common-lisp:progn (common-lisp:defun detect-entities-v2 @@ -5285,7 +5284,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "DetectEntitiesV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-entities-v2)) (common-lisp:progn (common-lisp:defun detect-phi @@ -5301,7 +5300,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "DetectPHI")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-phi)) (common-lisp:progn (common-lisp:defun infer-icd10cm @@ -5317,7 +5316,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "InferICD10CM")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'infer-icd10cm)) (common-lisp:progn (common-lisp:defun infer-rx-norm @@ -5333,7 +5332,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "InferRxNorm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'infer-rx-norm)) (common-lisp:progn (common-lisp:defun infer-snomedct @@ -5349,7 +5348,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "InferSNOMEDCT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'infer-snomedct)) (common-lisp:progn (common-lisp:defun list-entities-detection-v2jobs @@ -5366,7 +5365,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "ListEntitiesDetectionV2Jobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entities-detection-v2jobs)) (common-lisp:progn (common-lisp:defun list-icd10cminference-jobs @@ -5383,7 +5382,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "ListICD10CMInferenceJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-icd10cminference-jobs)) (common-lisp:progn (common-lisp:defun list-phidetection-jobs @@ -5399,7 +5398,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "ListPHIDetectionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-phidetection-jobs)) (common-lisp:progn (common-lisp:defun list-rx-norm-inference-jobs @@ -5416,7 +5415,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "ListRxNormInferenceJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rx-norm-inference-jobs)) (common-lisp:progn (common-lisp:defun list-snomedctinference-jobs @@ -5433,7 +5432,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "ListSNOMEDCTInferenceJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-snomedctinference-jobs)) (common-lisp:progn (common-lisp:defun start-entities-detection-v2job @@ -5454,7 +5453,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StartEntitiesDetectionV2Job")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-entities-detection-v2job)) (common-lisp:progn (common-lisp:defun start-icd10cminference-job @@ -5475,7 +5474,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StartICD10CMInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-icd10cminference-job)) (common-lisp:progn (common-lisp:defun start-phidetection-job @@ -5495,7 +5494,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StartPHIDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-phidetection-job)) (common-lisp:progn (common-lisp:defun start-rx-norm-inference-job @@ -5516,7 +5515,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StartRxNormInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-rx-norm-inference-job)) (common-lisp:progn (common-lisp:defun start-snomedctinference-job @@ -5537,7 +5536,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StartSNOMEDCTInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-snomedctinference-job)) (common-lisp:progn (common-lisp:defun stop-entities-detection-v2job @@ -5554,7 +5553,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StopEntitiesDetectionV2Job")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-entities-detection-v2job)) (common-lisp:progn (common-lisp:defun stop-icd10cminference-job @@ -5571,7 +5570,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StopICD10CMInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-icd10cminference-job)) (common-lisp:progn (common-lisp:defun stop-phidetection-job @@ -5587,7 +5586,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StopPHIDetectionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-phidetection-job)) (common-lisp:progn (common-lisp:defun stop-rx-norm-inference-job @@ -5604,7 +5603,7 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StopRxNormInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-rx-norm-inference-job)) (common-lisp:progn (common-lisp:defun stop-snomedctinference-job @@ -5621,5 +5620,5 @@ (aws-sdk/generator/shape:make-request-with-input 'comprehendmedical-request aws-sdk/generator/operation::input "POST" "/" "StopSNOMEDCTInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-snomedctinference-job)) diff --git a/services/compute-optimizer/api.lisp b/services/compute-optimizer/api.lisp index 7ae1cc80..727f65ce 100644 --- a/services/compute-optimizer/api.lisp +++ b/services/compute-optimizer/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/compute-optimizer/api - (:use) - (:nicknames #:aws/compute-optimizer) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/compute-optimizer/api (:use) + (:nicknames #:aws/compute-optimizer) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/compute-optimizer/api) (common-lisp:progn (common-lisp:define-condition compute-optimizer-error @@ -10864,7 +10863,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "DeleteRecommendationPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recommendation-preferences)) (common-lisp:progn (common-lisp:defun describe-recommendation-export-jobs @@ -10882,7 +10881,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "DescribeRecommendationExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recommendation-export-jobs)) (common-lisp:progn (common-lisp:defun export-auto-scaling-group-recommendations @@ -10904,7 +10903,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "ExportAutoScalingGroupRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-auto-scaling-group-recommendations)) (common-lisp:progn (common-lisp:defun export-ebsvolume-recommendations @@ -10924,7 +10923,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "ExportEBSVolumeRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-ebsvolume-recommendations)) (common-lisp:progn (common-lisp:defun export-ec2instance-recommendations @@ -10946,7 +10945,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "ExportEC2InstanceRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-ec2instance-recommendations)) (common-lisp:progn (common-lisp:defun export-ecsservice-recommendations @@ -10966,7 +10965,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "ExportECSServiceRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-ecsservice-recommendations)) (common-lisp:progn (common-lisp:defun export-lambda-function-recommendations @@ -10986,7 +10985,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "ExportLambdaFunctionRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-lambda-function-recommendations)) (common-lisp:progn (common-lisp:defun export-license-recommendations @@ -11006,7 +11005,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "ExportLicenseRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-license-recommendations)) (common-lisp:progn (common-lisp:defun get-auto-scaling-group-recommendations @@ -11026,7 +11025,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetAutoScalingGroupRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-auto-scaling-group-recommendations)) (common-lisp:progn (common-lisp:defun get-ebsvolume-recommendations @@ -11046,7 +11045,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetEBSVolumeRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ebsvolume-recommendations)) (common-lisp:progn (common-lisp:defun get-ec2instance-recommendations @@ -11066,7 +11065,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetEC2InstanceRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ec2instance-recommendations)) (common-lisp:progn (common-lisp:defun get-ec2recommendation-projected-metrics @@ -11086,7 +11085,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetEC2RecommendationProjectedMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ec2recommendation-projected-metrics)) (common-lisp:progn (common-lisp:defun get-ecsservice-recommendation-projected-metrics @@ -11105,7 +11104,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetECSServiceRecommendationProjectedMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ecsservice-recommendation-projected-metrics)) (common-lisp:progn (common-lisp:defun get-ecsservice-recommendations @@ -11125,7 +11124,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetECSServiceRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ecsservice-recommendations)) (common-lisp:progn (common-lisp:defun get-effective-recommendation-preferences @@ -11142,7 +11141,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetEffectiveRecommendationPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-effective-recommendation-preferences)) (common-lisp:progn (common-lisp:defun get-enrollment-status () @@ -11167,7 +11166,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetEnrollmentStatusesForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-enrollment-statuses-for-organization)) (common-lisp:progn (common-lisp:defun get-lambda-function-recommendations @@ -11187,7 +11186,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetLambdaFunctionRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lambda-function-recommendations)) (common-lisp:progn (common-lisp:defun get-license-recommendations @@ -11207,7 +11206,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetLicenseRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-license-recommendations)) (common-lisp:progn (common-lisp:defun get-recommendation-preferences @@ -11226,7 +11225,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetRecommendationPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendation-preferences)) (common-lisp:progn (common-lisp:defun get-recommendation-summaries @@ -11244,7 +11243,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "GetRecommendationSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendation-summaries)) (common-lisp:progn (common-lisp:defun put-recommendation-preferences @@ -11268,7 +11267,7 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "PutRecommendationPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-recommendation-preferences)) (common-lisp:progn (common-lisp:defun update-enrollment-status @@ -11284,5 +11283,5 @@ (aws-sdk/generator/shape:make-request-with-input 'compute-optimizer-request aws-sdk/generator/operation::input "POST" "/" "UpdateEnrollmentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-enrollment-status)) diff --git a/services/config/api.lisp b/services/config/api.lisp index d860a307..64002a67 100644 --- a/services/config/api.lisp +++ b/services/config/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/config/api - (:use) - (:nicknames #:aws/config) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/config/api (:use) + (:nicknames #:aws/config) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/config/api) (common-lisp:progn (common-lisp:define-condition config-error @@ -20128,7 +20127,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetAggregateResourceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-aggregate-resource-config)) (common-lisp:progn (common-lisp:defun batch-get-resource-config @@ -20146,7 +20145,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetResourceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-resource-config)) (common-lisp:progn (common-lisp:defun delete-aggregation-authorization @@ -20166,7 +20165,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAggregationAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-aggregation-authorization)) (common-lisp:progn (common-lisp:defun delete-config-rule @@ -20183,7 +20182,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConfigRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-config-rule)) (common-lisp:progn (common-lisp:defun delete-configuration-aggregator @@ -20201,7 +20200,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConfigurationAggregator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-aggregator)) (common-lisp:progn (common-lisp:defun delete-configuration-recorder @@ -20219,7 +20218,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConfigurationRecorder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-recorder)) (common-lisp:progn (common-lisp:defun delete-conformance-pack @@ -20236,7 +20235,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConformancePack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-conformance-pack)) (common-lisp:progn (common-lisp:defun delete-delivery-channel @@ -20253,7 +20252,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeliveryChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-delivery-channel)) (common-lisp:progn (common-lisp:defun delete-evaluation-results @@ -20271,7 +20270,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEvaluationResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-evaluation-results)) (common-lisp:progn (common-lisp:defun delete-organization-config-rule @@ -20289,7 +20288,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteOrganizationConfigRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-organization-config-rule)) (common-lisp:progn (common-lisp:defun delete-organization-conformance-pack @@ -20308,7 +20307,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteOrganizationConformancePack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-organization-conformance-pack)) (common-lisp:progn (common-lisp:defun delete-pending-aggregation-request @@ -20328,7 +20327,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePendingAggregationRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pending-aggregation-request)) (common-lisp:progn (common-lisp:defun delete-remediation-configuration @@ -20346,7 +20345,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRemediationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-remediation-configuration)) (common-lisp:progn (common-lisp:defun delete-remediation-exceptions @@ -20364,7 +20363,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRemediationExceptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-remediation-exceptions)) (common-lisp:progn (common-lisp:defun delete-resource-config @@ -20381,7 +20380,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-config)) (common-lisp:progn (common-lisp:defun delete-retention-configuration @@ -20399,7 +20398,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRetentionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-retention-configuration)) (common-lisp:progn (common-lisp:defun delete-stored-query @@ -20416,7 +20415,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStoredQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stored-query)) (common-lisp:progn (common-lisp:defun deliver-config-snapshot @@ -20433,7 +20432,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeliverConfigSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deliver-config-snapshot)) (common-lisp:progn (common-lisp:defun describe-aggregate-compliance-by-config-rules @@ -20454,7 +20453,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAggregateComplianceByConfigRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-aggregate-compliance-by-config-rules)) (common-lisp:progn (common-lisp:defun describe-aggregate-compliance-by-conformance-packs @@ -20475,7 +20474,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAggregateComplianceByConformancePacks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-aggregate-compliance-by-conformance-packs)) (common-lisp:progn (common-lisp:defun describe-aggregation-authorizations @@ -20493,7 +20492,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAggregationAuthorizations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-aggregation-authorizations)) (common-lisp:progn (common-lisp:defun describe-compliance-by-config-rule @@ -20513,7 +20512,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeComplianceByConfigRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-compliance-by-config-rule)) (common-lisp:progn (common-lisp:defun describe-compliance-by-resource @@ -20534,7 +20533,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeComplianceByResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-compliance-by-resource)) (common-lisp:progn (common-lisp:defun describe-config-rule-evaluation-status @@ -20553,7 +20552,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConfigRuleEvaluationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-config-rule-evaluation-status)) (common-lisp:progn (common-lisp:defun describe-config-rules @@ -20571,7 +20570,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConfigRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-config-rules)) (common-lisp:progn (common-lisp:defun describe-configuration-aggregator-sources-status @@ -20592,7 +20591,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurationAggregatorSourcesStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration-aggregator-sources-status)) (common-lisp:progn (common-lisp:defun describe-configuration-aggregators @@ -20612,7 +20611,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurationAggregators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration-aggregators)) (common-lisp:progn (common-lisp:defun describe-configuration-recorder-status @@ -20630,7 +20629,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurationRecorderStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration-recorder-status)) (common-lisp:progn (common-lisp:defun describe-configuration-recorders @@ -20648,7 +20647,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurationRecorders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration-recorders)) (common-lisp:progn (common-lisp:defun describe-conformance-pack-compliance @@ -20668,7 +20667,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConformancePackCompliance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-conformance-pack-compliance)) (common-lisp:progn (common-lisp:defun describe-conformance-pack-status @@ -20687,7 +20686,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConformancePackStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-conformance-pack-status)) (common-lisp:progn (common-lisp:defun describe-conformance-packs @@ -20706,7 +20705,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConformancePacks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-conformance-packs)) (common-lisp:progn (common-lisp:defun describe-delivery-channel-status @@ -20724,7 +20723,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDeliveryChannelStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-delivery-channel-status)) (common-lisp:progn (common-lisp:defun describe-delivery-channels @@ -20742,7 +20741,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDeliveryChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-delivery-channels)) (common-lisp:progn (common-lisp:defun describe-organization-config-rule-statuses @@ -20762,7 +20761,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrganizationConfigRuleStatuses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-config-rule-statuses)) (common-lisp:progn (common-lisp:defun describe-organization-config-rules @@ -20782,7 +20781,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrganizationConfigRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-config-rules)) (common-lisp:progn (common-lisp:defun describe-organization-conformance-pack-statuses @@ -20803,7 +20802,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrganizationConformancePackStatuses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-conformance-pack-statuses)) (common-lisp:progn (common-lisp:defun describe-organization-conformance-packs @@ -20824,7 +20823,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrganizationConformancePacks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-conformance-packs)) (common-lisp:progn (common-lisp:defun describe-pending-aggregation-requests @@ -20842,7 +20841,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePendingAggregationRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pending-aggregation-requests)) (common-lisp:progn (common-lisp:defun describe-remediation-configurations @@ -20860,7 +20859,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRemediationConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-remediation-configurations)) (common-lisp:progn (common-lisp:defun describe-remediation-exceptions @@ -20880,7 +20879,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRemediationExceptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-remediation-exceptions)) (common-lisp:progn (common-lisp:defun describe-remediation-execution-status @@ -20900,7 +20899,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRemediationExecutionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-remediation-execution-status)) (common-lisp:progn (common-lisp:defun describe-retention-configurations @@ -20919,7 +20918,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRetentionConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-retention-configurations)) (common-lisp:progn (common-lisp:defun get-aggregate-compliance-details-by-config-rule @@ -20941,7 +20940,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAggregateComplianceDetailsByConfigRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-aggregate-compliance-details-by-config-rule)) (common-lisp:progn (common-lisp:defun get-aggregate-config-rule-compliance-summary @@ -20962,7 +20961,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAggregateConfigRuleComplianceSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-aggregate-config-rule-compliance-summary)) (common-lisp:progn (common-lisp:defun get-aggregate-conformance-pack-compliance-summary @@ -20983,7 +20982,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAggregateConformancePackComplianceSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-aggregate-conformance-pack-compliance-summary)) (common-lisp:progn (common-lisp:defun get-aggregate-discovered-resource-counts @@ -21004,7 +21003,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAggregateDiscoveredResourceCounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-aggregate-discovered-resource-counts)) (common-lisp:progn (common-lisp:defun get-aggregate-resource-config @@ -21024,7 +21023,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAggregateResourceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-aggregate-resource-config)) (common-lisp:progn (common-lisp:defun get-compliance-details-by-config-rule @@ -21044,7 +21043,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetComplianceDetailsByConfigRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compliance-details-by-config-rule)) (common-lisp:progn (common-lisp:defun get-compliance-details-by-resource @@ -21065,7 +21064,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetComplianceDetailsByResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compliance-details-by-resource)) (common-lisp:progn (common-lisp:defun get-compliance-summary-by-config-rule () @@ -21091,7 +21090,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetComplianceSummaryByResourceType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compliance-summary-by-resource-type)) (common-lisp:progn (common-lisp:defun get-conformance-pack-compliance-details @@ -21111,7 +21110,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConformancePackComplianceDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-conformance-pack-compliance-details)) (common-lisp:progn (common-lisp:defun get-conformance-pack-compliance-summary @@ -21130,7 +21129,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConformancePackComplianceSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-conformance-pack-compliance-summary)) (common-lisp:progn (common-lisp:defun get-custom-rule-policy @@ -21147,7 +21146,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCustomRulePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-custom-rule-policy)) (common-lisp:progn (common-lisp:defun get-discovered-resource-counts @@ -21166,7 +21165,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDiscoveredResourceCounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-discovered-resource-counts)) (common-lisp:progn (common-lisp:defun get-organization-config-rule-detailed-status @@ -21187,7 +21186,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOrganizationConfigRuleDetailedStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-organization-config-rule-detailed-status)) (common-lisp:progn (common-lisp:defun get-organization-conformance-pack-detailed-status @@ -21208,7 +21207,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOrganizationConformancePackDetailedStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-organization-conformance-pack-detailed-status)) (common-lisp:progn (common-lisp:defun get-organization-custom-rule-policy @@ -21226,7 +21225,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOrganizationCustomRulePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-organization-custom-rule-policy)) (common-lisp:progn (common-lisp:defun get-resource-config-history @@ -21247,7 +21246,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourceConfigHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-config-history)) (common-lisp:progn (common-lisp:defun get-resource-evaluation-summary @@ -21265,7 +21264,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourceEvaluationSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-evaluation-summary)) (common-lisp:progn (common-lisp:defun get-stored-query @@ -21282,7 +21281,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetStoredQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stored-query)) (common-lisp:progn (common-lisp:defun list-aggregate-discovered-resources @@ -21303,7 +21302,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAggregateDiscoveredResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-aggregate-discovered-resources)) (common-lisp:progn (common-lisp:defun list-conformance-pack-compliance-scores @@ -21323,7 +21322,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListConformancePackComplianceScores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-conformance-pack-compliance-scores)) (common-lisp:progn (common-lisp:defun list-discovered-resources @@ -21344,7 +21343,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDiscoveredResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-discovered-resources)) (common-lisp:progn (common-lisp:defun list-resource-evaluations @@ -21362,7 +21361,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceEvaluations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-evaluations)) (common-lisp:progn (common-lisp:defun list-stored-queries @@ -21379,7 +21378,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStoredQueries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stored-queries)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -21396,7 +21395,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-aggregation-authorization @@ -21416,7 +21415,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAggregationAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-aggregation-authorization)) (common-lisp:progn (common-lisp:defun put-config-rule @@ -21433,7 +21432,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutConfigRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-config-rule)) (common-lisp:progn (common-lisp:defun put-configuration-aggregator @@ -21455,7 +21454,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutConfigurationAggregator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-aggregator)) (common-lisp:progn (common-lisp:defun put-configuration-recorder @@ -21473,7 +21472,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutConfigurationRecorder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-recorder)) (common-lisp:progn (common-lisp:defun put-conformance-pack @@ -21496,7 +21495,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutConformancePack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-conformance-pack)) (common-lisp:progn (common-lisp:defun put-delivery-channel @@ -21513,7 +21512,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDeliveryChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-delivery-channel)) (common-lisp:progn (common-lisp:defun put-evaluations @@ -21531,7 +21530,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutEvaluations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-evaluations)) (common-lisp:progn (common-lisp:defun put-external-evaluation @@ -21549,7 +21548,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutExternalEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-external-evaluation)) (common-lisp:progn (common-lisp:defun put-organization-config-rule @@ -21573,7 +21572,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutOrganizationConfigRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-organization-config-rule)) (common-lisp:progn (common-lisp:defun put-organization-conformance-pack @@ -21597,7 +21596,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutOrganizationConformancePack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-organization-conformance-pack)) (common-lisp:progn (common-lisp:defun put-remediation-configurations @@ -21615,7 +21614,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRemediationConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-remediation-configurations)) (common-lisp:progn (common-lisp:defun put-remediation-exceptions @@ -21636,7 +21635,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRemediationExceptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-remediation-exceptions)) (common-lisp:progn (common-lisp:defun put-resource-config @@ -21656,7 +21655,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-config)) (common-lisp:progn (common-lisp:defun put-retention-configuration @@ -21674,7 +21673,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRetentionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-retention-configuration)) (common-lisp:progn (common-lisp:defun put-stored-query @@ -21691,7 +21690,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutStoredQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-stored-query)) (common-lisp:progn (common-lisp:defun select-aggregate-resource-config @@ -21712,7 +21711,7 @@ aws-sdk/generator/operation::input "POST" "/" "SelectAggregateResourceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'select-aggregate-resource-config)) (common-lisp:progn (common-lisp:defun select-resource-config @@ -21729,7 +21728,7 @@ aws-sdk/generator/operation::input "POST" "/" "SelectResourceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'select-resource-config)) (common-lisp:progn (common-lisp:defun start-config-rules-evaluation @@ -21747,7 +21746,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartConfigRulesEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-config-rules-evaluation)) (common-lisp:progn (common-lisp:defun start-configuration-recorder @@ -21765,7 +21764,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartConfigurationRecorder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-configuration-recorder)) (common-lisp:progn (common-lisp:defun start-remediation-execution @@ -21783,7 +21782,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartRemediationExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-remediation-execution)) (common-lisp:progn (common-lisp:defun start-resource-evaluation @@ -21804,7 +21803,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartResourceEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-resource-evaluation)) (common-lisp:progn (common-lisp:defun stop-configuration-recorder @@ -21822,7 +21821,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopConfigurationRecorder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-configuration-recorder)) (common-lisp:progn (common-lisp:defun tag-resource @@ -21839,7 +21838,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -21856,5 +21855,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/connect-contact-lens/api.lisp b/services/connect-contact-lens/api.lisp index 36fe729c..dba646ac 100644 --- a/services/connect-contact-lens/api.lisp +++ b/services/connect-contact-lens/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/connect-contact-lens/api - (:use) - (:nicknames #:aws/connect-contact-lens) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/connect-contact-lens/api (:use) + (:nicknames #:aws/connect-contact-lens) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/connect-contact-lens/api) (common-lisp:progn (common-lisp:define-condition connect-contact-lens-error @@ -20,7 +19,7 @@ (common-lisp:export 'connect-contact-lens-error)) (common-lisp:progn (common-lisp:defclass connect-contact-lens-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "connect-contact-lens" :api-version "2020-08-21" :host-prefix "contact-lens" @@ -663,5 +662,5 @@ 'connect-contact-lens-request aws-sdk/generator/operation::input "POST" "/realtime-contact-analysis/analysis-segments" "ListRealtimeContactAnalysisSegments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-realtime-contact-analysis-segments)) diff --git a/services/connect/api.lisp b/services/connect/api.lisp index 07a9ea90..615634ad 100644 --- a/services/connect/api.lisp +++ b/services/connect/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/connect/api - (:use) - (:nicknames #:aws/connect) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/connect/api (:use) + (:nicknames #:aws/connect) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/connect/api) (common-lisp:progn (common-lisp:define-condition connect-error @@ -20,7 +19,7 @@ (common-lisp:export 'connect-error)) (common-lisp:progn (common-lisp:defclass connect-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "connect" :api-version "2017-08-08" :host-prefix "connect" :signing-name @@ -45565,16 +45564,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/evaluation-forms/~A/~A/activate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-form-id)))) + 'evaluation-form-id) + common-lisp:t))) "ActivateEvaluationForm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-evaluation-form)) (common-lisp:progn (common-lisp:defun associate-analytics-data-set @@ -45599,12 +45600,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/analytics-data/instance/~A/association" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "AssociateAnalyticsDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-analytics-data-set)) (common-lisp:progn (common-lisp:defun associate-approved-origin @@ -45627,12 +45629,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/approved-origin" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "AssociateApprovedOrigin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-approved-origin)) (common-lisp:progn (common-lisp:defun associate-bot @@ -45654,12 +45657,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/bot" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "AssociateBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-bot)) (common-lisp:progn (common-lisp:defun associate-default-vocabulary @@ -45683,16 +45687,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/default-vocabulary/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'language-code)))) + 'language-code) + common-lisp:t))) "AssociateDefaultVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-default-vocabulary)) (common-lisp:progn (common-lisp:defun associate-flow @@ -45716,12 +45722,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/flow-associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "AssociateFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-flow)) (common-lisp:progn (common-lisp:defun associate-instance-storage-config @@ -45745,12 +45752,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/storage-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "AssociateInstanceStorageConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-instance-storage-config)) (common-lisp:progn (common-lisp:defun associate-lambda-function @@ -45773,12 +45781,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/lambda-function" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "AssociateLambdaFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-lambda-function)) (common-lisp:progn (common-lisp:defun associate-lex-bot @@ -45800,12 +45809,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/lex-bot" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "AssociateLexBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-lex-bot)) (common-lisp:progn (common-lisp:defun associate-phone-number-contact-flow @@ -45830,12 +45840,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/phone-number/~A/contact-flow" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "AssociatePhoneNumberContactFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-phone-number-contact-flow)) (common-lisp:progn (common-lisp:defun associate-queue-quick-connects @@ -45859,16 +45870,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A/associate-quick-connects" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "AssociateQueueQuickConnects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-queue-quick-connects)) (common-lisp:progn (common-lisp:defun associate-routing-profile-queues @@ -45893,16 +45906,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A/associate-queues" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "AssociateRoutingProfileQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-routing-profile-queues)) (common-lisp:progn (common-lisp:defun associate-security-key @@ -45924,12 +45939,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/security-key" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "AssociateSecurityKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-security-key)) (common-lisp:progn (common-lisp:defun associate-traffic-distribution-group-user @@ -45954,12 +45970,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/traffic-distribution-group/~A/user" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'traffic-distribution-group-id)))) + 'traffic-distribution-group-id) + common-lisp:t))) "AssociateTrafficDistributionGroupUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-traffic-distribution-group-user)) (common-lisp:progn (common-lisp:defun associate-user-proficiencies @@ -45983,16 +46000,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/associate-proficiencies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "AssociateUserProficiencies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-user-proficiencies)) (common-lisp:progn (common-lisp:defun batch-associate-analytics-data-set @@ -46017,12 +46036,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/analytics-data/instance/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "BatchAssociateAnalyticsDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-analytics-data-set)) (common-lisp:progn (common-lisp:defun batch-disassociate-analytics-data-set @@ -46047,12 +46067,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/analytics-data/instance/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "BatchDisassociateAnalyticsDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-analytics-data-set)) (common-lisp:progn (common-lisp:defun batch-get-flow-association @@ -46076,12 +46097,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/flow-associations-batch/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "BatchGetFlowAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-flow-association)) (common-lisp:progn (common-lisp:defun batch-put-contact @@ -46105,12 +46127,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact/batch/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "BatchPutContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-contact)) (common-lisp:progn (common-lisp:defun claim-phone-number @@ -46131,7 +46154,7 @@ common-lisp:nil "POST" "/phone-number/claim" "ClaimPhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'claim-phone-number)) (common-lisp:progn (common-lisp:defun create-agent-status @@ -46156,12 +46179,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/agent-status/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateAgentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-agent-status)) (common-lisp:progn (common-lisp:defun create-contact-flow @@ -46185,12 +46209,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateContactFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-contact-flow)) (common-lisp:progn (common-lisp:defun create-contact-flow-module @@ -46216,12 +46241,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flow-modules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateContactFlowModule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-contact-flow-module)) (common-lisp:progn (common-lisp:defun create-evaluation-form @@ -46246,12 +46272,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/evaluation-forms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateEvaluationForm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-evaluation-form)) (common-lisp:progn (common-lisp:defun create-hours-of-operation @@ -46276,12 +46303,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/hours-of-operations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateHoursOfOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hours-of-operation)) (common-lisp:progn (common-lisp:defun create-instance @@ -46302,7 +46330,7 @@ common-lisp:nil aws-sdk/generator/operation::input "PUT" "/instance" "CreateInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instance)) (common-lisp:progn (common-lisp:defun create-integration-association @@ -46329,12 +46357,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/integration-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateIntegrationAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-integration-association)) (common-lisp:progn (common-lisp:defun create-participant @@ -46355,7 +46384,7 @@ common-lisp:nil "POST" "/contact/create-participant" "CreateParticipant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-participant)) (common-lisp:progn (common-lisp:defun create-persistent-contact-association @@ -46381,16 +46410,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact/persistent-contact-association/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'initial-contact-id)))) + 'initial-contact-id) + common-lisp:t))) "CreatePersistentContactAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-persistent-contact-association)) (common-lisp:progn (common-lisp:defun create-predefined-attribute @@ -46413,12 +46444,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/predefined-attributes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreatePredefinedAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-predefined-attribute)) (common-lisp:progn (common-lisp:defun create-prompt @@ -46441,12 +46473,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/prompts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreatePrompt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-prompt)) (common-lisp:progn (common-lisp:defun create-queue @@ -46472,12 +46505,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-queue)) (common-lisp:progn (common-lisp:defun create-quick-connect @@ -46502,12 +46536,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/quick-connects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateQuickConnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-quick-connect)) (common-lisp:progn (common-lisp:defun create-routing-profile @@ -46534,12 +46569,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateRoutingProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-routing-profile)) (common-lisp:progn (common-lisp:defun create-rule @@ -46564,12 +46600,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule)) (common-lisp:progn (common-lisp:defun create-security-profile @@ -46596,12 +46633,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/security-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-security-profile)) (common-lisp:progn (common-lisp:defun create-task-template @@ -46627,12 +46665,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/task/template" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateTaskTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-task-template)) (common-lisp:progn (common-lisp:defun create-traffic-distribution-group @@ -46653,7 +46692,7 @@ common-lisp:nil "PUT" "/traffic-distribution-group" "CreateTrafficDistributionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-traffic-distribution-group)) (common-lisp:progn (common-lisp:defun create-use-case @@ -46678,16 +46717,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/integration-associations/~A/use-cases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-association-id)))) + 'integration-association-id) + common-lisp:t))) "CreateUseCase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-use-case)) (common-lisp:progn (common-lisp:defun create-user @@ -46714,12 +46755,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun create-user-hierarchy-group @@ -46743,12 +46785,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/user-hierarchy-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateUserHierarchyGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-hierarchy-group)) (common-lisp:progn (common-lisp:defun create-view @@ -46773,12 +46816,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-view)) (common-lisp:progn (common-lisp:defun create-view-version @@ -46803,16 +46847,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'view-id)))) + 'view-id) + common-lisp:t))) "CreateViewVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-view-version)) (common-lisp:progn (common-lisp:defun create-vocabulary @@ -46837,12 +46883,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/vocabulary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vocabulary)) (common-lisp:progn (common-lisp:defun deactivate-evaluation-form @@ -46868,16 +46915,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/evaluation-forms/~A/~A/deactivate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-form-id)))) + 'evaluation-form-id) + common-lisp:t))) "DeactivateEvaluationForm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deactivate-evaluation-form)) (common-lisp:progn (common-lisp:defun delete-contact-evaluation @@ -46900,16 +46949,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-evaluations/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-id)))) + 'evaluation-id) + common-lisp:t))) "DeleteContactEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact-evaluation)) (common-lisp:progn (common-lisp:defun delete-contact-flow @@ -46931,16 +46982,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flows/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-id)))) + 'contact-flow-id) + common-lisp:t))) "DeleteContactFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact-flow)) (common-lisp:progn (common-lisp:defun delete-contact-flow-module @@ -46964,16 +47017,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flow-modules/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-module-id)))) + 'contact-flow-module-id) + common-lisp:t))) "DeleteContactFlowModule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact-flow-module)) (common-lisp:progn (common-lisp:defun delete-evaluation-form @@ -46998,16 +47053,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/evaluation-forms/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-form-id)))) + 'evaluation-form-id) + common-lisp:t))) "DeleteEvaluationForm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-evaluation-form)) (common-lisp:progn (common-lisp:defun delete-hours-of-operation @@ -47031,16 +47088,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/hours-of-operations/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hours-of-operation-id)))) + 'hours-of-operation-id) + common-lisp:t))) "DeleteHoursOfOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hours-of-operation)) (common-lisp:progn (common-lisp:defun delete-instance @@ -47062,12 +47121,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "DeleteInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance)) (common-lisp:progn (common-lisp:defun delete-integration-association @@ -47091,16 +47151,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/integration-associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-association-id)))) + 'integration-association-id) + common-lisp:t))) "DeleteIntegrationAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-integration-association)) (common-lisp:progn (common-lisp:defun delete-predefined-attribute @@ -47123,16 +47185,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/predefined-attributes/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeletePredefinedAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-predefined-attribute)) (common-lisp:progn (common-lisp:defun delete-prompt @@ -47154,16 +47218,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/prompts/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'prompt-id)))) + 'prompt-id) + common-lisp:t))) "DeletePrompt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-prompt)) (common-lisp:progn (common-lisp:defun delete-queue @@ -47185,16 +47251,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "DeleteQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-queue)) (common-lisp:progn (common-lisp:defun delete-quick-connect @@ -47216,16 +47284,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/quick-connects/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-connect-id)))) + 'quick-connect-id) + common-lisp:t))) "DeleteQuickConnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-quick-connect)) (common-lisp:progn (common-lisp:defun delete-routing-profile @@ -47247,16 +47317,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "DeleteRoutingProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-routing-profile)) (common-lisp:progn (common-lisp:defun delete-rule @@ -47278,16 +47350,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/rules/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-id)))) + 'rule-id) + common-lisp:t))) "DeleteRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun delete-security-profile @@ -47310,16 +47384,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/security-profiles/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-id)))) + 'security-profile-id) + common-lisp:t))) "DeleteSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-security-profile)) (common-lisp:progn (common-lisp:defun delete-task-template @@ -47341,16 +47417,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/task/template/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-template-id)))) + 'task-template-id) + common-lisp:t))) "DeleteTaskTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-task-template)) (common-lisp:progn (common-lisp:defun delete-traffic-distribution-group @@ -47373,12 +47451,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/traffic-distribution-group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'traffic-distribution-group-id)))) + 'traffic-distribution-group-id) + common-lisp:t))) "DeleteTrafficDistributionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-traffic-distribution-group)) (common-lisp:progn (common-lisp:defun delete-use-case @@ -47402,20 +47481,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/integration-associations/~A/use-cases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-association-id)) - (quri.encode:url-encode + 'integration-association-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'use-case-id)))) + 'use-case-id) + common-lisp:t))) "DeleteUseCase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-use-case)) (common-lisp:progn (common-lisp:defun delete-user @@ -47437,16 +47519,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun delete-user-hierarchy-group @@ -47469,16 +47553,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/user-hierarchy-groups/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hierarchy-group-id)))) + 'hierarchy-group-id) + common-lisp:t))) "DeleteUserHierarchyGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-hierarchy-group)) (common-lisp:progn (common-lisp:defun delete-view @@ -47500,16 +47586,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'view-id)))) + 'view-id) + common-lisp:t))) "DeleteView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-view)) (common-lisp:progn (common-lisp:defun delete-view-version @@ -47532,20 +47620,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'view-id)) - (quri.encode:url-encode + 'view-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'view-version)))) + 'view-version) + common-lisp:t))) "DeleteViewVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-view-version)) (common-lisp:progn (common-lisp:defun delete-vocabulary @@ -47567,16 +47658,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/vocabulary-remove/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vocabulary-id)))) + 'vocabulary-id) + common-lisp:t))) "DeleteVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vocabulary)) (common-lisp:progn (common-lisp:defun describe-agent-status @@ -47598,16 +47691,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/agent-status/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-status-id)))) + 'agent-status-id) + common-lisp:t))) "DescribeAgentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-agent-status)) (common-lisp:progn (common-lisp:defun describe-contact @@ -47629,16 +47724,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contacts/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "DescribeContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-contact)) (common-lisp:progn (common-lisp:defun describe-contact-evaluation @@ -47661,16 +47758,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-evaluations/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-id)))) + 'evaluation-id) + common-lisp:t))) "DescribeContactEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-contact-evaluation)) (common-lisp:progn (common-lisp:defun describe-contact-flow @@ -47692,16 +47791,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flows/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-id)))) + 'contact-flow-id) + common-lisp:t))) "DescribeContactFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-contact-flow)) (common-lisp:progn (common-lisp:defun describe-contact-flow-module @@ -47725,16 +47826,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flow-modules/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-module-id)))) + 'contact-flow-module-id) + common-lisp:t))) "DescribeContactFlowModule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-contact-flow-module)) (common-lisp:progn (common-lisp:defun describe-evaluation-form @@ -47759,16 +47862,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/evaluation-forms/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-form-id)))) + 'evaluation-form-id) + common-lisp:t))) "DescribeEvaluationForm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-evaluation-form)) (common-lisp:progn (common-lisp:defun describe-hours-of-operation @@ -47792,16 +47897,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/hours-of-operations/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hours-of-operation-id)))) + 'hours-of-operation-id) + common-lisp:t))) "DescribeHoursOfOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-hours-of-operation)) (common-lisp:progn (common-lisp:defun describe-instance @@ -47823,12 +47930,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "DescribeInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance)) (common-lisp:progn (common-lisp:defun describe-instance-attribute @@ -47851,16 +47959,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/attribute/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute-type)))) + 'attribute-type) + common-lisp:t))) "DescribeInstanceAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-attribute)) (common-lisp:progn (common-lisp:defun describe-instance-storage-config @@ -47884,16 +47994,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/storage-config/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "DescribeInstanceStorageConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-storage-config)) (common-lisp:progn (common-lisp:defun describe-phone-number @@ -47915,12 +48027,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/phone-number/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "DescribePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-phone-number)) (common-lisp:progn (common-lisp:defun describe-predefined-attribute @@ -47943,16 +48056,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/predefined-attributes/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribePredefinedAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-predefined-attribute)) (common-lisp:progn (common-lisp:defun describe-prompt @@ -47974,16 +48089,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/prompts/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'prompt-id)))) + 'prompt-id) + common-lisp:t))) "DescribePrompt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-prompt)) (common-lisp:progn (common-lisp:defun describe-queue @@ -48005,16 +48122,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "DescribeQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-queue)) (common-lisp:progn (common-lisp:defun describe-quick-connect @@ -48036,16 +48155,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/quick-connects/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-connect-id)))) + 'quick-connect-id) + common-lisp:t))) "DescribeQuickConnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-quick-connect)) (common-lisp:progn (common-lisp:defun describe-routing-profile @@ -48067,16 +48188,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "DescribeRoutingProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-routing-profile)) (common-lisp:progn (common-lisp:defun describe-rule @@ -48098,16 +48221,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/rules/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-id)))) + 'rule-id) + common-lisp:t))) "DescribeRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rule)) (common-lisp:progn (common-lisp:defun describe-security-profile @@ -48131,16 +48256,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/security-profiles/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-id)))) + 'security-profile-id) + common-lisp:t))) "DescribeSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-security-profile)) (common-lisp:progn (common-lisp:defun describe-traffic-distribution-group @@ -48163,12 +48290,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/traffic-distribution-group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'traffic-distribution-group-id)))) + 'traffic-distribution-group-id) + common-lisp:t))) "DescribeTrafficDistributionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-traffic-distribution-group)) (common-lisp:progn (common-lisp:defun describe-user @@ -48190,16 +48318,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DescribeUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user)) (common-lisp:progn (common-lisp:defun describe-user-hierarchy-group @@ -48222,16 +48352,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/user-hierarchy-groups/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hierarchy-group-id)))) + 'hierarchy-group-id) + common-lisp:t))) "DescribeUserHierarchyGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-hierarchy-group)) (common-lisp:progn (common-lisp:defun describe-user-hierarchy-structure @@ -48254,12 +48386,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/user-hierarchy-structure/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "DescribeUserHierarchyStructure")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-hierarchy-structure)) (common-lisp:progn (common-lisp:defun describe-view @@ -48281,16 +48414,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'view-id)))) + 'view-id) + common-lisp:t))) "DescribeView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-view)) (common-lisp:progn (common-lisp:defun describe-vocabulary @@ -48312,16 +48447,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/vocabulary/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vocabulary-id)))) + 'vocabulary-id) + common-lisp:t))) "DescribeVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vocabulary)) (common-lisp:progn (common-lisp:defun disassociate-analytics-data-set @@ -48346,12 +48483,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/analytics-data/instance/~A/association" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "DisassociateAnalyticsDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-analytics-data-set)) (common-lisp:progn (common-lisp:defun disassociate-approved-origin @@ -48374,12 +48512,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/approved-origin" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "DisassociateApprovedOrigin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-approved-origin)) (common-lisp:progn (common-lisp:defun disassociate-bot @@ -48401,12 +48540,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/bot" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "DisassociateBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-bot)) (common-lisp:progn (common-lisp:defun disassociate-flow @@ -48429,20 +48569,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/flow-associations/~A/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)))) + 'resource-type) + common-lisp:t))) "DisassociateFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-flow)) (common-lisp:progn (common-lisp:defun disassociate-instance-storage-config @@ -48466,16 +48609,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/storage-config/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "DisassociateInstanceStorageConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-instance-storage-config)) (common-lisp:progn (common-lisp:defun disassociate-lambda-function @@ -48498,12 +48643,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/lambda-function" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "DisassociateLambdaFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-lambda-function)) (common-lisp:progn (common-lisp:defun disassociate-lex-bot @@ -48526,12 +48672,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/lex-bot" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "DisassociateLexBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-lex-bot)) (common-lisp:progn (common-lisp:defun disassociate-phone-number-contact-flow @@ -48554,12 +48701,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/phone-number/~A/contact-flow" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "DisassociatePhoneNumberContactFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-phone-number-contact-flow)) (common-lisp:progn (common-lisp:defun disassociate-queue-quick-connects @@ -48583,16 +48731,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A/disassociate-quick-connects" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "DisassociateQueueQuickConnects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-queue-quick-connects)) (common-lisp:progn (common-lisp:defun disassociate-routing-profile-queues @@ -48617,16 +48767,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A/disassociate-queues" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "DisassociateRoutingProfileQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-routing-profile-queues)) (common-lisp:progn (common-lisp:defun disassociate-security-key @@ -48649,16 +48801,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/security-key/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "DisassociateSecurityKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-security-key)) (common-lisp:progn (common-lisp:defun disassociate-traffic-distribution-group-user @@ -48683,12 +48837,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/traffic-distribution-group/~A/user" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'traffic-distribution-group-id)))) + 'traffic-distribution-group-id) + common-lisp:t))) "DisassociateTrafficDistributionGroupUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-traffic-distribution-group-user)) (common-lisp:progn (common-lisp:defun disassociate-user-proficiencies @@ -48712,16 +48867,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/disassociate-proficiencies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DisassociateUserProficiencies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-user-proficiencies)) (common-lisp:progn (common-lisp:defun dismiss-user-contact @@ -48743,16 +48900,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/contact" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DismissUserContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'dismiss-user-contact)) (common-lisp:progn (common-lisp:defun get-contact-attributes @@ -48774,16 +48933,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact/attributes/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'initial-contact-id)))) + 'initial-contact-id) + common-lisp:t))) "GetContactAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact-attributes)) (common-lisp:progn (common-lisp:defun get-current-metric-data @@ -48808,12 +48969,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/metrics/current/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "GetCurrentMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-current-metric-data)) (common-lisp:progn (common-lisp:defun get-current-user-data @@ -48837,12 +48999,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/metrics/userdata/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "GetCurrentUserData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-current-user-data)) (common-lisp:progn (common-lisp:defun get-federation-token @@ -48864,12 +49027,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/user/federate/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "GetFederationToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-federation-token)) (common-lisp:progn (common-lisp:defun get-flow-association @@ -48892,20 +49056,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/flow-associations/~A/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)))) + 'resource-type) + common-lisp:t))) "GetFlowAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-flow-association)) (common-lisp:progn (common-lisp:defun get-metric-data @@ -48930,12 +49097,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/metrics/historical/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "GetMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-metric-data)) (common-lisp:progn (common-lisp:defun get-metric-data-v2 @@ -48955,7 +49123,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/metrics/data" "GetMetricDataV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-metric-data-v2)) (common-lisp:progn (common-lisp:defun get-prompt-file @@ -48977,16 +49145,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/prompts/~A/~A/file" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'prompt-id)))) + 'prompt-id) + common-lisp:t))) "GetPromptFile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-prompt-file)) (common-lisp:progn (common-lisp:defun get-task-template @@ -49010,16 +49180,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/task/template/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-template-id)))) + 'task-template-id) + common-lisp:t))) "GetTaskTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-task-template)) (common-lisp:progn (common-lisp:defun get-traffic-distribution @@ -49041,12 +49213,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/traffic-distribution/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetTrafficDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-traffic-distribution)) (common-lisp:progn (common-lisp:defun import-phone-number @@ -49067,7 +49240,7 @@ common-lisp:nil "POST" "/phone-number/import" "ImportPhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-phone-number)) (common-lisp:progn (common-lisp:defun list-agent-statuses @@ -49092,12 +49265,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/agent-status/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListAgentStatuses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-agent-statuses)) (common-lisp:progn (common-lisp:defun list-analytics-data-associations @@ -49122,12 +49296,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/analytics-data/instance/~A/association" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListAnalyticsDataAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-analytics-data-associations)) (common-lisp:progn (common-lisp:defun list-approved-origins @@ -49150,12 +49325,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/approved-origins" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListApprovedOrigins")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-approved-origins)) (common-lisp:progn (common-lisp:defun list-bots @@ -49179,12 +49355,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/bots" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListBots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bots)) (common-lisp:progn (common-lisp:defun list-contact-evaluations @@ -49207,12 +49384,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-evaluations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListContactEvaluations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contact-evaluations)) (common-lisp:progn (common-lisp:defun list-contact-flow-modules @@ -49238,12 +49416,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flow-modules-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListContactFlowModules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contact-flow-modules)) (common-lisp:progn (common-lisp:defun list-contact-flows @@ -49268,12 +49447,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flows-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListContactFlows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contact-flows)) (common-lisp:progn (common-lisp:defun list-contact-references @@ -49297,16 +49477,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact/references/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "ListContactReferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contact-references)) (common-lisp:progn (common-lisp:defun list-default-vocabularies @@ -49331,12 +49513,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/default-vocabulary-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListDefaultVocabularies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-default-vocabularies)) (common-lisp:progn (common-lisp:defun list-evaluation-form-versions @@ -49362,16 +49545,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/evaluation-forms/~A/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-form-id)))) + 'evaluation-form-id) + common-lisp:t))) "ListEvaluationFormVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-evaluation-form-versions)) (common-lisp:progn (common-lisp:defun list-evaluation-forms @@ -49394,12 +49579,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/evaluation-forms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListEvaluationForms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-evaluation-forms)) (common-lisp:progn (common-lisp:defun list-flow-associations @@ -49423,12 +49609,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/flow-associations-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListFlowAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-flow-associations)) (common-lisp:progn (common-lisp:defun list-hours-of-operations @@ -49451,12 +49638,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/hours-of-operations-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListHoursOfOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hours-of-operations)) (common-lisp:progn (common-lisp:defun list-instance-attributes @@ -49479,12 +49667,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/attributes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListInstanceAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instance-attributes)) (common-lisp:progn (common-lisp:defun list-instance-storage-configs @@ -49509,12 +49698,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/storage-configs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListInstanceStorageConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instance-storage-configs)) (common-lisp:progn (common-lisp:defun list-instances @@ -49531,7 +49721,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/instance" "ListInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instances)) (common-lisp:progn (common-lisp:defun list-integration-associations @@ -49557,12 +49747,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/integration-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListIntegrationAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-integration-associations)) (common-lisp:progn (common-lisp:defun list-lambda-functions @@ -49585,12 +49776,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/lambda-functions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListLambdaFunctions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lambda-functions)) (common-lisp:progn (common-lisp:defun list-lex-bots @@ -49613,12 +49805,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/lex-bots" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListLexBots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lex-bots)) (common-lisp:progn (common-lisp:defun list-phone-numbers @@ -49643,12 +49836,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/phone-numbers-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListPhoneNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-phone-numbers)) (common-lisp:progn (common-lisp:defun list-phone-numbers-v2 @@ -49670,7 +49864,7 @@ common-lisp:nil "POST" "/phone-number/list" "ListPhoneNumbersV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-phone-numbers-v2)) (common-lisp:progn (common-lisp:defun list-predefined-attributes @@ -49694,12 +49888,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/predefined-attributes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListPredefinedAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-predefined-attributes)) (common-lisp:progn (common-lisp:defun list-prompts @@ -49722,12 +49917,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/prompts-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListPrompts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-prompts)) (common-lisp:progn (common-lisp:defun list-queue-quick-connects @@ -49752,16 +49948,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A/quick-connects" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "ListQueueQuickConnects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-queue-quick-connects)) (common-lisp:progn (common-lisp:defun list-queues @@ -49785,12 +49983,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-queues)) (common-lisp:progn (common-lisp:defun list-quick-connects @@ -49815,12 +50014,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/quick-connects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListQuickConnects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-quick-connects)) (common-lisp:progn (common-lisp:defun list-realtime-contact-analysis-segments-v2 @@ -49846,16 +50046,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact/list-real-time-analysis-segments-v2/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "ListRealtimeContactAnalysisSegmentsV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-realtime-contact-analysis-segments-v2)) (common-lisp:progn (common-lisp:defun list-routing-profile-queues @@ -49881,16 +50083,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A/queues" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "ListRoutingProfileQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-routing-profile-queues)) (common-lisp:progn (common-lisp:defun list-routing-profiles @@ -49913,12 +50117,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListRoutingProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-routing-profiles)) (common-lisp:progn (common-lisp:defun list-rules @@ -49943,12 +50148,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules)) (common-lisp:progn (common-lisp:defun list-security-keys @@ -49971,12 +50177,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/security-keys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListSecurityKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-keys)) (common-lisp:progn (common-lisp:defun list-security-profile-applications @@ -50002,16 +50209,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/security-profiles-applications/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-id)))) + 'security-profile-id) + common-lisp:t))) "ListSecurityProfileApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-profile-applications)) (common-lisp:progn (common-lisp:defun list-security-profile-permissions @@ -50037,16 +50246,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/security-profiles-permissions/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-id)))) + 'security-profile-id) + common-lisp:t))) "ListSecurityProfilePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-profile-permissions)) (common-lisp:progn (common-lisp:defun list-security-profiles @@ -50069,12 +50280,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/security-profiles-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListSecurityProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-profiles)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -50096,12 +50308,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-task-templates @@ -50125,12 +50338,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/task/template" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListTaskTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-task-templates)) (common-lisp:progn (common-lisp:defun list-traffic-distribution-group-users @@ -50156,12 +50370,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/traffic-distribution-group/~A/user" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'traffic-distribution-group-id)))) + 'traffic-distribution-group-id) + common-lisp:t))) "ListTrafficDistributionGroupUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-traffic-distribution-group-users)) (common-lisp:progn (common-lisp:defun list-traffic-distribution-groups @@ -50181,7 +50396,7 @@ common-lisp:nil "GET" "/traffic-distribution-groups" "ListTrafficDistributionGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-traffic-distribution-groups)) (common-lisp:progn (common-lisp:defun list-use-cases @@ -50206,16 +50421,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/integration-associations/~A/use-cases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'integration-association-id)))) + 'integration-association-id) + common-lisp:t))) "ListUseCases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-use-cases)) (common-lisp:progn (common-lisp:defun list-user-hierarchy-groups @@ -50239,12 +50456,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/user-hierarchy-groups-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListUserHierarchyGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-hierarchy-groups)) (common-lisp:progn (common-lisp:defun list-user-proficiencies @@ -50268,16 +50486,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/proficiencies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "ListUserProficiencies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-proficiencies)) (common-lisp:progn (common-lisp:defun list-users @@ -50300,12 +50520,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun list-view-versions @@ -50329,16 +50550,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'view-id)))) + 'view-id) + common-lisp:t))) "ListViewVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-view-versions)) (common-lisp:progn (common-lisp:defun list-views @@ -50361,12 +50584,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ListViews")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-views)) (common-lisp:progn (common-lisp:defun monitor-contact @@ -50387,7 +50611,7 @@ common-lisp:nil "POST" "/contact/monitor" "MonitorContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'monitor-contact)) (common-lisp:progn (common-lisp:defun pause-contact @@ -50405,7 +50629,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/contact/pause" "PauseContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'pause-contact)) (common-lisp:progn (common-lisp:defun put-user-status @@ -50428,16 +50652,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "PutUserStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-user-status)) (common-lisp:progn (common-lisp:defun release-phone-number @@ -50459,12 +50685,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/phone-number/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "ReleasePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'release-phone-number)) (common-lisp:progn (common-lisp:defun replicate-instance @@ -50489,12 +50716,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/replicate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "ReplicateInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'replicate-instance)) (common-lisp:progn (common-lisp:defun resume-contact @@ -50513,7 +50741,7 @@ common-lisp:nil "POST" "/contact/resume" "ResumeContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-contact)) (common-lisp:progn (common-lisp:defun resume-contact-recording @@ -50533,7 +50761,7 @@ common-lisp:nil "POST" "/contact/resume-recording" "ResumeContactRecording")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-contact-recording)) (common-lisp:progn (common-lisp:defun search-available-phone-numbers @@ -50556,7 +50784,7 @@ common-lisp:nil "POST" "/phone-number/search-available" "SearchAvailablePhoneNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-available-phone-numbers)) (common-lisp:progn (common-lisp:defun search-contacts @@ -50577,7 +50805,7 @@ common-lisp:nil "POST" "/search-contacts" "SearchContacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-contacts)) (common-lisp:progn (common-lisp:defun search-hours-of-operations @@ -50599,7 +50827,7 @@ common-lisp:nil "POST" "/search-hours-of-operations" "SearchHoursOfOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-hours-of-operations)) (common-lisp:progn (common-lisp:defun search-predefined-attributes @@ -50620,7 +50848,7 @@ common-lisp:nil "POST" "/search-predefined-attributes" "SearchPredefinedAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-predefined-attributes)) (common-lisp:progn (common-lisp:defun search-prompts @@ -50641,7 +50869,7 @@ common-lisp:nil "POST" "/search-prompts" "SearchPrompts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-prompts)) (common-lisp:progn (common-lisp:defun search-queues @@ -50661,7 +50889,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/search-queues" "SearchQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-queues)) (common-lisp:progn (common-lisp:defun search-quick-connects @@ -50682,7 +50910,7 @@ common-lisp:nil "POST" "/search-quick-connects" "SearchQuickConnects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-quick-connects)) (common-lisp:progn (common-lisp:defun search-resource-tags @@ -50703,7 +50931,7 @@ common-lisp:nil "POST" "/search-resource-tags" "SearchResourceTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-resource-tags)) (common-lisp:progn (common-lisp:defun search-routing-profiles @@ -50724,7 +50952,7 @@ common-lisp:nil "POST" "/search-routing-profiles" "SearchRoutingProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-routing-profiles)) (common-lisp:progn (common-lisp:defun search-security-profiles @@ -50745,7 +50973,7 @@ common-lisp:nil "POST" "/search-security-profiles" "SearchSecurityProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-security-profiles)) (common-lisp:progn (common-lisp:defun search-users @@ -50765,7 +50993,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/search-users" "SearchUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-users)) (common-lisp:progn (common-lisp:defun search-vocabularies @@ -50790,12 +51018,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/vocabulary-summary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "SearchVocabularies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-vocabularies)) (common-lisp:progn (common-lisp:defun send-chat-integration-event @@ -50817,7 +51046,7 @@ common-lisp:nil "POST" "/chat-integration-event" "SendChatIntegrationEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-chat-integration-event)) (common-lisp:progn (common-lisp:defun start-chat-contact @@ -50841,7 +51070,7 @@ common-lisp:nil aws-sdk/generator/operation::input "PUT" "/contact/chat" "StartChatContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-chat-contact)) (common-lisp:progn (common-lisp:defun start-contact-evaluation @@ -50866,12 +51095,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-evaluations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "StartContactEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-contact-evaluation)) (common-lisp:progn (common-lisp:defun start-contact-recording @@ -50892,7 +51122,7 @@ common-lisp:nil "POST" "/contact/start-recording" "StartContactRecording")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-contact-recording)) (common-lisp:progn (common-lisp:defun start-contact-streaming @@ -50913,7 +51143,7 @@ common-lisp:nil "POST" "/contact/start-streaming" "StartContactStreaming")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-contact-streaming)) (common-lisp:progn (common-lisp:defun start-outbound-voice-contact @@ -50940,7 +51170,7 @@ common-lisp:nil "PUT" "/contact/outbound-voice" "StartOutboundVoiceContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-outbound-voice-contact)) (common-lisp:progn (common-lisp:defun start-task-contact @@ -50963,7 +51193,7 @@ common-lisp:nil aws-sdk/generator/operation::input "PUT" "/contact/task" "StartTaskContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-task-contact)) (common-lisp:progn (common-lisp:defun start-web-rtccontact @@ -50985,7 +51215,7 @@ common-lisp:nil aws-sdk/generator/operation::input "PUT" "/contact/webrtc" "StartWebRTCContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-web-rtccontact)) (common-lisp:progn (common-lisp:defun stop-contact @@ -51003,7 +51233,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/contact/stop" "StopContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-contact)) (common-lisp:progn (common-lisp:defun stop-contact-recording @@ -51023,7 +51253,7 @@ common-lisp:nil "POST" "/contact/stop-recording" "StopContactRecording")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-contact-recording)) (common-lisp:progn (common-lisp:defun stop-contact-streaming @@ -51042,7 +51272,7 @@ common-lisp:nil "POST" "/contact/stop-streaming" "StopContactStreaming")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-contact-streaming)) (common-lisp:progn (common-lisp:defun submit-contact-evaluation @@ -51066,16 +51296,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-evaluations/~A/~A/submit" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-id)))) + 'evaluation-id) + common-lisp:t))) "SubmitContactEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'submit-contact-evaluation)) (common-lisp:progn (common-lisp:defun suspend-contact-recording @@ -51096,7 +51328,7 @@ common-lisp:nil "POST" "/contact/suspend-recording" "SuspendContactRecording")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'suspend-contact-recording)) (common-lisp:progn (common-lisp:defun tag-contact @@ -51113,7 +51345,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/contact/tags" "TagContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-contact)) (common-lisp:progn (common-lisp:defun tag-resource @@ -51135,12 +51367,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun transfer-contact @@ -51161,7 +51394,7 @@ common-lisp:nil "POST" "/contact/transfer" "TransferContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'transfer-contact)) (common-lisp:progn (common-lisp:defun untag-contact @@ -51184,16 +51417,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact/tags/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "UntagContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-contact)) (common-lisp:progn (common-lisp:defun untag-resource @@ -51215,12 +51450,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-agent-status @@ -51245,16 +51481,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/agent-status/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-status-id)))) + 'agent-status-id) + common-lisp:t))) "UpdateAgentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-agent-status)) (common-lisp:progn (common-lisp:defun update-contact @@ -51278,16 +51516,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contacts/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "UpdateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact)) (common-lisp:progn (common-lisp:defun update-contact-attributes @@ -51308,7 +51548,7 @@ common-lisp:nil "POST" "/contact/attributes" "UpdateContactAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-attributes)) (common-lisp:progn (common-lisp:defun update-contact-evaluation @@ -51332,16 +51572,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-evaluations/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-id)))) + 'evaluation-id) + common-lisp:t))) "UpdateContactEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-evaluation)) (common-lisp:progn (common-lisp:defun update-contact-flow-content @@ -51365,16 +51607,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flows/~A/~A/content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-id)))) + 'contact-flow-id) + common-lisp:t))) "UpdateContactFlowContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-flow-content)) (common-lisp:progn (common-lisp:defun update-contact-flow-metadata @@ -51400,16 +51644,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flows/~A/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-id)))) + 'contact-flow-id) + common-lisp:t))) "UpdateContactFlowMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-flow-metadata)) (common-lisp:progn (common-lisp:defun update-contact-flow-module-content @@ -51434,16 +51680,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flow-modules/~A/~A/content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-module-id)))) + 'contact-flow-module-id) + common-lisp:t))) "UpdateContactFlowModuleContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-flow-module-content)) (common-lisp:progn (common-lisp:defun update-contact-flow-module-metadata @@ -51469,16 +51717,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flow-modules/~A/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-module-id)))) + 'contact-flow-module-id) + common-lisp:t))) "UpdateContactFlowModuleMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-flow-module-metadata)) (common-lisp:progn (common-lisp:defun update-contact-flow-name @@ -51502,16 +51752,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact-flows/~A/~A/name" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-flow-id)))) + 'contact-flow-id) + common-lisp:t))) "UpdateContactFlowName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-flow-name)) (common-lisp:progn (common-lisp:defun update-contact-routing-data @@ -51537,16 +51789,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contacts/~A/~A/routing-data" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "UpdateContactRoutingData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-routing-data)) (common-lisp:progn (common-lisp:defun update-contact-schedule @@ -51565,7 +51819,7 @@ common-lisp:nil "POST" "/contact/schedule" "UpdateContactSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-schedule)) (common-lisp:progn (common-lisp:defun update-evaluation-form @@ -51592,16 +51846,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/evaluation-forms/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'evaluation-form-id)))) + 'evaluation-form-id) + common-lisp:t))) "UpdateEvaluationForm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-evaluation-form)) (common-lisp:progn (common-lisp:defun update-hours-of-operation @@ -51627,16 +51883,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/hours-of-operations/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hours-of-operation-id)))) + 'hours-of-operation-id) + common-lisp:t))) "UpdateHoursOfOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-hours-of-operation)) (common-lisp:progn (common-lisp:defun update-instance-attribute @@ -51660,16 +51918,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/attribute/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute-type)))) + 'attribute-type) + common-lisp:t))) "UpdateInstanceAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-instance-attribute)) (common-lisp:progn (common-lisp:defun update-instance-storage-config @@ -51695,16 +51955,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/storage-config/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "UpdateInstanceStorageConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-instance-storage-config)) (common-lisp:progn (common-lisp:defun update-participant-role-config @@ -51729,16 +51991,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/contact/participant-role-config/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "UpdateParticipantRoleConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-participant-role-config)) (common-lisp:progn (common-lisp:defun update-phone-number @@ -51763,12 +52027,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/phone-number/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "UpdatePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-phone-number)) (common-lisp:progn (common-lisp:defun update-phone-number-metadata @@ -51794,12 +52059,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/phone-number/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'phone-number-id)))) + 'phone-number-id) + common-lisp:t))) "UpdatePhoneNumberMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-phone-number-metadata)) (common-lisp:progn (common-lisp:defun update-predefined-attribute @@ -51822,16 +52088,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/predefined-attributes/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdatePredefinedAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-predefined-attribute)) (common-lisp:progn (common-lisp:defun update-prompt @@ -51855,16 +52123,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/prompts/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'prompt-id)))) + 'prompt-id) + common-lisp:t))) "UpdatePrompt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-prompt)) (common-lisp:progn (common-lisp:defun update-queue-hours-of-operation @@ -51889,16 +52159,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A/hours-of-operation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "UpdateQueueHoursOfOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-queue-hours-of-operation)) (common-lisp:progn (common-lisp:defun update-queue-max-contacts @@ -51922,16 +52194,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A/max-contacts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "UpdateQueueMaxContacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-queue-max-contacts)) (common-lisp:progn (common-lisp:defun update-queue-name @@ -51954,16 +52228,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A/name" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "UpdateQueueName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-queue-name)) (common-lisp:progn (common-lisp:defun update-queue-outbound-caller-config @@ -51988,16 +52264,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A/outbound-caller-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "UpdateQueueOutboundCallerConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-queue-outbound-caller-config)) (common-lisp:progn (common-lisp:defun update-queue-status @@ -52019,16 +52297,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/queues/~A/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'queue-id)))) + 'queue-id) + common-lisp:t))) "UpdateQueueStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-queue-status)) (common-lisp:progn (common-lisp:defun update-quick-connect-config @@ -52053,16 +52333,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/quick-connects/~A/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-connect-id)))) + 'quick-connect-id) + common-lisp:t))) "UpdateQuickConnectConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-quick-connect-config)) (common-lisp:progn (common-lisp:defun update-quick-connect-name @@ -52087,16 +52369,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/quick-connects/~A/~A/name" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-connect-id)))) + 'quick-connect-id) + common-lisp:t))) "UpdateQuickConnectName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-quick-connect-name)) (common-lisp:progn (common-lisp:defun update-routing-profile-agent-availability-timer @@ -52122,16 +52406,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A/agent-availability-timer" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "UpdateRoutingProfileAgentAvailabilityTimer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-routing-profile-agent-availability-timer)) (common-lisp:progn (common-lisp:defun update-routing-profile-concurrency @@ -52156,16 +52442,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A/concurrency" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "UpdateRoutingProfileConcurrency")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-routing-profile-concurrency)) (common-lisp:progn (common-lisp:defun update-routing-profile-default-outbound-queue @@ -52191,16 +52479,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A/default-outbound-queue" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "UpdateRoutingProfileDefaultOutboundQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-routing-profile-default-outbound-queue)) (common-lisp:progn (common-lisp:defun update-routing-profile-name @@ -52225,16 +52515,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A/name" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "UpdateRoutingProfileName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-routing-profile-name)) (common-lisp:progn (common-lisp:defun update-routing-profile-queues @@ -52259,16 +52551,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/routing-profiles/~A/~A/queues" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-profile-id)))) + 'routing-profile-id) + common-lisp:t))) "UpdateRoutingProfileQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-routing-profile-queues)) (common-lisp:progn (common-lisp:defun update-rule @@ -52293,16 +52587,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/rules/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-id)))) + 'rule-id) + common-lisp:t))) "UpdateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule)) (common-lisp:progn (common-lisp:defun update-security-profile @@ -52330,16 +52626,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/security-profiles/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-id)))) + 'security-profile-id) + common-lisp:t))) "UpdateSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-security-profile)) (common-lisp:progn (common-lisp:defun update-task-template @@ -52365,16 +52663,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/instance/~A/task/template/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-template-id)))) + 'task-template-id) + common-lisp:t))) "UpdateTaskTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-task-template)) (common-lisp:progn (common-lisp:defun update-traffic-distribution @@ -52399,12 +52699,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/traffic-distribution/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateTrafficDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-traffic-distribution)) (common-lisp:progn (common-lisp:defun update-user-hierarchy @@ -52427,16 +52728,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/hierarchy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUserHierarchy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-hierarchy)) (common-lisp:progn (common-lisp:defun update-user-hierarchy-group-name @@ -52460,16 +52763,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/user-hierarchy-groups/~A/~A/name" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hierarchy-group-id)))) + 'hierarchy-group-id) + common-lisp:t))) "UpdateUserHierarchyGroupName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-hierarchy-group-name)) (common-lisp:progn (common-lisp:defun update-user-hierarchy-structure @@ -52493,12 +52798,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/user-hierarchy-structure/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "UpdateUserHierarchyStructure")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-hierarchy-structure)) (common-lisp:progn (common-lisp:defun update-user-identity-info @@ -52522,16 +52828,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/identity-info" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUserIdentityInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-identity-info)) (common-lisp:progn (common-lisp:defun update-user-phone-config @@ -52554,16 +52862,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/phone-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUserPhoneConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-phone-config)) (common-lisp:progn (common-lisp:defun update-user-proficiencies @@ -52587,16 +52897,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/proficiencies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUserProficiencies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-proficiencies)) (common-lisp:progn (common-lisp:defun update-user-routing-profile @@ -52620,16 +52932,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/routing-profile" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUserRoutingProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-routing-profile)) (common-lisp:progn (common-lisp:defun update-user-security-profiles @@ -52653,16 +52967,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/users/~A/~A/security-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUserSecurityProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-security-profiles)) (common-lisp:progn (common-lisp:defun update-view-content @@ -52685,16 +53001,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'view-id)))) + 'view-id) + common-lisp:t))) "UpdateViewContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-view-content)) (common-lisp:progn (common-lisp:defun update-view-metadata @@ -52717,14 +53035,16 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/views/~A/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'view-id)))) + 'view-id) + common-lisp:t))) "UpdateViewMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-view-metadata)) diff --git a/services/connectcampaigns/api.lisp b/services/connectcampaigns/api.lisp index c4999dd6..ee405121 100644 --- a/services/connectcampaigns/api.lisp +++ b/services/connectcampaigns/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/connectcampaigns/api - (:use) - (:nicknames #:aws/connectcampaigns) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/connectcampaigns/api (:use) + (:nicknames #:aws/connectcampaigns) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/connectcampaigns/api) (common-lisp:progn (common-lisp:define-condition connectcampaigns-error @@ -20,7 +19,7 @@ (common-lisp:export 'connectcampaigns-error)) (common-lisp:progn (common-lisp:defclass connectcampaigns-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "connectcampaigns" :api-version "2021-01-30" :host-prefix @@ -2728,7 +2727,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectcampaigns-request aws-sdk/generator/operation::input "PUT" "/campaigns" "CreateCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-campaign)) (common-lisp:progn (common-lisp:defun delete-campaign @@ -2745,11 +2744,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-campaign)) (common-lisp:progn (common-lisp:defun delete-connect-instance-config @@ -2767,12 +2767,13 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/connect-instance/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connect-instance-id)))) + 'connect-instance-id) + common-lisp:t))) "DeleteConnectInstanceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connect-instance-config)) (common-lisp:progn (common-lisp:defun delete-instance-onboarding-job @@ -2790,12 +2791,13 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/connect-instance/~A/onboarding" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connect-instance-id)))) + 'connect-instance-id) + common-lisp:t))) "DeleteInstanceOnboardingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance-onboarding-job)) (common-lisp:progn (common-lisp:defun describe-campaign @@ -2812,11 +2814,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DescribeCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-campaign)) (common-lisp:progn (common-lisp:defun get-campaign-state @@ -2833,11 +2836,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/state" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetCampaignState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaign-state)) (common-lisp:progn (common-lisp:defun get-campaign-state-batch @@ -2853,7 +2857,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectcampaigns-request aws-sdk/generator/operation::input "POST" "/campaigns-state" "GetCampaignStateBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaign-state-batch)) (common-lisp:progn (common-lisp:defun get-connect-instance-config @@ -2871,12 +2875,13 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/connect-instance/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connect-instance-id)))) + 'connect-instance-id) + common-lisp:t))) "GetConnectInstanceConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connect-instance-config)) (common-lisp:progn (common-lisp:defun get-instance-onboarding-job-status @@ -2894,12 +2899,13 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/connect-instance/~A/onboarding" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connect-instance-id)))) + 'connect-instance-id) + common-lisp:t))) "GetInstanceOnboardingJobStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-onboarding-job-status)) (common-lisp:progn (common-lisp:defun list-campaigns @@ -2915,7 +2921,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectcampaigns-request aws-sdk/generator/operation::input "POST" "/campaigns-summary" "ListCampaigns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-campaigns)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2932,11 +2938,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun pause-campaign @@ -2953,11 +2960,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/pause" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "PauseCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'pause-campaign)) (common-lisp:progn (common-lisp:defun put-dial-request-batch @@ -2974,11 +2982,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/dial-requests" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "PutDialRequestBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-dial-request-batch)) (common-lisp:progn (common-lisp:defun resume-campaign @@ -2995,11 +3004,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/resume" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "ResumeCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-campaign)) (common-lisp:progn (common-lisp:defun start-campaign @@ -3016,11 +3026,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "StartCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-campaign)) (common-lisp:progn (common-lisp:defun start-instance-onboarding-job @@ -3039,12 +3050,13 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/connect-instance/~A/onboarding" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connect-instance-id)))) + 'connect-instance-id) + common-lisp:t))) "StartInstanceOnboardingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-instance-onboarding-job)) (common-lisp:progn (common-lisp:defun stop-campaign @@ -3061,11 +3073,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "StopCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-campaign)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3082,11 +3095,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3103,11 +3117,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-campaign-dialer-config @@ -3125,11 +3140,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/dialer-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateCampaignDialerConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-campaign-dialer-config)) (common-lisp:progn (common-lisp:defun update-campaign-name @@ -3146,11 +3162,12 @@ 'connectcampaigns-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/name" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateCampaignName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-campaign-name)) (common-lisp:progn (common-lisp:defun update-campaign-outbound-call-config @@ -3173,9 +3190,10 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/campaigns/~A/outbound-call-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateCampaignOutboundCallConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-campaign-outbound-call-config)) diff --git a/services/connectcases/api.lisp b/services/connectcases/api.lisp index 3a538159..d8d4b6a6 100644 --- a/services/connectcases/api.lisp +++ b/services/connectcases/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/connectcases/api - (:use) - (:nicknames #:aws/connectcases) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/connectcases/api (:use) + (:nicknames #:aws/connectcases) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/connectcases/api) (common-lisp:progn (common-lisp:define-condition connectcases-error @@ -20,7 +19,7 @@ (common-lisp:export 'connectcases-error)) (common-lisp:progn (common-lisp:defclass connectcases-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "connectcases" :api-version "2022-10-03" :host-prefix "cases" :signing-name "cases" @@ -5872,12 +5871,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/fields-batch" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "BatchGetField")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-field)) (common-lisp:progn (common-lisp:defun batch-put-field-options @@ -5899,16 +5899,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/fields/~A/options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'field-id)))) + 'field-id) + common-lisp:t))) "BatchPutFieldOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-field-options)) (common-lisp:progn (common-lisp:defun create-case @@ -5933,12 +5935,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/cases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "CreateCase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-case)) (common-lisp:progn (common-lisp:defun create-domain @@ -5955,7 +5958,7 @@ aws-sdk/generator/operation::input "POST" "/domains" "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun create-field @@ -5978,12 +5981,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/fields" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "CreateField")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-field)) (common-lisp:progn (common-lisp:defun create-layout @@ -6005,12 +6009,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/layouts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "CreateLayout")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-layout)) (common-lisp:progn (common-lisp:defun create-related-item @@ -6034,16 +6039,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/cases/~A/related-items/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'case-id)))) + 'case-id) + common-lisp:t))) "CreateRelatedItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-related-item)) (common-lisp:progn (common-lisp:defun create-template @@ -6068,12 +6075,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/templates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "CreateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-template)) (common-lisp:progn (common-lisp:defun delete-domain @@ -6095,12 +6103,13 @@ (common-lisp:format common-lisp:nil "/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun get-case @@ -6123,16 +6132,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/cases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'case-id)))) + 'case-id) + common-lisp:t))) "GetCase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-case)) (common-lisp:progn (common-lisp:defun get-case-audit-events @@ -6155,16 +6166,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/cases/~A/audit-history" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'case-id)))) + 'case-id) + common-lisp:t))) "GetCaseAuditEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-case-audit-events)) (common-lisp:progn (common-lisp:defun get-case-event-configuration @@ -6187,12 +6200,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/case-event-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "GetCaseEventConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-case-event-configuration)) (common-lisp:progn (common-lisp:defun get-domain @@ -6214,12 +6228,13 @@ (common-lisp:format common-lisp:nil "/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "GetDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain)) (common-lisp:progn (common-lisp:defun get-layout @@ -6241,16 +6256,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/layouts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layout-id)))) + 'layout-id) + common-lisp:t))) "GetLayout")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-layout)) (common-lisp:progn (common-lisp:defun get-template @@ -6272,16 +6289,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "GetTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-template)) (common-lisp:progn (common-lisp:defun list-cases-for-contact @@ -6305,12 +6324,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/list-cases-for-contact" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "ListCasesForContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cases-for-contact)) (common-lisp:progn (common-lisp:defun list-domains @@ -6327,7 +6347,7 @@ aws-sdk/generator/operation::input "POST" "/domains-list" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-field-options @@ -6351,16 +6371,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/fields/~A/options-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'field-id)))) + 'field-id) + common-lisp:t))) "ListFieldOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-field-options)) (common-lisp:progn (common-lisp:defun list-fields @@ -6383,12 +6405,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/fields-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "ListFields")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fields)) (common-lisp:progn (common-lisp:defun list-layouts @@ -6411,12 +6434,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/layouts-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "ListLayouts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-layouts)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6438,12 +6462,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-templates @@ -6466,12 +6491,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/templates-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "ListTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-templates)) (common-lisp:progn (common-lisp:defun put-case-event-configuration @@ -6494,12 +6520,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/case-event-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "PutCaseEventConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-case-event-configuration)) (common-lisp:progn (common-lisp:defun search-cases @@ -6524,12 +6551,13 @@ (common-lisp:format common-lisp:nil "/domains/~A/cases-search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)))) + 'domain-id) + common-lisp:t))) "SearchCases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-cases)) (common-lisp:progn (common-lisp:defun search-related-items @@ -6553,16 +6581,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/cases/~A/related-items-search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'case-id)))) + 'case-id) + common-lisp:t))) "SearchRelatedItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-related-items)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6584,12 +6614,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6611,12 +6642,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-case @@ -6639,16 +6671,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/cases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'case-id)))) + 'case-id) + common-lisp:t))) "UpdateCase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-case)) (common-lisp:progn (common-lisp:defun update-field @@ -6671,16 +6705,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/fields/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'field-id)))) + 'field-id) + common-lisp:t))) "UpdateField")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-field)) (common-lisp:progn (common-lisp:defun update-layout @@ -6703,16 +6739,18 @@ (common-lisp:format common-lisp:nil "/domains/~A/layouts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layout-id)))) + 'layout-id) + common-lisp:t))) "UpdateLayout")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-layout)) (common-lisp:progn (common-lisp:defun update-template @@ -6738,14 +6776,16 @@ (common-lisp:format common-lisp:nil "/domains/~A/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-id)) - (quri.encode:url-encode + 'domain-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "UpdateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template)) diff --git a/services/connectparticipant/api.lisp b/services/connectparticipant/api.lisp index e6ee3bc1..73072416 100644 --- a/services/connectparticipant/api.lisp +++ b/services/connectparticipant/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/connectparticipant/api - (:use) - (:nicknames #:aws/connectparticipant) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/connectparticipant/api (:use) + (:nicknames #:aws/connectparticipant) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/connectparticipant/api) (common-lisp:progn (common-lisp:define-condition connectparticipant-error @@ -20,7 +19,7 @@ (common-lisp:export 'connectparticipant-error)) (common-lisp:progn (common-lisp:defclass connectparticipant-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "connectparticipant" :api-version "2018-09-07" :host-prefix @@ -181,7 +180,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'connection-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -342,7 +343,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'participant-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -454,7 +457,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'connection-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -535,7 +540,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'connection-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -613,7 +620,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'connection-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -746,7 +755,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'connection-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1217,7 +1228,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'connection-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input send-event-request)) (common-lisp:append @@ -1331,7 +1344,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'connection-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input send-message-request)) (common-lisp:append @@ -1478,7 +1493,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'connection-token)) - (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Bearer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1919,7 +1936,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectparticipant-request aws-sdk/generator/operation::input "POST" "/participant/complete-attachment-upload" "CompleteAttachmentUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'complete-attachment-upload)) (common-lisp:progn (common-lisp:defun create-participant-connection @@ -1938,7 +1955,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectparticipant-request aws-sdk/generator/operation::input "POST" "/participant/connection" "CreateParticipantConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-participant-connection)) (common-lisp:progn (common-lisp:defun describe-view @@ -1955,12 +1972,12 @@ 'connectparticipant-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/participant/views/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'view-token)))) + aws-sdk/generator/operation::input 'view-token) + common-lisp:t))) "DescribeView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-view)) (common-lisp:progn (common-lisp:defun disconnect-participant @@ -1976,7 +1993,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectparticipant-request aws-sdk/generator/operation::input "POST" "/participant/disconnect" "DisconnectParticipant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disconnect-participant)) (common-lisp:progn (common-lisp:defun get-attachment @@ -1992,7 +2009,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectparticipant-request aws-sdk/generator/operation::input "POST" "/participant/attachment" "GetAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-attachment)) (common-lisp:progn (common-lisp:defun get-transcript @@ -2011,7 +2028,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectparticipant-request aws-sdk/generator/operation::input "POST" "/participant/transcript" "GetTranscript")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transcript)) (common-lisp:progn (common-lisp:defun send-event @@ -2029,7 +2046,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectparticipant-request aws-sdk/generator/operation::input "POST" "/participant/event" "SendEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-event)) (common-lisp:progn (common-lisp:defun send-message @@ -2047,7 +2064,7 @@ (aws-sdk/generator/shape:make-request-with-input 'connectparticipant-request aws-sdk/generator/operation::input "POST" "/participant/message" "SendMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-message)) (common-lisp:progn (common-lisp:defun start-attachment-upload @@ -2066,5 +2083,5 @@ (aws-sdk/generator/shape:make-request-with-input 'connectparticipant-request aws-sdk/generator/operation::input "POST" "/participant/start-attachment-upload" "StartAttachmentUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-attachment-upload)) diff --git a/services/controltower/api.lisp b/services/controltower/api.lisp index 4a51abd2..d89809c6 100644 --- a/services/controltower/api.lisp +++ b/services/controltower/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/controltower/api - (:use) - (:nicknames #:aws/controltower) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/controltower/api (:use) + (:nicknames #:aws/controltower) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/controltower/api) (common-lisp:progn (common-lisp:define-condition controltower-error @@ -20,7 +19,7 @@ (common-lisp:export 'controltower-error)) (common-lisp:progn (common-lisp:defclass controltower-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "controltower" :api-version "2018-05-10" :host-prefix "controltower" :signing-name @@ -3281,7 +3280,7 @@ "POST" "/delete-landingzone" "DeleteLandingZone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-landing-zone)) (common-lisp:progn (common-lisp:defun disable-baseline @@ -3299,7 +3298,7 @@ "POST" "/disable-baseline" "DisableBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-baseline)) (common-lisp:progn (common-lisp:defun disable-control @@ -3318,7 +3317,7 @@ "POST" "/disable-control" "DisableControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-control)) (common-lisp:progn (common-lisp:defun enable-baseline @@ -3339,7 +3338,7 @@ "POST" "/enable-baseline" "EnableBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-baseline)) (common-lisp:progn (common-lisp:defun enable-control @@ -3359,7 +3358,7 @@ "POST" "/enable-control" "EnableControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-control)) (common-lisp:progn (common-lisp:defun get-baseline @@ -3376,7 +3375,7 @@ aws-sdk/generator/operation::input "POST" "/get-baseline" "GetBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-baseline)) (common-lisp:progn (common-lisp:defun get-baseline-operation @@ -3394,7 +3393,7 @@ "POST" "/get-baseline-operation" "GetBaselineOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-baseline-operation)) (common-lisp:progn (common-lisp:defun get-control-operation @@ -3412,7 +3411,7 @@ "POST" "/get-control-operation" "GetControlOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-control-operation)) (common-lisp:progn (common-lisp:defun get-enabled-baseline @@ -3430,7 +3429,7 @@ "POST" "/get-enabled-baseline" "GetEnabledBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-enabled-baseline)) (common-lisp:progn (common-lisp:defun get-enabled-control @@ -3448,7 +3447,7 @@ "POST" "/get-enabled-control" "GetEnabledControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-enabled-control)) (common-lisp:progn (common-lisp:defun get-landing-zone-operation @@ -3466,7 +3465,7 @@ "POST" "/get-landingzone-operation" "GetLandingZoneOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-landing-zone-operation)) (common-lisp:progn (common-lisp:defun list-baselines @@ -3484,7 +3483,7 @@ "POST" "/list-baselines" "ListBaselines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-baselines)) (common-lisp:progn (common-lisp:defun list-enabled-baselines @@ -3502,7 +3501,7 @@ "POST" "/list-enabled-baselines" "ListEnabledBaselines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-enabled-baselines)) (common-lisp:progn (common-lisp:defun list-enabled-controls @@ -3521,7 +3520,7 @@ "POST" "/list-enabled-controls" "ListEnabledControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-enabled-controls)) (common-lisp:progn (common-lisp:defun list-landing-zones @@ -3539,7 +3538,7 @@ "POST" "/list-landingzones" "ListLandingZones")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-landing-zones)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3561,12 +3560,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun reset-enabled-baseline @@ -3584,7 +3584,7 @@ "POST" "/reset-enabled-baseline" "ResetEnabledBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-enabled-baseline)) (common-lisp:progn (common-lisp:defun reset-landing-zone @@ -3602,7 +3602,7 @@ "POST" "/reset-landingzone" "ResetLandingZone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-landing-zone)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3624,12 +3624,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3651,12 +3652,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-enabled-baseline @@ -3676,5 +3678,5 @@ "POST" "/update-enabled-baseline" "UpdateEnabledBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-enabled-baseline)) diff --git a/services/cost-optimization-hub/api.lisp b/services/cost-optimization-hub/api.lisp index c95ee1ab..c0c7c38c 100644 --- a/services/cost-optimization-hub/api.lisp +++ b/services/cost-optimization-hub/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cost-optimization-hub/api - (:use) - (:nicknames #:aws/cost-optimization-hub) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cost-optimization-hub/api + (:use) (:nicknames #:aws/cost-optimization-hub) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cost-optimization-hub/api) (common-lisp:progn (common-lisp:define-condition cost-optimization-hub-error @@ -5345,7 +5344,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cost-optimization-hub-request aws-sdk/generator/operation::input "POST" "/" "GetRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendation)) (common-lisp:progn (common-lisp:defun list-enrollment-statuses @@ -5364,7 +5363,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cost-optimization-hub-request aws-sdk/generator/operation::input "POST" "/" "ListEnrollmentStatuses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-enrollment-statuses)) (common-lisp:progn (common-lisp:defun list-recommendation-summaries @@ -5382,7 +5381,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cost-optimization-hub-request aws-sdk/generator/operation::input "POST" "/" "ListRecommendationSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendation-summaries)) (common-lisp:progn (common-lisp:defun list-recommendations @@ -5401,7 +5400,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cost-optimization-hub-request aws-sdk/generator/operation::input "POST" "/" "ListRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendations)) (common-lisp:progn (common-lisp:defun update-enrollment-status @@ -5417,7 +5416,7 @@ (aws-sdk/generator/shape:make-request-with-input 'cost-optimization-hub-request aws-sdk/generator/operation::input "POST" "/" "UpdateEnrollmentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-enrollment-status)) (common-lisp:progn (common-lisp:defun update-preferences @@ -5436,5 +5435,5 @@ (aws-sdk/generator/shape:make-request-with-input 'cost-optimization-hub-request aws-sdk/generator/operation::input "POST" "/" "UpdatePreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-preferences)) diff --git a/services/cur/api.lisp b/services/cur/api.lisp index eca56929..ae435d4c 100644 --- a/services/cur/api.lisp +++ b/services/cur/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/cur/api - (:use) - (:nicknames #:aws/cur) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/cur/api (:use) + (:nicknames #:aws/cur) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/cur/api) (common-lisp:progn (common-lisp:define-condition cur-error @@ -1004,7 +1003,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReportDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-report-definition)) (common-lisp:progn (common-lisp:defun describe-report-definitions @@ -1022,7 +1021,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReportDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-report-definitions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1039,7 +1038,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-report-definition @@ -1056,7 +1055,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyReportDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-report-definition)) (common-lisp:progn (common-lisp:defun put-report-definition @@ -1073,7 +1072,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutReportDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-report-definition)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1090,7 +1089,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -1107,5 +1106,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/customer-profiles/api.lisp b/services/customer-profiles/api.lisp index c4ba3fb4..77c43377 100644 --- a/services/customer-profiles/api.lisp +++ b/services/customer-profiles/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/customer-profiles/api - (:use) - (:nicknames #:aws/customer-profiles) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/customer-profiles/api (:use) + (:nicknames #:aws/customer-profiles) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/customer-profiles/api) (common-lisp:progn (common-lisp:define-condition customer-profiles-error @@ -20,7 +19,7 @@ (common-lisp:export 'customer-profiles-error)) (common-lisp:progn (common-lisp:defclass customer-profiles-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "customer-profiles" :api-version "2020-08-15" :host-prefix "profile" @@ -13308,12 +13307,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/keys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "AddProfileKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-profile-key)) (common-lisp:progn (common-lisp:defun create-calculated-attribute-definition @@ -13336,16 +13336,18 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/calculated-attributes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculated-attribute-name)))) + 'calculated-attribute-name) + common-lisp:t))) "CreateCalculatedAttributeDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-calculated-attribute-definition)) (common-lisp:progn (common-lisp:defun create-domain @@ -13367,12 +13369,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun create-event-stream @@ -13390,16 +13393,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/event-streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-stream-name)))) + 'event-stream-name) + common-lisp:t))) "CreateEventStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-stream)) (common-lisp:progn (common-lisp:defun create-integration-workflow @@ -13421,12 +13426,13 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/workflows/integrations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "CreateIntegrationWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-integration-workflow)) (common-lisp:progn (common-lisp:defun create-profile @@ -13456,12 +13462,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "CreateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profile)) (common-lisp:progn (common-lisp:defun delete-calculated-attribute-definition @@ -13481,16 +13488,18 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/calculated-attributes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculated-attribute-name)))) + 'calculated-attribute-name) + common-lisp:t))) "DeleteCalculatedAttributeDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-calculated-attribute-definition)) (common-lisp:progn (common-lisp:defun delete-domain @@ -13507,12 +13516,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-event-stream @@ -13529,16 +13539,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/event-streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-stream-name)))) + 'event-stream-name) + common-lisp:t))) "DeleteEventStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-stream)) (common-lisp:progn (common-lisp:defun delete-integration @@ -13555,12 +13567,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/integrations/delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-integration)) (common-lisp:progn (common-lisp:defun delete-profile @@ -13577,12 +13590,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile)) (common-lisp:progn (common-lisp:defun delete-profile-key @@ -13601,12 +13615,13 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/keys/delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteProfileKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile-key)) (common-lisp:progn (common-lisp:defun delete-profile-object @@ -13627,12 +13642,13 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/objects/delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteProfileObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile-object)) (common-lisp:progn (common-lisp:defun delete-profile-object-type @@ -13650,16 +13666,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/object-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'object-type-name)))) + 'object-type-name) + common-lisp:t))) "DeleteProfileObjectType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile-object-type)) (common-lisp:progn (common-lisp:defun delete-workflow @@ -13676,16 +13694,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/workflows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-id)))) + 'workflow-id) + common-lisp:t))) "DeleteWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workflow)) (common-lisp:progn (common-lisp:defun detect-profile-object-type @@ -13703,12 +13723,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/detect/object-types" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DetectProfileObjectType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-profile-object-type)) (common-lisp:progn (common-lisp:defun get-auto-merging-preview @@ -13730,12 +13751,13 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/identity-resolution-jobs/auto-merging-preview" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetAutoMergingPreview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-auto-merging-preview)) (common-lisp:progn (common-lisp:defun get-calculated-attribute-definition @@ -13755,16 +13777,18 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/calculated-attributes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculated-attribute-name)))) + 'calculated-attribute-name) + common-lisp:t))) "GetCalculatedAttributeDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-calculated-attribute-definition)) (common-lisp:progn (common-lisp:defun get-calculated-attribute-for-profile @@ -13785,20 +13809,22 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profile/~A/calculated-attributes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'profile-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'profile-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculated-attribute-name)))) + 'calculated-attribute-name) + common-lisp:t))) "GetCalculatedAttributeForProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-calculated-attribute-for-profile)) (common-lisp:progn (common-lisp:defun get-domain @@ -13815,12 +13841,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain)) (common-lisp:progn (common-lisp:defun get-event-stream @@ -13837,16 +13864,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/event-streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-stream-name)))) + 'event-stream-name) + common-lisp:t))) "GetEventStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-stream)) (common-lisp:progn (common-lisp:defun get-identity-resolution-job @@ -13865,15 +13894,17 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/identity-resolution-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'job-id)))) + aws-sdk/generator/operation::input 'job-id) + common-lisp:t))) "GetIdentityResolutionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-identity-resolution-job)) (common-lisp:progn (common-lisp:defun get-integration @@ -13890,12 +13921,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/integrations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-integration)) (common-lisp:progn (common-lisp:defun get-matches @@ -13913,12 +13945,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/matches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetMatches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-matches)) (common-lisp:progn (common-lisp:defun get-profile-object-type @@ -13935,16 +13968,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/object-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'object-type-name)))) + 'object-type-name) + common-lisp:t))) "GetProfileObjectType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-profile-object-type)) (common-lisp:progn (common-lisp:defun get-profile-object-type-template @@ -13962,12 +13997,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "GetProfileObjectTypeTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-profile-object-type-template)) (common-lisp:progn (common-lisp:defun get-similar-profiles @@ -13987,12 +14023,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/matches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetSimilarProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-similar-profiles)) (common-lisp:progn (common-lisp:defun get-workflow @@ -14009,16 +14046,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/workflows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-id)))) + 'workflow-id) + common-lisp:t))) "GetWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow)) (common-lisp:progn (common-lisp:defun get-workflow-steps @@ -14037,16 +14076,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/workflows/~A/steps" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-id)))) + 'workflow-id) + common-lisp:t))) "GetWorkflowSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-steps)) (common-lisp:progn (common-lisp:defun list-account-integrations @@ -14065,7 +14106,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'customer-profiles-request aws-sdk/generator/operation::input "POST" "/integrations" "ListAccountIntegrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-integrations)) (common-lisp:progn (common-lisp:defun list-calculated-attribute-definitions @@ -14085,12 +14126,13 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/calculated-attributes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListCalculatedAttributeDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-calculated-attribute-definitions)) (common-lisp:progn (common-lisp:defun list-calculated-attributes-for-profile @@ -14111,16 +14153,17 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profile/~A/calculated-attributes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'profile-id)))) + aws-sdk/generator/operation::input 'profile-id) + common-lisp:t))) "ListCalculatedAttributesForProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-calculated-attributes-for-profile)) (common-lisp:progn (common-lisp:defun list-domains @@ -14136,7 +14179,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'customer-profiles-request aws-sdk/generator/operation::input "GET" "/domains" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-event-streams @@ -14154,12 +14197,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/event-streams" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListEventStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-streams)) (common-lisp:progn (common-lisp:defun list-identity-resolution-jobs @@ -14179,12 +14223,13 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/identity-resolution-jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListIdentityResolutionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-resolution-jobs)) (common-lisp:progn (common-lisp:defun list-integrations @@ -14203,12 +14248,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/integrations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListIntegrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-integrations)) (common-lisp:progn (common-lisp:defun list-profile-object-type-templates @@ -14225,7 +14271,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'customer-profiles-request aws-sdk/generator/operation::input "GET" "/templates" "ListProfileObjectTypeTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profile-object-type-templates)) (common-lisp:progn (common-lisp:defun list-profile-object-types @@ -14244,12 +14290,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/object-types" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListProfileObjectTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profile-object-types)) (common-lisp:progn (common-lisp:defun list-profile-objects @@ -14269,12 +14316,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/objects" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListProfileObjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profile-objects)) (common-lisp:progn (common-lisp:defun list-rule-based-matches @@ -14293,12 +14341,13 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/ruleBasedMatches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListRuleBasedMatches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rule-based-matches)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14315,12 +14364,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-workflows @@ -14340,12 +14390,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/workflows" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflows)) (common-lisp:progn (common-lisp:defun merge-profiles @@ -14366,12 +14417,13 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/objects/merge" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "MergeProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-profiles)) (common-lisp:progn (common-lisp:defun put-integration @@ -14391,12 +14443,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/integrations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "PutIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-integration)) (common-lisp:progn (common-lisp:defun put-profile-object @@ -14414,12 +14467,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/objects" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "PutProfileObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-profile-object)) (common-lisp:progn (common-lisp:defun put-profile-object-type @@ -14442,16 +14496,18 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/object-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'object-type-name)))) + 'object-type-name) + common-lisp:t))) "PutProfileObjectType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-profile-object-type)) (common-lisp:progn (common-lisp:defun search-profiles @@ -14471,12 +14527,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles/search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "SearchProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-profiles)) (common-lisp:progn (common-lisp:defun tag-resource @@ -14493,12 +14550,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14515,12 +14573,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-calculated-attribute-definition @@ -14542,16 +14601,18 @@ common-lisp:nil (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/calculated-attributes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculated-attribute-name)))) + 'calculated-attribute-name) + common-lisp:t))) "UpdateCalculatedAttributeDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-calculated-attribute-definition)) (common-lisp:progn (common-lisp:defun update-domain @@ -14573,12 +14634,13 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain)) (common-lisp:progn (common-lisp:defun update-profile @@ -14608,10 +14670,11 @@ common-lisp:nil 'customer-profiles-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/domains/~A/profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-profile)) diff --git a/services/databrew/api.lisp b/services/databrew/api.lisp index 952e2da7..7442cb0e 100644 --- a/services/databrew/api.lisp +++ b/services/databrew/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/databrew/api - (:use) - (:nicknames #:aws/databrew) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/databrew/api (:use) + (:nicknames #:aws/databrew) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/databrew/api) (common-lisp:progn (common-lisp:define-condition databrew-error @@ -20,7 +19,7 @@ (common-lisp:export 'databrew-error)) (common-lisp:progn (common-lisp:defclass databrew-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "databrew" :api-version "2017-07-25" :host-prefix "databrew" :signing-name @@ -9865,12 +9864,13 @@ (common-lisp:format common-lisp:nil "/recipes/~A/batchDeleteRecipeVersion" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "BatchDeleteRecipeVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-recipe-version)) (common-lisp:progn (common-lisp:defun create-dataset @@ -9889,7 +9889,7 @@ aws-sdk/generator/operation::input "POST" "/datasets" "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-profile-job @@ -9913,7 +9913,7 @@ aws-sdk/generator/operation::input "POST" "/profileJobs" "CreateProfileJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profile-job)) (common-lisp:progn (common-lisp:defun create-project @@ -9932,7 +9932,7 @@ aws-sdk/generator/operation::input "POST" "/projects" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun create-recipe @@ -9949,7 +9949,7 @@ aws-sdk/generator/operation::input "POST" "/recipes" "CreateRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-recipe)) (common-lisp:progn (common-lisp:defun create-recipe-job @@ -9972,7 +9972,7 @@ aws-sdk/generator/operation::input "POST" "/recipeJobs" "CreateRecipeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-recipe-job)) (common-lisp:progn (common-lisp:defun create-ruleset @@ -9990,7 +9990,7 @@ aws-sdk/generator/operation::input "POST" "/rulesets" "CreateRuleset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ruleset)) (common-lisp:progn (common-lisp:defun create-schedule @@ -10008,7 +10008,7 @@ aws-sdk/generator/operation::input "POST" "/schedules" "CreateSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-schedule)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -10030,12 +10030,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun delete-job @@ -10057,12 +10058,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job)) (common-lisp:progn (common-lisp:defun delete-project @@ -10084,12 +10086,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-recipe-version @@ -10111,16 +10114,18 @@ (common-lisp:format common-lisp:nil "/recipes/~A/recipeVersion/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recipe-version)))) + 'recipe-version) + common-lisp:t))) "DeleteRecipeVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recipe-version)) (common-lisp:progn (common-lisp:defun delete-ruleset @@ -10142,12 +10147,13 @@ (common-lisp:format common-lisp:nil "/rulesets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteRuleset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ruleset)) (common-lisp:progn (common-lisp:defun delete-schedule @@ -10169,12 +10175,13 @@ (common-lisp:format common-lisp:nil "/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schedule)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -10196,12 +10203,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-job @@ -10223,12 +10231,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job)) (common-lisp:progn (common-lisp:defun describe-job-run @@ -10250,16 +10259,18 @@ (common-lisp:format common-lisp:nil "/jobs/~A/jobRun/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'run-id)))) + 'run-id) + common-lisp:t))) "DescribeJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-run)) (common-lisp:progn (common-lisp:defun describe-project @@ -10281,12 +10292,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-project)) (common-lisp:progn (common-lisp:defun describe-recipe @@ -10308,12 +10320,13 @@ (common-lisp:format common-lisp:nil "/recipes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recipe)) (common-lisp:progn (common-lisp:defun describe-ruleset @@ -10335,12 +10348,13 @@ (common-lisp:format common-lisp:nil "/rulesets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeRuleset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ruleset)) (common-lisp:progn (common-lisp:defun describe-schedule @@ -10362,12 +10376,13 @@ (common-lisp:format common-lisp:nil "/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-schedule)) (common-lisp:progn (common-lisp:defun list-datasets @@ -10384,7 +10399,7 @@ aws-sdk/generator/operation::input "GET" "/datasets" "ListDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasets)) (common-lisp:progn (common-lisp:defun list-job-runs @@ -10406,12 +10421,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A/jobRuns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListJobRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-job-runs)) (common-lisp:progn (common-lisp:defun list-jobs @@ -10430,7 +10446,7 @@ aws-sdk/generator/operation::input "GET" "/jobs" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-projects @@ -10447,7 +10463,7 @@ aws-sdk/generator/operation::input "GET" "/projects" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-recipe-versions @@ -10464,7 +10480,7 @@ aws-sdk/generator/operation::input "GET" "/recipeVersions" "ListRecipeVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recipe-versions)) (common-lisp:progn (common-lisp:defun list-recipes @@ -10482,7 +10498,7 @@ aws-sdk/generator/operation::input "GET" "/recipes" "ListRecipes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recipes)) (common-lisp:progn (common-lisp:defun list-rulesets @@ -10500,7 +10516,7 @@ aws-sdk/generator/operation::input "GET" "/rulesets" "ListRulesets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rulesets)) (common-lisp:progn (common-lisp:defun list-schedules @@ -10518,7 +10534,7 @@ aws-sdk/generator/operation::input "GET" "/schedules" "ListSchedules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schedules)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10540,12 +10556,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun publish-recipe @@ -10567,12 +10584,13 @@ (common-lisp:format common-lisp:nil "/recipes/~A/publishRecipe" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PublishRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish-recipe)) (common-lisp:progn (common-lisp:defun send-project-session-action @@ -10598,12 +10616,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/sendProjectSessionAction" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "SendProjectSessionAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-project-session-action)) (common-lisp:progn (common-lisp:defun start-job-run @@ -10625,12 +10644,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A/startJobRun" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "StartJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-job-run)) (common-lisp:progn (common-lisp:defun start-project-session @@ -10652,12 +10672,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/startProjectSession" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "StartProjectSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-project-session)) (common-lisp:progn (common-lisp:defun stop-job-run @@ -10679,16 +10700,18 @@ (common-lisp:format common-lisp:nil "/jobs/~A/jobRun/~A/stopJobRun" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'run-id)))) + 'run-id) + common-lisp:t))) "StopJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-job-run)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10710,12 +10733,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10737,12 +10761,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-dataset @@ -10766,12 +10791,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dataset)) (common-lisp:progn (common-lisp:defun update-profile-job @@ -10799,12 +10825,13 @@ (common-lisp:format common-lisp:nil "/profileJobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateProfileJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-profile-job)) (common-lisp:progn (common-lisp:defun update-project @@ -10826,12 +10853,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) (common-lisp:progn (common-lisp:defun update-recipe @@ -10853,12 +10881,13 @@ (common-lisp:format common-lisp:nil "/recipes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-recipe)) (common-lisp:progn (common-lisp:defun update-recipe-job @@ -10885,12 +10914,13 @@ (common-lisp:format common-lisp:nil "/recipeJobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateRecipeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-recipe-job)) (common-lisp:progn (common-lisp:defun update-ruleset @@ -10912,12 +10942,13 @@ (common-lisp:format common-lisp:nil "/rulesets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateRuleset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ruleset)) (common-lisp:progn (common-lisp:defun update-schedule @@ -10939,10 +10970,11 @@ (common-lisp:format common-lisp:nil "/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-schedule)) diff --git a/services/dataexchange/api.lisp b/services/dataexchange/api.lisp index 69820290..d1188ba5 100644 --- a/services/dataexchange/api.lisp +++ b/services/dataexchange/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/dataexchange/api - (:use) - (:nicknames #:aws/dataexchange) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/dataexchange/api (:use) + (:nicknames #:aws/dataexchange) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/dataexchange/api) (common-lisp:progn (common-lisp:define-condition dataexchange-error @@ -20,7 +19,7 @@ (common-lisp:export 'dataexchange-error)) (common-lisp:progn (common-lisp:defclass dataexchange-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "dataexchange" :api-version "2017-07-25" :host-prefix "dataexchange" :signing-name @@ -7695,28 +7694,38 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'asset-id)) - (common-lisp:cons "x-amzn-dataexchange-asset-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-dataexchange-asset-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'data-set-id)) - (common-lisp:cons "x-amzn-dataexchange-data-set-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-dataexchange-data-set-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'method)) - (common-lisp:cons "x-amzn-dataexchange-http-method" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-dataexchange-http-method" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'path)) - (common-lisp:cons "x-amzn-dataexchange-path" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-dataexchange-path" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'revision-id)) - (common-lisp:cons "x-amzn-dataexchange-revision-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-dataexchange-revision-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (common-lisp:when (common-lisp:slot-value aws-sdk/generator/shape::input 'request-headers) @@ -7747,7 +7756,13 @@ ( (aws-sdk/generator/shape::input send-api-asset-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + send-api-asset-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass send-api-asset-response common-lisp:nil ((body :initarg :body :initform common-lisp:nil :type @@ -7803,7 +7818,13 @@ ( (aws-sdk/generator/shape::input send-api-asset-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + send-api-asset-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass send-data-set-notification-request common-lisp:nil ((scope :initarg :scope :initform common-lisp:nil :type @@ -8985,12 +9006,13 @@ (common-lisp:format common-lisp:nil "/v1/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "CancelJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job)) (common-lisp:progn (common-lisp:defun create-data-set @@ -9008,7 +9030,7 @@ aws-sdk/generator/operation::input "POST" "/v1/data-sets" "CreateDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-set)) (common-lisp:progn (common-lisp:defun create-event-action @@ -9026,7 +9048,7 @@ "POST" "/v1/event-actions" "CreateEventAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-action)) (common-lisp:progn (common-lisp:defun create-job @@ -9043,7 +9065,7 @@ aws-sdk/generator/operation::input "POST" "/v1/jobs" "CreateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun create-revision @@ -9065,12 +9087,13 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "CreateRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-revision)) (common-lisp:progn (common-lisp:defun delete-asset @@ -9093,20 +9116,23 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions/~A/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision-id)) - (quri.encode:url-encode + 'revision-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "DeleteAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-asset)) (common-lisp:progn (common-lisp:defun delete-data-set @@ -9128,12 +9154,13 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "DeleteDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-set)) (common-lisp:progn (common-lisp:defun delete-event-action @@ -9155,12 +9182,13 @@ (common-lisp:format common-lisp:nil "/v1/event-actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-action-id)))) + 'event-action-id) + common-lisp:t))) "DeleteEventAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-action)) (common-lisp:progn (common-lisp:defun delete-revision @@ -9182,16 +9210,18 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision-id)))) + 'revision-id) + common-lisp:t))) "DeleteRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-revision)) (common-lisp:progn (common-lisp:defun get-asset @@ -9214,20 +9244,23 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions/~A/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision-id)) - (quri.encode:url-encode + 'revision-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "GetAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-asset)) (common-lisp:progn (common-lisp:defun get-data-set @@ -9249,12 +9282,13 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "GetDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-set)) (common-lisp:progn (common-lisp:defun get-event-action @@ -9276,12 +9310,13 @@ (common-lisp:format common-lisp:nil "/v1/event-actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-action-id)))) + 'event-action-id) + common-lisp:t))) "GetEventAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-action)) (common-lisp:progn (common-lisp:defun get-job @@ -9303,12 +9338,13 @@ (common-lisp:format common-lisp:nil "/v1/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job)) (common-lisp:progn (common-lisp:defun get-revision @@ -9330,16 +9366,18 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision-id)))) + 'revision-id) + common-lisp:t))) "GetRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-revision)) (common-lisp:progn (common-lisp:defun list-data-set-revisions @@ -9362,12 +9400,13 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "ListDataSetRevisions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-set-revisions)) (common-lisp:progn (common-lisp:defun list-data-sets @@ -9384,7 +9423,7 @@ aws-sdk/generator/operation::input "GET" "/v1/data-sets" "ListDataSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sets)) (common-lisp:progn (common-lisp:defun list-event-actions @@ -9403,7 +9442,7 @@ "GET" "/v1/event-actions" "ListEventActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-actions)) (common-lisp:progn (common-lisp:defun list-jobs @@ -9422,7 +9461,7 @@ aws-sdk/generator/operation::input "GET" "/v1/jobs" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-revision-assets @@ -9446,16 +9485,18 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions/~A/assets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision-id)))) + 'revision-id) + common-lisp:t))) "ListRevisionAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-revision-assets)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9477,12 +9518,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun revoke-revision @@ -9506,16 +9548,18 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions/~A/revoke" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision-id)))) + 'revision-id) + common-lisp:t))) "RevokeRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-revision)) (common-lisp:progn (common-lisp:defun send-api-asset @@ -9535,7 +9579,7 @@ aws-sdk/generator/operation::input "POST" "/v1" "SendApiAsset")) - "string" common-lisp:nil *error-map*))) + "string" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-api-asset)) (common-lisp:progn (common-lisp:defun send-data-set-notification @@ -9561,12 +9605,13 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/notification" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "SendDataSetNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-data-set-notification)) (common-lisp:progn (common-lisp:defun start-job @@ -9588,12 +9633,13 @@ (common-lisp:format common-lisp:nil "/v1/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "StartJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9615,12 +9661,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9642,12 +9689,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-asset @@ -9670,20 +9718,23 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions/~A/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision-id)) - (quri.encode:url-encode + 'revision-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "UpdateAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-asset)) (common-lisp:progn (common-lisp:defun update-data-set @@ -9705,12 +9756,13 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "UpdateDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-set)) (common-lisp:progn (common-lisp:defun update-event-action @@ -9732,12 +9784,13 @@ (common-lisp:format common-lisp:nil "/v1/event-actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-action-id)))) + 'event-action-id) + common-lisp:t))) "UpdateEventAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-action)) (common-lisp:progn (common-lisp:defun update-revision @@ -9761,14 +9814,16 @@ (common-lisp:format common-lisp:nil "/v1/data-sets/~A/revisions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision-id)))) + 'revision-id) + common-lisp:t))) "UpdateRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-revision)) diff --git a/services/datapipeline/api.lisp b/services/datapipeline/api.lisp index 0dc9ea38..8f5a65a6 100644 --- a/services/datapipeline/api.lisp +++ b/services/datapipeline/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/datapipeline/api - (:use) - (:nicknames #:aws/datapipeline) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/datapipeline/api (:use) + (:nicknames #:aws/datapipeline) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/datapipeline/api) (common-lisp:progn (common-lisp:define-condition datapipeline-error @@ -2828,7 +2827,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ActivatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-pipeline)) (common-lisp:progn (common-lisp:defun add-tags @@ -2844,7 +2843,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'datapipeline-request aws-sdk/generator/operation::input "POST" "/" "AddTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun create-pipeline @@ -2862,7 +2861,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pipeline)) (common-lisp:progn (common-lisp:defun deactivate-pipeline @@ -2879,7 +2878,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeactivatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deactivate-pipeline)) (common-lisp:progn (common-lisp:defun delete-pipeline @@ -2896,7 +2895,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeletePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pipeline)) (common-lisp:progn (common-lisp:defun describe-objects @@ -2915,7 +2914,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeObjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-objects)) (common-lisp:progn (common-lisp:defun describe-pipelines @@ -2932,7 +2931,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribePipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pipelines)) (common-lisp:progn (common-lisp:defun evaluate-expression @@ -2950,7 +2949,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "EvaluateExpression")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'evaluate-expression)) (common-lisp:progn (common-lisp:defun get-pipeline-definition @@ -2967,7 +2966,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetPipelineDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pipeline-definition)) (common-lisp:progn (common-lisp:defun list-pipelines @@ -2984,7 +2983,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListPipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipelines)) (common-lisp:progn (common-lisp:defun poll-for-task @@ -3002,7 +3001,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PollForTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'poll-for-task)) (common-lisp:progn (common-lisp:defun put-pipeline-definition @@ -3022,7 +3021,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutPipelineDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-pipeline-definition)) (common-lisp:progn (common-lisp:defun query-objects @@ -3040,7 +3039,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "QueryObjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query-objects)) (common-lisp:progn (common-lisp:defun remove-tags @@ -3057,7 +3056,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RemoveTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags)) (common-lisp:progn (common-lisp:defun report-task-progress @@ -3074,7 +3073,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ReportTaskProgress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'report-task-progress)) (common-lisp:progn (common-lisp:defun report-task-runner-heartbeat @@ -3093,7 +3092,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ReportTaskRunnerHeartbeat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'report-task-runner-heartbeat)) (common-lisp:progn (common-lisp:defun set-status @@ -3110,7 +3109,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-status)) (common-lisp:progn (common-lisp:defun set-task-status @@ -3130,7 +3129,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetTaskStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-task-status)) (common-lisp:progn (common-lisp:defun validate-pipeline-definition @@ -3151,5 +3150,5 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ValidatePipelineDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-pipeline-definition)) diff --git a/services/datasync/api.lisp b/services/datasync/api.lisp index ad7eb59f..3c4ce619 100644 --- a/services/datasync/api.lisp +++ b/services/datasync/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/datasync/api - (:use) - (:nicknames #:aws/datasync) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/datasync/api (:use) + (:nicknames #:aws/datasync) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/datasync/api) (common-lisp:progn (common-lisp:define-condition datasync-error @@ -12504,7 +12503,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AddStorageSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-storage-system)) (common-lisp:progn (common-lisp:defun cancel-task-execution @@ -12521,7 +12520,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CancelTaskExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-task-execution)) (common-lisp:progn (common-lisp:defun create-agent @@ -12541,7 +12540,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-agent)) (common-lisp:progn (common-lisp:defun create-location-azure-blob @@ -12563,7 +12562,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationAzureBlob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-azure-blob)) (common-lisp:progn (common-lisp:defun create-location-efs @@ -12584,7 +12583,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationEfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-efs)) (common-lisp:progn (common-lisp:defun create-location-fsx-lustre @@ -12605,7 +12604,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationFsxLustre")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-fsx-lustre)) (common-lisp:progn (common-lisp:defun create-location-fsx-ontap @@ -12626,7 +12625,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationFsxOntap")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-fsx-ontap)) (common-lisp:progn (common-lisp:defun create-location-fsx-open-zfs @@ -12647,7 +12646,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationFsxOpenZfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-fsx-open-zfs)) (common-lisp:progn (common-lisp:defun create-location-fsx-windows @@ -12668,7 +12667,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationFsxWindows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-fsx-windows)) (common-lisp:progn (common-lisp:defun create-location-hdfs @@ -12692,7 +12691,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationHdfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-hdfs)) (common-lisp:progn (common-lisp:defun create-location-nfs @@ -12712,7 +12711,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationNfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-nfs)) (common-lisp:progn (common-lisp:defun create-location-object-storage @@ -12735,7 +12734,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationObjectStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-object-storage)) (common-lisp:progn (common-lisp:defun create-location-s3 @@ -12755,7 +12754,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationS3")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-s3)) (common-lisp:progn (common-lisp:defun create-location-smb @@ -12775,7 +12774,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLocationSmb")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location-smb)) (common-lisp:progn (common-lisp:defun create-task @@ -12798,7 +12797,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-task)) (common-lisp:progn (common-lisp:defun delete-agent @@ -12815,7 +12814,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-agent)) (common-lisp:progn (common-lisp:defun delete-location @@ -12832,7 +12831,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-location)) (common-lisp:progn (common-lisp:defun delete-task @@ -12849,7 +12848,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-task)) (common-lisp:progn (common-lisp:defun describe-agent @@ -12866,7 +12865,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-agent)) (common-lisp:progn (common-lisp:defun describe-discovery-job @@ -12883,7 +12882,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeDiscoveryJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-discovery-job)) (common-lisp:progn (common-lisp:defun describe-location-azure-blob @@ -12901,7 +12900,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationAzureBlob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-azure-blob)) (common-lisp:progn (common-lisp:defun describe-location-efs @@ -12918,7 +12917,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationEfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-efs)) (common-lisp:progn (common-lisp:defun describe-location-fsx-lustre @@ -12936,7 +12935,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationFsxLustre")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-fsx-lustre)) (common-lisp:progn (common-lisp:defun describe-location-fsx-ontap @@ -12954,7 +12953,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationFsxOntap")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-fsx-ontap)) (common-lisp:progn (common-lisp:defun describe-location-fsx-open-zfs @@ -12972,7 +12971,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationFsxOpenZfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-fsx-open-zfs)) (common-lisp:progn (common-lisp:defun describe-location-fsx-windows @@ -12990,7 +12989,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationFsxWindows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-fsx-windows)) (common-lisp:progn (common-lisp:defun describe-location-hdfs @@ -13007,7 +13006,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationHdfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-hdfs)) (common-lisp:progn (common-lisp:defun describe-location-nfs @@ -13024,7 +13023,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationNfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-nfs)) (common-lisp:progn (common-lisp:defun describe-location-object-storage @@ -13042,7 +13041,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationObjectStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-object-storage)) (common-lisp:progn (common-lisp:defun describe-location-s3 @@ -13059,7 +13058,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationS3")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-s3)) (common-lisp:progn (common-lisp:defun describe-location-smb @@ -13076,7 +13075,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeLocationSmb")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-location-smb)) (common-lisp:progn (common-lisp:defun describe-storage-system @@ -13093,7 +13092,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeStorageSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-storage-system)) (common-lisp:progn (common-lisp:defun describe-storage-system-resource-metrics @@ -13114,7 +13113,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeStorageSystemResourceMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-storage-system-resource-metrics)) (common-lisp:progn (common-lisp:defun describe-storage-system-resources @@ -13135,7 +13134,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeStorageSystemResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-storage-system-resources)) (common-lisp:progn (common-lisp:defun describe-task @@ -13152,7 +13151,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-task)) (common-lisp:progn (common-lisp:defun describe-task-execution @@ -13169,7 +13168,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeTaskExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-task-execution)) (common-lisp:progn (common-lisp:defun generate-recommendations @@ -13188,7 +13187,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GenerateRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-recommendations)) (common-lisp:progn (common-lisp:defun list-agents @@ -13205,7 +13204,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListAgents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-agents)) (common-lisp:progn (common-lisp:defun list-discovery-jobs @@ -13224,7 +13223,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListDiscoveryJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-discovery-jobs)) (common-lisp:progn (common-lisp:defun list-locations @@ -13241,7 +13240,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-locations)) (common-lisp:progn (common-lisp:defun list-storage-systems @@ -13258,7 +13257,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListStorageSystems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-storage-systems)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -13276,7 +13275,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-task-executions @@ -13294,7 +13293,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTaskExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-task-executions)) (common-lisp:progn (common-lisp:defun list-tasks @@ -13311,7 +13310,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tasks)) (common-lisp:progn (common-lisp:defun remove-storage-system @@ -13328,7 +13327,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RemoveStorageSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-storage-system)) (common-lisp:progn (common-lisp:defun start-discovery-job @@ -13348,7 +13347,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StartDiscoveryJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-discovery-job)) (common-lisp:progn (common-lisp:defun start-task-execution @@ -13368,7 +13367,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StartTaskExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-task-execution)) (common-lisp:progn (common-lisp:defun stop-discovery-job @@ -13385,7 +13384,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StopDiscoveryJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-discovery-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13402,7 +13401,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13419,7 +13418,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-agent @@ -13436,7 +13435,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-agent)) (common-lisp:progn (common-lisp:defun update-discovery-job @@ -13455,7 +13454,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDiscoveryJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-discovery-job)) (common-lisp:progn (common-lisp:defun update-location-azure-blob @@ -13477,7 +13476,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateLocationAzureBlob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-location-azure-blob)) (common-lisp:progn (common-lisp:defun update-location-hdfs @@ -13502,7 +13501,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateLocationHdfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-location-hdfs)) (common-lisp:progn (common-lisp:defun update-location-nfs @@ -13522,7 +13521,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateLocationNfs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-location-nfs)) (common-lisp:progn (common-lisp:defun update-location-object-storage @@ -13544,7 +13543,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateLocationObjectStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-location-object-storage)) (common-lisp:progn (common-lisp:defun update-location-smb @@ -13564,7 +13563,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateLocationSmb")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-location-smb)) (common-lisp:progn (common-lisp:defun update-storage-system @@ -13584,7 +13583,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateStorageSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-storage-system)) (common-lisp:progn (common-lisp:defun update-task @@ -13605,7 +13604,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-task)) (common-lisp:progn (common-lisp:defun update-task-execution @@ -13622,5 +13621,5 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateTaskExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-task-execution)) diff --git a/services/datazone/api.lisp b/services/datazone/api.lisp index e3dea2a2..674b995e 100644 --- a/services/datazone/api.lisp +++ b/services/datazone/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/datazone/api - (:use) - (:nicknames #:aws/datazone) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/datazone/api (:use) + (:nicknames #:aws/datazone) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/datazone/api) (common-lisp:progn (common-lisp:define-condition datazone-error @@ -20,7 +19,7 @@ (common-lisp:export 'datazone-error)) (common-lisp:progn (common-lisp:defclass datazone-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "datazone" :api-version "2018-05-10" :host-prefix "datazone" :signing-name @@ -28406,16 +28405,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/assets/~A/accept-predictions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "AcceptPredictions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-predictions)) (common-lisp:progn (common-lisp:defun accept-subscription-request @@ -28440,16 +28441,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-requests/~A/accept" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "AcceptSubscriptionRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-subscription-request)) (common-lisp:progn (common-lisp:defun cancel-subscription @@ -28471,16 +28474,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscriptions/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "CancelSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-subscription)) (common-lisp:progn (common-lisp:defun create-asset @@ -28509,12 +28514,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/assets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-asset)) (common-lisp:progn (common-lisp:defun create-asset-revision @@ -28541,16 +28547,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/assets/~A/revisions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "CreateAssetRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-asset-revision)) (common-lisp:progn (common-lisp:defun create-asset-type @@ -28575,12 +28583,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/asset-types" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateAssetType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-asset-type)) (common-lisp:progn (common-lisp:defun create-data-source @@ -28608,12 +28617,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-sources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-source)) (common-lisp:progn (common-lisp:defun create-domain @@ -28634,7 +28644,7 @@ aws-sdk/generator/operation::input "POST" "/v2/domains" "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun create-environment @@ -28661,12 +28671,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun create-environment-profile @@ -28694,12 +28705,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateEnvironmentProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment-profile)) (common-lisp:progn (common-lisp:defun create-form-type @@ -28724,12 +28736,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/form-types" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateFormType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-form-type)) (common-lisp:progn (common-lisp:defun create-glossary @@ -28754,12 +28767,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/glossaries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateGlossary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-glossary)) (common-lisp:progn (common-lisp:defun create-glossary-term @@ -28785,12 +28799,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/glossary-terms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateGlossaryTerm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-glossary-term)) (common-lisp:progn (common-lisp:defun create-group-profile @@ -28814,12 +28829,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/group-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateGroupProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group-profile)) (common-lisp:progn (common-lisp:defun create-listing-change-set @@ -28844,12 +28860,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/listings/change-set" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateListingChangeSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-listing-change-set)) (common-lisp:progn (common-lisp:defun create-project @@ -28873,12 +28890,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/projects" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun create-project-membership @@ -28903,16 +28921,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/projects/~A/createMembership" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-identifier)))) + 'project-identifier) + common-lisp:t))) "CreateProjectMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project-membership)) (common-lisp:progn (common-lisp:defun create-subscription-grant @@ -28938,12 +28958,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-grants" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateSubscriptionGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subscription-grant)) (common-lisp:progn (common-lisp:defun create-subscription-request @@ -28969,12 +28990,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-requests" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateSubscriptionRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subscription-request)) (common-lisp:progn (common-lisp:defun create-subscription-target @@ -29002,16 +29024,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments/~A/subscription-targets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)))) + 'environment-identifier) + common-lisp:t))) "CreateSubscriptionTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subscription-target)) (common-lisp:progn (common-lisp:defun create-user-profile @@ -29036,12 +29060,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/user-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "CreateUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-profile)) (common-lisp:progn (common-lisp:defun delete-asset @@ -29063,16 +29088,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-asset)) (common-lisp:progn (common-lisp:defun delete-asset-type @@ -29094,16 +29121,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/asset-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteAssetType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-asset-type)) (common-lisp:progn (common-lisp:defun delete-data-source @@ -29127,16 +29156,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-sources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-source)) (common-lisp:progn (common-lisp:defun delete-domain @@ -29160,12 +29191,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-environment @@ -29187,16 +29219,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun delete-environment-blueprint-configuration @@ -29221,16 +29255,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-blueprint-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-blueprint-identifier)))) + 'environment-blueprint-identifier) + common-lisp:t))) "DeleteEnvironmentBlueprintConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment-blueprint-configuration)) (common-lisp:progn (common-lisp:defun delete-environment-profile @@ -29252,16 +29288,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteEnvironmentProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment-profile)) (common-lisp:progn (common-lisp:defun delete-form-type @@ -29284,16 +29322,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/form-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'form-type-identifier)))) + 'form-type-identifier) + common-lisp:t))) "DeleteFormType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-form-type)) (common-lisp:progn (common-lisp:defun delete-glossary @@ -29315,16 +29355,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/glossaries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteGlossary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-glossary)) (common-lisp:progn (common-lisp:defun delete-glossary-term @@ -29346,16 +29388,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/glossary-terms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteGlossaryTerm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-glossary-term)) (common-lisp:progn (common-lisp:defun delete-listing @@ -29377,16 +29421,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/listings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteListing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-listing)) (common-lisp:progn (common-lisp:defun delete-project @@ -29410,16 +29456,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-project-membership @@ -29443,16 +29491,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/projects/~A/deleteMembership" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-identifier)))) + 'project-identifier) + common-lisp:t))) "DeleteProjectMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project-membership)) (common-lisp:progn (common-lisp:defun delete-subscription-grant @@ -29474,16 +29524,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-grants/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteSubscriptionGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subscription-grant)) (common-lisp:progn (common-lisp:defun delete-subscription-request @@ -29506,16 +29558,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-requests/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteSubscriptionRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subscription-request)) (common-lisp:progn (common-lisp:defun delete-subscription-target @@ -29540,20 +29594,23 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments/~A/subscription-targets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteSubscriptionTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subscription-target)) (common-lisp:progn (common-lisp:defun get-asset @@ -29576,16 +29633,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-asset)) (common-lisp:progn (common-lisp:defun get-asset-type @@ -29608,16 +29667,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/asset-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetAssetType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-asset-type)) (common-lisp:progn (common-lisp:defun get-data-source @@ -29639,16 +29700,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-sources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-source)) (common-lisp:progn (common-lisp:defun get-data-source-run @@ -29670,16 +29733,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-source-runs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetDataSourceRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-source-run)) (common-lisp:progn (common-lisp:defun get-domain @@ -29701,12 +29766,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain)) (common-lisp:progn (common-lisp:defun get-environment @@ -29728,16 +29794,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment)) (common-lisp:progn (common-lisp:defun get-environment-blueprint @@ -29759,16 +29827,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-blueprints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetEnvironmentBlueprint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment-blueprint)) (common-lisp:progn (common-lisp:defun get-environment-blueprint-configuration @@ -29793,16 +29863,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-blueprint-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-blueprint-identifier)))) + 'environment-blueprint-identifier) + common-lisp:t))) "GetEnvironmentBlueprintConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment-blueprint-configuration)) (common-lisp:progn (common-lisp:defun get-environment-profile @@ -29824,16 +29896,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetEnvironmentProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment-profile)) (common-lisp:progn (common-lisp:defun get-form-type @@ -29857,16 +29931,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/form-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'form-type-identifier)))) + 'form-type-identifier) + common-lisp:t))) "GetFormType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-form-type)) (common-lisp:progn (common-lisp:defun get-glossary @@ -29888,16 +29964,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/glossaries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetGlossary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-glossary)) (common-lisp:progn (common-lisp:defun get-glossary-term @@ -29919,16 +29997,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/glossary-terms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetGlossaryTerm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-glossary-term)) (common-lisp:progn (common-lisp:defun get-group-profile @@ -29951,16 +30031,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/group-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-identifier)))) + 'group-identifier) + common-lisp:t))) "GetGroupProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group-profile)) (common-lisp:progn (common-lisp:defun get-iam-portal-login-url @@ -29982,12 +30064,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/get-portal-login-url" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "GetIamPortalLoginUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-iam-portal-login-url)) (common-lisp:progn (common-lisp:defun get-listing @@ -30011,16 +30094,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/listings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetListing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-listing)) (common-lisp:progn (common-lisp:defun get-project @@ -30042,16 +30127,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-project)) (common-lisp:progn (common-lisp:defun get-subscription @@ -30073,16 +30160,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-subscription)) (common-lisp:progn (common-lisp:defun get-subscription-grant @@ -30104,16 +30193,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-grants/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetSubscriptionGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-subscription-grant)) (common-lisp:progn (common-lisp:defun get-subscription-request-details @@ -30136,16 +30227,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-requests/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetSubscriptionRequestDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-subscription-request-details)) (common-lisp:progn (common-lisp:defun get-subscription-target @@ -30170,20 +30263,23 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments/~A/subscription-targets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetSubscriptionTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-subscription-target)) (common-lisp:progn (common-lisp:defun get-user-profile @@ -30206,16 +30302,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/user-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-identifier)))) + 'user-identifier) + common-lisp:t))) "GetUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-profile)) (common-lisp:progn (common-lisp:defun list-asset-revisions @@ -30240,16 +30338,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/assets/~A/revisions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "ListAssetRevisions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-revisions)) (common-lisp:progn (common-lisp:defun list-data-source-run-activities @@ -30275,16 +30375,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-source-runs/~A/activities" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "ListDataSourceRunActivities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-source-run-activities)) (common-lisp:progn (common-lisp:defun list-data-source-runs @@ -30309,16 +30411,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-sources/~A/runs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-identifier)))) + 'data-source-identifier) + common-lisp:t))) "ListDataSourceRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-source-runs)) (common-lisp:progn (common-lisp:defun list-data-sources @@ -30344,12 +30448,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-sources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sources)) (common-lisp:progn (common-lisp:defun list-domains @@ -30366,7 +30471,7 @@ aws-sdk/generator/operation::input "GET" "/v2/domains" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-environment-blueprint-configurations @@ -30390,12 +30495,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-blueprint-configurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListEnvironmentBlueprintConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-blueprint-configurations)) (common-lisp:progn (common-lisp:defun list-environment-blueprints @@ -30421,12 +30527,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-blueprints" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListEnvironmentBlueprints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-blueprints)) (common-lisp:progn (common-lisp:defun list-environment-profiles @@ -30453,12 +30560,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListEnvironmentProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-profiles)) (common-lisp:progn (common-lisp:defun list-environments @@ -30486,12 +30594,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-notifications @@ -30517,12 +30626,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/notifications" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notifications)) (common-lisp:progn (common-lisp:defun list-project-memberships @@ -30547,16 +30657,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/projects/~A/memberships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-identifier)))) + 'project-identifier) + common-lisp:t))) "ListProjectMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-project-memberships)) (common-lisp:progn (common-lisp:defun list-projects @@ -30581,12 +30693,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/projects" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-subscription-grants @@ -30614,12 +30727,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-grants" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListSubscriptionGrants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscription-grants)) (common-lisp:progn (common-lisp:defun list-subscription-requests @@ -30646,12 +30760,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-requests" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListSubscriptionRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscription-requests)) (common-lisp:progn (common-lisp:defun list-subscription-targets @@ -30676,16 +30791,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments/~A/subscription-targets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)))) + 'environment-identifier) + common-lisp:t))) "ListSubscriptionTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscription-targets)) (common-lisp:progn (common-lisp:defun list-subscriptions @@ -30713,12 +30830,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscriptions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "ListSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscriptions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -30740,12 +30858,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-environment-blueprint-configuration @@ -30773,16 +30892,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-blueprint-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-blueprint-identifier)))) + 'environment-blueprint-identifier) + common-lisp:t))) "PutEnvironmentBlueprintConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-environment-blueprint-configuration)) (common-lisp:progn (common-lisp:defun reject-predictions @@ -30807,16 +30928,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/assets/~A/reject-predictions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "RejectPredictions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-predictions)) (common-lisp:progn (common-lisp:defun reject-subscription-request @@ -30841,16 +30964,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-requests/~A/reject" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "RejectSubscriptionRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-subscription-request)) (common-lisp:progn (common-lisp:defun revoke-subscription @@ -30874,16 +30999,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscriptions/~A/revoke" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "RevokeSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-subscription)) (common-lisp:progn (common-lisp:defun search @@ -30910,12 +31037,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "Search")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search)) (common-lisp:progn (common-lisp:defun search-group-profiles @@ -30940,12 +31068,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/search-group-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "SearchGroupProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-group-profiles)) (common-lisp:progn (common-lisp:defun search-listings @@ -30970,12 +31099,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/listings/search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "SearchListings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-listings)) (common-lisp:progn (common-lisp:defun search-types @@ -31001,12 +31131,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/types-search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "SearchTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-types)) (common-lisp:progn (common-lisp:defun search-user-profiles @@ -31031,12 +31162,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/search-user-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)))) + 'domain-identifier) + common-lisp:t))) "SearchUserProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-user-profiles)) (common-lisp:progn (common-lisp:defun start-data-source-run @@ -31061,16 +31193,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-sources/~A/runs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-identifier)))) + 'data-source-identifier) + common-lisp:t))) "StartDataSourceRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-data-source-run)) (common-lisp:progn (common-lisp:defun tag-resource @@ -31092,12 +31226,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -31119,12 +31254,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-data-source @@ -31151,16 +31287,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/data-sources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source)) (common-lisp:progn (common-lisp:defun update-domain @@ -31185,12 +31323,13 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain)) (common-lisp:progn (common-lisp:defun update-environment @@ -31215,16 +31354,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment)) (common-lisp:progn (common-lisp:defun update-environment-profile @@ -31250,16 +31391,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environment-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateEnvironmentProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment-profile)) (common-lisp:progn (common-lisp:defun update-glossary @@ -31284,16 +31427,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/glossaries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateGlossary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-glossary)) (common-lisp:progn (common-lisp:defun update-glossary-term @@ -31319,16 +31464,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/glossary-terms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateGlossaryTerm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-glossary-term)) (common-lisp:progn (common-lisp:defun update-group-profile @@ -31352,16 +31499,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/group-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-identifier)))) + 'group-identifier) + common-lisp:t))) "UpdateGroupProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group-profile)) (common-lisp:progn (common-lisp:defun update-project @@ -31386,16 +31535,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) (common-lisp:progn (common-lisp:defun update-subscription-grant-status @@ -31421,20 +31572,23 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-grants/~A/status/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)) - (quri.encode:url-encode + 'identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-identifier)))) + 'asset-identifier) + common-lisp:t))) "UpdateSubscriptionGrantStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscription-grant-status)) (common-lisp:progn (common-lisp:defun update-subscription-request @@ -31459,16 +31613,18 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/subscription-requests/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateSubscriptionRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscription-request)) (common-lisp:progn (common-lisp:defun update-subscription-target @@ -31496,20 +31652,23 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/environments/~A/subscription-targets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateSubscriptionTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscription-target)) (common-lisp:progn (common-lisp:defun update-user-profile @@ -31533,14 +31692,16 @@ (common-lisp:format common-lisp:nil "/v2/domains/~A/user-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-identifier)) - (quri.encode:url-encode + 'domain-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-identifier)))) + 'user-identifier) + common-lisp:t))) "UpdateUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-profile)) diff --git a/services/dax/api.lisp b/services/dax/api.lisp index 9a1b54aa..358e3bb6 100644 --- a/services/dax/api.lisp +++ b/services/dax/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/dax/api - (:use) - (:nicknames #:aws/dax) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/dax/api (:use) + (:nicknames #:aws/dax) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/dax/api) (common-lisp:progn (common-lisp:define-condition dax-error @@ -3912,7 +3911,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-parameter-group @@ -3930,7 +3929,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-parameter-group)) (common-lisp:progn (common-lisp:defun create-subnet-group @@ -3948,7 +3947,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subnet-group)) (common-lisp:progn (common-lisp:defun decrease-replication-factor @@ -3969,7 +3968,7 @@ aws-sdk/generator/operation::input "POST" "/" "DecreaseReplicationFactor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'decrease-replication-factor)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -3986,7 +3985,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-parameter-group @@ -4003,7 +4002,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-parameter-group)) (common-lisp:progn (common-lisp:defun delete-subnet-group @@ -4020,7 +4019,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subnet-group)) (common-lisp:progn (common-lisp:defun describe-clusters @@ -4038,7 +4037,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-clusters)) (common-lisp:progn (common-lisp:defun describe-default-parameters @@ -4056,7 +4055,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDefaultParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-default-parameters)) (common-lisp:progn (common-lisp:defun describe-events @@ -4076,7 +4075,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-parameter-groups @@ -4096,7 +4095,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeParameterGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-parameter-groups)) (common-lisp:progn (common-lisp:defun describe-parameters @@ -4115,7 +4114,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-parameters)) (common-lisp:progn (common-lisp:defun describe-subnet-groups @@ -4134,7 +4133,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSubnetGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-subnet-groups)) (common-lisp:progn (common-lisp:defun increase-replication-factor @@ -4155,7 +4154,7 @@ aws-sdk/generator/operation::input "POST" "/" "IncreaseReplicationFactor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'increase-replication-factor)) (common-lisp:progn (common-lisp:defun list-tags @@ -4171,7 +4170,7 @@ (aws-sdk/generator/shape:make-request-with-input 'dax-request aws-sdk/generator/operation::input "POST" "/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun reboot-node @@ -4188,7 +4187,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-node)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4205,7 +4204,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4222,7 +4221,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-cluster @@ -4245,7 +4244,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster)) (common-lisp:progn (common-lisp:defun update-parameter-group @@ -4264,7 +4263,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-parameter-group)) (common-lisp:progn (common-lisp:defun update-subnet-group @@ -4282,5 +4281,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subnet-group)) diff --git a/services/detective/api.lisp b/services/detective/api.lisp index 592976c7..a8c63e02 100644 --- a/services/detective/api.lisp +++ b/services/detective/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/detective/api - (:use) - (:nicknames #:aws/detective) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/detective/api (:use) + (:nicknames #:aws/detective) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/detective/api) (common-lisp:progn (common-lisp:define-condition detective-error @@ -20,7 +19,7 @@ (common-lisp:export 'detective-error)) (common-lisp:progn (common-lisp:defclass detective-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "detective" :api-version "2018-10-26" :host-prefix "api.detective" :signing-name @@ -4503,7 +4502,7 @@ aws-sdk/generator/operation::input "PUT" "/invitation" "AcceptInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-invitation)) (common-lisp:progn (common-lisp:defun batch-get-graph-member-datasources @@ -4522,7 +4521,7 @@ "POST" "/graph/datasources/get" "BatchGetGraphMemberDatasources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-graph-member-datasources)) (common-lisp:progn (common-lisp:defun batch-get-membership-datasources @@ -4541,7 +4540,7 @@ "POST" "/membership/datasources/get" "BatchGetMembershipDatasources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-membership-datasources)) (common-lisp:progn (common-lisp:defun create-graph @@ -4558,7 +4557,7 @@ aws-sdk/generator/operation::input "POST" "/graph" "CreateGraph")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-graph)) (common-lisp:progn (common-lisp:defun create-members @@ -4578,7 +4577,7 @@ aws-sdk/generator/operation::input "POST" "/graph/members" "CreateMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-members)) (common-lisp:progn (common-lisp:defun delete-graph @@ -4595,7 +4594,7 @@ aws-sdk/generator/operation::input "POST" "/graph/removal" "DeleteGraph")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-graph)) (common-lisp:progn (common-lisp:defun delete-members @@ -4613,7 +4612,7 @@ "POST" "/graph/members/removal" "DeleteMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-members)) (common-lisp:progn (common-lisp:defun describe-organization-configuration @@ -4632,7 +4631,7 @@ "POST" "/orgs/describeOrganizationConfiguration" "DescribeOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-configuration)) (common-lisp:progn (common-lisp:defun disable-organization-admin-account () @@ -4659,7 +4658,7 @@ "POST" "/membership/removal" "DisassociateMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-membership)) (common-lisp:progn (common-lisp:defun enable-organization-admin-account @@ -4678,7 +4677,7 @@ "POST" "/orgs/enableAdminAccount" "EnableOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-organization-admin-account)) (common-lisp:progn (common-lisp:defun get-investigation @@ -4696,7 +4695,7 @@ "POST" "/investigations/getInvestigation" "GetInvestigation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-investigation)) (common-lisp:progn (common-lisp:defun get-members @@ -4714,7 +4713,7 @@ "POST" "/graph/members/get" "GetMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-members)) (common-lisp:progn (common-lisp:defun list-datasource-packages @@ -4733,7 +4732,7 @@ "POST" "/graph/datasources/list" "ListDatasourcePackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasource-packages)) (common-lisp:progn (common-lisp:defun list-graphs @@ -4750,7 +4749,7 @@ aws-sdk/generator/operation::input "POST" "/graphs/list" "ListGraphs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-graphs)) (common-lisp:progn (common-lisp:defun list-indicators @@ -4771,7 +4770,7 @@ "POST" "/investigations/listIndicators" "ListIndicators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-indicators)) (common-lisp:progn (common-lisp:defun list-investigations @@ -4792,7 +4791,7 @@ "POST" "/investigations/listInvestigations" "ListInvestigations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-investigations)) (common-lisp:progn (common-lisp:defun list-invitations @@ -4810,7 +4809,7 @@ "POST" "/invitations/list" "ListInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-invitations)) (common-lisp:progn (common-lisp:defun list-members @@ -4829,7 +4828,7 @@ "POST" "/graph/members/list" "ListMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-members)) (common-lisp:progn (common-lisp:defun list-organization-admin-accounts @@ -4848,7 +4847,7 @@ "POST" "/orgs/adminAccountslist" "ListOrganizationAdminAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-admin-accounts)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4870,12 +4869,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun reject-invitation @@ -4893,7 +4893,7 @@ "POST" "/invitation/removal" "RejectInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-invitation)) (common-lisp:progn (common-lisp:defun start-investigation @@ -4914,7 +4914,7 @@ "POST" "/investigations/startInvestigation" "StartInvestigation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-investigation)) (common-lisp:progn (common-lisp:defun start-monitoring-member @@ -4932,7 +4932,7 @@ "POST" "/graph/member/monitoringstate" "StartMonitoringMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-monitoring-member)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4954,12 +4954,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4981,12 +4982,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-datasource-packages @@ -5005,7 +5007,7 @@ "POST" "/graph/datasources/update" "UpdateDatasourcePackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-datasource-packages)) (common-lisp:progn (common-lisp:defun update-investigation-state @@ -5025,7 +5027,7 @@ "POST" "/investigations/updateInvestigationState" "UpdateInvestigationState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-investigation-state)) (common-lisp:progn (common-lisp:defun update-organization-configuration @@ -5044,5 +5046,5 @@ "POST" "/orgs/updateOrganizationConfiguration" "UpdateOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-organization-configuration)) diff --git a/services/devicefarm/api.lisp b/services/devicefarm/api.lisp index 3b7ae393..9eec1df9 100644 --- a/services/devicefarm/api.lisp +++ b/services/devicefarm/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/devicefarm/api - (:use) - (:nicknames #:aws/devicefarm) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/devicefarm/api (:use) + (:nicknames #:aws/devicefarm) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/devicefarm/api) (common-lisp:progn (common-lisp:define-condition devicefarm-error @@ -13034,7 +13033,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDevicePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-device-pool)) (common-lisp:progn (common-lisp:defun create-instance-profile @@ -13054,7 +13053,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instance-profile)) (common-lisp:progn (common-lisp:defun create-network-profile @@ -13079,7 +13078,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-network-profile)) (common-lisp:progn (common-lisp:defun create-project @@ -13098,7 +13097,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun create-remote-access-session @@ -13122,7 +13121,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRemoteAccessSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-remote-access-session)) (common-lisp:progn (common-lisp:defun create-test-grid-project @@ -13139,7 +13138,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTestGridProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-test-grid-project)) (common-lisp:progn (common-lisp:defun create-test-grid-url @@ -13156,7 +13155,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTestGridUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-test-grid-url)) (common-lisp:progn (common-lisp:defun create-upload @@ -13174,7 +13173,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-upload)) (common-lisp:progn (common-lisp:defun create-vpceconfiguration @@ -13194,7 +13193,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVPCEConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpceconfiguration)) (common-lisp:progn (common-lisp:defun delete-device-pool @@ -13211,7 +13210,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDevicePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device-pool)) (common-lisp:progn (common-lisp:defun delete-instance-profile @@ -13228,7 +13227,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance-profile)) (common-lisp:progn (common-lisp:defun delete-network-profile @@ -13245,7 +13244,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-network-profile)) (common-lisp:progn (common-lisp:defun delete-project @@ -13262,7 +13261,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-remote-access-session @@ -13280,7 +13279,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRemoteAccessSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-remote-access-session)) (common-lisp:progn (common-lisp:defun delete-run @@ -13297,7 +13296,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-run)) (common-lisp:progn (common-lisp:defun delete-test-grid-project @@ -13314,7 +13313,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTestGridProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-test-grid-project)) (common-lisp:progn (common-lisp:defun delete-upload @@ -13331,7 +13330,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-upload)) (common-lisp:progn (common-lisp:defun delete-vpceconfiguration @@ -13348,7 +13347,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVPCEConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpceconfiguration)) (common-lisp:progn (common-lisp:defun get-account-settings () @@ -13373,7 +13372,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device)) (common-lisp:progn (common-lisp:defun get-device-instance @@ -13390,7 +13389,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeviceInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-instance)) (common-lisp:progn (common-lisp:defun get-device-pool @@ -13407,7 +13406,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDevicePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-pool)) (common-lisp:progn (common-lisp:defun get-device-pool-compatibility @@ -13428,7 +13427,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDevicePoolCompatibility")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-pool-compatibility)) (common-lisp:progn (common-lisp:defun get-instance-profile @@ -13445,7 +13444,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-profile)) (common-lisp:progn (common-lisp:defun get-job @@ -13461,7 +13460,7 @@ (aws-sdk/generator/shape:make-request-with-input 'devicefarm-request aws-sdk/generator/operation::input "POST" "/" "GetJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job)) (common-lisp:progn (common-lisp:defun get-network-profile @@ -13478,7 +13477,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-profile)) (common-lisp:progn (common-lisp:defun get-offering-status @@ -13495,7 +13494,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOfferingStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-offering-status)) (common-lisp:progn (common-lisp:defun get-project @@ -13512,7 +13511,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-project)) (common-lisp:progn (common-lisp:defun get-remote-access-session @@ -13530,7 +13529,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRemoteAccessSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-remote-access-session)) (common-lisp:progn (common-lisp:defun get-run @@ -13546,7 +13545,7 @@ (aws-sdk/generator/shape:make-request-with-input 'devicefarm-request aws-sdk/generator/operation::input "POST" "/" "GetRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-run)) (common-lisp:progn (common-lisp:defun get-suite @@ -13562,7 +13561,7 @@ (aws-sdk/generator/shape:make-request-with-input 'devicefarm-request aws-sdk/generator/operation::input "POST" "/" "GetSuite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-suite)) (common-lisp:progn (common-lisp:defun get-test @@ -13578,7 +13577,7 @@ (aws-sdk/generator/shape:make-request-with-input 'devicefarm-request aws-sdk/generator/operation::input "POST" "/" "GetTest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-test)) (common-lisp:progn (common-lisp:defun get-test-grid-project @@ -13595,7 +13594,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTestGridProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-test-grid-project)) (common-lisp:progn (common-lisp:defun get-test-grid-session @@ -13613,7 +13612,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTestGridSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-test-grid-session)) (common-lisp:progn (common-lisp:defun get-upload @@ -13630,7 +13629,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-upload)) (common-lisp:progn (common-lisp:defun get-vpceconfiguration @@ -13647,7 +13646,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetVPCEConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vpceconfiguration)) (common-lisp:progn (common-lisp:defun install-to-remote-access-session @@ -13666,7 +13665,7 @@ aws-sdk/generator/operation::input "POST" "/" "InstallToRemoteAccessSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'install-to-remote-access-session)) (common-lisp:progn (common-lisp:defun list-artifacts @@ -13683,7 +13682,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListArtifacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-artifacts)) (common-lisp:progn (common-lisp:defun list-device-instances @@ -13700,7 +13699,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeviceInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-instances)) (common-lisp:progn (common-lisp:defun list-device-pools @@ -13717,7 +13716,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDevicePools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-pools)) (common-lisp:progn (common-lisp:defun list-devices @@ -13734,7 +13733,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices)) (common-lisp:progn (common-lisp:defun list-instance-profiles @@ -13751,7 +13750,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListInstanceProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instance-profiles)) (common-lisp:progn (common-lisp:defun list-jobs @@ -13767,7 +13766,7 @@ (aws-sdk/generator/shape:make-request-with-input 'devicefarm-request aws-sdk/generator/operation::input "POST" "/" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-network-profiles @@ -13784,7 +13783,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListNetworkProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-network-profiles)) (common-lisp:progn (common-lisp:defun list-offering-promotions @@ -13801,7 +13800,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOfferingPromotions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-offering-promotions)) (common-lisp:progn (common-lisp:defun list-offering-transactions @@ -13819,7 +13818,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOfferingTransactions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-offering-transactions)) (common-lisp:progn (common-lisp:defun list-offerings @@ -13836,7 +13835,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-offerings)) (common-lisp:progn (common-lisp:defun list-projects @@ -13853,7 +13852,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-remote-access-sessions @@ -13871,7 +13870,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRemoteAccessSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-remote-access-sessions)) (common-lisp:progn (common-lisp:defun list-runs @@ -13887,7 +13886,7 @@ (aws-sdk/generator/shape:make-request-with-input 'devicefarm-request aws-sdk/generator/operation::input "POST" "/" "ListRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-runs)) (common-lisp:progn (common-lisp:defun list-samples @@ -13904,7 +13903,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSamples")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-samples)) (common-lisp:progn (common-lisp:defun list-suites @@ -13921,7 +13920,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSuites")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-suites)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -13938,7 +13937,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-test-grid-projects @@ -13955,7 +13954,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTestGridProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-grid-projects)) (common-lisp:progn (common-lisp:defun list-test-grid-session-actions @@ -13974,7 +13973,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTestGridSessionActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-grid-session-actions)) (common-lisp:progn (common-lisp:defun list-test-grid-session-artifacts @@ -13993,7 +13992,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTestGridSessionArtifacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-grid-session-artifacts)) (common-lisp:progn (common-lisp:defun list-test-grid-sessions @@ -14015,7 +14014,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTestGridSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-grid-sessions)) (common-lisp:progn (common-lisp:defun list-tests @@ -14032,7 +14031,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tests)) (common-lisp:progn (common-lisp:defun list-unique-problems @@ -14049,7 +14048,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUniqueProblems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-unique-problems)) (common-lisp:progn (common-lisp:defun list-uploads @@ -14066,7 +14065,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUploads")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-uploads)) (common-lisp:progn (common-lisp:defun list-vpceconfigurations @@ -14083,7 +14082,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListVPCEConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpceconfigurations)) (common-lisp:progn (common-lisp:defun purchase-offering @@ -14102,7 +14101,7 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'purchase-offering)) (common-lisp:progn (common-lisp:defun renew-offering @@ -14119,7 +14118,7 @@ aws-sdk/generator/operation::input "POST" "/" "RenewOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'renew-offering)) (common-lisp:progn (common-lisp:defun schedule-run @@ -14141,7 +14140,7 @@ aws-sdk/generator/operation::input "POST" "/" "ScheduleRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'schedule-run)) (common-lisp:progn (common-lisp:defun stop-job @@ -14157,7 +14156,7 @@ (aws-sdk/generator/shape:make-request-with-input 'devicefarm-request aws-sdk/generator/operation::input "POST" "/" "StopJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-job)) (common-lisp:progn (common-lisp:defun stop-remote-access-session @@ -14175,7 +14174,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopRemoteAccessSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-remote-access-session)) (common-lisp:progn (common-lisp:defun stop-run @@ -14191,7 +14190,7 @@ (aws-sdk/generator/shape:make-request-with-input 'devicefarm-request aws-sdk/generator/operation::input "POST" "/" "StopRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-run)) (common-lisp:progn (common-lisp:defun tag-resource @@ -14208,7 +14207,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14225,7 +14224,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-device-instance @@ -14242,7 +14241,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDeviceInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device-instance)) (common-lisp:progn (common-lisp:defun update-device-pool @@ -14262,7 +14261,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDevicePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device-pool)) (common-lisp:progn (common-lisp:defun update-instance-profile @@ -14282,7 +14281,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-instance-profile)) (common-lisp:progn (common-lisp:defun update-network-profile @@ -14306,7 +14305,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateNetworkProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-network-profile)) (common-lisp:progn (common-lisp:defun update-project @@ -14325,7 +14324,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) (common-lisp:progn (common-lisp:defun update-test-grid-project @@ -14343,7 +14342,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTestGridProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-test-grid-project)) (common-lisp:progn (common-lisp:defun update-upload @@ -14361,7 +14360,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-upload)) (common-lisp:progn (common-lisp:defun update-vpceconfiguration @@ -14382,5 +14381,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateVPCEConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpceconfiguration)) diff --git a/services/devops-guru/api.lisp b/services/devops-guru/api.lisp index 615be71f..cd153a55 100644 --- a/services/devops-guru/api.lisp +++ b/services/devops-guru/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/devops-guru/api - (:use) - (:nicknames #:aws/devops-guru) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/devops-guru/api (:use) + (:nicknames #:aws/devops-guru) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/devops-guru/api) (common-lisp:progn (common-lisp:define-condition devops-guru-error @@ -20,7 +19,7 @@ (common-lisp:export 'devops-guru-error)) (common-lisp:progn (common-lisp:defclass devops-guru-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "devops-guru" :api-version "2020-12-01" :host-prefix "devops-guru" :signing-name @@ -10746,7 +10745,7 @@ aws-sdk/generator/operation::input "PUT" "/channels" "AddNotificationChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-notification-channel)) (common-lisp:progn (common-lisp:defun delete-insight @@ -10768,12 +10767,13 @@ (common-lisp:format common-lisp:nil "/insights/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteInsight")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-insight)) (common-lisp:progn (common-lisp:defun describe-account-health () @@ -10801,7 +10801,7 @@ "POST" "/accounts/overview" "DescribeAccountOverview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-overview)) (common-lisp:progn (common-lisp:defun describe-anomaly @@ -10823,12 +10823,13 @@ (common-lisp:format common-lisp:nil "/anomalies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DescribeAnomaly")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-anomaly)) (common-lisp:progn (common-lisp:defun describe-event-sources-config () @@ -10854,7 +10855,7 @@ aws-sdk/generator/operation::input "POST" "/feedback" "DescribeFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-feedback)) (common-lisp:progn (common-lisp:defun describe-insight @@ -10876,12 +10877,13 @@ (common-lisp:format common-lisp:nil "/insights/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DescribeInsight")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-insight)) (common-lisp:progn (common-lisp:defun describe-organization-health @@ -10901,7 +10903,7 @@ "POST" "/organization/health" "DescribeOrganizationHealth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-health)) (common-lisp:progn (common-lisp:defun describe-organization-overview @@ -10923,7 +10925,7 @@ "POST" "/organization/overview" "DescribeOrganizationOverview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-overview)) (common-lisp:progn (common-lisp:defun describe-organization-resource-collection-health @@ -10946,7 +10948,7 @@ "POST" "/organization/health/resource-collection" "DescribeOrganizationResourceCollectionHealth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-resource-collection-health)) (common-lisp:progn (common-lisp:defun describe-resource-collection-health @@ -10970,12 +10972,13 @@ (common-lisp:format common-lisp:nil "/accounts/health/resource-collection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-collection-type)))) + 'resource-collection-type) + common-lisp:t))) "DescribeResourceCollectionHealth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-collection-health)) (common-lisp:progn (common-lisp:defun describe-service-integration () @@ -11002,7 +11005,7 @@ "GET" "/cost-estimation" "GetCostEstimation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cost-estimation)) (common-lisp:progn (common-lisp:defun get-resource-collection @@ -11025,12 +11028,13 @@ (common-lisp:format common-lisp:nil "/resource-collections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-collection-type)))) + 'resource-collection-type) + common-lisp:t))) "GetResourceCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-collection)) (common-lisp:progn (common-lisp:defun list-anomalies-for-insight @@ -11056,12 +11060,13 @@ (common-lisp:format common-lisp:nil "/anomalies/insight/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'insight-id)))) + 'insight-id) + common-lisp:t))) "ListAnomaliesForInsight")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-anomalies-for-insight)) (common-lisp:progn (common-lisp:defun list-anomalous-log-groups @@ -11081,7 +11086,7 @@ "POST" "/list-log-anomalies" "ListAnomalousLogGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-anomalous-log-groups)) (common-lisp:progn (common-lisp:defun list-events @@ -11100,7 +11105,7 @@ aws-sdk/generator/operation::input "POST" "/events" "ListEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-events)) (common-lisp:progn (common-lisp:defun list-insights @@ -11118,7 +11123,7 @@ aws-sdk/generator/operation::input "POST" "/insights" "ListInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-insights)) (common-lisp:progn (common-lisp:defun list-monitored-resources @@ -11136,7 +11141,7 @@ "POST" "/monitoredResources" "ListMonitoredResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitored-resources)) (common-lisp:progn (common-lisp:defun list-notification-channels @@ -11154,7 +11159,7 @@ aws-sdk/generator/operation::input "POST" "/channels" "ListNotificationChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notification-channels)) (common-lisp:progn (common-lisp:defun list-organization-insights @@ -11176,7 +11181,7 @@ "POST" "/organization/insights" "ListOrganizationInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-insights)) (common-lisp:progn (common-lisp:defun list-recommendations @@ -11195,7 +11200,7 @@ "POST" "/recommendations" "ListRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendations)) (common-lisp:progn (common-lisp:defun put-feedback @@ -11212,7 +11217,7 @@ aws-sdk/generator/operation::input "PUT" "/feedback" "PutFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-feedback)) (common-lisp:progn (common-lisp:defun remove-notification-channel @@ -11235,12 +11240,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "RemoveNotificationChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-notification-channel)) (common-lisp:progn (common-lisp:defun search-insights @@ -11261,7 +11267,7 @@ "POST" "/insights/search" "SearchInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-insights)) (common-lisp:progn (common-lisp:defun search-organization-insights @@ -11283,7 +11289,7 @@ "POST" "/organization/insights/search" "SearchOrganizationInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-organization-insights)) (common-lisp:progn (common-lisp:defun start-cost-estimation @@ -11302,7 +11308,7 @@ "PUT" "/cost-estimation" "StartCostEstimation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-cost-estimation)) (common-lisp:progn (common-lisp:defun update-event-sources-config @@ -11320,7 +11326,7 @@ aws-sdk/generator/operation::input "PUT" "/event-sources" "UpdateEventSourcesConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-sources-config)) (common-lisp:progn (common-lisp:defun update-resource-collection @@ -11339,7 +11345,7 @@ "PUT" "/resource-collections" "UpdateResourceCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-collection)) (common-lisp:progn (common-lisp:defun update-service-integration @@ -11358,5 +11364,5 @@ "PUT" "/service-integrations" "UpdateServiceIntegration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-integration)) diff --git a/services/directconnect/api.lisp b/services/directconnect/api.lisp index 784eb4a8..88fb9bbe 100644 --- a/services/directconnect/api.lisp +++ b/services/directconnect/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/directconnect/api - (:use) - (:nicknames #:aws/directconnect) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/directconnect/api (:use) + (:nicknames #:aws/directconnect) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/directconnect/api) (common-lisp:progn (common-lisp:define-condition directconnect-error @@ -9829,7 +9828,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptDirectConnectGatewayAssociationProposal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-direct-connect-gateway-association-proposal)) (common-lisp:progn (common-lisp:defun allocate-connection-on-interconnect @@ -9850,7 +9849,7 @@ aws-sdk/generator/operation::input "POST" "/" "AllocateConnectionOnInterconnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'allocate-connection-on-interconnect)) (common-lisp:progn (common-lisp:defun allocate-hosted-connection @@ -9871,7 +9870,7 @@ aws-sdk/generator/operation::input "POST" "/" "AllocateHostedConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'allocate-hosted-connection)) (common-lisp:progn (common-lisp:defun allocate-private-virtual-interface @@ -9892,7 +9891,7 @@ aws-sdk/generator/operation::input "POST" "/" "AllocatePrivateVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'allocate-private-virtual-interface)) (common-lisp:progn (common-lisp:defun allocate-public-virtual-interface @@ -9913,7 +9912,7 @@ aws-sdk/generator/operation::input "POST" "/" "AllocatePublicVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'allocate-public-virtual-interface)) (common-lisp:progn (common-lisp:defun allocate-transit-virtual-interface @@ -9934,7 +9933,7 @@ aws-sdk/generator/operation::input "POST" "/" "AllocateTransitVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'allocate-transit-virtual-interface)) (common-lisp:progn (common-lisp:defun associate-connection-with-lag @@ -9952,7 +9951,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateConnectionWithLag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-connection-with-lag)) (common-lisp:progn (common-lisp:defun associate-hosted-connection @@ -9971,7 +9970,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateHostedConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-hosted-connection)) (common-lisp:progn (common-lisp:defun associate-mac-sec-key @@ -9989,7 +9988,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateMacSecKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-mac-sec-key)) (common-lisp:progn (common-lisp:defun associate-virtual-interface @@ -10008,7 +10007,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-virtual-interface)) (common-lisp:progn (common-lisp:defun confirm-connection @@ -10025,7 +10024,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-connection)) (common-lisp:progn (common-lisp:defun confirm-customer-agreement @@ -10043,7 +10042,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmCustomerAgreement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-customer-agreement)) (common-lisp:progn (common-lisp:defun confirm-private-virtual-interface @@ -10064,7 +10063,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmPrivateVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-private-virtual-interface)) (common-lisp:progn (common-lisp:defun confirm-public-virtual-interface @@ -10082,7 +10081,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmPublicVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-public-virtual-interface)) (common-lisp:progn (common-lisp:defun confirm-transit-virtual-interface @@ -10102,7 +10101,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmTransitVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-transit-virtual-interface)) (common-lisp:progn (common-lisp:defun create-bgppeer @@ -10120,7 +10119,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBGPPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bgppeer)) (common-lisp:progn (common-lisp:defun create-connection @@ -10140,7 +10139,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connection)) (common-lisp:progn (common-lisp:defun create-direct-connect-gateway @@ -10160,7 +10159,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDirectConnectGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-direct-connect-gateway)) (common-lisp:progn (common-lisp:defun create-direct-connect-gateway-association @@ -10182,7 +10181,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDirectConnectGatewayAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-direct-connect-gateway-association)) (common-lisp:progn (common-lisp:defun create-direct-connect-gateway-association-proposal @@ -10207,7 +10206,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDirectConnectGatewayAssociationProposal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-direct-connect-gateway-association-proposal)) (common-lisp:progn (common-lisp:defun create-interconnect @@ -10227,7 +10226,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInterconnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-interconnect)) (common-lisp:progn (common-lisp:defun create-lag @@ -10249,7 +10248,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lag)) (common-lisp:progn (common-lisp:defun create-private-virtual-interface @@ -10269,7 +10268,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePrivateVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-private-virtual-interface)) (common-lisp:progn (common-lisp:defun create-public-virtual-interface @@ -10289,7 +10288,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePublicVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-public-virtual-interface)) (common-lisp:progn (common-lisp:defun create-transit-virtual-interface @@ -10309,7 +10308,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-transit-virtual-interface)) (common-lisp:progn (common-lisp:defun delete-bgppeer @@ -10329,7 +10328,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBGPPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bgppeer)) (common-lisp:progn (common-lisp:defun delete-connection @@ -10346,7 +10345,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun delete-direct-connect-gateway @@ -10364,7 +10363,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDirectConnectGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-direct-connect-gateway)) (common-lisp:progn (common-lisp:defun delete-direct-connect-gateway-association @@ -10385,7 +10384,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDirectConnectGatewayAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-direct-connect-gateway-association)) (common-lisp:progn (common-lisp:defun delete-direct-connect-gateway-association-proposal @@ -10403,7 +10402,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDirectConnectGatewayAssociationProposal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-direct-connect-gateway-association-proposal)) (common-lisp:progn (common-lisp:defun delete-interconnect @@ -10420,7 +10419,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInterconnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-interconnect)) (common-lisp:progn (common-lisp:defun delete-lag @@ -10437,7 +10436,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lag)) (common-lisp:progn (common-lisp:defun delete-virtual-interface @@ -10454,7 +10453,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVirtualInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-virtual-interface)) (common-lisp:progn (common-lisp:defun describe-connection-loa @@ -10473,7 +10472,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnectionLoa")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connection-loa)) (common-lisp:progn (common-lisp:defun describe-connections @@ -10490,7 +10489,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connections)) (common-lisp:progn (common-lisp:defun describe-connections-on-interconnect @@ -10508,7 +10507,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnectionsOnInterconnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connections-on-interconnect)) (common-lisp:progn (common-lisp:defun describe-customer-metadata () @@ -10537,7 +10536,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDirectConnectGatewayAssociationProposals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-direct-connect-gateway-association-proposals)) (common-lisp:progn (common-lisp:defun describe-direct-connect-gateway-associations @@ -10559,7 +10558,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDirectConnectGatewayAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-direct-connect-gateway-associations)) (common-lisp:progn (common-lisp:defun describe-direct-connect-gateway-attachments @@ -10580,7 +10579,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDirectConnectGatewayAttachments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-direct-connect-gateway-attachments)) (common-lisp:progn (common-lisp:defun describe-direct-connect-gateways @@ -10600,7 +10599,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDirectConnectGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-direct-connect-gateways)) (common-lisp:progn (common-lisp:defun describe-hosted-connections @@ -10618,7 +10617,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHostedConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-hosted-connections)) (common-lisp:progn (common-lisp:defun describe-interconnect-loa @@ -10638,7 +10637,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInterconnectLoa")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-interconnect-loa)) (common-lisp:progn (common-lisp:defun describe-interconnects @@ -10655,7 +10654,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInterconnects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-interconnects)) (common-lisp:progn (common-lisp:defun describe-lags @@ -10672,7 +10671,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-lags)) (common-lisp:progn (common-lisp:defun describe-loa @@ -10691,7 +10690,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLoa")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-loa)) (common-lisp:progn (common-lisp:defun describe-locations () @@ -10719,7 +10718,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRouterConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-router-configuration)) (common-lisp:progn (common-lisp:defun describe-tags @@ -10736,7 +10735,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun describe-virtual-gateways () @@ -10763,7 +10762,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVirtualInterfaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-virtual-interfaces)) (common-lisp:progn (common-lisp:defun disassociate-connection-from-lag @@ -10781,7 +10780,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateConnectionFromLag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-connection-from-lag)) (common-lisp:progn (common-lisp:defun disassociate-mac-sec-key @@ -10798,7 +10797,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateMacSecKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-mac-sec-key)) (common-lisp:progn (common-lisp:defun list-virtual-interface-test-history @@ -10819,7 +10818,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListVirtualInterfaceTestHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-virtual-interface-test-history)) (common-lisp:progn (common-lisp:defun start-bgp-failover-test @@ -10839,7 +10838,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartBgpFailoverTest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-bgp-failover-test)) (common-lisp:progn (common-lisp:defun stop-bgp-failover-test @@ -10856,7 +10855,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopBgpFailoverTest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-bgp-failover-test)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10873,7 +10872,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10890,7 +10889,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-connection @@ -10909,7 +10908,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connection)) (common-lisp:progn (common-lisp:defun update-direct-connect-gateway @@ -10930,7 +10929,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDirectConnectGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-direct-connect-gateway)) (common-lisp:progn (common-lisp:defun update-direct-connect-gateway-association @@ -10953,7 +10952,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDirectConnectGatewayAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-direct-connect-gateway-association)) (common-lisp:progn (common-lisp:defun update-lag @@ -10972,7 +10971,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateLag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-lag)) (common-lisp:progn (common-lisp:defun update-virtual-interface-attributes @@ -10993,5 +10992,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateVirtualInterfaceAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-virtual-interface-attributes)) diff --git a/services/discovery/api.lisp b/services/discovery/api.lisp index 2547c0c0..6aa001f3 100644 --- a/services/discovery/api.lisp +++ b/services/discovery/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/discovery/api - (:use) - (:nicknames #:aws/discovery) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/discovery/api (:use) + (:nicknames #:aws/discovery) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/discovery/api) (common-lisp:progn (common-lisp:define-condition discovery-error @@ -5799,7 +5798,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateConfigurationItemsToApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-configuration-items-to-application)) (common-lisp:progn (common-lisp:defun batch-delete-agents @@ -5816,7 +5815,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteAgents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-agents)) (common-lisp:progn (common-lisp:defun batch-delete-import-data @@ -5833,7 +5832,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteImportData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-import-data)) (common-lisp:progn (common-lisp:defun create-application @@ -5850,7 +5849,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-tags @@ -5867,7 +5866,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tags)) (common-lisp:progn (common-lisp:defun delete-applications @@ -5884,7 +5883,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-applications)) (common-lisp:progn (common-lisp:defun delete-tags @@ -5901,7 +5900,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun describe-agents @@ -5919,7 +5918,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAgents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-agents)) (common-lisp:progn (common-lisp:defun describe-batch-delete-configuration-task @@ -5937,7 +5936,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBatchDeleteConfigurationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-batch-delete-configuration-task)) (common-lisp:progn (common-lisp:defun describe-configurations @@ -5954,7 +5953,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configurations)) (common-lisp:progn (common-lisp:defun describe-continuous-exports @@ -5973,7 +5972,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeContinuousExports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-continuous-exports)) (common-lisp:progn (common-lisp:defun describe-export-configurations @@ -5992,7 +5991,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExportConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-export-configurations)) (common-lisp:progn (common-lisp:defun describe-export-tasks @@ -6011,7 +6010,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExportTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-export-tasks)) (common-lisp:progn (common-lisp:defun describe-import-tasks @@ -6028,7 +6027,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImportTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-import-tasks)) (common-lisp:progn (common-lisp:defun describe-tags @@ -6045,7 +6044,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun disassociate-configuration-items-from-application @@ -6065,7 +6064,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateConfigurationItemsFromApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-configuration-items-from-application)) (common-lisp:progn (common-lisp:defun export-configurations () @@ -6101,7 +6100,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configurations)) (common-lisp:progn (common-lisp:defun list-server-neighbors @@ -6121,7 +6120,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServerNeighbors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-server-neighbors)) (common-lisp:progn (common-lisp:defun start-batch-delete-configuration-task @@ -6140,7 +6139,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartBatchDeleteConfigurationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-batch-delete-configuration-task)) (common-lisp:progn (common-lisp:defun start-continuous-export () @@ -6166,7 +6165,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDataCollectionByAgentIds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-data-collection-by-agent-ids)) (common-lisp:progn (common-lisp:defun start-export-task @@ -6186,7 +6185,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartExportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-export-task)) (common-lisp:progn (common-lisp:defun start-import-task @@ -6204,7 +6203,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import-task)) (common-lisp:progn (common-lisp:defun stop-continuous-export @@ -6221,7 +6220,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopContinuousExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-continuous-export)) (common-lisp:progn (common-lisp:defun stop-data-collection-by-agent-ids @@ -6239,7 +6238,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopDataCollectionByAgentIds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-data-collection-by-agent-ids)) (common-lisp:progn (common-lisp:defun update-application @@ -6257,5 +6256,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) diff --git a/services/dlm/api.lisp b/services/dlm/api.lisp index 459e2074..4d725220 100644 --- a/services/dlm/api.lisp +++ b/services/dlm/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/dlm/api - (:use) - (:nicknames #:aws/dlm) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/dlm/api (:use) + (:nicknames #:aws/dlm) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/dlm/api) (common-lisp:progn (common-lisp:define-condition dlm-error @@ -20,7 +19,7 @@ (common-lisp:export 'dlm-error)) (common-lisp:progn (common-lisp:defclass dlm-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "dlm" :api-version "2018-01-12" :host-prefix "dlm" :signing-name "dlm" @@ -3177,7 +3176,7 @@ aws-sdk/generator/operation::input "POST" "/policies" "CreateLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lifecycle-policy)) (common-lisp:progn (common-lisp:defun delete-lifecycle-policy @@ -3199,12 +3198,13 @@ (common-lisp:format common-lisp:nil "/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-id)))) + 'policy-id) + common-lisp:t))) "DeleteLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lifecycle-policy)) (common-lisp:progn (common-lisp:defun get-lifecycle-policies @@ -3224,7 +3224,7 @@ aws-sdk/generator/operation::input "GET" "/policies" "GetLifecyclePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lifecycle-policies)) (common-lisp:progn (common-lisp:defun get-lifecycle-policy @@ -3246,12 +3246,13 @@ (common-lisp:format common-lisp:nil "/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-id)))) + 'policy-id) + common-lisp:t))) "GetLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lifecycle-policy)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3273,12 +3274,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3300,12 +3302,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3327,12 +3330,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-lifecycle-policy @@ -3360,10 +3364,11 @@ (common-lisp:format common-lisp:nil "/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-id)))) + 'policy-id) + common-lisp:t))) "UpdateLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-lifecycle-policy)) diff --git a/services/dms/api.lisp b/services/dms/api.lisp index f8c212d2..0c7759b1 100644 --- a/services/dms/api.lisp +++ b/services/dms/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/dms/api - (:use) - (:nicknames #:aws/dms) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/dms/api (:use) + (:nicknames #:aws/dms) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/dms/api) (common-lisp:progn (common-lisp:define-condition dms-error @@ -27676,7 +27675,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun apply-pending-maintenance-action @@ -27696,7 +27695,7 @@ aws-sdk/generator/operation::input "POST" "/" "ApplyPendingMaintenanceAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'apply-pending-maintenance-action)) (common-lisp:progn (common-lisp:defun batch-start-recommendations @@ -27714,7 +27713,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchStartRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-start-recommendations)) (common-lisp:progn (common-lisp:defun cancel-replication-task-assessment-run @@ -27733,7 +27732,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelReplicationTaskAssessmentRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-replication-task-assessment-run)) (common-lisp:progn (common-lisp:defun create-data-provider @@ -27753,7 +27752,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-provider)) (common-lisp:progn (common-lisp:defun create-endpoint @@ -27790,7 +27789,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-endpoint)) (common-lisp:progn (common-lisp:defun create-event-subscription @@ -27811,7 +27810,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-subscription)) (common-lisp:progn (common-lisp:defun create-fleet-advisor-collector @@ -27832,7 +27831,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFleetAdvisorCollector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet-advisor-collector)) (common-lisp:progn (common-lisp:defun create-instance-profile @@ -27855,7 +27854,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instance-profile)) (common-lisp:progn (common-lisp:defun create-migration-project @@ -27880,7 +27879,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMigrationProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-migration-project)) (common-lisp:progn (common-lisp:defun create-replication-config @@ -27904,7 +27903,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReplicationConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-config)) (common-lisp:progn (common-lisp:defun create-replication-instance @@ -27934,7 +27933,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReplicationInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-instance)) (common-lisp:progn (common-lisp:defun create-replication-subnet-group @@ -27955,7 +27954,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReplicationSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-subnet-group)) (common-lisp:progn (common-lisp:defun create-replication-task @@ -27981,7 +27980,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReplicationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-task)) (common-lisp:progn (common-lisp:defun delete-certificate @@ -27998,7 +27997,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-certificate)) (common-lisp:progn (common-lisp:defun delete-connection @@ -28016,7 +28015,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun delete-data-provider @@ -28033,7 +28032,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-provider)) (common-lisp:progn (common-lisp:defun delete-endpoint @@ -28050,7 +28049,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint)) (common-lisp:progn (common-lisp:defun delete-event-subscription @@ -28068,7 +28067,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-subscription)) (common-lisp:progn (common-lisp:defun delete-fleet-advisor-collector @@ -28085,7 +28084,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFleetAdvisorCollector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet-advisor-collector)) (common-lisp:progn (common-lisp:defun delete-fleet-advisor-databases @@ -28103,7 +28102,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFleetAdvisorDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet-advisor-databases)) (common-lisp:progn (common-lisp:defun delete-instance-profile @@ -28120,7 +28119,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance-profile)) (common-lisp:progn (common-lisp:defun delete-migration-project @@ -28137,7 +28136,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMigrationProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-migration-project)) (common-lisp:progn (common-lisp:defun delete-replication-config @@ -28155,7 +28154,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReplicationConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-config)) (common-lisp:progn (common-lisp:defun delete-replication-instance @@ -28173,7 +28172,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReplicationInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-instance)) (common-lisp:progn (common-lisp:defun delete-replication-subnet-group @@ -28192,7 +28191,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReplicationSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-subnet-group)) (common-lisp:progn (common-lisp:defun delete-replication-task @@ -28209,7 +28208,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReplicationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-task)) (common-lisp:progn (common-lisp:defun delete-replication-task-assessment-run @@ -28228,7 +28227,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReplicationTaskAssessmentRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-task-assessment-run)) (common-lisp:progn (common-lisp:defun describe-account-attributes () @@ -28258,7 +28257,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApplicableIndividualAssessments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-applicable-individual-assessments)) (common-lisp:progn (common-lisp:defun describe-certificates @@ -28275,7 +28274,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-certificates)) (common-lisp:progn (common-lisp:defun describe-connections @@ -28292,7 +28291,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connections)) (common-lisp:progn (common-lisp:defun describe-conversion-configuration @@ -28310,7 +28309,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConversionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-conversion-configuration)) (common-lisp:progn (common-lisp:defun describe-data-providers @@ -28327,7 +28326,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-providers)) (common-lisp:progn (common-lisp:defun describe-endpoint-settings @@ -28345,7 +28344,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpointSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoint-settings)) (common-lisp:progn (common-lisp:defun describe-endpoint-types @@ -28362,7 +28361,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpointTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoint-types)) (common-lisp:progn (common-lisp:defun describe-endpoints @@ -28379,7 +28378,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoints)) (common-lisp:progn (common-lisp:defun describe-engine-versions @@ -28396,7 +28395,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEngineVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-engine-versions)) (common-lisp:progn (common-lisp:defun describe-event-categories @@ -28414,7 +28413,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventCategories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-categories)) (common-lisp:progn (common-lisp:defun describe-event-subscriptions @@ -28434,7 +28433,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-subscriptions)) (common-lisp:progn (common-lisp:defun describe-events @@ -28455,7 +28454,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-extension-pack-associations @@ -28476,7 +28475,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExtensionPackAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-extension-pack-associations)) (common-lisp:progn (common-lisp:defun describe-fleet-advisor-collectors @@ -28494,7 +28493,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetAdvisorCollectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-advisor-collectors)) (common-lisp:progn (common-lisp:defun describe-fleet-advisor-databases @@ -28512,7 +28511,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetAdvisorDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-advisor-databases)) (common-lisp:progn (common-lisp:defun describe-fleet-advisor-lsa-analysis @@ -28530,7 +28529,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetAdvisorLsaAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-advisor-lsa-analysis)) (common-lisp:progn (common-lisp:defun describe-fleet-advisor-schema-object-summary @@ -28548,7 +28547,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetAdvisorSchemaObjectSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-advisor-schema-object-summary)) (common-lisp:progn (common-lisp:defun describe-fleet-advisor-schemas @@ -28566,7 +28565,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetAdvisorSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-advisor-schemas)) (common-lisp:progn (common-lisp:defun describe-instance-profiles @@ -28584,7 +28583,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-profiles)) (common-lisp:progn (common-lisp:defun describe-metadata-model-assessments @@ -28605,7 +28604,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMetadataModelAssessments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-metadata-model-assessments)) (common-lisp:progn (common-lisp:defun describe-metadata-model-conversions @@ -28626,7 +28625,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMetadataModelConversions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-metadata-model-conversions)) (common-lisp:progn (common-lisp:defun describe-metadata-model-exports-as-script @@ -28647,7 +28646,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMetadataModelExportsAsScript")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-metadata-model-exports-as-script)) (common-lisp:progn (common-lisp:defun describe-metadata-model-exports-to-target @@ -28668,7 +28667,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMetadataModelExportsToTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-metadata-model-exports-to-target)) (common-lisp:progn (common-lisp:defun describe-metadata-model-imports @@ -28689,7 +28688,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMetadataModelImports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-metadata-model-imports)) (common-lisp:progn (common-lisp:defun describe-migration-projects @@ -28707,7 +28706,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMigrationProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-migration-projects)) (common-lisp:progn (common-lisp:defun describe-orderable-replication-instances @@ -28725,7 +28724,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrderableReplicationInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-orderable-replication-instances)) (common-lisp:progn (common-lisp:defun describe-pending-maintenance-actions @@ -28746,7 +28745,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePendingMaintenanceActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pending-maintenance-actions)) (common-lisp:progn (common-lisp:defun describe-recommendation-limitations @@ -28764,7 +28763,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRecommendationLimitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recommendation-limitations)) (common-lisp:progn (common-lisp:defun describe-recommendations @@ -28781,7 +28780,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recommendations)) (common-lisp:progn (common-lisp:defun describe-refresh-schemas-status @@ -28799,7 +28798,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRefreshSchemasStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-refresh-schemas-status)) (common-lisp:progn (common-lisp:defun describe-replication-configs @@ -28817,7 +28816,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-configs)) (common-lisp:progn (common-lisp:defun describe-replication-instance-task-logs @@ -28837,7 +28836,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationInstanceTaskLogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-instance-task-logs)) (common-lisp:progn (common-lisp:defun describe-replication-instances @@ -28855,7 +28854,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-instances)) (common-lisp:progn (common-lisp:defun describe-replication-subnet-groups @@ -28873,7 +28872,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationSubnetGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-subnet-groups)) (common-lisp:progn (common-lisp:defun describe-replication-table-statistics @@ -28893,7 +28892,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationTableStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-table-statistics)) (common-lisp:progn (common-lisp:defun describe-replication-task-assessment-results @@ -28912,7 +28911,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationTaskAssessmentResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-task-assessment-results)) (common-lisp:progn (common-lisp:defun describe-replication-task-assessment-runs @@ -28930,7 +28929,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationTaskAssessmentRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-task-assessment-runs)) (common-lisp:progn (common-lisp:defun describe-replication-task-individual-assessments @@ -28948,7 +28947,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationTaskIndividualAssessments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-task-individual-assessments)) (common-lisp:progn (common-lisp:defun describe-replication-tasks @@ -28968,7 +28967,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-tasks)) (common-lisp:progn (common-lisp:defun describe-replications @@ -28985,7 +28984,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replications)) (common-lisp:progn (common-lisp:defun describe-schemas @@ -29003,7 +29002,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-schemas)) (common-lisp:progn (common-lisp:defun describe-table-statistics @@ -29023,7 +29022,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTableStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-table-statistics)) (common-lisp:progn (common-lisp:defun export-metadata-model-assessment @@ -29044,7 +29043,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportMetadataModelAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-metadata-model-assessment)) (common-lisp:progn (common-lisp:defun import-certificate @@ -29064,7 +29063,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-certificate)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -29081,7 +29080,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-conversion-configuration @@ -29102,7 +29101,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyConversionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-conversion-configuration)) (common-lisp:progn (common-lisp:defun modify-data-provider @@ -29123,7 +29122,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDataProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-data-provider)) (common-lisp:progn (common-lisp:defun modify-endpoint @@ -29160,7 +29159,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-endpoint)) (common-lisp:progn (common-lisp:defun modify-event-subscription @@ -29181,7 +29180,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyEventSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-event-subscription)) (common-lisp:progn (common-lisp:defun modify-instance-profile @@ -29204,7 +29203,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-instance-profile)) (common-lisp:progn (common-lisp:defun modify-migration-project @@ -29229,7 +29228,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyMigrationProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-migration-project)) (common-lisp:progn (common-lisp:defun modify-replication-config @@ -29253,7 +29252,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyReplicationConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-replication-config)) (common-lisp:progn (common-lisp:defun modify-replication-instance @@ -29281,7 +29280,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyReplicationInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-replication-instance)) (common-lisp:progn (common-lisp:defun modify-replication-subnet-group @@ -29302,7 +29301,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyReplicationSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-replication-subnet-group)) (common-lisp:progn (common-lisp:defun modify-replication-task @@ -29325,7 +29324,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyReplicationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-replication-task)) (common-lisp:progn (common-lisp:defun move-replication-task @@ -29345,7 +29344,7 @@ aws-sdk/generator/operation::input "POST" "/" "MoveReplicationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'move-replication-task)) (common-lisp:progn (common-lisp:defun reboot-replication-instance @@ -29366,7 +29365,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootReplicationInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-replication-instance)) (common-lisp:progn (common-lisp:defun refresh-schemas @@ -29384,7 +29383,7 @@ aws-sdk/generator/operation::input "POST" "/" "RefreshSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'refresh-schemas)) (common-lisp:progn (common-lisp:defun reload-replication-tables @@ -29405,7 +29404,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReloadReplicationTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reload-replication-tables)) (common-lisp:progn (common-lisp:defun reload-tables @@ -29425,7 +29424,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReloadTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reload-tables)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -29443,7 +29442,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-resource)) (common-lisp:progn (common-lisp:defun run-fleet-advisor-lsa-analysis () @@ -29469,7 +29468,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartExtensionPackAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-extension-pack-association)) (common-lisp:progn (common-lisp:defun start-metadata-model-assessment @@ -29489,7 +29488,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMetadataModelAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-metadata-model-assessment)) (common-lisp:progn (common-lisp:defun start-metadata-model-conversion @@ -29509,7 +29508,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMetadataModelConversion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-metadata-model-conversion)) (common-lisp:progn (common-lisp:defun start-metadata-model-export-as-script @@ -29530,7 +29529,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMetadataModelExportAsScript")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-metadata-model-export-as-script)) (common-lisp:progn (common-lisp:defun start-metadata-model-export-to-target @@ -29551,7 +29550,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMetadataModelExportToTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-metadata-model-export-to-target)) (common-lisp:progn (common-lisp:defun start-metadata-model-import @@ -29572,7 +29571,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMetadataModelImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-metadata-model-import)) (common-lisp:progn (common-lisp:defun start-recommendations @@ -29589,7 +29588,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-recommendations)) (common-lisp:progn (common-lisp:defun start-replication @@ -29610,7 +29609,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-replication)) (common-lisp:progn (common-lisp:defun start-replication-task @@ -29631,7 +29630,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartReplicationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-replication-task)) (common-lisp:progn (common-lisp:defun start-replication-task-assessment @@ -29649,7 +29648,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartReplicationTaskAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-replication-task-assessment)) (common-lisp:progn (common-lisp:defun start-replication-task-assessment-run @@ -29674,7 +29673,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartReplicationTaskAssessmentRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-replication-task-assessment-run)) (common-lisp:progn (common-lisp:defun stop-replication @@ -29691,7 +29690,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-replication)) (common-lisp:progn (common-lisp:defun stop-replication-task @@ -29708,7 +29707,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopReplicationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-replication-task)) (common-lisp:progn (common-lisp:defun test-connection @@ -29726,7 +29725,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-connection)) (common-lisp:progn (common-lisp:defun update-subscriptions-to-event-bridge @@ -29744,5 +29743,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSubscriptionsToEventBridge")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscriptions-to-event-bridge)) diff --git a/services/docdb-elastic/api.lisp b/services/docdb-elastic/api.lisp index 5c899ff5..da5a7a21 100644 --- a/services/docdb-elastic/api.lisp +++ b/services/docdb-elastic/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/docdb-elastic/api - (:use) - (:nicknames #:aws/docdb-elastic) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/docdb-elastic/api (:use) + (:nicknames #:aws/docdb-elastic) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/docdb-elastic/api) (common-lisp:progn (common-lisp:define-condition docdb-elastic-error @@ -20,7 +19,7 @@ (common-lisp:export 'docdb-elastic-error)) (common-lisp:progn (common-lisp:defclass docdb-elastic-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "docdb-elastic" :api-version "2022-11-28" :host-prefix "docdb-elastic" :signing-name @@ -2484,12 +2483,13 @@ (common-lisp:format common-lisp:nil "/cluster-snapshot/~A/copy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-arn)))) + 'snapshot-arn) + common-lisp:t))) "CopyClusterSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-cluster-snapshot)) (common-lisp:progn (common-lisp:defun create-cluster @@ -2515,7 +2515,7 @@ aws-sdk/generator/operation::input "POST" "/cluster" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-cluster-snapshot @@ -2533,7 +2533,7 @@ "POST" "/cluster-snapshot" "CreateClusterSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster-snapshot)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -2555,12 +2555,13 @@ (common-lisp:format common-lisp:nil "/cluster/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-cluster-snapshot @@ -2582,12 +2583,13 @@ (common-lisp:format common-lisp:nil "/cluster-snapshot/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-arn)))) + 'snapshot-arn) + common-lisp:t))) "DeleteClusterSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster-snapshot)) (common-lisp:progn (common-lisp:defun get-cluster @@ -2609,12 +2611,13 @@ (common-lisp:format common-lisp:nil "/cluster/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "GetCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cluster)) (common-lisp:progn (common-lisp:defun get-cluster-snapshot @@ -2636,12 +2639,13 @@ (common-lisp:format common-lisp:nil "/cluster-snapshot/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-arn)))) + 'snapshot-arn) + common-lisp:t))) "GetClusterSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cluster-snapshot)) (common-lisp:progn (common-lisp:defun list-cluster-snapshots @@ -2661,7 +2665,7 @@ "GET" "/cluster-snapshots" "ListClusterSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cluster-snapshots)) (common-lisp:progn (common-lisp:defun list-clusters @@ -2678,7 +2682,7 @@ aws-sdk/generator/operation::input "GET" "/clusters" "ListClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2700,12 +2704,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun restore-cluster-from-snapshot @@ -2732,12 +2737,13 @@ (common-lisp:format common-lisp:nil "/cluster-snapshot/~A/restore" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-arn)))) + 'snapshot-arn) + common-lisp:t))) "RestoreClusterFromSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-cluster-from-snapshot)) (common-lisp:progn (common-lisp:defun start-cluster @@ -2759,12 +2765,13 @@ (common-lisp:format common-lisp:nil "/cluster/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "StartCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-cluster)) (common-lisp:progn (common-lisp:defun stop-cluster @@ -2786,12 +2793,13 @@ (common-lisp:format common-lisp:nil "/cluster/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "StopCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-cluster)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2813,12 +2821,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2840,12 +2849,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-cluster @@ -2875,10 +2885,11 @@ (common-lisp:format common-lisp:nil "/cluster/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster)) diff --git a/services/docdb/api.lisp b/services/docdb/api.lisp index 04f129b4..c407dc4b 100644 --- a/services/docdb/api.lisp +++ b/services/docdb/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/docdb/api - (:use) - (:nicknames #:aws/docdb) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/docdb/api (:use) + (:nicknames #:aws/docdb) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/docdb/api) (common-lisp:progn (common-lisp:define-condition docdb-error @@ -11339,7 +11338,8 @@ aws-sdk/generator/operation::input "POST" "/" "AddSourceIdentifierToSubscription")) - common-lisp:nil "AddSourceIdentifierToSubscriptionResult" *error-map*))) + common-lisp:nil "AddSourceIdentifierToSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'add-source-identifier-to-subscription)) (common-lisp:progn (common-lisp:defun add-tags-to-resource @@ -11356,7 +11356,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun apply-pending-maintenance-action @@ -11376,7 +11376,8 @@ aws-sdk/generator/operation::input "POST" "/" "ApplyPendingMaintenanceAction")) - common-lisp:nil "ApplyPendingMaintenanceActionResult" *error-map*))) + common-lisp:nil "ApplyPendingMaintenanceActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'apply-pending-maintenance-action)) (common-lisp:progn (common-lisp:defun copy-dbcluster-parameter-group @@ -11400,7 +11401,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBClusterParameterGroup")) - common-lisp:nil "CopyDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "CopyDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun copy-dbcluster-snapshot @@ -11422,7 +11424,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBClusterSnapshot")) - common-lisp:nil "CopyDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "CopyDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun create-dbcluster @@ -11454,7 +11457,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBCluster")) - common-lisp:nil "CreateDBClusterResult" *error-map*))) + common-lisp:nil "CreateDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbcluster)) (common-lisp:progn (common-lisp:defun create-dbcluster-parameter-group @@ -11475,7 +11478,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBClusterParameterGroup")) - common-lisp:nil "CreateDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "CreateDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun create-dbcluster-snapshot @@ -11496,7 +11500,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBClusterSnapshot")) - common-lisp:nil "CreateDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "CreateDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun create-dbinstance @@ -11523,7 +11528,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBInstance")) - common-lisp:nil "CreateDBInstanceResult" *error-map*))) + common-lisp:nil "CreateDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbinstance)) (common-lisp:progn (common-lisp:defun create-dbsubnet-group @@ -11543,7 +11548,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBSubnetGroup")) - common-lisp:nil "CreateDBSubnetGroupResult" *error-map*))) + common-lisp:nil "CreateDBSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbsubnet-group)) (common-lisp:progn (common-lisp:defun create-event-subscription @@ -11564,7 +11570,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventSubscription")) - common-lisp:nil "CreateEventSubscriptionResult" *error-map*))) + common-lisp:nil "CreateEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-event-subscription)) (common-lisp:progn (common-lisp:defun create-global-cluster @@ -11586,7 +11593,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGlobalCluster")) - common-lisp:nil "CreateGlobalClusterResult" *error-map*))) + common-lisp:nil "CreateGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-global-cluster)) (common-lisp:progn (common-lisp:defun delete-dbcluster @@ -11606,7 +11614,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBCluster")) - common-lisp:nil "DeleteDBClusterResult" *error-map*))) + common-lisp:nil "DeleteDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbcluster)) (common-lisp:progn (common-lisp:defun delete-dbcluster-parameter-group @@ -11624,7 +11632,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun delete-dbcluster-snapshot @@ -11642,7 +11650,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterSnapshot")) - common-lisp:nil "DeleteDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "DeleteDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun delete-dbinstance @@ -11659,7 +11668,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBInstance")) - common-lisp:nil "DeleteDBInstanceResult" *error-map*))) + common-lisp:nil "DeleteDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbinstance)) (common-lisp:progn (common-lisp:defun delete-dbsubnet-group @@ -11676,7 +11685,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbsubnet-group)) (common-lisp:progn (common-lisp:defun delete-event-subscription @@ -11694,7 +11703,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventSubscription")) - common-lisp:nil "DeleteEventSubscriptionResult" *error-map*))) + common-lisp:nil "DeleteEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-event-subscription)) (common-lisp:progn (common-lisp:defun delete-global-cluster @@ -11711,7 +11721,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGlobalCluster")) - common-lisp:nil "DeleteGlobalClusterResult" *error-map*))) + common-lisp:nil "DeleteGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-global-cluster)) (common-lisp:progn (common-lisp:defun describe-certificates @@ -11730,7 +11741,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCertificates")) - common-lisp:nil "DescribeCertificatesResult" *error-map*))) + common-lisp:nil "DescribeCertificatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-certificates)) (common-lisp:progn (common-lisp:defun describe-dbcluster-parameter-groups @@ -11751,7 +11763,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterParameterGroups")) - common-lisp:nil "DescribeDBClusterParameterGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterParameterGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-parameter-groups)) (common-lisp:progn (common-lisp:defun describe-dbcluster-parameters @@ -11772,7 +11785,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterParameters")) - common-lisp:nil "DescribeDBClusterParametersResult" *error-map*))) + common-lisp:nil "DescribeDBClusterParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-parameters)) (common-lisp:progn (common-lisp:defun describe-dbcluster-snapshot-attributes @@ -11790,8 +11804,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterSnapshotAttributes")) - common-lisp:nil "DescribeDBClusterSnapshotAttributesResult" - *error-map*))) + common-lisp:nil "DescribeDBClusterSnapshotAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-snapshot-attributes)) (common-lisp:progn (common-lisp:defun describe-dbcluster-snapshots @@ -11813,7 +11827,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterSnapshots")) - common-lisp:nil "DescribeDBClusterSnapshotsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterSnapshotsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-snapshots)) (common-lisp:progn (common-lisp:defun describe-dbclusters @@ -11832,7 +11847,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusters")) - common-lisp:nil "DescribeDBClustersResult" *error-map*))) + common-lisp:nil "DescribeDBClustersResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-dbclusters)) (common-lisp:progn (common-lisp:defun describe-dbengine-versions @@ -11856,7 +11871,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBEngineVersions")) - common-lisp:nil "DescribeDBEngineVersionsResult" *error-map*))) + common-lisp:nil "DescribeDBEngineVersionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbengine-versions)) (common-lisp:progn (common-lisp:defun describe-dbinstances @@ -11875,7 +11891,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBInstances")) - common-lisp:nil "DescribeDBInstancesResult" *error-map*))) + common-lisp:nil "DescribeDBInstancesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbinstances)) (common-lisp:progn (common-lisp:defun describe-dbsubnet-groups @@ -11894,7 +11911,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBSubnetGroups")) - common-lisp:nil "DescribeDBSubnetGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBSubnetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbsubnet-groups)) (common-lisp:progn (common-lisp:defun describe-engine-default-cluster-parameters @@ -11916,7 +11934,7 @@ "POST" "/" "DescribeEngineDefaultClusterParameters")) common-lisp:nil "DescribeEngineDefaultClusterParametersResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'describe-engine-default-cluster-parameters)) (common-lisp:progn (common-lisp:defun describe-event-categories @@ -11934,7 +11952,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventCategories")) - common-lisp:nil "DescribeEventCategoriesResult" *error-map*))) + common-lisp:nil "DescribeEventCategoriesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-event-categories)) (common-lisp:progn (common-lisp:defun describe-event-subscriptions @@ -11954,7 +11973,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventSubscriptions")) - common-lisp:nil "DescribeEventSubscriptionsResult" *error-map*))) + common-lisp:nil "DescribeEventSubscriptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-event-subscriptions)) (common-lisp:progn (common-lisp:defun describe-events @@ -11975,7 +11995,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil "DescribeEventsResult" *error-map*))) + common-lisp:nil "DescribeEventsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-global-clusters @@ -11995,7 +12015,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGlobalClusters")) - common-lisp:nil "DescribeGlobalClustersResult" *error-map*))) + common-lisp:nil "DescribeGlobalClustersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-global-clusters)) (common-lisp:progn (common-lisp:defun describe-orderable-dbinstance-options @@ -12016,7 +12037,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrderableDBInstanceOptions")) - common-lisp:nil "DescribeOrderableDBInstanceOptionsResult" *error-map*))) + common-lisp:nil "DescribeOrderableDBInstanceOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-orderable-dbinstance-options)) (common-lisp:progn (common-lisp:defun describe-pending-maintenance-actions @@ -12036,7 +12058,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePendingMaintenanceActions")) - common-lisp:nil "DescribePendingMaintenanceActionsResult" *error-map*))) + common-lisp:nil "DescribePendingMaintenanceActionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-pending-maintenance-actions)) (common-lisp:progn (common-lisp:defun failover-dbcluster @@ -12055,7 +12078,7 @@ aws-sdk/generator/operation::input "POST" "/" "FailoverDBCluster")) - common-lisp:nil "FailoverDBClusterResult" *error-map*))) + common-lisp:nil "FailoverDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'failover-dbcluster)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12072,7 +12095,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil "ListTagsForResourceResult" *error-map*))) + common-lisp:nil "ListTagsForResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-dbcluster @@ -12102,7 +12126,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBCluster")) - common-lisp:nil "ModifyDBClusterResult" *error-map*))) + common-lisp:nil "ModifyDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbcluster)) (common-lisp:progn (common-lisp:defun modify-dbcluster-parameter-group @@ -12122,7 +12146,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBClusterParameterGroup")) - common-lisp:nil "ModifyDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "ModifyDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun modify-dbcluster-snapshot-attribute @@ -12143,7 +12168,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBClusterSnapshotAttribute")) - common-lisp:nil "ModifyDBClusterSnapshotAttributeResult" *error-map*))) + common-lisp:nil "ModifyDBClusterSnapshotAttributeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbcluster-snapshot-attribute)) (common-lisp:progn (common-lisp:defun modify-dbinstance @@ -12171,7 +12197,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBInstance")) - common-lisp:nil "ModifyDBInstanceResult" *error-map*))) + common-lisp:nil "ModifyDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbinstance)) (common-lisp:progn (common-lisp:defun modify-dbsubnet-group @@ -12191,7 +12217,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBSubnetGroup")) - common-lisp:nil "ModifyDBSubnetGroupResult" *error-map*))) + common-lisp:nil "ModifyDBSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbsubnet-group)) (common-lisp:progn (common-lisp:defun modify-event-subscription @@ -12212,7 +12239,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyEventSubscription")) - common-lisp:nil "ModifyEventSubscriptionResult" *error-map*))) + common-lisp:nil "ModifyEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-event-subscription)) (common-lisp:progn (common-lisp:defun modify-global-cluster @@ -12232,7 +12260,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyGlobalCluster")) - common-lisp:nil "ModifyGlobalClusterResult" *error-map*))) + common-lisp:nil "ModifyGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-global-cluster)) (common-lisp:progn (common-lisp:defun reboot-dbinstance @@ -12250,7 +12279,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootDBInstance")) - common-lisp:nil "RebootDBInstanceResult" *error-map*))) + common-lisp:nil "RebootDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'reboot-dbinstance)) (common-lisp:progn (common-lisp:defun remove-from-global-cluster @@ -12270,7 +12299,8 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveFromGlobalCluster")) - common-lisp:nil "RemoveFromGlobalClusterResult" *error-map*))) + common-lisp:nil "RemoveFromGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'remove-from-global-cluster)) (common-lisp:progn (common-lisp:defun remove-source-identifier-from-subscription @@ -12290,7 +12320,7 @@ "POST" "/" "RemoveSourceIdentifierFromSubscription")) common-lisp:nil "RemoveSourceIdentifierFromSubscriptionResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'remove-source-identifier-from-subscription)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -12308,7 +12338,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-tags-from-resource)) (common-lisp:progn (common-lisp:defun reset-dbcluster-parameter-group @@ -12329,7 +12359,8 @@ aws-sdk/generator/operation::input "POST" "/" "ResetDBClusterParameterGroup")) - common-lisp:nil "ResetDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "ResetDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reset-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun restore-dbcluster-from-snapshot @@ -12355,7 +12386,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBClusterFromSnapshot")) - common-lisp:nil "RestoreDBClusterFromSnapshotResult" *error-map*))) + common-lisp:nil "RestoreDBClusterFromSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbcluster-from-snapshot)) (common-lisp:progn (common-lisp:defun restore-dbcluster-to-point-in-time @@ -12382,7 +12414,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBClusterToPointInTime")) - common-lisp:nil "RestoreDBClusterToPointInTimeResult" *error-map*))) + common-lisp:nil "RestoreDBClusterToPointInTimeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbcluster-to-point-in-time)) (common-lisp:progn (common-lisp:defun start-dbcluster @@ -12399,7 +12432,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDBCluster")) - common-lisp:nil "StartDBClusterResult" *error-map*))) + common-lisp:nil "StartDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'start-dbcluster)) (common-lisp:progn (common-lisp:defun stop-dbcluster @@ -12416,5 +12449,5 @@ aws-sdk/generator/operation::input "POST" "/" "StopDBCluster")) - common-lisp:nil "StopDBClusterResult" *error-map*))) + common-lisp:nil "StopDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'stop-dbcluster)) diff --git a/services/drs/api.lisp b/services/drs/api.lisp index 03884404..24146379 100644 --- a/services/drs/api.lisp +++ b/services/drs/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/drs/api - (:use) - (:nicknames #:aws/drs) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/drs/api (:use) + (:nicknames #:aws/drs) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/drs/api) (common-lisp:progn (common-lisp:define-condition drs-error @@ -20,7 +19,7 @@ (common-lisp:export 'drs-error)) (common-lisp:progn (common-lisp:defclass drs-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "drs" :api-version "2020-02-26" :host-prefix "drs" :signing-name "drs" @@ -11685,7 +11684,7 @@ "POST" "/AssociateSourceNetworkStack" "AssociateSourceNetworkStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-source-network-stack)) (common-lisp:progn (common-lisp:defun create-extended-source-server @@ -11704,7 +11703,7 @@ "POST" "/CreateExtendedSourceServer" "CreateExtendedSourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-extended-source-server)) (common-lisp:progn (common-lisp:defun create-launch-configuration-template @@ -11729,7 +11728,7 @@ "POST" "/CreateLaunchConfigurationTemplate" "CreateLaunchConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-launch-configuration-template)) (common-lisp:progn (common-lisp:defun create-replication-configuration-template @@ -11762,7 +11761,7 @@ "POST" "/CreateReplicationConfigurationTemplate" "CreateReplicationConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-configuration-template)) (common-lisp:progn (common-lisp:defun create-source-network @@ -11782,7 +11781,7 @@ "POST" "/CreateSourceNetwork" "CreateSourceNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-source-network)) (common-lisp:progn (common-lisp:defun delete-job @@ -11799,7 +11798,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteJob" "DeleteJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job)) (common-lisp:progn (common-lisp:defun delete-launch-action @@ -11817,7 +11816,7 @@ "POST" "/DeleteLaunchAction" "DeleteLaunchAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-launch-action)) (common-lisp:progn (common-lisp:defun delete-launch-configuration-template @@ -11837,7 +11836,7 @@ "POST" "/DeleteLaunchConfigurationTemplate" "DeleteLaunchConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-launch-configuration-template)) (common-lisp:progn (common-lisp:defun delete-recovery-instance @@ -11855,7 +11854,7 @@ "POST" "/DeleteRecoveryInstance" "DeleteRecoveryInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recovery-instance)) (common-lisp:progn (common-lisp:defun delete-replication-configuration-template @@ -11875,7 +11874,7 @@ "POST" "/DeleteReplicationConfigurationTemplate" "DeleteReplicationConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-configuration-template)) (common-lisp:progn (common-lisp:defun delete-source-network @@ -11893,7 +11892,7 @@ "POST" "/DeleteSourceNetwork" "DeleteSourceNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-source-network)) (common-lisp:progn (common-lisp:defun delete-source-server @@ -11911,7 +11910,7 @@ "POST" "/DeleteSourceServer" "DeleteSourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-source-server)) (common-lisp:progn (common-lisp:defun describe-job-log-items @@ -11929,7 +11928,7 @@ "POST" "/DescribeJobLogItems" "DescribeJobLogItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-log-items)) (common-lisp:progn (common-lisp:defun describe-jobs @@ -11946,7 +11945,7 @@ aws-sdk/generator/operation::input "POST" "/DescribeJobs" "DescribeJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-jobs)) (common-lisp:progn (common-lisp:defun describe-launch-configuration-templates @@ -11968,7 +11967,7 @@ "POST" "/DescribeLaunchConfigurationTemplates" "DescribeLaunchConfigurationTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-launch-configuration-templates)) (common-lisp:progn (common-lisp:defun describe-recovery-instances @@ -11987,7 +11986,7 @@ "POST" "/DescribeRecoveryInstances" "DescribeRecoveryInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recovery-instances)) (common-lisp:progn (common-lisp:defun describe-recovery-snapshots @@ -12009,7 +12008,7 @@ "POST" "/DescribeRecoverySnapshots" "DescribeRecoverySnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recovery-snapshots)) (common-lisp:progn (common-lisp:defun describe-replication-configuration-templates @@ -12031,7 +12030,7 @@ "POST" "/DescribeReplicationConfigurationTemplates" "DescribeReplicationConfigurationTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-configuration-templates)) (common-lisp:progn (common-lisp:defun describe-source-networks @@ -12049,7 +12048,7 @@ "POST" "/DescribeSourceNetworks" "DescribeSourceNetworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-source-networks)) (common-lisp:progn (common-lisp:defun describe-source-servers @@ -12067,7 +12066,7 @@ "POST" "/DescribeSourceServers" "DescribeSourceServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-source-servers)) (common-lisp:progn (common-lisp:defun disconnect-recovery-instance @@ -12086,7 +12085,7 @@ "POST" "/DisconnectRecoveryInstance" "DisconnectRecoveryInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disconnect-recovery-instance)) (common-lisp:progn (common-lisp:defun disconnect-source-server @@ -12104,7 +12103,7 @@ "POST" "/DisconnectSourceServer" "DisconnectSourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disconnect-source-server)) (common-lisp:progn (common-lisp:defun export-source-network-cfn-template @@ -12123,7 +12122,7 @@ "POST" "/ExportSourceNetworkCfnTemplate" "ExportSourceNetworkCfnTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-source-network-cfn-template)) (common-lisp:progn (common-lisp:defun get-failback-replication-configuration @@ -12142,7 +12141,7 @@ "POST" "/GetFailbackReplicationConfiguration" "GetFailbackReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-failback-replication-configuration)) (common-lisp:progn (common-lisp:defun get-launch-configuration @@ -12160,7 +12159,7 @@ "POST" "/GetLaunchConfiguration" "GetLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-launch-configuration)) (common-lisp:progn (common-lisp:defun get-replication-configuration @@ -12179,7 +12178,7 @@ "POST" "/GetReplicationConfiguration" "GetReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-replication-configuration)) (common-lisp:progn (common-lisp:defun initialize-service () @@ -12209,7 +12208,7 @@ "POST" "/ListExtensibleSourceServers" "ListExtensibleSourceServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-extensible-source-servers)) (common-lisp:progn (common-lisp:defun list-launch-actions @@ -12229,7 +12228,7 @@ "POST" "/ListLaunchActions" "ListLaunchActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-launch-actions)) (common-lisp:progn (common-lisp:defun list-staging-accounts @@ -12247,7 +12246,7 @@ "GET" "/ListStagingAccounts" "ListStagingAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-staging-accounts)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12269,12 +12268,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-launch-action @@ -12296,7 +12296,7 @@ "POST" "/PutLaunchAction" "PutLaunchAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-launch-action)) (common-lisp:progn (common-lisp:defun retry-data-replication @@ -12314,7 +12314,7 @@ "POST" "/RetryDataReplication" "RetryDataReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retry-data-replication)) (common-lisp:progn (common-lisp:defun reverse-replication @@ -12332,7 +12332,7 @@ "POST" "/ReverseReplication" "ReverseReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reverse-replication)) (common-lisp:progn (common-lisp:defun start-failback-launch @@ -12350,7 +12350,7 @@ "POST" "/StartFailbackLaunch" "StartFailbackLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-failback-launch)) (common-lisp:progn (common-lisp:defun start-recovery @@ -12367,7 +12367,7 @@ aws-sdk/generator/operation::input "POST" "/StartRecovery" "StartRecovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-recovery)) (common-lisp:progn (common-lisp:defun start-replication @@ -12385,7 +12385,7 @@ "POST" "/StartReplication" "StartReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-replication)) (common-lisp:progn (common-lisp:defun start-source-network-recovery @@ -12405,7 +12405,7 @@ "POST" "/StartSourceNetworkRecovery" "StartSourceNetworkRecovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-source-network-recovery)) (common-lisp:progn (common-lisp:defun start-source-network-replication @@ -12424,7 +12424,7 @@ "POST" "/StartSourceNetworkReplication" "StartSourceNetworkReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-source-network-replication)) (common-lisp:progn (common-lisp:defun stop-failback @@ -12441,7 +12441,7 @@ aws-sdk/generator/operation::input "POST" "/StopFailback" "StopFailback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-failback)) (common-lisp:progn (common-lisp:defun stop-replication @@ -12459,7 +12459,7 @@ "POST" "/StopReplication" "StopReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-replication)) (common-lisp:progn (common-lisp:defun stop-source-network-replication @@ -12478,7 +12478,7 @@ "POST" "/StopSourceNetworkReplication" "StopSourceNetworkReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-source-network-replication)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12500,12 +12500,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun terminate-recovery-instances @@ -12524,7 +12525,7 @@ "POST" "/TerminateRecoveryInstances" "TerminateRecoveryInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-recovery-instances)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12546,12 +12547,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-failback-replication-configuration @@ -12573,7 +12575,7 @@ "POST" "/UpdateFailbackReplicationConfiguration" "UpdateFailbackReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-failback-replication-configuration)) (common-lisp:progn (common-lisp:defun update-launch-configuration @@ -12598,7 +12600,7 @@ "POST" "/UpdateLaunchConfiguration" "UpdateLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-launch-configuration)) (common-lisp:progn (common-lisp:defun update-launch-configuration-template @@ -12625,7 +12627,7 @@ "POST" "/UpdateLaunchConfigurationTemplate" "UpdateLaunchConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-launch-configuration-template)) (common-lisp:progn (common-lisp:defun update-replication-configuration @@ -12659,7 +12661,7 @@ "POST" "/UpdateReplicationConfiguration" "UpdateReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-replication-configuration)) (common-lisp:progn (common-lisp:defun update-replication-configuration-template @@ -12694,5 +12696,5 @@ "POST" "/UpdateReplicationConfigurationTemplate" "UpdateReplicationConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-replication-configuration-template)) diff --git a/services/ds/api.lisp b/services/ds/api.lisp index a702223b..03cf89be 100644 --- a/services/ds/api.lisp +++ b/services/ds/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ds/api - (:use) - (:nicknames #:aws/ds) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ds/api (:use) + (:nicknames #:aws/ds) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ds/api) (common-lisp:progn (common-lisp:define-condition ds-error @@ -10837,7 +10836,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptSharedDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-shared-directory)) (common-lisp:progn (common-lisp:defun add-ip-routes @@ -10857,7 +10856,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddIpRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-ip-routes)) (common-lisp:progn (common-lisp:defun add-region @@ -10875,7 +10874,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddRegion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-region)) (common-lisp:progn (common-lisp:defun add-tags-to-resource @@ -10892,7 +10891,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun cancel-schema-extension @@ -10910,7 +10909,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelSchemaExtension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-schema-extension)) (common-lisp:progn (common-lisp:defun connect-directory @@ -10930,7 +10929,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConnectDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'connect-directory)) (common-lisp:progn (common-lisp:defun create-alias @@ -10947,7 +10946,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alias)) (common-lisp:progn (common-lisp:defun create-computer @@ -10968,7 +10967,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateComputer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-computer)) (common-lisp:progn (common-lisp:defun create-conditional-forwarder @@ -10988,7 +10987,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConditionalForwarder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-conditional-forwarder)) (common-lisp:progn (common-lisp:defun create-directory @@ -11008,7 +11007,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-directory)) (common-lisp:progn (common-lisp:defun create-log-subscription @@ -11025,7 +11024,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLogSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-log-subscription)) (common-lisp:progn (common-lisp:defun create-microsoft-ad @@ -11045,7 +11044,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMicrosoftAD")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-microsoft-ad)) (common-lisp:progn (common-lisp:defun create-snapshot @@ -11062,7 +11061,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-snapshot)) (common-lisp:progn (common-lisp:defun create-trust @@ -11083,7 +11082,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrust")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-trust)) (common-lisp:progn (common-lisp:defun delete-conditional-forwarder @@ -11102,7 +11101,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConditionalForwarder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-conditional-forwarder)) (common-lisp:progn (common-lisp:defun delete-directory @@ -11119,7 +11118,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-directory)) (common-lisp:progn (common-lisp:defun delete-log-subscription @@ -11136,7 +11135,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLogSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-log-subscription)) (common-lisp:progn (common-lisp:defun delete-snapshot @@ -11153,7 +11152,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-snapshot)) (common-lisp:progn (common-lisp:defun delete-trust @@ -11172,7 +11171,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrust")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-trust)) (common-lisp:progn (common-lisp:defun deregister-certificate @@ -11189,7 +11188,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-certificate)) (common-lisp:progn (common-lisp:defun deregister-event-topic @@ -11206,7 +11205,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterEventTopic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-event-topic)) (common-lisp:progn (common-lisp:defun describe-certificate @@ -11223,7 +11222,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-certificate)) (common-lisp:progn (common-lisp:defun describe-client-authentication-settings @@ -11242,7 +11241,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClientAuthenticationSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-client-authentication-settings)) (common-lisp:progn (common-lisp:defun describe-conditional-forwarders @@ -11261,7 +11260,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConditionalForwarders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-conditional-forwarders)) (common-lisp:progn (common-lisp:defun describe-directories @@ -11278,7 +11277,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDirectories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-directories)) (common-lisp:progn (common-lisp:defun describe-domain-controllers @@ -11299,7 +11298,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDomainControllers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-controllers)) (common-lisp:progn (common-lisp:defun describe-event-topics @@ -11316,7 +11315,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventTopics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-topics)) (common-lisp:progn (common-lisp:defun describe-ldapssettings @@ -11334,7 +11333,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLDAPSSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ldapssettings)) (common-lisp:progn (common-lisp:defun describe-regions @@ -11352,7 +11351,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRegions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-regions)) (common-lisp:progn (common-lisp:defun describe-settings @@ -11369,7 +11368,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-settings)) (common-lisp:progn (common-lisp:defun describe-shared-directories @@ -11390,7 +11389,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSharedDirectories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-shared-directories)) (common-lisp:progn (common-lisp:defun describe-snapshots @@ -11409,7 +11408,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-snapshots)) (common-lisp:progn (common-lisp:defun describe-trusts @@ -11427,7 +11426,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrusts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trusts)) (common-lisp:progn (common-lisp:defun describe-update-directory @@ -11447,7 +11446,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUpdateDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-update-directory)) (common-lisp:progn (common-lisp:defun disable-client-authentication @@ -11465,7 +11464,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableClientAuthentication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-client-authentication)) (common-lisp:progn (common-lisp:defun disable-ldaps @@ -11482,7 +11481,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableLDAPS")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-ldaps)) (common-lisp:progn (common-lisp:defun disable-radius @@ -11499,7 +11498,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableRadius")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-radius)) (common-lisp:progn (common-lisp:defun disable-sso @@ -11517,7 +11516,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableSso")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-sso)) (common-lisp:progn (common-lisp:defun enable-client-authentication @@ -11535,7 +11534,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableClientAuthentication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-client-authentication)) (common-lisp:progn (common-lisp:defun enable-ldaps @@ -11552,7 +11551,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableLDAPS")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-ldaps)) (common-lisp:progn (common-lisp:defun enable-radius @@ -11569,7 +11568,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableRadius")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-radius)) (common-lisp:progn (common-lisp:defun enable-sso @@ -11587,7 +11586,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableSso")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-sso)) (common-lisp:progn (common-lisp:defun get-directory-limits () @@ -11612,7 +11611,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSnapshotLimits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-snapshot-limits)) (common-lisp:progn (common-lisp:defun list-certificates @@ -11629,7 +11628,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-certificates)) (common-lisp:progn (common-lisp:defun list-ip-routes @@ -11646,7 +11645,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListIpRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ip-routes)) (common-lisp:progn (common-lisp:defun list-log-subscriptions @@ -11663,7 +11662,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLogSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-log-subscriptions)) (common-lisp:progn (common-lisp:defun list-schema-extensions @@ -11680,7 +11679,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSchemaExtensions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schema-extensions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11697,7 +11696,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun register-certificate @@ -11717,7 +11716,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-certificate)) (common-lisp:progn (common-lisp:defun register-event-topic @@ -11734,7 +11733,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterEventTopic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-event-topic)) (common-lisp:progn (common-lisp:defun reject-shared-directory @@ -11751,7 +11750,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectSharedDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-shared-directory)) (common-lisp:progn (common-lisp:defun remove-ip-routes @@ -11768,7 +11767,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveIpRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-ip-routes)) (common-lisp:progn (common-lisp:defun remove-region @@ -11785,7 +11784,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveRegion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-region)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -11803,7 +11802,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-resource)) (common-lisp:progn (common-lisp:defun reset-user-password @@ -11821,7 +11820,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetUserPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-user-password)) (common-lisp:progn (common-lisp:defun restore-from-snapshot @@ -11838,7 +11837,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreFromSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-from-snapshot)) (common-lisp:progn (common-lisp:defun share-directory @@ -11857,7 +11856,7 @@ aws-sdk/generator/operation::input "POST" "/" "ShareDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'share-directory)) (common-lisp:progn (common-lisp:defun start-schema-extension @@ -11878,7 +11877,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartSchemaExtension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-schema-extension)) (common-lisp:progn (common-lisp:defun unshare-directory @@ -11895,7 +11894,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnshareDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unshare-directory)) (common-lisp:progn (common-lisp:defun update-conditional-forwarder @@ -11915,7 +11914,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConditionalForwarder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-conditional-forwarder)) (common-lisp:progn (common-lisp:defun update-directory-setup @@ -11935,7 +11934,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDirectorySetup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-directory-setup)) (common-lisp:progn (common-lisp:defun update-number-of-domain-controllers @@ -11953,7 +11952,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateNumberOfDomainControllers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-number-of-domain-controllers)) (common-lisp:progn (common-lisp:defun update-radius @@ -11970,7 +11969,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRadius")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-radius)) (common-lisp:progn (common-lisp:defun update-settings @@ -11987,7 +11986,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-settings)) (common-lisp:progn (common-lisp:defun update-trust @@ -12004,7 +12003,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTrust")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-trust)) (common-lisp:progn (common-lisp:defun verify-trust @@ -12021,5 +12020,5 @@ aws-sdk/generator/operation::input "POST" "/" "VerifyTrust")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-trust)) diff --git a/services/dynamodb/api.lisp b/services/dynamodb/api.lisp index 831e36a0..ff0c6fc2 100644 --- a/services/dynamodb/api.lisp +++ b/services/dynamodb/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/dynamodb/api - (:use) - (:nicknames #:aws/dynamodb) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/dynamodb/api (:use) + (:nicknames #:aws/dynamodb) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/dynamodb/api) (common-lisp:progn (common-lisp:define-condition dynamodb-error @@ -16596,7 +16595,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchExecuteStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-execute-statement)) (common-lisp:progn (common-lisp:defun batch-get-item @@ -16614,7 +16613,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-item)) (common-lisp:progn (common-lisp:defun batch-write-item @@ -16634,7 +16633,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchWriteItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-write-item)) (common-lisp:progn (common-lisp:defun create-backup @@ -16651,7 +16650,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backup)) (common-lisp:progn (common-lisp:defun create-global-table @@ -16669,7 +16668,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGlobalTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-global-table)) (common-lisp:progn (common-lisp:defun create-table @@ -16695,7 +16694,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-table)) (common-lisp:progn (common-lisp:defun delete-backup @@ -16712,7 +16711,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup)) (common-lisp:progn (common-lisp:defun delete-item @@ -16738,7 +16737,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-item)) (common-lisp:progn (common-lisp:defun delete-table @@ -16755,7 +16754,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-table)) (common-lisp:progn (common-lisp:defun describe-backup @@ -16772,7 +16771,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-backup)) (common-lisp:progn (common-lisp:defun describe-continuous-backups @@ -16790,7 +16789,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeContinuousBackups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-continuous-backups)) (common-lisp:progn (common-lisp:defun describe-contributor-insights @@ -16808,7 +16807,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeContributorInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-contributor-insights)) (common-lisp:progn (common-lisp:defun describe-endpoints () @@ -16833,7 +16832,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-export)) (common-lisp:progn (common-lisp:defun describe-global-table @@ -16850,7 +16849,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGlobalTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-global-table)) (common-lisp:progn (common-lisp:defun describe-global-table-settings @@ -16868,7 +16867,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGlobalTableSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-global-table-settings)) (common-lisp:progn (common-lisp:defun describe-import @@ -16885,7 +16884,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-import)) (common-lisp:progn (common-lisp:defun describe-kinesis-streaming-destination @@ -16903,7 +16902,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeKinesisStreamingDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-kinesis-streaming-destination)) (common-lisp:progn (common-lisp:defun describe-limits () @@ -16928,7 +16927,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-table)) (common-lisp:progn (common-lisp:defun describe-table-replica-auto-scaling @@ -16946,7 +16945,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTableReplicaAutoScaling")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-table-replica-auto-scaling)) (common-lisp:progn (common-lisp:defun describe-time-to-live @@ -16963,7 +16962,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTimeToLive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-time-to-live)) (common-lisp:progn (common-lisp:defun disable-kinesis-streaming-destination @@ -16984,7 +16983,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableKinesisStreamingDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-kinesis-streaming-destination)) (common-lisp:progn (common-lisp:defun enable-kinesis-streaming-destination @@ -17005,7 +17004,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableKinesisStreamingDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-kinesis-streaming-destination)) (common-lisp:progn (common-lisp:defun execute-statement @@ -17026,7 +17025,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecuteStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-statement)) (common-lisp:progn (common-lisp:defun execute-transaction @@ -17046,7 +17045,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecuteTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-transaction)) (common-lisp:progn (common-lisp:defun export-table-to-point-in-time @@ -17070,7 +17069,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportTableToPointInTime")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-table-to-point-in-time)) (common-lisp:progn (common-lisp:defun get-item @@ -17091,7 +17090,7 @@ (aws-sdk/generator/shape:make-request-with-input 'dynamodb-request aws-sdk/generator/operation::input "POST" "/" "GetItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-item)) (common-lisp:progn (common-lisp:defun import-table @@ -17112,7 +17111,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-table)) (common-lisp:progn (common-lisp:defun list-backups @@ -17133,7 +17132,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBackups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-backups)) (common-lisp:progn (common-lisp:defun list-contributor-insights @@ -17151,7 +17150,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListContributorInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contributor-insights)) (common-lisp:progn (common-lisp:defun list-exports @@ -17169,7 +17168,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-exports)) (common-lisp:progn (common-lisp:defun list-global-tables @@ -17189,7 +17188,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGlobalTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-global-tables)) (common-lisp:progn (common-lisp:defun list-imports @@ -17206,7 +17205,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-imports)) (common-lisp:progn (common-lisp:defun list-tables @@ -17224,7 +17223,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tables)) (common-lisp:progn (common-lisp:defun list-tags-of-resource @@ -17241,7 +17240,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsOfResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-of-resource)) (common-lisp:progn (common-lisp:defun put-item @@ -17265,7 +17264,7 @@ (aws-sdk/generator/shape:make-request-with-input 'dynamodb-request aws-sdk/generator/operation::input "POST" "/" "PutItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-item)) (common-lisp:progn (common-lisp:defun query @@ -17292,7 +17291,7 @@ (aws-sdk/generator/shape:make-request-with-input 'dynamodb-request aws-sdk/generator/operation::input "POST" "/" "Query")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query)) (common-lisp:progn (common-lisp:defun restore-table-from-backup @@ -17315,7 +17314,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreTableFromBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-table-from-backup)) (common-lisp:progn (common-lisp:defun restore-table-to-point-in-time @@ -17342,7 +17341,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreTableToPointInTime")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-table-to-point-in-time)) (common-lisp:progn (common-lisp:defun scan @@ -17368,7 +17367,7 @@ (aws-sdk/generator/shape:make-request-with-input 'dynamodb-request aws-sdk/generator/operation::input "POST" "/" "Scan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'scan)) (common-lisp:progn (common-lisp:defun tag-resource @@ -17385,7 +17384,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun transact-get-items @@ -17403,7 +17402,7 @@ aws-sdk/generator/operation::input "POST" "/" "TransactGetItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'transact-get-items)) (common-lisp:progn (common-lisp:defun transact-write-items @@ -17423,7 +17422,7 @@ aws-sdk/generator/operation::input "POST" "/" "TransactWriteItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'transact-write-items)) (common-lisp:progn (common-lisp:defun untag-resource @@ -17440,7 +17439,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-continuous-backups @@ -17459,7 +17458,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateContinuousBackups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-continuous-backups)) (common-lisp:progn (common-lisp:defun update-contributor-insights @@ -17479,7 +17478,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateContributorInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contributor-insights)) (common-lisp:progn (common-lisp:defun update-global-table @@ -17497,7 +17496,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGlobalTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-global-table)) (common-lisp:progn (common-lisp:defun update-global-table-settings @@ -17525,7 +17524,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGlobalTableSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-global-table-settings)) (common-lisp:progn (common-lisp:defun update-item @@ -17552,7 +17551,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-item)) (common-lisp:progn (common-lisp:defun update-kinesis-streaming-destination @@ -17573,7 +17572,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateKinesisStreamingDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kinesis-streaming-destination)) (common-lisp:progn (common-lisp:defun update-table @@ -17597,7 +17596,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-table)) (common-lisp:progn (common-lisp:defun update-table-replica-auto-scaling @@ -17619,7 +17618,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTableReplicaAutoScaling")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-table-replica-auto-scaling)) (common-lisp:progn (common-lisp:defun update-time-to-live @@ -17637,5 +17636,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTimeToLive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-time-to-live)) diff --git a/services/ebs/api.lisp b/services/ebs/api.lisp index b533bb44..19fcc219 100644 --- a/services/ebs/api.lisp +++ b/services/ebs/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ebs/api - (:use) - (:nicknames #:aws/ebs) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ebs/api (:use) + (:nicknames #:aws/ebs) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ebs/api) (common-lisp:progn (common-lisp:define-condition ebs-error @@ -20,7 +19,7 @@ (common-lisp:export 'ebs-error)) (common-lisp:progn (common-lisp:defclass ebs-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "ebs" :api-version "2019-11-02" :host-prefix "ebs" :signing-name @@ -229,23 +228,31 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'changed-blocks-count)) - (common-lisp:cons "x-amz-ChangedBlocksCount" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-ChangedBlocksCount" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-Checksum" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-Checksum-Algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum-Algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-aggregation-method)) - (common-lisp:cons "x-amz-Checksum-Aggregation-Method" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum-Aggregation-Method" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -402,16 +409,22 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'data-length)) - (common-lisp:cons "x-amz-Data-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Data-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-Checksum" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-Checksum-Algorithm" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum-Algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -428,7 +441,13 @@ ( (aws-sdk/generator/shape::input get-snapshot-block-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'block-data))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'block-data)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-snapshot-block-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype idempotency-token () 'common-lisp:string) (common-lisp:progn (common-lisp:define-condition internal-server-exception @@ -805,20 +824,28 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'data-length)) - (common-lisp:cons "x-amz-Data-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Data-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'progress)) - (common-lisp:cons "x-amz-Progress" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Progress" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-Checksum" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-Checksum-Algorithm" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum-Algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -835,7 +862,13 @@ ( (aws-sdk/generator/shape::input put-snapshot-block-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'block-data))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'block-data)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-snapshot-block-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-snapshot-block-response common-lisp:nil ((checksum :initarg :checksum :initform common-lisp:nil @@ -867,12 +900,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-Checksum" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-Checksum-Algorithm" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-Checksum-Algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1308,12 +1345,13 @@ (common-lisp:format common-lisp:nil "/snapshots/completion/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-id)))) + 'snapshot-id) + common-lisp:t))) "CompleteSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'complete-snapshot)) (common-lisp:progn (common-lisp:defun get-snapshot-block @@ -1336,17 +1374,19 @@ (common-lisp:format common-lisp:nil "/snapshots/~A/blocks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-id)) - (quri.encode:url-encode + 'snapshot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'block-index)))) + 'block-index) + common-lisp:t))) "GetSnapshotBlock") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-snapshot-block)) (common-lisp:progn (common-lisp:defun list-changed-blocks @@ -1371,12 +1411,13 @@ (common-lisp:format common-lisp:nil "/snapshots/~A/changedblocks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'second-snapshot-id)))) + 'second-snapshot-id) + common-lisp:t))) "ListChangedBlocks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-changed-blocks)) (common-lisp:progn (common-lisp:defun list-snapshot-blocks @@ -1401,12 +1442,13 @@ (common-lisp:format common-lisp:nil "/snapshots/~A/blocks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-id)))) + 'snapshot-id) + common-lisp:t))) "ListSnapshotBlocks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-snapshot-blocks)) (common-lisp:progn (common-lisp:defun put-snapshot-block @@ -1431,16 +1473,18 @@ (common-lisp:format common-lisp:nil "/snapshots/~A/blocks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-id)) - (quri.encode:url-encode + 'snapshot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'block-index)))) + 'block-index) + common-lisp:t))) "PutSnapshotBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-snapshot-block)) (common-lisp:progn (common-lisp:defun start-snapshot @@ -1460,5 +1504,5 @@ aws-sdk/generator/operation::input "POST" "/snapshots" "StartSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-snapshot)) diff --git a/services/ec2-instance-connect/api.lisp b/services/ec2-instance-connect/api.lisp index 24ccfa85..3ec56b18 100644 --- a/services/ec2-instance-connect/api.lisp +++ b/services/ec2-instance-connect/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ec2-instance-connect/api - (:use) - (:nicknames #:aws/ec2-instance-connect) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ec2-instance-connect/api (:use) + (:nicknames #:aws/ec2-instance-connect) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ec2-instance-connect/api) (common-lisp:progn (common-lisp:define-condition ec2-instance-connect-error @@ -406,7 +405,7 @@ (aws-sdk/generator/shape:make-request-with-input 'ec2-instance-connect-request aws-sdk/generator/operation::input "POST" "/" "SendSSHPublicKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-sshpublic-key)) (common-lisp:progn (common-lisp:defun send-serial-console-sshpublic-key @@ -424,5 +423,5 @@ (aws-sdk/generator/shape:make-request-with-input 'ec2-instance-connect-request aws-sdk/generator/operation::input "POST" "/" "SendSerialConsoleSSHPublicKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-serial-console-sshpublic-key)) diff --git a/services/ec2/api.lisp b/services/ec2/api.lisp index 1d8ee921..fd9bf220 100644 --- a/services/ec2/api.lisp +++ b/services/ec2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ec2/api - (:use) - (:nicknames #:aws/ec2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ec2/api (:use) + (:nicknames #:aws/ec2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ec2/api) (common-lisp:progn (common-lisp:define-condition ec2-error @@ -157215,7 +157214,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptAddressTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'accept-address-transfer)) (common-lisp:progn (common-lisp:defun accept-reserved-instances-exchange-quote @@ -157236,7 +157235,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptReservedInstancesExchangeQuote")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'accept-reserved-instances-exchange-quote)) (common-lisp:progn (common-lisp:defun accept-transit-gateway-multicast-domain-associations @@ -157257,7 +157256,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptTransitGatewayMulticastDomainAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'accept-transit-gateway-multicast-domain-associations)) (common-lisp:progn (common-lisp:defun accept-transit-gateway-peering-attachment @@ -157276,7 +157275,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptTransitGatewayPeeringAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'accept-transit-gateway-peering-attachment)) (common-lisp:progn (common-lisp:defun accept-transit-gateway-vpc-attachment @@ -157295,7 +157294,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptTransitGatewayVpcAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'accept-transit-gateway-vpc-attachment)) (common-lisp:progn (common-lisp:defun accept-vpc-endpoint-connections @@ -157314,7 +157313,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptVpcEndpointConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'accept-vpc-endpoint-connections)) (common-lisp:progn (common-lisp:defun accept-vpc-peering-connection @@ -157333,7 +157332,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptVpcPeeringConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'accept-vpc-peering-connection)) (common-lisp:progn (common-lisp:defun advertise-byoip-cidr @@ -157351,7 +157350,7 @@ aws-sdk/generator/operation::input "POST" "/" "AdvertiseByoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'advertise-byoip-cidr)) (common-lisp:progn (common-lisp:defun allocate-address @@ -157372,7 +157371,7 @@ aws-sdk/generator/operation::input "POST" "/" "AllocateAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'allocate-address)) (common-lisp:progn (common-lisp:defun allocate-hosts @@ -157395,7 +157394,7 @@ aws-sdk/generator/operation::input "POST" "/" "AllocateHosts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'allocate-hosts)) (common-lisp:progn (common-lisp:defun allocate-ipam-pool-cidr @@ -157417,7 +157416,7 @@ aws-sdk/generator/operation::input "POST" "/" "AllocateIpamPoolCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'allocate-ipam-pool-cidr)) (common-lisp:progn (common-lisp:defun apply-security-groups-to-client-vpn-target-network @@ -157438,7 +157437,7 @@ aws-sdk/generator/operation::input "POST" "/" "ApplySecurityGroupsToClientVpnTargetNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'apply-security-groups-to-client-vpn-target-network)) (common-lisp:progn (common-lisp:defun assign-ipv6addresses @@ -157458,7 +157457,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssignIpv6Addresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'assign-ipv6addresses)) (common-lisp:progn (common-lisp:defun assign-private-ip-addresses @@ -157481,7 +157480,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssignPrivateIpAddresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'assign-private-ip-addresses)) (common-lisp:progn (common-lisp:defun assign-private-nat-gateway-address @@ -157502,7 +157501,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssignPrivateNatGatewayAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'assign-private-nat-gateway-address)) (common-lisp:progn (common-lisp:defun associate-address @@ -157523,7 +157522,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-address)) (common-lisp:progn (common-lisp:defun associate-client-vpn-target-network @@ -157544,7 +157543,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateClientVpnTargetNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-client-vpn-target-network)) (common-lisp:progn (common-lisp:defun associate-dhcp-options @@ -157561,7 +157560,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateDhcpOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-dhcp-options)) (common-lisp:progn (common-lisp:defun associate-enclave-certificate-iam-role @@ -157580,7 +157579,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateEnclaveCertificateIamRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-enclave-certificate-iam-role)) (common-lisp:progn (common-lisp:defun associate-iam-instance-profile @@ -157599,7 +157598,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateIamInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-iam-instance-profile)) (common-lisp:progn (common-lisp:defun associate-instance-event-window @@ -157620,7 +157619,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateInstanceEventWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-instance-event-window)) (common-lisp:progn (common-lisp:defun associate-ipam-byoasn @@ -157637,7 +157636,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateIpamByoasn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-ipam-byoasn)) (common-lisp:progn (common-lisp:defun associate-ipam-resource-discovery @@ -157659,7 +157658,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateIpamResourceDiscovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-ipam-resource-discovery)) (common-lisp:progn (common-lisp:defun associate-nat-gateway-address @@ -157680,7 +157679,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateNatGatewayAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-nat-gateway-address)) (common-lisp:progn (common-lisp:defun associate-route-table @@ -157699,7 +157698,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-route-table)) (common-lisp:progn (common-lisp:defun associate-subnet-cidr-block @@ -157720,7 +157719,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateSubnetCidrBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-subnet-cidr-block)) (common-lisp:progn (common-lisp:defun associate-transit-gateway-multicast-domain @@ -157741,7 +157740,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateTransitGatewayMulticastDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-transit-gateway-multicast-domain)) (common-lisp:progn (common-lisp:defun associate-transit-gateway-policy-table @@ -157762,7 +157761,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateTransitGatewayPolicyTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-transit-gateway-policy-table)) (common-lisp:progn (common-lisp:defun associate-transit-gateway-route-table @@ -157783,7 +157782,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateTransitGatewayRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-transit-gateway-route-table)) (common-lisp:progn (common-lisp:defun associate-trunk-interface @@ -157804,7 +157803,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateTrunkInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-trunk-interface)) (common-lisp:progn (common-lisp:defun associate-vpc-cidr-block @@ -157827,7 +157826,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateVpcCidrBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-vpc-cidr-block)) (common-lisp:progn (common-lisp:defun attach-classic-link-vpc @@ -157845,7 +157844,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachClassicLinkVpc")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-classic-link-vpc)) (common-lisp:progn (common-lisp:defun attach-internet-gateway @@ -157863,7 +157862,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachInternetGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-internet-gateway)) (common-lisp:progn (common-lisp:defun attach-network-interface @@ -157884,7 +157883,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachNetworkInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-network-interface)) (common-lisp:progn (common-lisp:defun attach-verified-access-trust-provider @@ -157905,7 +157904,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachVerifiedAccessTrustProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-verified-access-trust-provider)) (common-lisp:progn (common-lisp:defun attach-volume @@ -157923,7 +157922,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-volume)) (common-lisp:progn (common-lisp:defun attach-vpn-gateway @@ -157940,7 +157939,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachVpnGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-vpn-gateway)) (common-lisp:progn (common-lisp:defun authorize-client-vpn-ingress @@ -157962,7 +157961,7 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeClientVpnIngress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'authorize-client-vpn-ingress)) (common-lisp:progn (common-lisp:defun authorize-security-group-egress @@ -157985,7 +157984,7 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeSecurityGroupEgress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'authorize-security-group-egress)) (common-lisp:progn (common-lisp:defun authorize-security-group-ingress @@ -158009,7 +158008,7 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeSecurityGroupIngress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'authorize-security-group-ingress)) (common-lisp:progn (common-lisp:defun bundle-instance @@ -158026,7 +158025,7 @@ aws-sdk/generator/operation::input "POST" "/" "BundleInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'bundle-instance)) (common-lisp:progn (common-lisp:defun cancel-bundle-task @@ -158043,7 +158042,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelBundleTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-bundle-task)) (common-lisp:progn (common-lisp:defun cancel-capacity-reservation @@ -158062,7 +158061,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-capacity-reservation)) (common-lisp:progn (common-lisp:defun cancel-capacity-reservation-fleets @@ -158081,7 +158080,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelCapacityReservationFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-capacity-reservation-fleets)) (common-lisp:progn (common-lisp:defun cancel-conversion-task @@ -158100,7 +158099,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelConversionTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-conversion-task)) (common-lisp:progn (common-lisp:defun cancel-export-task @@ -158117,7 +158116,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelExportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-export-task)) (common-lisp:progn (common-lisp:defun cancel-image-launch-permission @@ -158135,7 +158134,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelImageLaunchPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-image-launch-permission)) (common-lisp:progn (common-lisp:defun cancel-import-task @@ -158153,7 +158152,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-import-task)) (common-lisp:progn (common-lisp:defun cancel-reserved-instances-listing @@ -158171,7 +158170,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelReservedInstancesListing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-reserved-instances-listing)) (common-lisp:progn (common-lisp:defun cancel-spot-fleet-requests @@ -158191,7 +158190,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelSpotFleetRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-spot-fleet-requests)) (common-lisp:progn (common-lisp:defun cancel-spot-instance-requests @@ -158210,7 +158209,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelSpotInstanceRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'cancel-spot-instance-requests)) (common-lisp:progn (common-lisp:defun confirm-product-instance @@ -158228,7 +158227,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConfirmProductInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'confirm-product-instance)) (common-lisp:progn (common-lisp:defun copy-fpga-image @@ -158248,7 +158247,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyFpgaImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'copy-fpga-image)) (common-lisp:progn (common-lisp:defun copy-image @@ -158271,7 +158270,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'copy-image)) (common-lisp:progn (common-lisp:defun copy-snapshot @@ -158294,7 +158293,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopySnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'copy-snapshot)) (common-lisp:progn (common-lisp:defun create-capacity-reservation @@ -158322,7 +158321,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-capacity-reservation)) (common-lisp:progn (common-lisp:defun create-capacity-reservation-fleet @@ -158346,7 +158345,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCapacityReservationFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-capacity-reservation-fleet)) (common-lisp:progn (common-lisp:defun create-carrier-gateway @@ -158365,7 +158364,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCarrierGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-carrier-gateway)) (common-lisp:progn (common-lisp:defun create-client-vpn-endpoint @@ -158393,7 +158392,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateClientVpnEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-client-vpn-endpoint)) (common-lisp:progn (common-lisp:defun create-client-vpn-route @@ -158414,7 +158413,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateClientVpnRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-client-vpn-route)) (common-lisp:progn (common-lisp:defun create-coip-cidr @@ -158431,7 +158430,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-coip-cidr)) (common-lisp:progn (common-lisp:defun create-coip-pool @@ -158451,7 +158450,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCoipPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-coip-pool)) (common-lisp:progn (common-lisp:defun create-customer-gateway @@ -158471,7 +158470,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCustomerGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-customer-gateway)) (common-lisp:progn (common-lisp:defun create-default-subnet @@ -158489,7 +158488,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDefaultSubnet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-default-subnet)) (common-lisp:progn (common-lisp:defun create-default-vpc @@ -158506,7 +158505,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDefaultVpc")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-default-vpc)) (common-lisp:progn (common-lisp:defun create-dhcp-options @@ -158525,7 +158524,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDhcpOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-dhcp-options)) (common-lisp:progn (common-lisp:defun create-egress-only-internet-gateway @@ -158545,7 +158544,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEgressOnlyInternetGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-egress-only-internet-gateway)) (common-lisp:progn (common-lisp:defun create-fleet @@ -158572,7 +158571,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-fleet)) (common-lisp:progn (common-lisp:defun create-flow-logs @@ -158598,7 +158597,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFlowLogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-flow-logs)) (common-lisp:progn (common-lisp:defun create-fpga-image @@ -158619,7 +158618,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFpgaImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-fpga-image)) (common-lisp:progn (common-lisp:defun create-image @@ -158639,7 +158638,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-image)) (common-lisp:progn (common-lisp:defun create-instance-connect-endpoint @@ -158660,7 +158659,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstanceConnectEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-instance-connect-endpoint)) (common-lisp:progn (common-lisp:defun create-instance-event-window @@ -158681,7 +158680,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstanceEventWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-instance-event-window)) (common-lisp:progn (common-lisp:defun create-instance-export-task @@ -158702,7 +158701,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstanceExportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-instance-export-task)) (common-lisp:progn (common-lisp:defun create-internet-gateway @@ -158719,7 +158718,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInternetGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-internet-gateway)) (common-lisp:progn (common-lisp:defun create-ipam @@ -158739,7 +158738,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIpam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-ipam)) (common-lisp:progn (common-lisp:defun create-ipam-pool @@ -158768,7 +158767,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIpamPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-ipam-pool)) (common-lisp:progn (common-lisp:defun create-ipam-resource-discovery @@ -158789,7 +158788,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIpamResourceDiscovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-ipam-resource-discovery)) (common-lisp:progn (common-lisp:defun create-ipam-scope @@ -158809,7 +158808,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIpamScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-ipam-scope)) (common-lisp:progn (common-lisp:defun create-key-pair @@ -158829,7 +158828,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-key-pair)) (common-lisp:progn (common-lisp:defun create-launch-template @@ -158850,7 +158849,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLaunchTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-launch-template)) (common-lisp:progn (common-lisp:defun create-launch-template-version @@ -158873,7 +158872,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLaunchTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-launch-template-version)) (common-lisp:progn (common-lisp:defun create-local-gateway-route @@ -158897,7 +158896,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLocalGatewayRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-local-gateway-route)) (common-lisp:progn (common-lisp:defun create-local-gateway-route-table @@ -158917,7 +158916,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLocalGatewayRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-local-gateway-route-table)) (common-lisp:progn (common-lisp:defun create-local-gateway-route-table-virtual-interface-group-association @@ -158939,7 +158938,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLocalGatewayRouteTableVirtualInterfaceGroupAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-local-gateway-route-table-virtual-interface-group-association)) (common-lisp:progn @@ -158961,7 +158960,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLocalGatewayRouteTableVpcAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-local-gateway-route-table-vpc-association)) (common-lisp:progn (common-lisp:defun create-managed-prefix-list @@ -158983,7 +158982,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateManagedPrefixList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-managed-prefix-list)) (common-lisp:progn (common-lisp:defun create-nat-gateway @@ -159008,7 +159007,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNatGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-nat-gateway)) (common-lisp:progn (common-lisp:defun create-network-acl @@ -159027,7 +159026,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNetworkAcl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-network-acl)) (common-lisp:progn (common-lisp:defun create-network-acl-entry @@ -159049,7 +159048,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNetworkAclEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-network-acl-entry)) (common-lisp:progn (common-lisp:defun create-network-insights-access-scope @@ -159070,7 +159069,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNetworkInsightsAccessScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-network-insights-access-scope)) (common-lisp:progn (common-lisp:defun create-network-insights-path @@ -159094,7 +159093,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNetworkInsightsPath")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-network-insights-path)) (common-lisp:progn (common-lisp:defun create-network-interface @@ -159122,7 +159121,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNetworkInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-network-interface)) (common-lisp:progn (common-lisp:defun create-network-interface-permission @@ -159143,7 +159142,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNetworkInterfacePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-network-interface-permission)) (common-lisp:progn (common-lisp:defun create-placement-group @@ -159163,7 +159162,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePlacementGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-placement-group)) (common-lisp:progn (common-lisp:defun create-public-ipv4pool @@ -159180,7 +159179,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePublicIpv4Pool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-public-ipv4pool)) (common-lisp:progn (common-lisp:defun create-replace-root-volume-task @@ -159202,7 +159201,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReplaceRootVolumeTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-replace-root-volume-task)) (common-lisp:progn (common-lisp:defun create-reserved-instances-listing @@ -159223,7 +159222,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReservedInstancesListing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-reserved-instances-listing)) (common-lisp:progn (common-lisp:defun create-restore-image-task @@ -159243,7 +159242,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRestoreImageTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-restore-image-task)) (common-lisp:progn (common-lisp:defun create-route @@ -159271,7 +159270,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-route)) (common-lisp:progn (common-lisp:defun create-route-table @@ -159290,7 +159289,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-route-table)) (common-lisp:progn (common-lisp:defun create-security-group @@ -159310,7 +159309,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-security-group)) (common-lisp:progn (common-lisp:defun create-snapshot @@ -159330,7 +159329,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-snapshot)) (common-lisp:progn (common-lisp:defun create-snapshots @@ -159351,7 +159350,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-snapshots)) (common-lisp:progn (common-lisp:defun create-spot-datafeed-subscription @@ -159369,7 +159368,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSpotDatafeedSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-spot-datafeed-subscription)) (common-lisp:progn (common-lisp:defun create-store-image-task @@ -159387,7 +159386,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStoreImageTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-store-image-task)) (common-lisp:progn (common-lisp:defun create-subnet @@ -159411,7 +159410,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSubnet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-subnet)) (common-lisp:progn (common-lisp:defun create-subnet-cidr-reservation @@ -159432,7 +159431,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSubnetCidrReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-subnet-cidr-reservation)) (common-lisp:progn (common-lisp:defun create-tags @@ -159449,7 +159448,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-tags)) (common-lisp:progn (common-lisp:defun create-traffic-mirror-filter @@ -159470,7 +159469,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrafficMirrorFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-traffic-mirror-filter)) (common-lisp:progn (common-lisp:defun create-traffic-mirror-filter-rule @@ -159496,7 +159495,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrafficMirrorFilterRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-traffic-mirror-filter-rule)) (common-lisp:progn (common-lisp:defun create-traffic-mirror-session @@ -159520,7 +159519,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrafficMirrorSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-traffic-mirror-session)) (common-lisp:progn (common-lisp:defun create-traffic-mirror-target @@ -159543,7 +159542,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrafficMirrorTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-traffic-mirror-target)) (common-lisp:progn (common-lisp:defun create-transit-gateway @@ -159562,7 +159561,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway)) (common-lisp:progn (common-lisp:defun create-transit-gateway-connect @@ -159583,7 +159582,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayConnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-connect)) (common-lisp:progn (common-lisp:defun create-transit-gateway-connect-peer @@ -159606,7 +159605,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-connect-peer)) (common-lisp:progn (common-lisp:defun create-transit-gateway-multicast-domain @@ -159627,7 +159626,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayMulticastDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-multicast-domain)) (common-lisp:progn (common-lisp:defun create-transit-gateway-peering-attachment @@ -159649,7 +159648,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayPeeringAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-peering-attachment)) (common-lisp:progn (common-lisp:defun create-transit-gateway-policy-table @@ -159669,7 +159668,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayPolicyTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-policy-table)) (common-lisp:progn (common-lisp:defun create-transit-gateway-prefix-list-reference @@ -159691,7 +159690,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayPrefixListReference")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-prefix-list-reference)) (common-lisp:progn (common-lisp:defun create-transit-gateway-route @@ -159714,7 +159713,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-route)) (common-lisp:progn (common-lisp:defun create-transit-gateway-route-table @@ -159734,7 +159733,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-route-table)) (common-lisp:progn (common-lisp:defun create-transit-gateway-route-table-announcement @@ -159755,7 +159754,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayRouteTableAnnouncement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-route-table-announcement)) (common-lisp:progn (common-lisp:defun create-transit-gateway-vpc-attachment @@ -159776,7 +159775,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransitGatewayVpcAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-transit-gateway-vpc-attachment)) (common-lisp:progn (common-lisp:defun create-verified-access-endpoint @@ -159804,7 +159803,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVerifiedAccessEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-verified-access-endpoint)) (common-lisp:progn (common-lisp:defun create-verified-access-group @@ -159827,7 +159826,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVerifiedAccessGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-verified-access-group)) (common-lisp:progn (common-lisp:defun create-verified-access-instance @@ -159848,7 +159847,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVerifiedAccessInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-verified-access-instance)) (common-lisp:progn (common-lisp:defun create-verified-access-trust-provider @@ -159874,7 +159873,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVerifiedAccessTrustProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-verified-access-trust-provider)) (common-lisp:progn (common-lisp:defun create-volume @@ -159897,7 +159896,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-volume)) (common-lisp:progn (common-lisp:defun create-vpc @@ -159922,7 +159921,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpc")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-vpc)) (common-lisp:progn (common-lisp:defun create-vpc-endpoint @@ -159947,7 +159946,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-vpc-endpoint)) (common-lisp:progn (common-lisp:defun create-vpc-endpoint-connection-notification @@ -159969,7 +159968,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpcEndpointConnectionNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-vpc-endpoint-connection-notification)) (common-lisp:progn (common-lisp:defun create-vpc-endpoint-service-configuration @@ -159993,7 +159992,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpcEndpointServiceConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-vpc-endpoint-service-configuration)) (common-lisp:progn (common-lisp:defun create-vpc-peering-connection @@ -160014,7 +160013,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpcPeeringConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-vpc-peering-connection)) (common-lisp:progn (common-lisp:defun create-vpn-connection @@ -160034,7 +160033,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpnConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-vpn-connection)) (common-lisp:progn (common-lisp:defun create-vpn-connection-route @@ -160053,7 +160052,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpnConnectionRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-vpn-connection-route)) (common-lisp:progn (common-lisp:defun create-vpn-gateway @@ -160073,7 +160072,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpnGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-vpn-gateway)) (common-lisp:progn (common-lisp:defun delete-carrier-gateway @@ -160090,7 +160089,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCarrierGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-carrier-gateway)) (common-lisp:progn (common-lisp:defun delete-client-vpn-endpoint @@ -160108,7 +160107,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteClientVpnEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-client-vpn-endpoint)) (common-lisp:progn (common-lisp:defun delete-client-vpn-route @@ -160128,7 +160127,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteClientVpnRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-client-vpn-route)) (common-lisp:progn (common-lisp:defun delete-coip-cidr @@ -160145,7 +160144,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-coip-cidr)) (common-lisp:progn (common-lisp:defun delete-coip-pool @@ -160162,7 +160161,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCoipPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-coip-pool)) (common-lisp:progn (common-lisp:defun delete-customer-gateway @@ -160179,7 +160178,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCustomerGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-customer-gateway)) (common-lisp:progn (common-lisp:defun delete-dhcp-options @@ -160196,7 +160195,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDhcpOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dhcp-options)) (common-lisp:progn (common-lisp:defun delete-egress-only-internet-gateway @@ -160215,7 +160214,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEgressOnlyInternetGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-egress-only-internet-gateway)) (common-lisp:progn (common-lisp:defun delete-fleets @@ -160233,7 +160232,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-fleets)) (common-lisp:progn (common-lisp:defun delete-flow-logs @@ -160250,7 +160249,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFlowLogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-flow-logs)) (common-lisp:progn (common-lisp:defun delete-fpga-image @@ -160267,7 +160266,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFpgaImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-fpga-image)) (common-lisp:progn (common-lisp:defun delete-instance-connect-endpoint @@ -160286,7 +160285,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInstanceConnectEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-instance-connect-endpoint)) (common-lisp:progn (common-lisp:defun delete-instance-event-window @@ -160306,7 +160305,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInstanceEventWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-instance-event-window)) (common-lisp:progn (common-lisp:defun delete-internet-gateway @@ -160323,7 +160322,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInternetGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-internet-gateway)) (common-lisp:progn (common-lisp:defun delete-ipam @@ -160340,7 +160339,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIpam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-ipam)) (common-lisp:progn (common-lisp:defun delete-ipam-pool @@ -160357,7 +160356,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIpamPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-ipam-pool)) (common-lisp:progn (common-lisp:defun delete-ipam-resource-discovery @@ -160376,7 +160375,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIpamResourceDiscovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-ipam-resource-discovery)) (common-lisp:progn (common-lisp:defun delete-ipam-scope @@ -160393,7 +160392,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIpamScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-ipam-scope)) (common-lisp:progn (common-lisp:defun delete-key-pair @@ -160410,7 +160409,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-key-pair)) (common-lisp:progn (common-lisp:defun delete-launch-template @@ -160429,7 +160428,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLaunchTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-launch-template)) (common-lisp:progn (common-lisp:defun delete-launch-template-versions @@ -160450,7 +160449,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLaunchTemplateVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-launch-template-versions)) (common-lisp:progn (common-lisp:defun delete-local-gateway-route @@ -160472,7 +160471,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLocalGatewayRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-local-gateway-route)) (common-lisp:progn (common-lisp:defun delete-local-gateway-route-table @@ -160491,7 +160490,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLocalGatewayRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-local-gateway-route-table)) (common-lisp:progn (common-lisp:defun delete-local-gateway-route-table-virtual-interface-group-association @@ -160513,7 +160512,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLocalGatewayRouteTableVirtualInterfaceGroupAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-local-gateway-route-table-virtual-interface-group-association)) (common-lisp:progn @@ -160535,7 +160534,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLocalGatewayRouteTableVpcAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-local-gateway-route-table-vpc-association)) (common-lisp:progn (common-lisp:defun delete-managed-prefix-list @@ -160553,7 +160552,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteManagedPrefixList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-managed-prefix-list)) (common-lisp:progn (common-lisp:defun delete-nat-gateway @@ -160570,7 +160569,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNatGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-nat-gateway)) (common-lisp:progn (common-lisp:defun delete-network-acl @@ -160587,7 +160586,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkAcl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-network-acl)) (common-lisp:progn (common-lisp:defun delete-network-acl-entry @@ -160606,7 +160605,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkAclEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-network-acl-entry)) (common-lisp:progn (common-lisp:defun delete-network-insights-access-scope @@ -160625,7 +160624,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkInsightsAccessScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-network-insights-access-scope)) (common-lisp:progn (common-lisp:defun delete-network-insights-access-scope-analysis @@ -160645,7 +160644,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkInsightsAccessScopeAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-network-insights-access-scope-analysis)) (common-lisp:progn (common-lisp:defun delete-network-insights-analysis @@ -160664,7 +160663,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkInsightsAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-network-insights-analysis)) (common-lisp:progn (common-lisp:defun delete-network-insights-path @@ -160683,7 +160682,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkInsightsPath")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-network-insights-path)) (common-lisp:progn (common-lisp:defun delete-network-interface @@ -160700,7 +160699,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-network-interface)) (common-lisp:progn (common-lisp:defun delete-network-interface-permission @@ -160720,7 +160719,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNetworkInterfacePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-network-interface-permission)) (common-lisp:progn (common-lisp:defun delete-placement-group @@ -160737,7 +160736,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePlacementGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-placement-group)) (common-lisp:progn (common-lisp:defun delete-public-ipv4pool @@ -160754,7 +160753,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePublicIpv4Pool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-public-ipv4pool)) (common-lisp:progn (common-lisp:defun delete-queued-reserved-instances @@ -160772,7 +160771,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteQueuedReservedInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-queued-reserved-instances)) (common-lisp:progn (common-lisp:defun delete-route @@ -160793,7 +160792,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-route)) (common-lisp:progn (common-lisp:defun delete-route-table @@ -160810,7 +160809,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-route-table)) (common-lisp:progn (common-lisp:defun delete-security-group @@ -160827,7 +160826,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-security-group)) (common-lisp:progn (common-lisp:defun delete-snapshot @@ -160844,7 +160843,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-snapshot)) (common-lisp:progn (common-lisp:defun delete-spot-datafeed-subscription @@ -160862,7 +160861,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSpotDatafeedSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-spot-datafeed-subscription)) (common-lisp:progn (common-lisp:defun delete-subnet @@ -160879,7 +160878,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSubnet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-subnet)) (common-lisp:progn (common-lisp:defun delete-subnet-cidr-reservation @@ -160898,7 +160897,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSubnetCidrReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-subnet-cidr-reservation)) (common-lisp:progn (common-lisp:defun delete-tags @@ -160915,7 +160914,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun delete-traffic-mirror-filter @@ -160934,7 +160933,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrafficMirrorFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-traffic-mirror-filter)) (common-lisp:progn (common-lisp:defun delete-traffic-mirror-filter-rule @@ -160953,7 +160952,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrafficMirrorFilterRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-traffic-mirror-filter-rule)) (common-lisp:progn (common-lisp:defun delete-traffic-mirror-session @@ -160972,7 +160971,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrafficMirrorSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-traffic-mirror-session)) (common-lisp:progn (common-lisp:defun delete-traffic-mirror-target @@ -160991,7 +160990,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrafficMirrorTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-traffic-mirror-target)) (common-lisp:progn (common-lisp:defun delete-transit-gateway @@ -161008,7 +161007,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-connect @@ -161027,7 +161026,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayConnect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-connect)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-connect-peer @@ -161046,7 +161045,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-connect-peer)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-multicast-domain @@ -161066,7 +161065,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayMulticastDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-multicast-domain)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-peering-attachment @@ -161085,7 +161084,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayPeeringAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-peering-attachment)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-policy-table @@ -161104,7 +161103,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayPolicyTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-policy-table)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-prefix-list-reference @@ -161125,7 +161124,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayPrefixListReference")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-prefix-list-reference)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-route @@ -161146,7 +161145,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-route)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-route-table @@ -161165,7 +161164,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-route-table)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-route-table-announcement @@ -161186,7 +161185,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayRouteTableAnnouncement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-route-table-announcement)) (common-lisp:progn (common-lisp:defun delete-transit-gateway-vpc-attachment @@ -161205,7 +161204,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTransitGatewayVpcAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-transit-gateway-vpc-attachment)) (common-lisp:progn (common-lisp:defun delete-verified-access-endpoint @@ -161225,7 +161224,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVerifiedAccessEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-verified-access-endpoint)) (common-lisp:progn (common-lisp:defun delete-verified-access-group @@ -161245,7 +161244,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVerifiedAccessGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-verified-access-group)) (common-lisp:progn (common-lisp:defun delete-verified-access-instance @@ -161265,7 +161264,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVerifiedAccessInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-verified-access-instance)) (common-lisp:progn (common-lisp:defun delete-verified-access-trust-provider @@ -161286,7 +161285,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVerifiedAccessTrustProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-verified-access-trust-provider)) (common-lisp:progn (common-lisp:defun delete-volume @@ -161303,7 +161302,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-volume)) (common-lisp:progn (common-lisp:defun delete-vpc @@ -161320,7 +161319,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpc")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-vpc)) (common-lisp:progn (common-lisp:defun delete-vpc-endpoint-connection-notifications @@ -161339,7 +161338,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpcEndpointConnectionNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-vpc-endpoint-connection-notifications)) (common-lisp:progn (common-lisp:defun delete-vpc-endpoint-service-configurations @@ -161357,7 +161356,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpcEndpointServiceConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-vpc-endpoint-service-configurations)) (common-lisp:progn (common-lisp:defun delete-vpc-endpoints @@ -161374,7 +161373,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpcEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-vpc-endpoints)) (common-lisp:progn (common-lisp:defun delete-vpc-peering-connection @@ -161393,7 +161392,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpcPeeringConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-vpc-peering-connection)) (common-lisp:progn (common-lisp:defun delete-vpn-connection @@ -161410,7 +161409,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpnConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-vpn-connection)) (common-lisp:progn (common-lisp:defun delete-vpn-connection-route @@ -161429,7 +161428,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpnConnectionRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-vpn-connection-route)) (common-lisp:progn (common-lisp:defun delete-vpn-gateway @@ -161446,7 +161445,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpnGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-vpn-gateway)) (common-lisp:progn (common-lisp:defun deprovision-byoip-cidr @@ -161463,7 +161462,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprovisionByoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deprovision-byoip-cidr)) (common-lisp:progn (common-lisp:defun deprovision-ipam-byoasn @@ -161480,7 +161479,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprovisionIpamByoasn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deprovision-ipam-byoasn)) (common-lisp:progn (common-lisp:defun deprovision-ipam-pool-cidr @@ -161498,7 +161497,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprovisionIpamPoolCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deprovision-ipam-pool-cidr)) (common-lisp:progn (common-lisp:defun deprovision-public-ipv4pool-cidr @@ -161516,7 +161515,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprovisionPublicIpv4PoolCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deprovision-public-ipv4pool-cidr)) (common-lisp:progn (common-lisp:defun deregister-image @@ -161533,7 +161532,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deregister-image)) (common-lisp:progn (common-lisp:defun deregister-instance-event-notification-attributes @@ -161551,7 +161550,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterInstanceEventNotificationAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deregister-instance-event-notification-attributes)) (common-lisp:progn (common-lisp:defun deregister-transit-gateway-multicast-group-members @@ -161572,7 +161571,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterTransitGatewayMulticastGroupMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deregister-transit-gateway-multicast-group-members)) (common-lisp:progn (common-lisp:defun deregister-transit-gateway-multicast-group-sources @@ -161593,7 +161592,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterTransitGatewayMulticastGroupSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deregister-transit-gateway-multicast-group-sources)) (common-lisp:progn (common-lisp:defun describe-account-attributes @@ -161611,7 +161610,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccountAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-account-attributes)) (common-lisp:progn (common-lisp:defun describe-address-transfers @@ -161631,7 +161630,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAddressTransfers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-address-transfers)) (common-lisp:progn (common-lisp:defun describe-addresses @@ -161650,7 +161649,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAddresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-addresses)) (common-lisp:progn (common-lisp:defun describe-addresses-attribute @@ -161671,7 +161670,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAddressesAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-addresses-attribute)) (common-lisp:progn (common-lisp:defun describe-aggregate-id-format @@ -161689,7 +161688,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAggregateIdFormat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-aggregate-id-format)) (common-lisp:progn (common-lisp:defun describe-availability-zones @@ -161710,7 +161709,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAvailabilityZones")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-availability-zones)) (common-lisp:progn (common-lisp:defun describe-aws-network-performance-metric-subscriptions @@ -161729,7 +161728,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAwsNetworkPerformanceMetricSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-aws-network-performance-metric-subscriptions)) (common-lisp:progn (common-lisp:defun describe-bundle-tasks @@ -161746,7 +161745,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBundleTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-bundle-tasks)) (common-lisp:progn (common-lisp:defun describe-byoip-cidrs @@ -161763,7 +161762,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeByoipCidrs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-byoip-cidrs)) (common-lisp:progn (common-lisp:defun describe-capacity-block-offerings @@ -161786,7 +161785,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCapacityBlockOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-capacity-block-offerings)) (common-lisp:progn (common-lisp:defun describe-capacity-reservation-fleets @@ -161807,7 +161806,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCapacityReservationFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-capacity-reservation-fleets)) (common-lisp:progn (common-lisp:defun describe-capacity-reservations @@ -161828,7 +161827,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCapacityReservations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-capacity-reservations)) (common-lisp:progn (common-lisp:defun describe-carrier-gateways @@ -161849,7 +161848,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCarrierGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-carrier-gateways)) (common-lisp:progn (common-lisp:defun describe-classic-link-instances @@ -161870,7 +161869,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClassicLinkInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-classic-link-instances)) (common-lisp:progn (common-lisp:defun describe-client-vpn-authorization-rules @@ -161891,7 +161890,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClientVpnAuthorizationRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-client-vpn-authorization-rules)) (common-lisp:progn (common-lisp:defun describe-client-vpn-connections @@ -161912,7 +161911,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClientVpnConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-client-vpn-connections)) (common-lisp:progn (common-lisp:defun describe-client-vpn-endpoints @@ -161933,7 +161932,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClientVpnEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-client-vpn-endpoints)) (common-lisp:progn (common-lisp:defun describe-client-vpn-routes @@ -161954,7 +161953,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClientVpnRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-client-vpn-routes)) (common-lisp:progn (common-lisp:defun describe-client-vpn-target-networks @@ -161975,7 +161974,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClientVpnTargetNetworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-client-vpn-target-networks)) (common-lisp:progn (common-lisp:defun describe-coip-pools @@ -161994,7 +161993,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCoipPools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-coip-pools)) (common-lisp:progn (common-lisp:defun describe-conversion-tasks @@ -162012,7 +162011,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConversionTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-conversion-tasks)) (common-lisp:progn (common-lisp:defun describe-customer-gateways @@ -162031,7 +162030,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCustomerGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-customer-gateways)) (common-lisp:progn (common-lisp:defun describe-dhcp-options @@ -162051,7 +162050,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDhcpOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-dhcp-options)) (common-lisp:progn (common-lisp:defun describe-egress-only-internet-gateways @@ -162072,7 +162071,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEgressOnlyInternetGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-egress-only-internet-gateways)) (common-lisp:progn (common-lisp:defun describe-elastic-gpus @@ -162092,7 +162091,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeElasticGpus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-elastic-gpus)) (common-lisp:progn (common-lisp:defun describe-export-image-tasks @@ -162113,7 +162112,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExportImageTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-export-image-tasks)) (common-lisp:progn (common-lisp:defun describe-export-tasks @@ -162130,7 +162129,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExportTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-export-tasks)) (common-lisp:progn (common-lisp:defun describe-fast-launch-images @@ -162150,7 +162149,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFastLaunchImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-fast-launch-images)) (common-lisp:progn (common-lisp:defun describe-fast-snapshot-restores @@ -162169,7 +162168,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFastSnapshotRestores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-fast-snapshot-restores)) (common-lisp:progn (common-lisp:defun describe-fleet-history @@ -162189,7 +162188,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-fleet-history)) (common-lisp:progn (common-lisp:defun describe-fleet-instances @@ -162208,7 +162207,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-fleet-instances)) (common-lisp:progn (common-lisp:defun describe-fleets @@ -162227,7 +162226,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-fleets)) (common-lisp:progn (common-lisp:defun describe-flow-logs @@ -162246,7 +162245,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFlowLogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-flow-logs)) (common-lisp:progn (common-lisp:defun describe-fpga-image-attribute @@ -162265,7 +162264,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFpgaImageAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-fpga-image-attribute)) (common-lisp:progn (common-lisp:defun describe-fpga-images @@ -162285,7 +162284,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFpgaImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-fpga-images)) (common-lisp:progn (common-lisp:defun describe-host-reservation-offerings @@ -162306,7 +162305,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHostReservationOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-host-reservation-offerings)) (common-lisp:progn (common-lisp:defun describe-host-reservations @@ -162327,7 +162326,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHostReservations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-host-reservations)) (common-lisp:progn (common-lisp:defun describe-hosts @@ -162345,7 +162344,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHosts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-hosts)) (common-lisp:progn (common-lisp:defun describe-iam-instance-profile-associations @@ -162365,7 +162364,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIamInstanceProfileAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-iam-instance-profile-associations)) (common-lisp:progn (common-lisp:defun describe-id-format @@ -162382,7 +162381,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIdFormat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-id-format)) (common-lisp:progn (common-lisp:defun describe-identity-id-format @@ -162400,7 +162399,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIdentityIdFormat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-identity-id-format)) (common-lisp:progn (common-lisp:defun describe-image-attribute @@ -162417,7 +162416,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImageAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-image-attribute)) (common-lisp:progn (common-lisp:defun describe-images @@ -162438,7 +162437,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-images)) (common-lisp:progn (common-lisp:defun describe-import-image-tasks @@ -162459,7 +162458,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImportImageTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-import-image-tasks)) (common-lisp:progn (common-lisp:defun describe-import-snapshot-tasks @@ -162480,7 +162479,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImportSnapshotTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-import-snapshot-tasks)) (common-lisp:progn (common-lisp:defun describe-instance-attribute @@ -162498,7 +162497,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-attribute)) (common-lisp:progn (common-lisp:defun describe-instance-connect-endpoints @@ -162519,7 +162518,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceConnectEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-connect-endpoints)) (common-lisp:progn (common-lisp:defun describe-instance-credit-specifications @@ -162540,7 +162539,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceCreditSpecifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-credit-specifications)) (common-lisp:progn (common-lisp:defun describe-instance-event-notification-attributes @@ -162558,7 +162557,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceEventNotificationAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-event-notification-attributes)) (common-lisp:progn (common-lisp:defun describe-instance-event-windows @@ -162579,7 +162578,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceEventWindows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-event-windows)) (common-lisp:progn (common-lisp:defun describe-instance-status @@ -162599,7 +162598,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-status)) (common-lisp:progn (common-lisp:defun describe-instance-topology @@ -162620,7 +162619,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceTopology")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-topology)) (common-lisp:progn (common-lisp:defun describe-instance-type-offerings @@ -162641,7 +162640,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceTypeOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-type-offerings)) (common-lisp:progn (common-lisp:defun describe-instance-types @@ -162661,7 +162660,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instance-types)) (common-lisp:progn (common-lisp:defun describe-instances @@ -162681,7 +162680,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-instances)) (common-lisp:progn (common-lisp:defun describe-internet-gateways @@ -162702,7 +162701,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInternetGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-internet-gateways)) (common-lisp:progn (common-lisp:defun describe-ipam-byoasn @@ -162719,7 +162718,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIpamByoasn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-ipam-byoasn)) (common-lisp:progn (common-lisp:defun describe-ipam-pools @@ -162739,7 +162738,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIpamPools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-ipam-pools)) (common-lisp:progn (common-lisp:defun describe-ipam-resource-discoveries @@ -162760,7 +162759,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIpamResourceDiscoveries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-ipam-resource-discoveries)) (common-lisp:progn (common-lisp:defun describe-ipam-resource-discovery-associations @@ -162782,7 +162781,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIpamResourceDiscoveryAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-ipam-resource-discovery-associations)) (common-lisp:progn (common-lisp:defun describe-ipam-scopes @@ -162802,7 +162801,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIpamScopes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-ipam-scopes)) (common-lisp:progn (common-lisp:defun describe-ipams @@ -162821,7 +162820,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIpams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-ipams)) (common-lisp:progn (common-lisp:defun describe-ipv6pools @@ -162840,7 +162839,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIpv6Pools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-ipv6pools)) (common-lisp:progn (common-lisp:defun describe-key-pairs @@ -162860,7 +162859,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeKeyPairs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-key-pairs)) (common-lisp:progn (common-lisp:defun describe-launch-template-versions @@ -162883,7 +162882,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLaunchTemplateVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-launch-template-versions)) (common-lisp:progn (common-lisp:defun describe-launch-templates @@ -162904,7 +162903,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLaunchTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-launch-templates)) (common-lisp:progn (common-lisp:defun describe-local-gateway-route-table-virtual-interface-group-associations @@ -162927,7 +162926,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLocalGatewayRouteTableVirtualInterfaceGroupAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-local-gateway-route-table-virtual-interface-group-associations)) (common-lisp:progn @@ -162950,7 +162949,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLocalGatewayRouteTableVpcAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-local-gateway-route-table-vpc-associations)) (common-lisp:progn (common-lisp:defun describe-local-gateway-route-tables @@ -162971,7 +162970,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLocalGatewayRouteTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-local-gateway-route-tables)) (common-lisp:progn (common-lisp:defun describe-local-gateway-virtual-interface-groups @@ -162992,7 +162991,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLocalGatewayVirtualInterfaceGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-local-gateway-virtual-interface-groups)) (common-lisp:progn (common-lisp:defun describe-local-gateway-virtual-interfaces @@ -163013,7 +163012,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLocalGatewayVirtualInterfaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-local-gateway-virtual-interfaces)) (common-lisp:progn (common-lisp:defun describe-local-gateways @@ -163033,7 +163032,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLocalGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-local-gateways)) (common-lisp:progn (common-lisp:defun describe-locked-snapshots @@ -163054,7 +163053,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLockedSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-locked-snapshots)) (common-lisp:progn (common-lisp:defun describe-managed-prefix-lists @@ -163075,7 +163074,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeManagedPrefixLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-managed-prefix-lists)) (common-lisp:progn (common-lisp:defun describe-moving-addresses @@ -163095,7 +163094,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMovingAddresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-moving-addresses)) (common-lisp:progn (common-lisp:defun describe-nat-gateways @@ -163115,7 +163114,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNatGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-nat-gateways)) (common-lisp:progn (common-lisp:defun describe-network-acls @@ -163135,7 +163134,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNetworkAcls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-network-acls)) (common-lisp:progn (common-lisp:defun describe-network-insights-access-scope-analyses @@ -163160,7 +163159,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNetworkInsightsAccessScopeAnalyses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-network-insights-access-scope-analyses)) (common-lisp:progn (common-lisp:defun describe-network-insights-access-scopes @@ -163181,7 +163180,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNetworkInsightsAccessScopes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-network-insights-access-scopes)) (common-lisp:progn (common-lisp:defun describe-network-insights-analyses @@ -163204,7 +163203,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNetworkInsightsAnalyses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-network-insights-analyses)) (common-lisp:progn (common-lisp:defun describe-network-insights-paths @@ -163225,7 +163224,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNetworkInsightsPaths")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-network-insights-paths)) (common-lisp:progn (common-lisp:defun describe-network-interface-attribute @@ -163244,7 +163243,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNetworkInterfaceAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-network-interface-attribute)) (common-lisp:progn (common-lisp:defun describe-network-interface-permissions @@ -163265,7 +163264,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNetworkInterfacePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-network-interface-permissions)) (common-lisp:progn (common-lisp:defun describe-network-interfaces @@ -163286,7 +163285,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNetworkInterfaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-network-interfaces)) (common-lisp:progn (common-lisp:defun describe-placement-groups @@ -163305,7 +163304,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePlacementGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-placement-groups)) (common-lisp:progn (common-lisp:defun describe-prefix-lists @@ -163325,7 +163324,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePrefixLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-prefix-lists)) (common-lisp:progn (common-lisp:defun describe-principal-id-format @@ -163344,7 +163343,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePrincipalIdFormat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-principal-id-format)) (common-lisp:progn (common-lisp:defun describe-public-ipv4pools @@ -163363,7 +163362,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePublicIpv4Pools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-public-ipv4pools)) (common-lisp:progn (common-lisp:defun describe-regions @@ -163381,7 +163380,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRegions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-regions)) (common-lisp:progn (common-lisp:defun describe-replace-root-volume-tasks @@ -163402,7 +163401,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplaceRootVolumeTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-replace-root-volume-tasks)) (common-lisp:progn (common-lisp:defun describe-reserved-instances @@ -163423,7 +163422,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-reserved-instances)) (common-lisp:progn (common-lisp:defun describe-reserved-instances-listings @@ -163444,7 +163443,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedInstancesListings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-reserved-instances-listings)) (common-lisp:progn (common-lisp:defun describe-reserved-instances-modifications @@ -163465,7 +163464,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedInstancesModifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-reserved-instances-modifications)) (common-lisp:progn (common-lisp:defun describe-reserved-instances-offerings @@ -163492,7 +163491,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedInstancesOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-reserved-instances-offerings)) (common-lisp:progn (common-lisp:defun describe-route-tables @@ -163512,7 +163511,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRouteTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-route-tables)) (common-lisp:progn (common-lisp:defun describe-scheduled-instance-availability @@ -163536,7 +163535,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeScheduledInstanceAvailability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-scheduled-instance-availability)) (common-lisp:progn (common-lisp:defun describe-scheduled-instances @@ -163557,7 +163556,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeScheduledInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-scheduled-instances)) (common-lisp:progn (common-lisp:defun describe-security-group-references @@ -163575,7 +163574,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSecurityGroupReferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-security-group-references)) (common-lisp:progn (common-lisp:defun describe-security-group-rules @@ -163596,7 +163595,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSecurityGroupRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-security-group-rules)) (common-lisp:progn (common-lisp:defun describe-security-groups @@ -163616,7 +163615,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSecurityGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-security-groups)) (common-lisp:progn (common-lisp:defun describe-snapshot-attribute @@ -163634,7 +163633,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshotAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-snapshot-attribute)) (common-lisp:progn (common-lisp:defun describe-snapshot-tier-status @@ -163653,7 +163652,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshotTierStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-snapshot-tier-status)) (common-lisp:progn (common-lisp:defun describe-snapshots @@ -163673,7 +163672,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-snapshots)) (common-lisp:progn (common-lisp:defun describe-spot-datafeed-subscription @@ -163691,7 +163690,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpotDatafeedSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-spot-datafeed-subscription)) (common-lisp:progn (common-lisp:defun describe-spot-fleet-instances @@ -163712,7 +163711,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpotFleetInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-spot-fleet-instances)) (common-lisp:progn (common-lisp:defun describe-spot-fleet-request-history @@ -163733,7 +163732,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpotFleetRequestHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-spot-fleet-request-history)) (common-lisp:progn (common-lisp:defun describe-spot-fleet-requests @@ -163754,7 +163753,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpotFleetRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-spot-fleet-requests)) (common-lisp:progn (common-lisp:defun describe-spot-instance-requests @@ -163775,7 +163774,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpotInstanceRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-spot-instance-requests)) (common-lisp:progn (common-lisp:defun describe-spot-price-history @@ -163797,7 +163796,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpotPriceHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-spot-price-history)) (common-lisp:progn (common-lisp:defun describe-stale-security-groups @@ -163816,7 +163815,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStaleSecurityGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-stale-security-groups)) (common-lisp:progn (common-lisp:defun describe-store-image-tasks @@ -163836,7 +163835,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStoreImageTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-store-image-tasks)) (common-lisp:progn (common-lisp:defun describe-subnets @@ -163855,7 +163854,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSubnets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-subnets)) (common-lisp:progn (common-lisp:defun describe-tags @@ -163873,7 +163872,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun describe-traffic-mirror-filters @@ -163894,7 +163893,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrafficMirrorFilters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-traffic-mirror-filters)) (common-lisp:progn (common-lisp:defun describe-traffic-mirror-sessions @@ -163915,7 +163914,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrafficMirrorSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-traffic-mirror-sessions)) (common-lisp:progn (common-lisp:defun describe-traffic-mirror-targets @@ -163936,7 +163935,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrafficMirrorTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-traffic-mirror-targets)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-attachments @@ -163957,7 +163956,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayAttachments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-attachments)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-connect-peers @@ -163978,7 +163977,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayConnectPeers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-connect-peers)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-connects @@ -163999,7 +163998,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayConnects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-connects)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-multicast-domains @@ -164020,7 +164019,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayMulticastDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-multicast-domains)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-peering-attachments @@ -164041,7 +164040,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayPeeringAttachments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-peering-attachments)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-policy-tables @@ -164062,7 +164061,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayPolicyTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-policy-tables)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-route-table-announcements @@ -164084,7 +164083,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayRouteTableAnnouncements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-route-table-announcements)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-route-tables @@ -164105,7 +164104,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayRouteTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-route-tables)) (common-lisp:progn (common-lisp:defun describe-transit-gateway-vpc-attachments @@ -164126,7 +164125,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGatewayVpcAttachments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateway-vpc-attachments)) (common-lisp:progn (common-lisp:defun describe-transit-gateways @@ -164147,7 +164146,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransitGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-transit-gateways)) (common-lisp:progn (common-lisp:defun describe-trunk-interface-associations @@ -164168,7 +164167,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrunkInterfaceAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-trunk-interface-associations)) (common-lisp:progn (common-lisp:defun describe-verified-access-endpoints @@ -164191,7 +164190,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVerifiedAccessEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-verified-access-endpoints)) (common-lisp:progn (common-lisp:defun describe-verified-access-groups @@ -164213,7 +164212,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVerifiedAccessGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-verified-access-groups)) (common-lisp:progn (common-lisp:defun describe-verified-access-instance-logging-configurations @@ -164234,7 +164233,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVerifiedAccessInstanceLoggingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-verified-access-instance-logging-configurations)) (common-lisp:progn (common-lisp:defun describe-verified-access-instances @@ -164255,7 +164254,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVerifiedAccessInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-verified-access-instances)) (common-lisp:progn (common-lisp:defun describe-verified-access-trust-providers @@ -164276,7 +164275,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVerifiedAccessTrustProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-verified-access-trust-providers)) (common-lisp:progn (common-lisp:defun describe-volume-attribute @@ -164294,7 +164293,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVolumeAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-volume-attribute)) (common-lisp:progn (common-lisp:defun describe-volume-status @@ -164313,7 +164312,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVolumeStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-volume-status)) (common-lisp:progn (common-lisp:defun describe-volumes @@ -164332,7 +164331,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVolumes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-volumes)) (common-lisp:progn (common-lisp:defun describe-volumes-modifications @@ -164352,7 +164351,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVolumesModifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-volumes-modifications)) (common-lisp:progn (common-lisp:defun describe-vpc-attribute @@ -164369,7 +164368,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-attribute)) (common-lisp:progn (common-lisp:defun describe-vpc-classic-link @@ -164387,7 +164386,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcClassicLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-classic-link)) (common-lisp:progn (common-lisp:defun describe-vpc-classic-link-dns-support @@ -164405,7 +164404,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcClassicLinkDnsSupport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-classic-link-dns-support)) (common-lisp:progn (common-lisp:defun describe-vpc-endpoint-connection-notifications @@ -164426,7 +164425,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcEndpointConnectionNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-endpoint-connection-notifications)) (common-lisp:progn (common-lisp:defun describe-vpc-endpoint-connections @@ -164445,7 +164444,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcEndpointConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-endpoint-connections)) (common-lisp:progn (common-lisp:defun describe-vpc-endpoint-service-configurations @@ -164465,7 +164464,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcEndpointServiceConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-endpoint-service-configurations)) (common-lisp:progn (common-lisp:defun describe-vpc-endpoint-service-permissions @@ -164485,7 +164484,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcEndpointServicePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-endpoint-service-permissions)) (common-lisp:progn (common-lisp:defun describe-vpc-endpoint-services @@ -164506,7 +164505,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcEndpointServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-endpoint-services)) (common-lisp:progn (common-lisp:defun describe-vpc-endpoints @@ -164526,7 +164525,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-endpoints)) (common-lisp:progn (common-lisp:defun describe-vpc-peering-connections @@ -164547,7 +164546,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcPeeringConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpc-peering-connections)) (common-lisp:progn (common-lisp:defun describe-vpcs @@ -164566,7 +164565,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpcs)) (common-lisp:progn (common-lisp:defun describe-vpn-connections @@ -164584,7 +164583,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpnConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpn-connections)) (common-lisp:progn (common-lisp:defun describe-vpn-gateways @@ -164602,7 +164601,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpnGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'describe-vpn-gateways)) (common-lisp:progn (common-lisp:defun detach-classic-link-vpc @@ -164619,7 +164618,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachClassicLinkVpc")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-classic-link-vpc)) (common-lisp:progn (common-lisp:defun detach-internet-gateway @@ -164637,7 +164636,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachInternetGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-internet-gateway)) (common-lisp:progn (common-lisp:defun detach-network-interface @@ -164654,7 +164653,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachNetworkInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-network-interface)) (common-lisp:progn (common-lisp:defun detach-verified-access-trust-provider @@ -164675,7 +164674,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachVerifiedAccessTrustProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-verified-access-trust-provider)) (common-lisp:progn (common-lisp:defun detach-volume @@ -164694,7 +164693,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-volume)) (common-lisp:progn (common-lisp:defun detach-vpn-gateway @@ -164711,7 +164710,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachVpnGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-vpn-gateway)) (common-lisp:progn (common-lisp:defun disable-address-transfer @@ -164728,7 +164727,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableAddressTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-address-transfer)) (common-lisp:progn (common-lisp:defun disable-aws-network-performance-metric-subscription @@ -164748,7 +164747,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableAwsNetworkPerformanceMetricSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-aws-network-performance-metric-subscription)) (common-lisp:progn (common-lisp:defun disable-ebs-encryption-by-default @@ -164766,7 +164765,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableEbsEncryptionByDefault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-ebs-encryption-by-default)) (common-lisp:progn (common-lisp:defun disable-fast-launch @@ -164783,7 +164782,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableFastLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-fast-launch)) (common-lisp:progn (common-lisp:defun disable-fast-snapshot-restores @@ -164803,7 +164802,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableFastSnapshotRestores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-fast-snapshot-restores)) (common-lisp:progn (common-lisp:defun disable-image @@ -164820,7 +164819,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-image)) (common-lisp:progn (common-lisp:defun disable-image-block-public-access @@ -164838,7 +164837,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableImageBlockPublicAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-image-block-public-access)) (common-lisp:progn (common-lisp:defun disable-image-deprecation @@ -164856,7 +164855,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableImageDeprecation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-image-deprecation)) (common-lisp:progn (common-lisp:defun disable-ipam-organization-admin-account @@ -164875,7 +164874,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableIpamOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-ipam-organization-admin-account)) (common-lisp:progn (common-lisp:defun disable-serial-console-access @@ -164893,7 +164892,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableSerialConsoleAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-serial-console-access)) (common-lisp:progn (common-lisp:defun disable-snapshot-block-public-access @@ -164911,7 +164910,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableSnapshotBlockPublicAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-snapshot-block-public-access)) (common-lisp:progn (common-lisp:defun disable-transit-gateway-route-table-propagation @@ -164934,7 +164933,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableTransitGatewayRouteTablePropagation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-transit-gateway-route-table-propagation)) (common-lisp:progn (common-lisp:defun disable-vgw-route-propagation @@ -164953,7 +164952,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableVgwRoutePropagation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-vgw-route-propagation)) (common-lisp:progn (common-lisp:defun disable-vpc-classic-link @@ -164970,7 +164969,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableVpcClassicLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-vpc-classic-link)) (common-lisp:progn (common-lisp:defun disable-vpc-classic-link-dns-support @@ -164988,7 +164987,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableVpcClassicLinkDnsSupport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-vpc-classic-link-dns-support)) (common-lisp:progn (common-lisp:defun disassociate-address @@ -165006,7 +165005,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-address)) (common-lisp:progn (common-lisp:defun disassociate-client-vpn-target-network @@ -165026,7 +165025,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateClientVpnTargetNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-client-vpn-target-network)) (common-lisp:progn (common-lisp:defun disassociate-enclave-certificate-iam-role @@ -165045,7 +165044,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateEnclaveCertificateIamRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-enclave-certificate-iam-role)) (common-lisp:progn (common-lisp:defun disassociate-iam-instance-profile @@ -165063,7 +165062,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateIamInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-iam-instance-profile)) (common-lisp:progn (common-lisp:defun disassociate-instance-event-window @@ -165084,7 +165083,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateInstanceEventWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-instance-event-window)) (common-lisp:progn (common-lisp:defun disassociate-ipam-byoasn @@ -165101,7 +165100,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateIpamByoasn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-ipam-byoasn)) (common-lisp:progn (common-lisp:defun disassociate-ipam-resource-discovery @@ -165121,7 +165120,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateIpamResourceDiscovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-ipam-resource-discovery)) (common-lisp:progn (common-lisp:defun disassociate-nat-gateway-address @@ -165142,7 +165141,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateNatGatewayAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-nat-gateway-address)) (common-lisp:progn (common-lisp:defun disassociate-route-table @@ -165159,7 +165158,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-route-table)) (common-lisp:progn (common-lisp:defun disassociate-subnet-cidr-block @@ -165177,7 +165176,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateSubnetCidrBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-subnet-cidr-block)) (common-lisp:progn (common-lisp:defun disassociate-transit-gateway-multicast-domain @@ -165198,7 +165197,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateTransitGatewayMulticastDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-transit-gateway-multicast-domain)) (common-lisp:progn (common-lisp:defun disassociate-transit-gateway-policy-table @@ -165219,7 +165218,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateTransitGatewayPolicyTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-transit-gateway-policy-table)) (common-lisp:progn (common-lisp:defun disassociate-transit-gateway-route-table @@ -165240,7 +165239,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateTransitGatewayRouteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-transit-gateway-route-table)) (common-lisp:progn (common-lisp:defun disassociate-trunk-interface @@ -165259,7 +165258,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateTrunkInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-trunk-interface)) (common-lisp:progn (common-lisp:defun disassociate-vpc-cidr-block @@ -165277,7 +165276,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateVpcCidrBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-vpc-cidr-block)) (common-lisp:progn (common-lisp:defun enable-address-transfer @@ -165296,7 +165295,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableAddressTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-address-transfer)) (common-lisp:progn (common-lisp:defun enable-aws-network-performance-metric-subscription @@ -165316,7 +165315,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableAwsNetworkPerformanceMetricSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-aws-network-performance-metric-subscription)) (common-lisp:progn (common-lisp:defun enable-ebs-encryption-by-default @@ -165334,7 +165333,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableEbsEncryptionByDefault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-ebs-encryption-by-default)) (common-lisp:progn (common-lisp:defun enable-fast-launch @@ -165355,7 +165354,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableFastLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-fast-launch)) (common-lisp:progn (common-lisp:defun enable-fast-snapshot-restores @@ -165375,7 +165374,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableFastSnapshotRestores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-fast-snapshot-restores)) (common-lisp:progn (common-lisp:defun enable-image @@ -165392,7 +165391,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-image)) (common-lisp:progn (common-lisp:defun enable-image-block-public-access @@ -165411,7 +165410,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableImageBlockPublicAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-image-block-public-access)) (common-lisp:progn (common-lisp:defun enable-image-deprecation @@ -165428,7 +165427,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableImageDeprecation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-image-deprecation)) (common-lisp:progn (common-lisp:defun enable-ipam-organization-admin-account @@ -165447,7 +165446,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableIpamOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-ipam-organization-admin-account)) (common-lisp:progn (common-lisp:defun enable-reachability-analyzer-organization-sharing @@ -165465,7 +165464,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableReachabilityAnalyzerOrganizationSharing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-reachability-analyzer-organization-sharing)) (common-lisp:progn (common-lisp:defun enable-serial-console-access @@ -165483,7 +165482,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableSerialConsoleAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-serial-console-access)) (common-lisp:progn (common-lisp:defun enable-snapshot-block-public-access @@ -165501,7 +165500,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableSnapshotBlockPublicAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-snapshot-block-public-access)) (common-lisp:progn (common-lisp:defun enable-transit-gateway-route-table-propagation @@ -165524,7 +165523,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableTransitGatewayRouteTablePropagation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-transit-gateway-route-table-propagation)) (common-lisp:progn (common-lisp:defun enable-vgw-route-propagation @@ -165543,7 +165542,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableVgwRoutePropagation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-vgw-route-propagation)) (common-lisp:progn (common-lisp:defun enable-volume-io @@ -165560,7 +165559,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableVolumeIO")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-volume-io)) (common-lisp:progn (common-lisp:defun enable-vpc-classic-link @@ -165577,7 +165576,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableVpcClassicLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-vpc-classic-link)) (common-lisp:progn (common-lisp:defun enable-vpc-classic-link-dns-support @@ -165595,7 +165594,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableVpcClassicLinkDnsSupport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-vpc-classic-link-dns-support)) (common-lisp:progn (common-lisp:defun export-client-vpn-client-certificate-revocation-list @@ -165613,7 +165612,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportClientVpnClientCertificateRevocationList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'export-client-vpn-client-certificate-revocation-list)) (common-lisp:progn (common-lisp:defun export-client-vpn-client-configuration @@ -165631,7 +165630,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportClientVpnClientConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'export-client-vpn-client-configuration)) (common-lisp:progn (common-lisp:defun export-image @@ -165652,7 +165651,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'export-image)) (common-lisp:progn (common-lisp:defun export-transit-gateway-routes @@ -165673,7 +165672,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportTransitGatewayRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'export-transit-gateway-routes)) (common-lisp:progn (common-lisp:defun get-associated-enclave-certificate-iam-roles @@ -165691,7 +165690,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAssociatedEnclaveCertificateIamRoles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-associated-enclave-certificate-iam-roles)) (common-lisp:progn (common-lisp:defun get-associated-ipv6pool-cidrs @@ -165710,7 +165709,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAssociatedIpv6PoolCidrs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-associated-ipv6pool-cidrs)) (common-lisp:progn (common-lisp:defun get-aws-network-performance-data @@ -165731,7 +165730,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAwsNetworkPerformanceData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-aws-network-performance-data)) (common-lisp:progn (common-lisp:defun get-capacity-reservation-usage @@ -165752,7 +165751,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCapacityReservationUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-capacity-reservation-usage)) (common-lisp:progn (common-lisp:defun get-coip-pool-usage @@ -165771,7 +165770,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCoipPoolUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-coip-pool-usage)) (common-lisp:progn (common-lisp:defun get-console-output @@ -165788,7 +165787,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConsoleOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-console-output)) (common-lisp:progn (common-lisp:defun get-console-screenshot @@ -165805,7 +165804,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConsoleScreenshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-console-screenshot)) (common-lisp:progn (common-lisp:defun get-default-credit-specification @@ -165823,7 +165822,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDefaultCreditSpecification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-default-credit-specification)) (common-lisp:progn (common-lisp:defun get-ebs-default-kms-key-id @@ -165841,7 +165840,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEbsDefaultKmsKeyId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ebs-default-kms-key-id)) (common-lisp:progn (common-lisp:defun get-ebs-encryption-by-default @@ -165859,7 +165858,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEbsEncryptionByDefault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ebs-encryption-by-default)) (common-lisp:progn (common-lisp:defun get-flow-logs-integration-template @@ -165880,7 +165879,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetFlowLogsIntegrationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-flow-logs-integration-template)) (common-lisp:progn (common-lisp:defun get-groups-for-capacity-reservation @@ -165901,7 +165900,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetGroupsForCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-groups-for-capacity-reservation)) (common-lisp:progn (common-lisp:defun get-host-reservation-purchase-preview @@ -165919,7 +165918,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetHostReservationPurchasePreview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-host-reservation-purchase-preview)) (common-lisp:progn (common-lisp:defun get-image-block-public-access-state @@ -165937,7 +165936,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetImageBlockPublicAccessState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-image-block-public-access-state)) (common-lisp:progn (common-lisp:defun get-instance-types-from-instance-requirements @@ -165959,7 +165958,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInstanceTypesFromInstanceRequirements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-instance-types-from-instance-requirements)) (common-lisp:progn (common-lisp:defun get-instance-uefi-data @@ -165976,7 +165975,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInstanceUefiData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-instance-uefi-data)) (common-lisp:progn (common-lisp:defun get-ipam-address-history @@ -165996,7 +165995,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetIpamAddressHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ipam-address-history)) (common-lisp:progn (common-lisp:defun get-ipam-discovered-accounts @@ -166017,7 +166016,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetIpamDiscoveredAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ipam-discovered-accounts)) (common-lisp:progn (common-lisp:defun get-ipam-discovered-public-addresses @@ -166038,7 +166037,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetIpamDiscoveredPublicAddresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ipam-discovered-public-addresses)) (common-lisp:progn (common-lisp:defun get-ipam-discovered-resource-cidrs @@ -166059,7 +166058,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetIpamDiscoveredResourceCidrs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ipam-discovered-resource-cidrs)) (common-lisp:progn (common-lisp:defun get-ipam-pool-allocations @@ -166080,7 +166079,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetIpamPoolAllocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ipam-pool-allocations)) (common-lisp:progn (common-lisp:defun get-ipam-pool-cidrs @@ -166100,7 +166099,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetIpamPoolCidrs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ipam-pool-cidrs)) (common-lisp:progn (common-lisp:defun get-ipam-resource-cidrs @@ -166121,7 +166120,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetIpamResourceCidrs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-ipam-resource-cidrs)) (common-lisp:progn (common-lisp:defun get-launch-template-data @@ -166138,7 +166137,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLaunchTemplateData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-launch-template-data)) (common-lisp:progn (common-lisp:defun get-managed-prefix-list-associations @@ -166158,7 +166157,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetManagedPrefixListAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-managed-prefix-list-associations)) (common-lisp:progn (common-lisp:defun get-managed-prefix-list-entries @@ -166179,7 +166178,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetManagedPrefixListEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-managed-prefix-list-entries)) (common-lisp:progn (common-lisp:defun get-network-insights-access-scope-analysis-findings @@ -166200,7 +166199,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetNetworkInsightsAccessScopeAnalysisFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-network-insights-access-scope-analysis-findings)) (common-lisp:progn (common-lisp:defun get-network-insights-access-scope-content @@ -166219,7 +166218,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetNetworkInsightsAccessScopeContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-network-insights-access-scope-content)) (common-lisp:progn (common-lisp:defun get-password-data @@ -166236,7 +166235,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPasswordData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-password-data)) (common-lisp:progn (common-lisp:defun get-reserved-instances-exchange-quote @@ -166257,7 +166256,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetReservedInstancesExchangeQuote")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-reserved-instances-exchange-quote)) (common-lisp:progn (common-lisp:defun get-security-groups-for-vpc @@ -166277,7 +166276,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSecurityGroupsForVpc")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-security-groups-for-vpc)) (common-lisp:progn (common-lisp:defun get-serial-console-access-status @@ -166295,7 +166294,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSerialConsoleAccessStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-serial-console-access-status)) (common-lisp:progn (common-lisp:defun get-snapshot-block-public-access-state @@ -166313,7 +166312,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSnapshotBlockPublicAccessState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-snapshot-block-public-access-state)) (common-lisp:progn (common-lisp:defun get-spot-placement-scores @@ -166337,7 +166336,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSpotPlacementScores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-spot-placement-scores)) (common-lisp:progn (common-lisp:defun get-subnet-cidr-reservations @@ -166357,7 +166356,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSubnetCidrReservations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-subnet-cidr-reservations)) (common-lisp:progn (common-lisp:defun get-transit-gateway-attachment-propagations @@ -166378,7 +166377,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransitGatewayAttachmentPropagations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-transit-gateway-attachment-propagations)) (common-lisp:progn (common-lisp:defun get-transit-gateway-multicast-domain-associations @@ -166399,7 +166398,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransitGatewayMulticastDomainAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-transit-gateway-multicast-domain-associations)) (common-lisp:progn (common-lisp:defun get-transit-gateway-policy-table-associations @@ -166420,7 +166419,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransitGatewayPolicyTableAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-transit-gateway-policy-table-associations)) (common-lisp:progn (common-lisp:defun get-transit-gateway-policy-table-entries @@ -166441,7 +166440,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransitGatewayPolicyTableEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-transit-gateway-policy-table-entries)) (common-lisp:progn (common-lisp:defun get-transit-gateway-prefix-list-references @@ -166462,7 +166461,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransitGatewayPrefixListReferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-transit-gateway-prefix-list-references)) (common-lisp:progn (common-lisp:defun get-transit-gateway-route-table-associations @@ -166483,7 +166482,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransitGatewayRouteTableAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-transit-gateway-route-table-associations)) (common-lisp:progn (common-lisp:defun get-transit-gateway-route-table-propagations @@ -166504,7 +166503,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTransitGatewayRouteTablePropagations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-transit-gateway-route-table-propagations)) (common-lisp:progn (common-lisp:defun get-verified-access-endpoint-policy @@ -166523,7 +166522,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetVerifiedAccessEndpointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-verified-access-endpoint-policy)) (common-lisp:progn (common-lisp:defun get-verified-access-group-policy @@ -166542,7 +166541,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetVerifiedAccessGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-verified-access-group-policy)) (common-lisp:progn (common-lisp:defun get-vpn-connection-device-sample-configuration @@ -166564,7 +166563,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetVpnConnectionDeviceSampleConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-vpn-connection-device-sample-configuration)) (common-lisp:progn (common-lisp:defun get-vpn-connection-device-types @@ -166582,7 +166581,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetVpnConnectionDeviceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-vpn-connection-device-types)) (common-lisp:progn (common-lisp:defun get-vpn-tunnel-replacement-status @@ -166603,7 +166602,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetVpnTunnelReplacementStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'get-vpn-tunnel-replacement-status)) (common-lisp:progn (common-lisp:defun import-client-vpn-client-certificate-revocation-list @@ -166624,7 +166623,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportClientVpnClientCertificateRevocationList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'import-client-vpn-client-certificate-revocation-list)) (common-lisp:progn (common-lisp:defun import-image @@ -166649,7 +166648,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'import-image)) (common-lisp:progn (common-lisp:defun import-instance @@ -166669,7 +166668,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'import-instance)) (common-lisp:progn (common-lisp:defun import-key-pair @@ -166689,7 +166688,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'import-key-pair)) (common-lisp:progn (common-lisp:defun import-snapshot @@ -166710,7 +166709,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'import-snapshot)) (common-lisp:progn (common-lisp:defun import-volume @@ -166729,7 +166728,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'import-volume)) (common-lisp:progn (common-lisp:defun list-images-in-recycle-bin @@ -166748,7 +166747,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImagesInRecycleBin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'list-images-in-recycle-bin)) (common-lisp:progn (common-lisp:defun list-snapshots-in-recycle-bin @@ -166768,7 +166767,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSnapshotsInRecycleBin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'list-snapshots-in-recycle-bin)) (common-lisp:progn (common-lisp:defun lock-snapshot @@ -166788,7 +166787,7 @@ aws-sdk/generator/operation::input "POST" "/" "LockSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'lock-snapshot)) (common-lisp:progn (common-lisp:defun modify-address-attribute @@ -166806,7 +166805,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyAddressAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-address-attribute)) (common-lisp:progn (common-lisp:defun modify-availability-zone-group @@ -166825,7 +166824,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyAvailabilityZoneGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-availability-zone-group)) (common-lisp:progn (common-lisp:defun modify-capacity-reservation @@ -166846,7 +166845,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCapacityReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-capacity-reservation)) (common-lisp:progn (common-lisp:defun modify-capacity-reservation-fleet @@ -166867,7 +166866,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCapacityReservationFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-capacity-reservation-fleet)) (common-lisp:progn (common-lisp:defun modify-client-vpn-endpoint @@ -166894,7 +166893,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClientVpnEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-client-vpn-endpoint)) (common-lisp:progn (common-lisp:defun modify-default-credit-specification @@ -166913,7 +166912,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDefaultCreditSpecification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-default-credit-specification)) (common-lisp:progn (common-lisp:defun modify-ebs-default-kms-key-id @@ -166931,7 +166930,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyEbsDefaultKmsKeyId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-ebs-default-kms-key-id)) (common-lisp:progn (common-lisp:defun modify-fleet @@ -166952,7 +166951,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-fleet)) (common-lisp:progn (common-lisp:defun modify-fpga-image-attribute @@ -166974,7 +166973,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyFpgaImageAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-fpga-image-attribute)) (common-lisp:progn (common-lisp:defun modify-hosts @@ -166994,7 +166993,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyHosts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-hosts)) (common-lisp:progn (common-lisp:defun modify-id-format @@ -167011,7 +167010,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyIdFormat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-id-format)) (common-lisp:progn (common-lisp:defun modify-identity-id-format @@ -167030,7 +167029,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyIdentityIdFormat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-identity-id-format)) (common-lisp:progn (common-lisp:defun modify-image-attribute @@ -167053,7 +167052,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyImageAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-image-attribute)) (common-lisp:progn (common-lisp:defun modify-instance-attribute @@ -167080,7 +167079,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-instance-attribute)) (common-lisp:progn (common-lisp:defun modify-instance-capacity-reservation-attributes @@ -167101,7 +167100,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceCapacityReservationAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-instance-capacity-reservation-attributes)) (common-lisp:progn (common-lisp:defun modify-instance-credit-specification @@ -167122,7 +167121,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceCreditSpecification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-instance-credit-specification)) (common-lisp:progn (common-lisp:defun modify-instance-event-start-time @@ -167142,7 +167141,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceEventStartTime")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-instance-event-start-time)) (common-lisp:progn (common-lisp:defun modify-instance-event-window @@ -167163,7 +167162,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceEventWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-instance-event-window)) (common-lisp:progn (common-lisp:defun modify-instance-maintenance-options @@ -167182,7 +167181,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceMaintenanceOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-instance-maintenance-options)) (common-lisp:progn (common-lisp:defun modify-instance-metadata-options @@ -167204,7 +167203,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceMetadataOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-instance-metadata-options)) (common-lisp:progn (common-lisp:defun modify-instance-placement @@ -167225,7 +167224,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyInstancePlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-instance-placement)) (common-lisp:progn (common-lisp:defun modify-ipam @@ -167245,7 +167244,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyIpam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-ipam)) (common-lisp:progn (common-lisp:defun modify-ipam-pool @@ -167272,7 +167271,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyIpamPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-ipam-pool)) (common-lisp:progn (common-lisp:defun modify-ipam-resource-cidr @@ -167294,7 +167293,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyIpamResourceCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-ipam-resource-cidr)) (common-lisp:progn (common-lisp:defun modify-ipam-resource-discovery @@ -167316,7 +167315,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyIpamResourceDiscovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-ipam-resource-discovery)) (common-lisp:progn (common-lisp:defun modify-ipam-scope @@ -167334,7 +167333,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyIpamScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-ipam-scope)) (common-lisp:progn (common-lisp:defun modify-launch-template @@ -167354,7 +167353,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyLaunchTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-launch-template)) (common-lisp:progn (common-lisp:defun modify-local-gateway-route @@ -167378,7 +167377,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyLocalGatewayRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-local-gateway-route)) (common-lisp:progn (common-lisp:defun modify-managed-prefix-list @@ -167399,7 +167398,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyManagedPrefixList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-managed-prefix-list)) (common-lisp:progn (common-lisp:defun modify-network-interface-attribute @@ -167423,7 +167422,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyNetworkInterfaceAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-network-interface-attribute)) (common-lisp:progn (common-lisp:defun modify-private-dns-name-options @@ -167445,7 +167444,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyPrivateDnsNameOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-private-dns-name-options)) (common-lisp:progn (common-lisp:defun modify-reserved-instances @@ -167466,7 +167465,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyReservedInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-reserved-instances)) (common-lisp:progn (common-lisp:defun modify-security-group-rules @@ -167485,7 +167484,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySecurityGroupRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-security-group-rules)) (common-lisp:progn (common-lisp:defun modify-snapshot-attribute @@ -167506,7 +167505,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySnapshotAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-snapshot-attribute)) (common-lisp:progn (common-lisp:defun modify-snapshot-tier @@ -167524,7 +167523,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySnapshotTier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-snapshot-tier)) (common-lisp:progn (common-lisp:defun modify-spot-fleet-request @@ -167547,7 +167546,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySpotFleetRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-spot-fleet-request)) (common-lisp:progn (common-lisp:defun modify-subnet-attribute @@ -167576,7 +167575,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySubnetAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-subnet-attribute)) (common-lisp:progn (common-lisp:defun modify-traffic-mirror-filter-network-services @@ -167597,7 +167596,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyTrafficMirrorFilterNetworkServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-traffic-mirror-filter-network-services)) (common-lisp:progn (common-lisp:defun modify-traffic-mirror-filter-rule @@ -167623,7 +167622,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyTrafficMirrorFilterRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-traffic-mirror-filter-rule)) (common-lisp:progn (common-lisp:defun modify-traffic-mirror-session @@ -167647,7 +167646,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyTrafficMirrorSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-traffic-mirror-session)) (common-lisp:progn (common-lisp:defun modify-transit-gateway @@ -167666,7 +167665,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyTransitGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-transit-gateway)) (common-lisp:progn (common-lisp:defun modify-transit-gateway-prefix-list-reference @@ -167688,7 +167687,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyTransitGatewayPrefixListReference")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-transit-gateway-prefix-list-reference)) (common-lisp:progn (common-lisp:defun modify-transit-gateway-vpc-attachment @@ -167709,7 +167708,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyTransitGatewayVpcAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-transit-gateway-vpc-attachment)) (common-lisp:progn (common-lisp:defun modify-verified-access-endpoint @@ -167733,7 +167732,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVerifiedAccessEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-verified-access-endpoint)) (common-lisp:progn (common-lisp:defun modify-verified-access-endpoint-policy @@ -167755,7 +167754,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVerifiedAccessEndpointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-verified-access-endpoint-policy)) (common-lisp:progn (common-lisp:defun modify-verified-access-group @@ -167777,7 +167776,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVerifiedAccessGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-verified-access-group)) (common-lisp:progn (common-lisp:defun modify-verified-access-group-policy @@ -167798,7 +167797,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVerifiedAccessGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-verified-access-group-policy)) (common-lisp:progn (common-lisp:defun modify-verified-access-instance @@ -167819,7 +167818,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVerifiedAccessInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-verified-access-instance)) (common-lisp:progn (common-lisp:defun modify-verified-access-instance-logging-configuration @@ -167840,7 +167839,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVerifiedAccessInstanceLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-verified-access-instance-logging-configuration)) (common-lisp:progn (common-lisp:defun modify-verified-access-trust-provider @@ -167862,7 +167861,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVerifiedAccessTrustProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-verified-access-trust-provider)) (common-lisp:progn (common-lisp:defun modify-volume @@ -167882,7 +167881,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-volume)) (common-lisp:progn (common-lisp:defun modify-volume-attribute @@ -167900,7 +167899,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVolumeAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-volume-attribute)) (common-lisp:progn (common-lisp:defun modify-vpc-attribute @@ -167920,7 +167919,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpcAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpc-attribute)) (common-lisp:progn (common-lisp:defun modify-vpc-endpoint @@ -167945,7 +167944,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpc-endpoint)) (common-lisp:progn (common-lisp:defun modify-vpc-endpoint-connection-notification @@ -167966,7 +167965,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpcEndpointConnectionNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpc-endpoint-connection-notification)) (common-lisp:progn (common-lisp:defun modify-vpc-endpoint-service-configuration @@ -167996,7 +167995,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpcEndpointServiceConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpc-endpoint-service-configuration)) (common-lisp:progn (common-lisp:defun modify-vpc-endpoint-service-payer-responsibility @@ -168015,7 +168014,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpcEndpointServicePayerResponsibility")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpc-endpoint-service-payer-responsibility)) (common-lisp:progn (common-lisp:defun modify-vpc-endpoint-service-permissions @@ -168036,7 +168035,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpcEndpointServicePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpc-endpoint-service-permissions)) (common-lisp:progn (common-lisp:defun modify-vpc-peering-connection-options @@ -168058,7 +168057,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpcPeeringConnectionOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpc-peering-connection-options)) (common-lisp:progn (common-lisp:defun modify-vpc-tenancy @@ -168076,7 +168075,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpcTenancy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpc-tenancy)) (common-lisp:progn (common-lisp:defun modify-vpn-connection @@ -168096,7 +168095,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpnConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpn-connection)) (common-lisp:progn (common-lisp:defun modify-vpn-connection-options @@ -168119,7 +168118,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpnConnectionOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpn-connection-options)) (common-lisp:progn (common-lisp:defun modify-vpn-tunnel-certificate @@ -168140,7 +168139,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpnTunnelCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpn-tunnel-certificate)) (common-lisp:progn (common-lisp:defun modify-vpn-tunnel-options @@ -168162,7 +168161,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyVpnTunnelOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-vpn-tunnel-options)) (common-lisp:progn (common-lisp:defun monitor-instances @@ -168179,7 +168178,7 @@ aws-sdk/generator/operation::input "POST" "/" "MonitorInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'monitor-instances)) (common-lisp:progn (common-lisp:defun move-address-to-vpc @@ -168196,7 +168195,7 @@ aws-sdk/generator/operation::input "POST" "/" "MoveAddressToVpc")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'move-address-to-vpc)) (common-lisp:progn (common-lisp:defun move-byoip-cidr-to-ipam @@ -168215,7 +168214,7 @@ aws-sdk/generator/operation::input "POST" "/" "MoveByoipCidrToIpam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'move-byoip-cidr-to-ipam)) (common-lisp:progn (common-lisp:defun provision-byoip-cidr @@ -168237,7 +168236,7 @@ aws-sdk/generator/operation::input "POST" "/" "ProvisionByoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'provision-byoip-cidr)) (common-lisp:progn (common-lisp:defun provision-ipam-byoasn @@ -168256,7 +168255,7 @@ aws-sdk/generator/operation::input "POST" "/" "ProvisionIpamByoasn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'provision-ipam-byoasn)) (common-lisp:progn (common-lisp:defun provision-ipam-pool-cidr @@ -168276,7 +168275,7 @@ aws-sdk/generator/operation::input "POST" "/" "ProvisionIpamPoolCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'provision-ipam-pool-cidr)) (common-lisp:progn (common-lisp:defun provision-public-ipv4pool-cidr @@ -168296,7 +168295,7 @@ aws-sdk/generator/operation::input "POST" "/" "ProvisionPublicIpv4PoolCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'provision-public-ipv4pool-cidr)) (common-lisp:progn (common-lisp:defun purchase-capacity-block @@ -168316,7 +168315,7 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseCapacityBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'purchase-capacity-block)) (common-lisp:progn (common-lisp:defun purchase-host-reservation @@ -168337,7 +168336,7 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseHostReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'purchase-host-reservation)) (common-lisp:progn (common-lisp:defun purchase-reserved-instances-offering @@ -168359,7 +168358,7 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseReservedInstancesOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'purchase-reserved-instances-offering)) (common-lisp:progn (common-lisp:defun purchase-scheduled-instances @@ -168378,7 +168377,7 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseScheduledInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'purchase-scheduled-instances)) (common-lisp:progn (common-lisp:defun reboot-instances @@ -168395,7 +168394,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reboot-instances)) (common-lisp:progn (common-lisp:defun register-image @@ -168421,7 +168420,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'register-image)) (common-lisp:progn (common-lisp:defun register-instance-event-notification-attributes @@ -168439,7 +168438,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterInstanceEventNotificationAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'register-instance-event-notification-attributes)) (common-lisp:progn (common-lisp:defun register-transit-gateway-multicast-group-members @@ -168460,7 +168459,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterTransitGatewayMulticastGroupMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'register-transit-gateway-multicast-group-members)) (common-lisp:progn (common-lisp:defun register-transit-gateway-multicast-group-sources @@ -168481,7 +168480,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterTransitGatewayMulticastGroupSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'register-transit-gateway-multicast-group-sources)) (common-lisp:progn (common-lisp:defun reject-transit-gateway-multicast-domain-associations @@ -168502,7 +168501,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectTransitGatewayMulticastDomainAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reject-transit-gateway-multicast-domain-associations)) (common-lisp:progn (common-lisp:defun reject-transit-gateway-peering-attachment @@ -168521,7 +168520,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectTransitGatewayPeeringAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reject-transit-gateway-peering-attachment)) (common-lisp:progn (common-lisp:defun reject-transit-gateway-vpc-attachment @@ -168540,7 +168539,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectTransitGatewayVpcAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reject-transit-gateway-vpc-attachment)) (common-lisp:progn (common-lisp:defun reject-vpc-endpoint-connections @@ -168559,7 +168558,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectVpcEndpointConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reject-vpc-endpoint-connections)) (common-lisp:progn (common-lisp:defun reject-vpc-peering-connection @@ -168578,7 +168577,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectVpcPeeringConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reject-vpc-peering-connection)) (common-lisp:progn (common-lisp:defun release-address @@ -168598,7 +168597,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReleaseAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'release-address)) (common-lisp:progn (common-lisp:defun release-hosts @@ -168615,7 +168614,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReleaseHosts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'release-hosts)) (common-lisp:progn (common-lisp:defun release-ipam-pool-allocation @@ -168635,7 +168634,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReleaseIpamPoolAllocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'release-ipam-pool-allocation)) (common-lisp:progn (common-lisp:defun replace-iam-instance-profile-association @@ -168654,7 +168653,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplaceIamInstanceProfileAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'replace-iam-instance-profile-association)) (common-lisp:progn (common-lisp:defun replace-network-acl-association @@ -168673,7 +168672,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplaceNetworkAclAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'replace-network-acl-association)) (common-lisp:progn (common-lisp:defun replace-network-acl-entry @@ -168696,7 +168695,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplaceNetworkAclEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'replace-network-acl-entry)) (common-lisp:progn (common-lisp:defun replace-route @@ -168725,7 +168724,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplaceRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'replace-route)) (common-lisp:progn (common-lisp:defun replace-route-table-association @@ -168744,7 +168743,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplaceRouteTableAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'replace-route-table-association)) (common-lisp:progn (common-lisp:defun replace-transit-gateway-route @@ -168767,7 +168766,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplaceTransitGatewayRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'replace-transit-gateway-route)) (common-lisp:progn (common-lisp:defun replace-vpn-tunnel @@ -168788,7 +168787,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplaceVpnTunnel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'replace-vpn-tunnel)) (common-lisp:progn (common-lisp:defun report-instance-status @@ -168808,7 +168807,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReportInstanceStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'report-instance-status)) (common-lisp:progn (common-lisp:defun request-spot-fleet @@ -168826,7 +168825,7 @@ aws-sdk/generator/operation::input "POST" "/" "RequestSpotFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'request-spot-fleet)) (common-lisp:progn (common-lisp:defun request-spot-instances @@ -168851,7 +168850,7 @@ aws-sdk/generator/operation::input "POST" "/" "RequestSpotInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'request-spot-instances)) (common-lisp:progn (common-lisp:defun reset-address-attribute @@ -168869,7 +168868,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetAddressAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reset-address-attribute)) (common-lisp:progn (common-lisp:defun reset-ebs-default-kms-key-id @@ -168887,7 +168886,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetEbsDefaultKmsKeyId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reset-ebs-default-kms-key-id)) (common-lisp:progn (common-lisp:defun reset-fpga-image-attribute @@ -168906,7 +168905,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetFpgaImageAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reset-fpga-image-attribute)) (common-lisp:progn (common-lisp:defun reset-image-attribute @@ -168923,7 +168922,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetImageAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reset-image-attribute)) (common-lisp:progn (common-lisp:defun reset-instance-attribute @@ -168940,7 +168939,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetInstanceAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reset-instance-attribute)) (common-lisp:progn (common-lisp:defun reset-network-interface-attribute @@ -168960,7 +168959,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetNetworkInterfaceAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reset-network-interface-attribute)) (common-lisp:progn (common-lisp:defun reset-snapshot-attribute @@ -168977,7 +168976,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetSnapshotAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'reset-snapshot-attribute)) (common-lisp:progn (common-lisp:defun restore-address-to-classic @@ -168995,7 +168994,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreAddressToClassic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'restore-address-to-classic)) (common-lisp:progn (common-lisp:defun restore-image-from-recycle-bin @@ -169013,7 +169012,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreImageFromRecycleBin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'restore-image-from-recycle-bin)) (common-lisp:progn (common-lisp:defun restore-managed-prefix-list-version @@ -169034,7 +169033,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreManagedPrefixListVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'restore-managed-prefix-list-version)) (common-lisp:progn (common-lisp:defun restore-snapshot-from-recycle-bin @@ -169052,7 +169051,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreSnapshotFromRecycleBin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'restore-snapshot-from-recycle-bin)) (common-lisp:progn (common-lisp:defun restore-snapshot-tier @@ -169072,7 +169071,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreSnapshotTier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'restore-snapshot-tier)) (common-lisp:progn (common-lisp:defun revoke-client-vpn-ingress @@ -169094,7 +169093,7 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeClientVpnIngress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'revoke-client-vpn-ingress)) (common-lisp:progn (common-lisp:defun revoke-security-group-egress @@ -169118,7 +169117,7 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeSecurityGroupEgress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'revoke-security-group-egress)) (common-lisp:progn (common-lisp:defun revoke-security-group-ingress @@ -169142,7 +169141,7 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeSecurityGroupIngress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'revoke-security-group-ingress)) (common-lisp:progn (common-lisp:defun run-instances @@ -169185,7 +169184,7 @@ aws-sdk/generator/operation::input "POST" "/" "RunInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'run-instances)) (common-lisp:progn (common-lisp:defun run-scheduled-instances @@ -169205,7 +169204,7 @@ aws-sdk/generator/operation::input "POST" "/" "RunScheduledInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'run-scheduled-instances)) (common-lisp:progn (common-lisp:defun search-local-gateway-routes @@ -169226,7 +169225,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchLocalGatewayRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'search-local-gateway-routes)) (common-lisp:progn (common-lisp:defun search-transit-gateway-multicast-groups @@ -169247,7 +169246,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchTransitGatewayMulticastGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'search-transit-gateway-multicast-groups)) (common-lisp:progn (common-lisp:defun search-transit-gateway-routes @@ -169268,7 +169267,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchTransitGatewayRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'search-transit-gateway-routes)) (common-lisp:progn (common-lisp:defun send-diagnostic-interrupt @@ -169286,7 +169285,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendDiagnosticInterrupt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'send-diagnostic-interrupt)) (common-lisp:progn (common-lisp:defun start-instances @@ -169304,7 +169303,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'start-instances)) (common-lisp:progn (common-lisp:defun start-network-insights-access-scope-analysis @@ -169325,7 +169324,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartNetworkInsightsAccessScopeAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'start-network-insights-access-scope-analysis)) (common-lisp:progn (common-lisp:defun start-network-insights-analysis @@ -169347,7 +169346,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartNetworkInsightsAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'start-network-insights-analysis)) (common-lisp:progn (common-lisp:defun start-vpc-endpoint-service-private-dns-verification @@ -169365,7 +169364,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartVpcEndpointServicePrivateDnsVerification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'start-vpc-endpoint-service-private-dns-verification)) (common-lisp:progn (common-lisp:defun stop-instances @@ -169383,7 +169382,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'stop-instances)) (common-lisp:progn (common-lisp:defun terminate-client-vpn-connections @@ -169404,7 +169403,7 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateClientVpnConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'terminate-client-vpn-connections)) (common-lisp:progn (common-lisp:defun terminate-instances @@ -169421,7 +169420,7 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'terminate-instances)) (common-lisp:progn (common-lisp:defun unassign-ipv6addresses @@ -169440,7 +169439,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnassignIpv6Addresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'unassign-ipv6addresses)) (common-lisp:progn (common-lisp:defun unassign-private-ip-addresses @@ -169461,7 +169460,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnassignPrivateIpAddresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'unassign-private-ip-addresses)) (common-lisp:progn (common-lisp:defun unassign-private-nat-gateway-address @@ -169482,7 +169481,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnassignPrivateNatGatewayAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'unassign-private-nat-gateway-address)) (common-lisp:progn (common-lisp:defun unlock-snapshot @@ -169499,7 +169498,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnlockSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'unlock-snapshot)) (common-lisp:progn (common-lisp:defun unmonitor-instances @@ -169516,7 +169515,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnmonitorInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'unmonitor-instances)) (common-lisp:progn (common-lisp:defun update-security-group-rule-descriptions-egress @@ -169537,7 +169536,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSecurityGroupRuleDescriptionsEgress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-security-group-rule-descriptions-egress)) (common-lisp:progn (common-lisp:defun update-security-group-rule-descriptions-ingress @@ -169558,7 +169557,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSecurityGroupRuleDescriptionsIngress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-security-group-rule-descriptions-ingress)) (common-lisp:progn (common-lisp:defun withdraw-byoip-cidr @@ -169575,5 +169574,5 @@ aws-sdk/generator/operation::input "POST" "/" "WithdrawByoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'withdraw-byoip-cidr)) diff --git a/services/ecr-public/api.lisp b/services/ecr-public/api.lisp index 2c74d072..5e1eaf91 100644 --- a/services/ecr-public/api.lisp +++ b/services/ecr-public/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ecr-public/api - (:use) - (:nicknames #:aws/ecr-public) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ecr-public/api (:use) + (:nicknames #:aws/ecr-public) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ecr-public/api) (common-lisp:progn (common-lisp:define-condition ecr-public-error @@ -4263,7 +4262,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchCheckLayerAvailability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-check-layer-availability)) (common-lisp:progn (common-lisp:defun batch-delete-image @@ -4281,7 +4280,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-image)) (common-lisp:progn (common-lisp:defun complete-layer-upload @@ -4301,7 +4300,7 @@ aws-sdk/generator/operation::input "POST" "/" "CompleteLayerUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'complete-layer-upload)) (common-lisp:progn (common-lisp:defun create-repository @@ -4319,7 +4318,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-repository)) (common-lisp:progn (common-lisp:defun delete-repository @@ -4337,7 +4336,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository)) (common-lisp:progn (common-lisp:defun delete-repository-policy @@ -4354,7 +4353,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRepositoryPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository-policy)) (common-lisp:progn (common-lisp:defun describe-image-tags @@ -4373,7 +4372,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImageTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image-tags)) (common-lisp:progn (common-lisp:defun describe-images @@ -4393,7 +4392,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-images)) (common-lisp:progn (common-lisp:defun describe-registries @@ -4410,7 +4409,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRegistries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registries)) (common-lisp:progn (common-lisp:defun describe-repositories @@ -4430,7 +4429,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-repositories)) (common-lisp:progn (common-lisp:defun get-authorization-token () @@ -4464,7 +4463,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRepositoryCatalogData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-catalog-data)) (common-lisp:progn (common-lisp:defun get-repository-policy @@ -4481,7 +4480,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRepositoryPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-policy)) (common-lisp:progn (common-lisp:defun initiate-layer-upload @@ -4498,7 +4497,7 @@ aws-sdk/generator/operation::input "POST" "/" "InitiateLayerUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initiate-layer-upload)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4515,7 +4514,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-image @@ -4535,7 +4534,7 @@ (aws-sdk/generator/shape:make-request-with-input 'ecr-public-request aws-sdk/generator/operation::input "POST" "/" "PutImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-image)) (common-lisp:progn (common-lisp:defun put-registry-catalog-data @@ -4553,7 +4552,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRegistryCatalogData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-registry-catalog-data)) (common-lisp:progn (common-lisp:defun put-repository-catalog-data @@ -4572,7 +4571,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRepositoryCatalogData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-repository-catalog-data)) (common-lisp:progn (common-lisp:defun set-repository-policy @@ -4591,7 +4590,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetRepositoryPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-repository-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4608,7 +4607,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4625,7 +4624,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun upload-layer-part @@ -4645,5 +4644,5 @@ aws-sdk/generator/operation::input "POST" "/" "UploadLayerPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upload-layer-part)) diff --git a/services/ecr/api.lisp b/services/ecr/api.lisp index d7682f79..a2683a11 100644 --- a/services/ecr/api.lisp +++ b/services/ecr/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ecr/api - (:use) - (:nicknames #:aws/ecr) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ecr/api (:use) + (:nicknames #:aws/ecr) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ecr/api) (common-lisp:progn (common-lisp:define-condition ecr-error @@ -9644,7 +9643,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchCheckLayerAvailability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-check-layer-availability)) (common-lisp:progn (common-lisp:defun batch-delete-image @@ -9662,7 +9661,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-image)) (common-lisp:progn (common-lisp:defun batch-get-image @@ -9682,7 +9681,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-image)) (common-lisp:progn (common-lisp:defun batch-get-repository-scanning-configuration @@ -9700,7 +9699,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetRepositoryScanningConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-repository-scanning-configuration)) (common-lisp:progn (common-lisp:defun complete-layer-upload @@ -9720,7 +9719,7 @@ aws-sdk/generator/operation::input "POST" "/" "CompleteLayerUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'complete-layer-upload)) (common-lisp:progn (common-lisp:defun create-pull-through-cache-rule @@ -9742,7 +9741,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePullThroughCacheRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pull-through-cache-rule)) (common-lisp:progn (common-lisp:defun create-repository @@ -9764,7 +9763,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-repository)) (common-lisp:progn (common-lisp:defun delete-lifecycle-policy @@ -9781,7 +9780,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lifecycle-policy)) (common-lisp:progn (common-lisp:defun delete-pull-through-cache-rule @@ -9800,7 +9799,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePullThroughCacheRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pull-through-cache-rule)) (common-lisp:progn (common-lisp:defun delete-registry-policy () @@ -9826,7 +9825,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository)) (common-lisp:progn (common-lisp:defun delete-repository-policy @@ -9843,7 +9842,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRepositoryPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository-policy)) (common-lisp:progn (common-lisp:defun describe-image-replication-status @@ -9862,7 +9861,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImageReplicationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image-replication-status)) (common-lisp:progn (common-lisp:defun describe-image-scan-findings @@ -9883,7 +9882,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImageScanFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image-scan-findings)) (common-lisp:progn (common-lisp:defun describe-images @@ -9903,7 +9902,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-images)) (common-lisp:progn (common-lisp:defun describe-pull-through-cache-rules @@ -9924,7 +9923,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePullThroughCacheRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pull-through-cache-rules)) (common-lisp:progn (common-lisp:defun describe-registry () @@ -9952,7 +9951,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-repositories)) (common-lisp:progn (common-lisp:defun get-authorization-token @@ -9969,7 +9968,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAuthorizationToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-authorization-token)) (common-lisp:progn (common-lisp:defun get-download-url-for-layer @@ -9988,7 +9987,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDownloadUrlForLayer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-download-url-for-layer)) (common-lisp:progn (common-lisp:defun get-lifecycle-policy @@ -10005,7 +10004,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lifecycle-policy)) (common-lisp:progn (common-lisp:defun get-lifecycle-policy-preview @@ -10026,7 +10025,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLifecyclePolicyPreview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lifecycle-policy-preview)) (common-lisp:progn (common-lisp:defun get-registry-policy () @@ -10059,7 +10058,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRepositoryPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-policy)) (common-lisp:progn (common-lisp:defun initiate-layer-upload @@ -10076,7 +10075,7 @@ aws-sdk/generator/operation::input "POST" "/" "InitiateLayerUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initiate-layer-upload)) (common-lisp:progn (common-lisp:defun list-images @@ -10096,7 +10095,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-images)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10113,7 +10112,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-image @@ -10133,7 +10132,7 @@ (aws-sdk/generator/shape:make-request-with-input 'ecr-request aws-sdk/generator/operation::input "POST" "/" "PutImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-image)) (common-lisp:progn (common-lisp:defun put-image-scanning-configuration @@ -10154,7 +10153,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutImageScanningConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-image-scanning-configuration)) (common-lisp:progn (common-lisp:defun put-image-tag-mutability @@ -10173,7 +10172,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutImageTagMutability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-image-tag-mutability)) (common-lisp:progn (common-lisp:defun put-lifecycle-policy @@ -10192,7 +10191,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-lifecycle-policy)) (common-lisp:progn (common-lisp:defun put-registry-policy @@ -10209,7 +10208,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRegistryPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-registry-policy)) (common-lisp:progn (common-lisp:defun put-registry-scanning-configuration @@ -10227,7 +10226,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRegistryScanningConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-registry-scanning-configuration)) (common-lisp:progn (common-lisp:defun put-replication-configuration @@ -10245,7 +10244,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-replication-configuration)) (common-lisp:progn (common-lisp:defun set-repository-policy @@ -10264,7 +10263,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetRepositoryPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-repository-policy)) (common-lisp:progn (common-lisp:defun start-image-scan @@ -10282,7 +10281,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartImageScan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-image-scan)) (common-lisp:progn (common-lisp:defun start-lifecycle-policy-preview @@ -10302,7 +10301,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartLifecyclePolicyPreview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-lifecycle-policy-preview)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10319,7 +10318,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10336,7 +10335,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-pull-through-cache-rule @@ -10356,7 +10355,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePullThroughCacheRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pull-through-cache-rule)) (common-lisp:progn (common-lisp:defun upload-layer-part @@ -10376,7 +10375,7 @@ aws-sdk/generator/operation::input "POST" "/" "UploadLayerPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upload-layer-part)) (common-lisp:progn (common-lisp:defun validate-pull-through-cache-rule @@ -10395,5 +10394,5 @@ aws-sdk/generator/operation::input "POST" "/" "ValidatePullThroughCacheRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-pull-through-cache-rule)) diff --git a/services/ecs/api.lisp b/services/ecs/api.lisp index 3b10544d..7dc431d5 100644 --- a/services/ecs/api.lisp +++ b/services/ecs/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ecs/api - (:use) - (:nicknames #:aws/ecs) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ecs/api (:use) + (:nicknames #:aws/ecs) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ecs/api) (common-lisp:progn (common-lisp:define-condition ecs-error @@ -17476,7 +17475,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCapacityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-capacity-provider)) (common-lisp:progn (common-lisp:defun create-cluster @@ -17498,7 +17497,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-service @@ -17532,7 +17531,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service)) (common-lisp:progn (common-lisp:defun create-task-set @@ -17555,7 +17554,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTaskSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-task-set)) (common-lisp:progn (common-lisp:defun delete-account-setting @@ -17572,7 +17571,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAccountSetting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-account-setting)) (common-lisp:progn (common-lisp:defun delete-attributes @@ -17589,7 +17588,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-attributes)) (common-lisp:progn (common-lisp:defun delete-capacity-provider @@ -17606,7 +17605,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCapacityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-capacity-provider)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -17623,7 +17622,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-service @@ -17640,7 +17639,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service)) (common-lisp:progn (common-lisp:defun delete-task-definitions @@ -17657,7 +17656,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTaskDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-task-definitions)) (common-lisp:progn (common-lisp:defun delete-task-set @@ -17674,7 +17673,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTaskSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-task-set)) (common-lisp:progn (common-lisp:defun deregister-container-instance @@ -17693,7 +17692,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterContainerInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-container-instance)) (common-lisp:progn (common-lisp:defun deregister-task-definition @@ -17711,7 +17710,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterTaskDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-task-definition)) (common-lisp:progn (common-lisp:defun describe-capacity-providers @@ -17731,7 +17730,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCapacityProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-capacity-providers)) (common-lisp:progn (common-lisp:defun describe-clusters @@ -17748,7 +17747,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-clusters)) (common-lisp:progn (common-lisp:defun describe-container-instances @@ -17767,7 +17766,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeContainerInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-container-instances)) (common-lisp:progn (common-lisp:defun describe-services @@ -17784,7 +17783,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-services)) (common-lisp:progn (common-lisp:defun describe-task-definition @@ -17801,7 +17800,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTaskDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-task-definition)) (common-lisp:progn (common-lisp:defun describe-task-sets @@ -17819,7 +17818,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTaskSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-task-sets)) (common-lisp:progn (common-lisp:defun describe-tasks @@ -17836,7 +17835,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tasks)) (common-lisp:progn (common-lisp:defun discover-poll-endpoint @@ -17853,7 +17852,7 @@ aws-sdk/generator/operation::input "POST" "/" "DiscoverPollEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'discover-poll-endpoint)) (common-lisp:progn (common-lisp:defun execute-command @@ -17872,7 +17871,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecuteCommand")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-command)) (common-lisp:progn (common-lisp:defun get-task-protection @@ -17889,7 +17888,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTaskProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-task-protection)) (common-lisp:progn (common-lisp:defun list-account-settings @@ -17909,7 +17908,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-settings)) (common-lisp:progn (common-lisp:defun list-attributes @@ -17929,7 +17928,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attributes)) (common-lisp:progn (common-lisp:defun list-clusters @@ -17946,7 +17945,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters)) (common-lisp:progn (common-lisp:defun list-container-instances @@ -17965,7 +17964,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListContainerInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-container-instances)) (common-lisp:progn (common-lisp:defun list-services @@ -17985,7 +17984,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services)) (common-lisp:progn (common-lisp:defun list-services-by-namespace @@ -18004,7 +18003,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServicesByNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services-by-namespace)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -18021,7 +18020,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-task-definition-families @@ -18041,7 +18040,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTaskDefinitionFamilies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-task-definition-families)) (common-lisp:progn (common-lisp:defun list-task-definitions @@ -18060,7 +18059,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTaskDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-task-definitions)) (common-lisp:progn (common-lisp:defun list-tasks @@ -18081,7 +18080,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tasks)) (common-lisp:progn (common-lisp:defun put-account-setting @@ -18098,7 +18097,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAccountSetting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-setting)) (common-lisp:progn (common-lisp:defun put-account-setting-default @@ -18116,7 +18115,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAccountSettingDefault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-setting-default)) (common-lisp:progn (common-lisp:defun put-attributes @@ -18133,7 +18132,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-attributes)) (common-lisp:progn (common-lisp:defun put-cluster-capacity-providers @@ -18154,7 +18153,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutClusterCapacityProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-cluster-capacity-providers)) (common-lisp:progn (common-lisp:defun register-container-instance @@ -18178,7 +18177,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterContainerInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-container-instance)) (common-lisp:progn (common-lisp:defun register-task-definition @@ -18204,7 +18203,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterTaskDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-task-definition)) (common-lisp:progn (common-lisp:defun run-task @@ -18230,7 +18229,7 @@ (aws-sdk/generator/shape:make-request-with-input 'ecs-request aws-sdk/generator/operation::input "POST" "/" "RunTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'run-task)) (common-lisp:progn (common-lisp:defun start-task @@ -18255,7 +18254,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-task)) (common-lisp:progn (common-lisp:defun stop-task @@ -18271,7 +18270,7 @@ (aws-sdk/generator/shape:make-request-with-input 'ecs-request aws-sdk/generator/operation::input "POST" "/" "StopTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-task)) (common-lisp:progn (common-lisp:defun submit-attachment-state-changes @@ -18289,7 +18288,7 @@ aws-sdk/generator/operation::input "POST" "/" "SubmitAttachmentStateChanges")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'submit-attachment-state-changes)) (common-lisp:progn (common-lisp:defun submit-container-state-change @@ -18310,7 +18309,7 @@ aws-sdk/generator/operation::input "POST" "/" "SubmitContainerStateChange")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'submit-container-state-change)) (common-lisp:progn (common-lisp:defun submit-task-state-change @@ -18331,7 +18330,7 @@ aws-sdk/generator/operation::input "POST" "/" "SubmitTaskStateChange")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'submit-task-state-change)) (common-lisp:progn (common-lisp:defun tag-resource @@ -18348,7 +18347,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -18365,7 +18364,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-capacity-provider @@ -18383,7 +18382,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCapacityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-capacity-provider)) (common-lisp:progn (common-lisp:defun update-cluster @@ -18403,7 +18402,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster)) (common-lisp:progn (common-lisp:defun update-cluster-settings @@ -18420,7 +18419,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateClusterSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster-settings)) (common-lisp:progn (common-lisp:defun update-container-agent @@ -18437,7 +18436,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateContainerAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-container-agent)) (common-lisp:progn (common-lisp:defun update-container-instances-state @@ -18456,7 +18455,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateContainerInstancesState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-container-instances-state)) (common-lisp:progn (common-lisp:defun update-service @@ -18487,7 +18486,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service)) (common-lisp:progn (common-lisp:defun update-service-primary-task-set @@ -18506,7 +18505,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServicePrimaryTaskSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-primary-task-set)) (common-lisp:progn (common-lisp:defun update-task-protection @@ -18526,7 +18525,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTaskProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-task-protection)) (common-lisp:progn (common-lisp:defun update-task-set @@ -18543,5 +18542,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTaskSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-task-set)) diff --git a/services/eks-auth/api.lisp b/services/eks-auth/api.lisp index a5f6cd90..88656bfc 100644 --- a/services/eks-auth/api.lisp +++ b/services/eks-auth/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/eks-auth/api - (:use) - (:nicknames #:aws/eks-auth) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/eks-auth/api (:use) + (:nicknames #:aws/eks-auth) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/eks-auth/api) (common-lisp:progn (common-lisp:define-condition eks-auth-error @@ -20,7 +19,7 @@ (common-lisp:export 'eks-auth-error)) (common-lisp:progn (common-lisp:defclass eks-auth-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "eks-auth" :api-version "2023-11-26" :host-prefix "eks-auth" :signing-name @@ -484,10 +483,11 @@ (common-lisp:format common-lisp:nil "/clusters/~A/assume-role-for-pod-identity" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-name)))) + 'cluster-name) + common-lisp:t))) "AssumeRoleForPodIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'assume-role-for-pod-identity)) diff --git a/services/eks/api.lisp b/services/eks/api.lisp index b7968f2e..2a1cc29d 100644 --- a/services/eks/api.lisp +++ b/services/eks/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/eks/api - (:use) - (:nicknames #:aws/eks) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/eks/api (:use) + (:nicknames #:aws/eks) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/eks/api) (common-lisp:progn (common-lisp:define-condition eks-error @@ -20,7 +19,7 @@ (common-lisp:export 'eks-error)) (common-lisp:progn (common-lisp:defclass eks-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "eks" :api-version "2017-11-01" :host-prefix "eks" :signing-name "eks" @@ -11522,16 +11521,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/access-entries/~A/access-policies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-arn)))) + 'principal-arn) + common-lisp:t))) "AssociateAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-access-policy)) (common-lisp:progn (common-lisp:defun associate-encryption-config @@ -11557,12 +11558,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/encryption-config/associate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "AssociateEncryptionConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-encryption-config)) (common-lisp:progn (common-lisp:defun associate-identity-provider-config @@ -11587,12 +11589,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/identity-provider-configs/associate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "AssociateIdentityProviderConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-identity-provider-config)) (common-lisp:progn (common-lisp:defun create-access-entry @@ -11617,12 +11620,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/access-entries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateAccessEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-access-entry)) (common-lisp:progn (common-lisp:defun create-addon @@ -11649,12 +11653,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/addons" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateAddon")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-addon)) (common-lisp:progn (common-lisp:defun create-cluster @@ -11677,7 +11682,7 @@ aws-sdk/generator/operation::input "POST" "/clusters" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-eks-anywhere-subscription @@ -11699,7 +11704,7 @@ "POST" "/eks-anywhere-subscriptions" "CreateEksAnywhereSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-eks-anywhere-subscription)) (common-lisp:progn (common-lisp:defun create-fargate-profile @@ -11725,12 +11730,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/fargate-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateFargateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fargate-profile)) (common-lisp:progn (common-lisp:defun create-nodegroup @@ -11760,12 +11766,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/node-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateNodegroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-nodegroup)) (common-lisp:progn (common-lisp:defun create-pod-identity-association @@ -11791,12 +11798,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/pod-identity-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreatePodIdentityAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pod-identity-association)) (common-lisp:progn (common-lisp:defun delete-access-entry @@ -11818,16 +11826,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/access-entries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-arn)))) + 'principal-arn) + common-lisp:t))) "DeleteAccessEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access-entry)) (common-lisp:progn (common-lisp:defun delete-addon @@ -11850,16 +11860,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/addons/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'addon-name)))) + 'addon-name) + common-lisp:t))) "DeleteAddon")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-addon)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -11881,12 +11893,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-eks-anywhere-subscription @@ -11909,12 +11922,13 @@ (common-lisp:format common-lisp:nil "/eks-anywhere-subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteEksAnywhereSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-eks-anywhere-subscription)) (common-lisp:progn (common-lisp:defun delete-fargate-profile @@ -11937,16 +11951,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/fargate-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'fargate-profile-name)))) + 'fargate-profile-name) + common-lisp:t))) "DeleteFargateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fargate-profile)) (common-lisp:progn (common-lisp:defun delete-nodegroup @@ -11968,16 +11984,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/node-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nodegroup-name)))) + 'nodegroup-name) + common-lisp:t))) "DeleteNodegroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-nodegroup)) (common-lisp:progn (common-lisp:defun delete-pod-identity-association @@ -12000,16 +12018,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/pod-identity-associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "DeletePodIdentityAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pod-identity-association)) (common-lisp:progn (common-lisp:defun deregister-cluster @@ -12031,12 +12051,13 @@ (common-lisp:format common-lisp:nil "/cluster-registrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeregisterCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-cluster)) (common-lisp:progn (common-lisp:defun describe-access-entry @@ -12058,16 +12079,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/access-entries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-arn)))) + 'principal-arn) + common-lisp:t))) "DescribeAccessEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-access-entry)) (common-lisp:progn (common-lisp:defun describe-addon @@ -12089,16 +12112,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/addons/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'addon-name)))) + 'addon-name) + common-lisp:t))) "DescribeAddon")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-addon)) (common-lisp:progn (common-lisp:defun describe-addon-configuration @@ -12117,7 +12142,7 @@ "GET" "/addons/configuration-schemas" "DescribeAddonConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-addon-configuration)) (common-lisp:progn (common-lisp:defun describe-addon-versions @@ -12138,7 +12163,7 @@ "GET" "/addons/supported-versions" "DescribeAddonVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-addon-versions)) (common-lisp:progn (common-lisp:defun describe-cluster @@ -12160,12 +12185,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster)) (common-lisp:progn (common-lisp:defun describe-eks-anywhere-subscription @@ -12188,12 +12214,13 @@ (common-lisp:format common-lisp:nil "/eks-anywhere-subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DescribeEksAnywhereSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-eks-anywhere-subscription)) (common-lisp:progn (common-lisp:defun describe-fargate-profile @@ -12216,16 +12243,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/fargate-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'fargate-profile-name)))) + 'fargate-profile-name) + common-lisp:t))) "DescribeFargateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fargate-profile)) (common-lisp:progn (common-lisp:defun describe-identity-provider-config @@ -12249,12 +12278,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/identity-provider-configs/describe" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeIdentityProviderConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-identity-provider-config)) (common-lisp:progn (common-lisp:defun describe-insight @@ -12276,16 +12306,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/insights/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DescribeInsight")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-insight)) (common-lisp:progn (common-lisp:defun describe-nodegroup @@ -12307,16 +12339,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/node-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nodegroup-name)))) + 'nodegroup-name) + common-lisp:t))) "DescribeNodegroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-nodegroup)) (common-lisp:progn (common-lisp:defun describe-pod-identity-association @@ -12339,16 +12373,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/pod-identity-associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "DescribePodIdentityAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pod-identity-association)) (common-lisp:progn (common-lisp:defun describe-update @@ -12371,16 +12407,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/updates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'update-id)))) + 'update-id) + common-lisp:t))) "DescribeUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-update)) (common-lisp:progn (common-lisp:defun disassociate-access-policy @@ -12404,20 +12442,23 @@ (common-lisp:format common-lisp:nil "/clusters/~A/access-entries/~A/access-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-arn)) - (quri.encode:url-encode + 'principal-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-arn)))) + 'policy-arn) + common-lisp:t))) "DisassociateAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-access-policy)) (common-lisp:progn (common-lisp:defun disassociate-identity-provider-config @@ -12443,12 +12484,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/identity-provider-configs/disassociate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DisassociateIdentityProviderConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-identity-provider-config)) (common-lisp:progn (common-lisp:defun list-access-entries @@ -12473,12 +12515,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/access-entries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListAccessEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-entries)) (common-lisp:progn (common-lisp:defun list-access-policies @@ -12496,7 +12539,7 @@ "GET" "/access-policies" "ListAccessPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-policies)) (common-lisp:progn (common-lisp:defun list-addons @@ -12519,12 +12562,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/addons" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListAddons")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-addons)) (common-lisp:progn (common-lisp:defun list-associated-access-policies @@ -12549,16 +12593,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/access-entries/~A/access-policies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-arn)))) + 'principal-arn) + common-lisp:t))) "ListAssociatedAccessPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-access-policies)) (common-lisp:progn (common-lisp:defun list-clusters @@ -12575,7 +12621,7 @@ aws-sdk/generator/operation::input "GET" "/clusters" "ListClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters)) (common-lisp:progn (common-lisp:defun list-eks-anywhere-subscriptions @@ -12595,7 +12641,7 @@ "GET" "/eks-anywhere-subscriptions" "ListEksAnywhereSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-eks-anywhere-subscriptions)) (common-lisp:progn (common-lisp:defun list-fargate-profiles @@ -12618,12 +12664,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/fargate-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListFargateProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fargate-profiles)) (common-lisp:progn (common-lisp:defun list-identity-provider-configs @@ -12647,12 +12694,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/identity-provider-configs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListIdentityProviderConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-provider-configs)) (common-lisp:progn (common-lisp:defun list-insights @@ -12676,12 +12724,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/insights" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-insights)) (common-lisp:progn (common-lisp:defun list-nodegroups @@ -12704,12 +12753,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/node-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListNodegroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-nodegroups)) (common-lisp:progn (common-lisp:defun list-pod-identity-associations @@ -12735,12 +12785,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/pod-identity-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListPodIdentityAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pod-identity-associations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12762,12 +12813,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-updates @@ -12792,12 +12844,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/updates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListUpdates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-updates)) (common-lisp:progn (common-lisp:defun register-cluster @@ -12817,7 +12870,7 @@ "POST" "/cluster-registrations" "RegisterCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-cluster)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12839,12 +12892,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12866,12 +12920,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-access-entry @@ -12896,16 +12951,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/access-entries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-arn)))) + 'principal-arn) + common-lisp:t))) "UpdateAccessEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-access-entry)) (common-lisp:progn (common-lisp:defun update-addon @@ -12932,16 +12989,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/addons/~A/update" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'addon-name)))) + 'addon-name) + common-lisp:t))) "UpdateAddon")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-addon)) (common-lisp:progn (common-lisp:defun update-cluster-config @@ -12966,12 +13025,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/update-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateClusterConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster-config)) (common-lisp:progn (common-lisp:defun update-cluster-version @@ -12994,12 +13054,13 @@ (common-lisp:format common-lisp:nil "/clusters/~A/updates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateClusterVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster-version)) (common-lisp:progn (common-lisp:defun update-eks-anywhere-subscription @@ -13023,12 +13084,13 @@ (common-lisp:format common-lisp:nil "/eks-anywhere-subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateEksAnywhereSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-eks-anywhere-subscription)) (common-lisp:progn (common-lisp:defun update-nodegroup-config @@ -13053,16 +13115,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/node-groups/~A/update-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nodegroup-name)))) + 'nodegroup-name) + common-lisp:t))) "UpdateNodegroupConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-nodegroup-config)) (common-lisp:progn (common-lisp:defun update-nodegroup-version @@ -13088,16 +13152,18 @@ (common-lisp:format common-lisp:nil "/clusters/~A/node-groups/~A/update-version" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nodegroup-name)))) + 'nodegroup-name) + common-lisp:t))) "UpdateNodegroupVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-nodegroup-version)) (common-lisp:progn (common-lisp:defun update-pod-identity-association @@ -13123,14 +13189,16 @@ (common-lisp:format common-lisp:nil "/clusters/~A/pod-identity-associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'association-id)))) + 'association-id) + common-lisp:t))) "UpdatePodIdentityAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pod-identity-association)) diff --git a/services/elastic-inference/api.lisp b/services/elastic-inference/api.lisp index bcc63577..e732e879 100644 --- a/services/elastic-inference/api.lisp +++ b/services/elastic-inference/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/elastic-inference/api - (:use) - (:nicknames #:aws/elastic-inference) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/elastic-inference/api (:use) + (:nicknames #:aws/elastic-inference) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/elastic-inference/api) (common-lisp:progn (common-lisp:define-condition elastic-inference-error @@ -20,7 +19,7 @@ (common-lisp:export 'elastic-inference-error)) (common-lisp:progn (common-lisp:defclass elastic-inference-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "elastic-inference" :api-version "2017-07-25" :host-prefix @@ -1032,7 +1031,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elastic-inference-request aws-sdk/generator/operation::input "POST" "/describe-accelerator-offerings" "DescribeAcceleratorOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-accelerator-offerings)) (common-lisp:progn (common-lisp:defun describe-accelerator-types () @@ -1059,7 +1058,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elastic-inference-request aws-sdk/generator/operation::input "POST" "/describe-accelerators" "DescribeAccelerators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-accelerators)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1076,12 +1075,13 @@ 'elastic-inference-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1098,12 +1098,13 @@ 'elastic-inference-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -1120,10 +1121,11 @@ 'elastic-inference-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/elasticache/api.lisp b/services/elasticache/api.lisp index 43ac18da..d06e4e4c 100644 --- a/services/elasticache/api.lisp +++ b/services/elasticache/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/elasticache/api - (:use) - (:nicknames #:aws/elasticache) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/elasticache/api (:use) + (:nicknames #:aws/elasticache) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/elasticache/api) (common-lisp:progn (common-lisp:define-condition elasticache-error @@ -18755,7 +18754,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil "AddTagsToResourceResult" *error-map*))) + common-lisp:nil "AddTagsToResourceResult" *error-map* common-lisp:nil))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun authorize-cache-security-group-ingress @@ -18776,7 +18775,8 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeCacheSecurityGroupIngress")) - common-lisp:nil "AuthorizeCacheSecurityGroupIngressResult" *error-map*))) + common-lisp:nil "AuthorizeCacheSecurityGroupIngressResult" *error-map* + common-lisp:nil))) (common-lisp:export 'authorize-cache-security-group-ingress)) (common-lisp:progn (common-lisp:defun batch-apply-update-action @@ -18797,7 +18797,8 @@ aws-sdk/generator/operation::input "POST" "/" "BatchApplyUpdateAction")) - common-lisp:nil "BatchApplyUpdateActionResult" *error-map*))) + common-lisp:nil "BatchApplyUpdateActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'batch-apply-update-action)) (common-lisp:progn (common-lisp:defun batch-stop-update-action @@ -18817,7 +18818,8 @@ aws-sdk/generator/operation::input "POST" "/" "BatchStopUpdateAction")) - common-lisp:nil "BatchStopUpdateActionResult" *error-map*))) + common-lisp:nil "BatchStopUpdateActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'batch-stop-update-action)) (common-lisp:progn (common-lisp:defun complete-migration @@ -18834,7 +18836,7 @@ aws-sdk/generator/operation::input "POST" "/" "CompleteMigration")) - common-lisp:nil "CompleteMigrationResult" *error-map*))) + common-lisp:nil "CompleteMigrationResult" *error-map* common-lisp:nil))) (common-lisp:export 'complete-migration)) (common-lisp:progn (common-lisp:defun copy-serverless-cache-snapshot @@ -18855,7 +18857,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyServerlessCacheSnapshot")) - common-lisp:nil "CopyServerlessCacheSnapshotResult" *error-map*))) + common-lisp:nil "CopyServerlessCacheSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-serverless-cache-snapshot)) (common-lisp:progn (common-lisp:defun copy-snapshot @@ -18875,7 +18878,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopySnapshot")) - common-lisp:nil "CopySnapshotResult" *error-map*))) + common-lisp:nil "CopySnapshotResult" *error-map* common-lisp:nil))) (common-lisp:export 'copy-snapshot)) (common-lisp:progn (common-lisp:defun create-cache-cluster @@ -18912,7 +18915,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCacheCluster")) - common-lisp:nil "CreateCacheClusterResult" *error-map*))) + common-lisp:nil "CreateCacheClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-cache-cluster)) (common-lisp:progn (common-lisp:defun create-cache-parameter-group @@ -18933,7 +18936,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCacheParameterGroup")) - common-lisp:nil "CreateCacheParameterGroupResult" *error-map*))) + common-lisp:nil "CreateCacheParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-cache-parameter-group)) (common-lisp:progn (common-lisp:defun create-cache-security-group @@ -18953,7 +18957,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCacheSecurityGroup")) - common-lisp:nil "CreateCacheSecurityGroupResult" *error-map*))) + common-lisp:nil "CreateCacheSecurityGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-cache-security-group)) (common-lisp:progn (common-lisp:defun create-cache-subnet-group @@ -18974,7 +18979,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCacheSubnetGroup")) - common-lisp:nil "CreateCacheSubnetGroupResult" *error-map*))) + common-lisp:nil "CreateCacheSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-cache-subnet-group)) (common-lisp:progn (common-lisp:defun create-global-replication-group @@ -18996,7 +19002,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGlobalReplicationGroup")) - common-lisp:nil "CreateGlobalReplicationGroupResult" *error-map*))) + common-lisp:nil "CreateGlobalReplicationGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-global-replication-group)) (common-lisp:progn (common-lisp:defun create-replication-group @@ -19041,7 +19048,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReplicationGroup")) - common-lisp:nil "CreateReplicationGroupResult" *error-map*))) + common-lisp:nil "CreateReplicationGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-replication-group)) (common-lisp:progn (common-lisp:defun create-serverless-cache @@ -19066,7 +19074,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServerlessCache")) - common-lisp:nil "CreateServerlessCacheResult" *error-map*))) + common-lisp:nil "CreateServerlessCacheResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-serverless-cache)) (common-lisp:progn (common-lisp:defun create-serverless-cache-snapshot @@ -19087,7 +19096,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServerlessCacheSnapshot")) - common-lisp:nil "CreateServerlessCacheSnapshotResult" *error-map*))) + common-lisp:nil "CreateServerlessCacheSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-serverless-cache-snapshot)) (common-lisp:progn (common-lisp:defun create-snapshot @@ -19107,7 +19117,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSnapshot")) - common-lisp:nil "CreateSnapshotResult" *error-map*))) + common-lisp:nil "CreateSnapshotResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-snapshot)) (common-lisp:progn (common-lisp:defun create-user @@ -19128,7 +19138,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil "CreateUserResult" *error-map*))) + common-lisp:nil "CreateUserResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun create-user-group @@ -19146,7 +19156,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserGroup")) - common-lisp:nil "CreateUserGroupResult" *error-map*))) + common-lisp:nil "CreateUserGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-user-group)) (common-lisp:progn (common-lisp:defun decrease-node-groups-in-global-replication-group @@ -19170,7 +19180,7 @@ "POST" "/" "DecreaseNodeGroupsInGlobalReplicationGroup")) common-lisp:nil "DecreaseNodeGroupsInGlobalReplicationGroupResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'decrease-node-groups-in-global-replication-group)) (common-lisp:progn (common-lisp:defun decrease-replica-count @@ -19191,7 +19201,8 @@ aws-sdk/generator/operation::input "POST" "/" "DecreaseReplicaCount")) - common-lisp:nil "DecreaseReplicaCountResult" *error-map*))) + common-lisp:nil "DecreaseReplicaCountResult" *error-map* + common-lisp:nil))) (common-lisp:export 'decrease-replica-count)) (common-lisp:progn (common-lisp:defun delete-cache-cluster @@ -19210,7 +19221,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCacheCluster")) - common-lisp:nil "DeleteCacheClusterResult" *error-map*))) + common-lisp:nil "DeleteCacheClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-cache-cluster)) (common-lisp:progn (common-lisp:defun delete-cache-parameter-group @@ -19228,7 +19239,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCacheParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-cache-parameter-group)) (common-lisp:progn (common-lisp:defun delete-cache-security-group @@ -19246,7 +19257,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCacheSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-cache-security-group)) (common-lisp:progn (common-lisp:defun delete-cache-subnet-group @@ -19264,7 +19275,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCacheSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-cache-subnet-group)) (common-lisp:progn (common-lisp:defun delete-global-replication-group @@ -19285,7 +19296,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGlobalReplicationGroup")) - common-lisp:nil "DeleteGlobalReplicationGroupResult" *error-map*))) + common-lisp:nil "DeleteGlobalReplicationGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-global-replication-group)) (common-lisp:progn (common-lisp:defun delete-replication-group @@ -19305,7 +19317,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReplicationGroup")) - common-lisp:nil "DeleteReplicationGroupResult" *error-map*))) + common-lisp:nil "DeleteReplicationGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-replication-group)) (common-lisp:progn (common-lisp:defun delete-serverless-cache @@ -19324,7 +19337,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServerlessCache")) - common-lisp:nil "DeleteServerlessCacheResult" *error-map*))) + common-lisp:nil "DeleteServerlessCacheResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-serverless-cache)) (common-lisp:progn (common-lisp:defun delete-serverless-cache-snapshot @@ -19342,7 +19356,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServerlessCacheSnapshot")) - common-lisp:nil "DeleteServerlessCacheSnapshotResult" *error-map*))) + common-lisp:nil "DeleteServerlessCacheSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-serverless-cache-snapshot)) (common-lisp:progn (common-lisp:defun delete-snapshot @@ -19359,7 +19374,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshot")) - common-lisp:nil "DeleteSnapshotResult" *error-map*))) + common-lisp:nil "DeleteSnapshotResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-snapshot)) (common-lisp:progn (common-lisp:defun delete-user @@ -19376,7 +19391,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil "DeleteUserResult" *error-map*))) + common-lisp:nil "DeleteUserResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun delete-user-group @@ -19393,7 +19408,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserGroup")) - common-lisp:nil "DeleteUserGroupResult" *error-map*))) + common-lisp:nil "DeleteUserGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-user-group)) (common-lisp:progn (common-lisp:defun describe-cache-clusters @@ -19414,7 +19429,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCacheClusters")) - common-lisp:nil "DescribeCacheClustersResult" *error-map*))) + common-lisp:nil "DescribeCacheClustersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cache-clusters)) (common-lisp:progn (common-lisp:defun describe-cache-engine-versions @@ -19436,7 +19452,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCacheEngineVersions")) - common-lisp:nil "DescribeCacheEngineVersionsResult" *error-map*))) + common-lisp:nil "DescribeCacheEngineVersionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cache-engine-versions)) (common-lisp:progn (common-lisp:defun describe-cache-parameter-groups @@ -19456,7 +19473,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCacheParameterGroups")) - common-lisp:nil "DescribeCacheParameterGroupsResult" *error-map*))) + common-lisp:nil "DescribeCacheParameterGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cache-parameter-groups)) (common-lisp:progn (common-lisp:defun describe-cache-parameters @@ -19477,7 +19495,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCacheParameters")) - common-lisp:nil "DescribeCacheParametersResult" *error-map*))) + common-lisp:nil "DescribeCacheParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cache-parameters)) (common-lisp:progn (common-lisp:defun describe-cache-security-groups @@ -19497,7 +19516,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCacheSecurityGroups")) - common-lisp:nil "DescribeCacheSecurityGroupsResult" *error-map*))) + common-lisp:nil "DescribeCacheSecurityGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cache-security-groups)) (common-lisp:progn (common-lisp:defun describe-cache-subnet-groups @@ -19517,7 +19537,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCacheSubnetGroups")) - common-lisp:nil "DescribeCacheSubnetGroupsResult" *error-map*))) + common-lisp:nil "DescribeCacheSubnetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cache-subnet-groups)) (common-lisp:progn (common-lisp:defun describe-engine-default-parameters @@ -19537,7 +19558,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEngineDefaultParameters")) - common-lisp:nil "DescribeEngineDefaultParametersResult" *error-map*))) + common-lisp:nil "DescribeEngineDefaultParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-engine-default-parameters)) (common-lisp:progn (common-lisp:defun describe-events @@ -19557,7 +19579,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil "DescribeEventsResult" *error-map*))) + common-lisp:nil "DescribeEventsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-global-replication-groups @@ -19578,7 +19600,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGlobalReplicationGroups")) - common-lisp:nil "DescribeGlobalReplicationGroupsResult" *error-map*))) + common-lisp:nil "DescribeGlobalReplicationGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-global-replication-groups)) (common-lisp:progn (common-lisp:defun describe-replication-groups @@ -19597,7 +19620,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplicationGroups")) - common-lisp:nil "DescribeReplicationGroupsResult" *error-map*))) + common-lisp:nil "DescribeReplicationGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-replication-groups)) (common-lisp:progn (common-lisp:defun describe-reserved-cache-nodes @@ -19620,7 +19644,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedCacheNodes")) - common-lisp:nil "DescribeReservedCacheNodesResult" *error-map*))) + common-lisp:nil "DescribeReservedCacheNodesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-reserved-cache-nodes)) (common-lisp:progn (common-lisp:defun describe-reserved-cache-nodes-offerings @@ -19642,8 +19667,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedCacheNodesOfferings")) - common-lisp:nil "DescribeReservedCacheNodesOfferingsResult" - *error-map*))) + common-lisp:nil "DescribeReservedCacheNodesOfferingsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-reserved-cache-nodes-offerings)) (common-lisp:progn (common-lisp:defun describe-serverless-cache-snapshots @@ -19665,7 +19690,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServerlessCacheSnapshots")) - common-lisp:nil "DescribeServerlessCacheSnapshotsResult" *error-map*))) + common-lisp:nil "DescribeServerlessCacheSnapshotsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-serverless-cache-snapshots)) (common-lisp:progn (common-lisp:defun describe-serverless-caches @@ -19685,7 +19711,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServerlessCaches")) - common-lisp:nil "DescribeServerlessCachesResult" *error-map*))) + common-lisp:nil "DescribeServerlessCachesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-serverless-caches)) (common-lisp:progn (common-lisp:defun describe-service-updates @@ -19705,7 +19732,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServiceUpdates")) - common-lisp:nil "DescribeServiceUpdatesResult" *error-map*))) + common-lisp:nil "DescribeServiceUpdatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-service-updates)) (common-lisp:progn (common-lisp:defun describe-snapshots @@ -19726,7 +19754,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshots")) - common-lisp:nil "DescribeSnapshotsResult" *error-map*))) + common-lisp:nil "DescribeSnapshotsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-snapshots)) (common-lisp:progn (common-lisp:defun describe-update-actions @@ -19749,7 +19777,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUpdateActions")) - common-lisp:nil "DescribeUpdateActionsResult" *error-map*))) + common-lisp:nil "DescribeUpdateActionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-update-actions)) (common-lisp:progn (common-lisp:defun describe-user-groups @@ -19767,7 +19796,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserGroups")) - common-lisp:nil "DescribeUserGroupsResult" *error-map*))) + common-lisp:nil "DescribeUserGroupsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-user-groups)) (common-lisp:progn (common-lisp:defun describe-users @@ -19786,7 +19815,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUsers")) - common-lisp:nil "DescribeUsersResult" *error-map*))) + common-lisp:nil "DescribeUsersResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-users)) (common-lisp:progn (common-lisp:defun disassociate-global-replication-group @@ -19807,7 +19836,8 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateGlobalReplicationGroup")) - common-lisp:nil "DisassociateGlobalReplicationGroupResult" *error-map*))) + common-lisp:nil "DisassociateGlobalReplicationGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'disassociate-global-replication-group)) (common-lisp:progn (common-lisp:defun export-serverless-cache-snapshot @@ -19827,7 +19857,8 @@ aws-sdk/generator/operation::input "POST" "/" "ExportServerlessCacheSnapshot")) - common-lisp:nil "ExportServerlessCacheSnapshotResult" *error-map*))) + common-lisp:nil "ExportServerlessCacheSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'export-serverless-cache-snapshot)) (common-lisp:progn (common-lisp:defun failover-global-replication-group @@ -19848,7 +19879,8 @@ aws-sdk/generator/operation::input "POST" "/" "FailoverGlobalReplicationGroup")) - common-lisp:nil "FailoverGlobalReplicationGroupResult" *error-map*))) + common-lisp:nil "FailoverGlobalReplicationGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'failover-global-replication-group)) (common-lisp:progn (common-lisp:defun increase-node-groups-in-global-replication-group @@ -19871,7 +19903,7 @@ "POST" "/" "IncreaseNodeGroupsInGlobalReplicationGroup")) common-lisp:nil "IncreaseNodeGroupsInGlobalReplicationGroupResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'increase-node-groups-in-global-replication-group)) (common-lisp:progn (common-lisp:defun increase-replica-count @@ -19891,7 +19923,8 @@ aws-sdk/generator/operation::input "POST" "/" "IncreaseReplicaCount")) - common-lisp:nil "IncreaseReplicaCountResult" *error-map*))) + common-lisp:nil "IncreaseReplicaCountResult" *error-map* + common-lisp:nil))) (common-lisp:export 'increase-replica-count)) (common-lisp:progn (common-lisp:defun list-allowed-node-type-modifications @@ -19910,7 +19943,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListAllowedNodeTypeModifications")) - common-lisp:nil "ListAllowedNodeTypeModificationsResult" *error-map*))) + common-lisp:nil "ListAllowedNodeTypeModificationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-allowed-node-type-modifications)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -19927,7 +19961,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil "ListTagsForResourceResult" *error-map*))) + common-lisp:nil "ListTagsForResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-cache-cluster @@ -19961,7 +19996,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCacheCluster")) - common-lisp:nil "ModifyCacheClusterResult" *error-map*))) + common-lisp:nil "ModifyCacheClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-cache-cluster)) (common-lisp:progn (common-lisp:defun modify-cache-parameter-group @@ -19981,7 +20016,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCacheParameterGroup")) - common-lisp:nil "ModifyCacheParameterGroupResult" *error-map*))) + common-lisp:nil "ModifyCacheParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-cache-parameter-group)) (common-lisp:progn (common-lisp:defun modify-cache-subnet-group @@ -20002,7 +20038,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCacheSubnetGroup")) - common-lisp:nil "ModifyCacheSubnetGroupResult" *error-map*))) + common-lisp:nil "ModifyCacheSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-cache-subnet-group)) (common-lisp:progn (common-lisp:defun modify-global-replication-group @@ -20027,7 +20064,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyGlobalReplicationGroup")) - common-lisp:nil "ModifyGlobalReplicationGroupResult" *error-map*))) + common-lisp:nil "ModifyGlobalReplicationGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-global-replication-group)) (common-lisp:progn (common-lisp:defun modify-replication-group @@ -20067,7 +20105,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyReplicationGroup")) - common-lisp:nil "ModifyReplicationGroupResult" *error-map*))) + common-lisp:nil "ModifyReplicationGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-replication-group)) (common-lisp:progn (common-lisp:defun modify-replication-group-shard-configuration @@ -20091,7 +20130,7 @@ "POST" "/" "ModifyReplicationGroupShardConfiguration")) common-lisp:nil "ModifyReplicationGroupShardConfigurationResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'modify-replication-group-shard-configuration)) (common-lisp:progn (common-lisp:defun modify-serverless-cache @@ -20114,7 +20153,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyServerlessCache")) - common-lisp:nil "ModifyServerlessCacheResult" *error-map*))) + common-lisp:nil "ModifyServerlessCacheResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-serverless-cache)) (common-lisp:progn (common-lisp:defun modify-user @@ -20135,7 +20175,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyUser")) - common-lisp:nil "ModifyUserResult" *error-map*))) + common-lisp:nil "ModifyUserResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-user)) (common-lisp:progn (common-lisp:defun modify-user-group @@ -20154,7 +20194,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyUserGroup")) - common-lisp:nil "ModifyUserGroupResult" *error-map*))) + common-lisp:nil "ModifyUserGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-user-group)) (common-lisp:progn (common-lisp:defun purchase-reserved-cache-nodes-offering @@ -20175,7 +20215,8 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseReservedCacheNodesOffering")) - common-lisp:nil "PurchaseReservedCacheNodesOfferingResult" *error-map*))) + common-lisp:nil "PurchaseReservedCacheNodesOfferingResult" *error-map* + common-lisp:nil))) (common-lisp:export 'purchase-reserved-cache-nodes-offering)) (common-lisp:progn (common-lisp:defun rebalance-slots-in-global-replication-group @@ -20196,7 +20237,7 @@ "POST" "/" "RebalanceSlotsInGlobalReplicationGroup")) common-lisp:nil "RebalanceSlotsInGlobalReplicationGroupResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'rebalance-slots-in-global-replication-group)) (common-lisp:progn (common-lisp:defun reboot-cache-cluster @@ -20215,7 +20256,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootCacheCluster")) - common-lisp:nil "RebootCacheClusterResult" *error-map*))) + common-lisp:nil "RebootCacheClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'reboot-cache-cluster)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -20233,7 +20274,8 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil "RemoveTagsFromResourceResult" *error-map*))) + common-lisp:nil "RemoveTagsFromResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'remove-tags-from-resource)) (common-lisp:progn (common-lisp:defun reset-cache-parameter-group @@ -20254,7 +20296,8 @@ aws-sdk/generator/operation::input "POST" "/" "ResetCacheParameterGroup")) - common-lisp:nil "ResetCacheParameterGroupResult" *error-map*))) + common-lisp:nil "ResetCacheParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reset-cache-parameter-group)) (common-lisp:progn (common-lisp:defun revoke-cache-security-group-ingress @@ -20275,7 +20318,8 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeCacheSecurityGroupIngress")) - common-lisp:nil "RevokeCacheSecurityGroupIngressResult" *error-map*))) + common-lisp:nil "RevokeCacheSecurityGroupIngressResult" *error-map* + common-lisp:nil))) (common-lisp:export 'revoke-cache-security-group-ingress)) (common-lisp:progn (common-lisp:defun start-migration @@ -20294,7 +20338,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMigration")) - common-lisp:nil "StartMigrationResult" *error-map*))) + common-lisp:nil "StartMigrationResult" *error-map* common-lisp:nil))) (common-lisp:export 'start-migration)) (common-lisp:progn (common-lisp:defun test-failover @@ -20312,7 +20356,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestFailover")) - common-lisp:nil "TestFailoverResult" *error-map*))) + common-lisp:nil "TestFailoverResult" *error-map* common-lisp:nil))) (common-lisp:export 'test-failover)) (common-lisp:progn (common-lisp:defun test-migration @@ -20331,5 +20375,5 @@ aws-sdk/generator/operation::input "POST" "/" "TestMigration")) - common-lisp:nil "TestMigrationResult" *error-map*))) + common-lisp:nil "TestMigrationResult" *error-map* common-lisp:nil))) (common-lisp:export 'test-migration)) diff --git a/services/elasticbeanstalk/api.lisp b/services/elasticbeanstalk/api.lisp index 183458c4..64d54cf2 100644 --- a/services/elasticbeanstalk/api.lisp +++ b/services/elasticbeanstalk/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/elasticbeanstalk/api - (:use) - (:nicknames #:aws/elasticbeanstalk) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/elasticbeanstalk/api (:use) + (:nicknames #:aws/elasticbeanstalk) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/elasticbeanstalk/api) (common-lisp:progn (common-lisp:define-condition elasticbeanstalk-error @@ -10350,7 +10349,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "AbortEnvironmentUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'abort-environment-update)) (common-lisp:progn (common-lisp:defun apply-environment-managed-action @@ -10369,7 +10368,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "ApplyEnvironmentManagedAction")) - common-lisp:nil "ApplyEnvironmentManagedActionResult" *error-map*))) + common-lisp:nil "ApplyEnvironmentManagedActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'apply-environment-managed-action)) (common-lisp:progn (common-lisp:defun associate-environment-operations-role @@ -10387,7 +10387,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "AssociateEnvironmentOperationsRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'associate-environment-operations-role)) (common-lisp:progn (common-lisp:defun check-dnsavailability @@ -10403,7 +10403,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "CheckDNSAvailability")) - common-lisp:nil "CheckDNSAvailabilityResult" *error-map*))) + common-lisp:nil "CheckDNSAvailabilityResult" *error-map* + common-lisp:nil))) (common-lisp:export 'check-dnsavailability)) (common-lisp:progn (common-lisp:defun compose-environments @@ -10421,7 +10422,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "ComposeEnvironments")) - common-lisp:nil "ComposeEnvironmentsResult" *error-map*))) + common-lisp:nil "ComposeEnvironmentsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'compose-environments)) (common-lisp:progn (common-lisp:defun create-application @@ -10440,7 +10442,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "CreateApplication")) - common-lisp:nil "CreateApplicationResult" *error-map*))) + common-lisp:nil "CreateApplicationResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-application-version @@ -10462,7 +10464,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "CreateApplicationVersion")) - common-lisp:nil "CreateApplicationVersionResult" *error-map*))) + common-lisp:nil "CreateApplicationVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-application-version)) (common-lisp:progn (common-lisp:defun create-configuration-template @@ -10484,7 +10487,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "CreateConfigurationTemplate")) - common-lisp:nil "CreateConfigurationTemplateResult" *error-map*))) + common-lisp:nil "CreateConfigurationTemplateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-configuration-template)) (common-lisp:progn (common-lisp:defun create-environment @@ -10507,7 +10511,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "CreateEnvironment")) - common-lisp:nil "CreateEnvironmentResult" *error-map*))) + common-lisp:nil "CreateEnvironmentResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun create-platform-version @@ -10527,7 +10531,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "CreatePlatformVersion")) - common-lisp:nil "CreatePlatformVersionResult" *error-map*))) + common-lisp:nil "CreatePlatformVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-platform-version)) (common-lisp:progn (common-lisp:defun create-storage-location () @@ -10552,7 +10557,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-application-version @@ -10572,7 +10577,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-application-version)) (common-lisp:progn (common-lisp:defun delete-configuration-template @@ -10589,7 +10594,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DeleteConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-configuration-template)) (common-lisp:progn (common-lisp:defun delete-environment-configuration @@ -10607,7 +10612,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DeleteEnvironmentConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-environment-configuration)) (common-lisp:progn (common-lisp:defun delete-platform-version @@ -10623,7 +10628,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DeletePlatformVersion")) - common-lisp:nil "DeletePlatformVersionResult" *error-map*))) + common-lisp:nil "DeletePlatformVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-platform-version)) (common-lisp:progn (common-lisp:defun describe-account-attributes () @@ -10651,7 +10657,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeApplicationVersions")) - common-lisp:nil "DescribeApplicationVersionsResult" *error-map*))) + common-lisp:nil "DescribeApplicationVersionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-application-versions)) (common-lisp:progn (common-lisp:defun describe-applications @@ -10667,7 +10674,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeApplications")) - common-lisp:nil "DescribeApplicationsResult" *error-map*))) + common-lisp:nil "DescribeApplicationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-applications)) (common-lisp:progn (common-lisp:defun describe-configuration-options @@ -10687,7 +10695,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurationOptions")) - common-lisp:nil "DescribeConfigurationOptionsResult" *error-map*))) + common-lisp:nil "DescribeConfigurationOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-configuration-options)) (common-lisp:progn (common-lisp:defun describe-configuration-settings @@ -10706,7 +10715,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurationSettings")) - common-lisp:nil "DescribeConfigurationSettingsResult" *error-map*))) + common-lisp:nil "DescribeConfigurationSettingsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-configuration-settings)) (common-lisp:progn (common-lisp:defun describe-environment-health @@ -10725,7 +10735,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeEnvironmentHealth")) - common-lisp:nil "DescribeEnvironmentHealthResult" *error-map*))) + common-lisp:nil "DescribeEnvironmentHealthResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-environment-health)) (common-lisp:progn (common-lisp:defun describe-environment-managed-action-history @@ -10746,7 +10757,7 @@ 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeEnvironmentManagedActionHistory")) common-lisp:nil "DescribeEnvironmentManagedActionHistoryResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'describe-environment-managed-action-history)) (common-lisp:progn (common-lisp:defun describe-environment-managed-actions @@ -10764,7 +10775,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeEnvironmentManagedActions")) - common-lisp:nil "DescribeEnvironmentManagedActionsResult" *error-map*))) + common-lisp:nil "DescribeEnvironmentManagedActionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-environment-managed-actions)) (common-lisp:progn (common-lisp:defun describe-environment-resources @@ -10782,7 +10794,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeEnvironmentResources")) - common-lisp:nil "DescribeEnvironmentResourcesResult" *error-map*))) + common-lisp:nil "DescribeEnvironmentResourcesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-environment-resources)) (common-lisp:progn (common-lisp:defun describe-environments @@ -10803,7 +10816,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeEnvironments")) - common-lisp:nil "DescribeEnvironmentsResult" *error-map*))) + common-lisp:nil "DescribeEnvironmentsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-environments)) (common-lisp:progn (common-lisp:defun describe-events @@ -10825,7 +10839,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil "DescribeEventsResult" *error-map*))) + common-lisp:nil "DescribeEventsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-instances-health @@ -10845,7 +10859,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribeInstancesHealth")) - common-lisp:nil "DescribeInstancesHealthResult" *error-map*))) + common-lisp:nil "DescribeInstancesHealthResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-instances-health)) (common-lisp:progn (common-lisp:defun describe-platform-version @@ -10862,7 +10877,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DescribePlatformVersion")) - common-lisp:nil "DescribePlatformVersionResult" *error-map*))) + common-lisp:nil "DescribePlatformVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-platform-version)) (common-lisp:progn (common-lisp:defun disassociate-environment-operations-role @@ -10879,7 +10895,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "DisassociateEnvironmentOperationsRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disassociate-environment-operations-role)) (common-lisp:progn (common-lisp:defun list-available-solution-stacks () @@ -10903,7 +10919,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "ListPlatformBranches")) - common-lisp:nil "ListPlatformBranchesResult" *error-map*))) + common-lisp:nil "ListPlatformBranchesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-platform-branches)) (common-lisp:progn (common-lisp:defun list-platform-versions @@ -10919,7 +10936,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "ListPlatformVersions")) - common-lisp:nil "ListPlatformVersionsResult" *error-map*))) + common-lisp:nil "ListPlatformVersionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-platform-versions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10935,7 +10953,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil "ListTagsForResourceResult" *error-map*))) + common-lisp:nil "ListTagsForResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun rebuild-environment @@ -10952,7 +10971,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "RebuildEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'rebuild-environment)) (common-lisp:progn (common-lisp:defun request-environment-info @@ -10970,7 +10989,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "RequestEnvironmentInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'request-environment-info)) (common-lisp:progn (common-lisp:defun restart-app-server @@ -10987,7 +11006,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "RestartAppServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'restart-app-server)) (common-lisp:progn (common-lisp:defun retrieve-environment-info @@ -11006,7 +11025,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "RetrieveEnvironmentInfo")) - common-lisp:nil "RetrieveEnvironmentInfoResult" *error-map*))) + common-lisp:nil "RetrieveEnvironmentInfoResult" *error-map* + common-lisp:nil))) (common-lisp:export 'retrieve-environment-info)) (common-lisp:progn (common-lisp:defun swap-environment-cnames @@ -11026,7 +11046,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "SwapEnvironmentCNAMEs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'swap-environment-cnames)) (common-lisp:progn (common-lisp:defun terminate-environment @@ -11045,7 +11065,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "TerminateEnvironment")) - common-lisp:nil "TerminateEnvironmentResult" *error-map*))) + common-lisp:nil "TerminateEnvironmentResult" *error-map* + common-lisp:nil))) (common-lisp:export 'terminate-environment)) (common-lisp:progn (common-lisp:defun update-application @@ -11061,7 +11082,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "UpdateApplication")) - common-lisp:nil "UpdateApplicationResult" *error-map*))) + common-lisp:nil "UpdateApplicationResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-application-resource-lifecycle @@ -11080,7 +11101,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "UpdateApplicationResourceLifecycle")) - common-lisp:nil "UpdateApplicationResourceLifecycleResult" *error-map*))) + common-lisp:nil "UpdateApplicationResourceLifecycleResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-application-resource-lifecycle)) (common-lisp:progn (common-lisp:defun update-application-version @@ -11099,7 +11121,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "UpdateApplicationVersion")) - common-lisp:nil "UpdateApplicationVersionResult" *error-map*))) + common-lisp:nil "UpdateApplicationVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-application-version)) (common-lisp:progn (common-lisp:defun update-configuration-template @@ -11119,7 +11142,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "UpdateConfigurationTemplate")) - common-lisp:nil "UpdateConfigurationTemplateResult" *error-map*))) + common-lisp:nil "UpdateConfigurationTemplateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-configuration-template)) (common-lisp:progn (common-lisp:defun update-environment @@ -11141,7 +11165,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "UpdateEnvironment")) - common-lisp:nil "UpdateEnvironmentResult" *error-map*))) + common-lisp:nil "UpdateEnvironmentResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-environment)) (common-lisp:progn (common-lisp:defun update-tags-for-resource @@ -11158,7 +11182,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "UpdateTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-tags-for-resource)) (common-lisp:progn (common-lisp:defun validate-configuration-settings @@ -11178,5 +11202,6 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticbeanstalk-request aws-sdk/generator/operation::input "POST" "/" "ValidateConfigurationSettings")) - common-lisp:nil "ValidateConfigurationSettingsResult" *error-map*))) + common-lisp:nil "ValidateConfigurationSettingsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'validate-configuration-settings)) diff --git a/services/elasticfilesystem/api.lisp b/services/elasticfilesystem/api.lisp index 146c0a91..5486f9d2 100644 --- a/services/elasticfilesystem/api.lisp +++ b/services/elasticfilesystem/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/elasticfilesystem/api - (:use) - (:nicknames #:aws/elasticfilesystem) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/elasticfilesystem/api (:use) + (:nicknames #:aws/elasticfilesystem) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/elasticfilesystem/api) (common-lisp:progn (common-lisp:define-condition elasticfilesystem-error @@ -20,7 +19,7 @@ (common-lisp:export 'elasticfilesystem-error)) (common-lisp:progn (common-lisp:defclass elasticfilesystem-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "elasticfilesystem" :api-version "2015-02-01" :host-prefix @@ -4091,7 +4090,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticfilesystem-request aws-sdk/generator/operation::input "POST" "/2015-02-01/access-points" "CreateAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-access-point)) (common-lisp:progn (common-lisp:defun create-file-system @@ -4112,7 +4111,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticfilesystem-request aws-sdk/generator/operation::input "POST" "/2015-02-01/file-systems" "CreateFileSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-file-system)) (common-lisp:progn (common-lisp:defun create-mount-target @@ -4131,7 +4130,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticfilesystem-request aws-sdk/generator/operation::input "POST" "/2015-02-01/mount-targets" "CreateMountTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-mount-target)) (common-lisp:progn (common-lisp:defun create-replication-configuration @@ -4151,12 +4150,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/replication-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-file-system-id)))) + 'source-file-system-id) + common-lisp:t))) "CreateReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-configuration)) (common-lisp:progn (common-lisp:defun create-tags @@ -4173,12 +4173,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/create-tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "CreateTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tags)) (common-lisp:progn (common-lisp:defun delete-access-point @@ -4195,12 +4196,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/access-points/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-point-id)))) + 'access-point-id) + common-lisp:t))) "DeleteAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access-point)) (common-lisp:progn (common-lisp:defun delete-file-system @@ -4217,12 +4219,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "DeleteFileSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-file-system)) (common-lisp:progn (common-lisp:defun delete-file-system-policy @@ -4241,12 +4244,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "DeleteFileSystemPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-file-system-policy)) (common-lisp:progn (common-lisp:defun delete-mount-target @@ -4263,12 +4267,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/mount-targets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mount-target-id)))) + 'mount-target-id) + common-lisp:t))) "DeleteMountTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mount-target)) (common-lisp:progn (common-lisp:defun delete-replication-configuration @@ -4287,12 +4292,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/replication-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-file-system-id)))) + 'source-file-system-id) + common-lisp:t))) "DeleteReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-configuration)) (common-lisp:progn (common-lisp:defun delete-tags @@ -4309,12 +4315,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/delete-tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun describe-access-points @@ -4333,7 +4340,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticfilesystem-request aws-sdk/generator/operation::input "GET" "/2015-02-01/access-points" "DescribeAccessPoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-access-points)) (common-lisp:progn (common-lisp:defun describe-account-preferences @@ -4350,7 +4357,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticfilesystem-request aws-sdk/generator/operation::input "GET" "/2015-02-01/account-preferences" "DescribeAccountPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-preferences)) (common-lisp:progn (common-lisp:defun describe-backup-policy @@ -4368,12 +4375,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/backup-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "DescribeBackupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-backup-policy)) (common-lisp:progn (common-lisp:defun describe-file-system-policy @@ -4392,12 +4400,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "DescribeFileSystemPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-file-system-policy)) (common-lisp:progn (common-lisp:defun describe-file-systems @@ -4415,7 +4424,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticfilesystem-request aws-sdk/generator/operation::input "GET" "/2015-02-01/file-systems" "DescribeFileSystems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-file-systems)) (common-lisp:progn (common-lisp:defun describe-lifecycle-configuration @@ -4434,12 +4443,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/lifecycle-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "DescribeLifecycleConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-lifecycle-configuration)) (common-lisp:progn (common-lisp:defun describe-mount-target-security-groups @@ -4458,12 +4468,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/mount-targets/~A/security-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mount-target-id)))) + 'mount-target-id) + common-lisp:t))) "DescribeMountTargetSecurityGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-mount-target-security-groups)) (common-lisp:progn (common-lisp:defun describe-mount-targets @@ -4482,7 +4493,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticfilesystem-request aws-sdk/generator/operation::input "GET" "/2015-02-01/mount-targets" "DescribeMountTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-mount-targets)) (common-lisp:progn (common-lisp:defun describe-replication-configurations @@ -4501,7 +4512,7 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "GET" "/2015-02-01/file-systems/replication-configurations" "DescribeReplicationConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-configurations)) (common-lisp:progn (common-lisp:defun describe-tags @@ -4519,12 +4530,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/tags/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "DescribeTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4542,12 +4554,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/resource-tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-mount-target-security-groups @@ -4567,12 +4580,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/mount-targets/~A/security-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mount-target-id)))) + 'mount-target-id) + common-lisp:t))) "ModifyMountTargetSecurityGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-mount-target-security-groups)) (common-lisp:progn (common-lisp:defun put-account-preferences @@ -4588,7 +4602,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticfilesystem-request aws-sdk/generator/operation::input "PUT" "/2015-02-01/account-preferences" "PutAccountPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-preferences)) (common-lisp:progn (common-lisp:defun put-backup-policy @@ -4606,12 +4620,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/backup-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "PutBackupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-backup-policy)) (common-lisp:progn (common-lisp:defun put-file-system-policy @@ -4632,12 +4647,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "PutFileSystemPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-file-system-policy)) (common-lisp:progn (common-lisp:defun put-lifecycle-configuration @@ -4657,12 +4673,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/lifecycle-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "PutLifecycleConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-lifecycle-configuration)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4679,12 +4696,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/resource-tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4701,12 +4719,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/resource-tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-file-system @@ -4726,12 +4745,13 @@ 'elasticfilesystem-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "UpdateFileSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-file-system)) (common-lisp:progn (common-lisp:defun update-file-system-protection @@ -4752,10 +4772,11 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2015-02-01/file-systems/~A/protection" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-system-id)))) + 'file-system-id) + common-lisp:t))) "UpdateFileSystemProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-file-system-protection)) diff --git a/services/elasticloadbalancing/api.lisp b/services/elasticloadbalancing/api.lisp index d8c845c1..1595331c 100644 --- a/services/elasticloadbalancing/api.lisp +++ b/services/elasticloadbalancing/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/elasticloadbalancing/api - (:use) - (:nicknames #:aws/elasticloadbalancing) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/elasticloadbalancing/api (:use) + (:nicknames #:aws/elasticloadbalancing) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/elasticloadbalancing/api) (common-lisp:progn (common-lisp:define-condition elasticloadbalancing-error @@ -4826,7 +4825,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "AddTags")) - common-lisp:nil "AddTagsResult" *error-map*))) + common-lisp:nil "AddTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun apply-security-groups-to-load-balancer @@ -4844,7 +4843,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "ApplySecurityGroupsToLoadBalancer")) - common-lisp:nil "ApplySecurityGroupsToLoadBalancerResult" *error-map*))) + common-lisp:nil "ApplySecurityGroupsToLoadBalancerResult" *error-map* + common-lisp:nil))) (common-lisp:export 'apply-security-groups-to-load-balancer)) (common-lisp:progn (common-lisp:defun attach-load-balancer-to-subnets @@ -4861,7 +4861,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "AttachLoadBalancerToSubnets")) - common-lisp:nil "AttachLoadBalancerToSubnetsResult" *error-map*))) + common-lisp:nil "AttachLoadBalancerToSubnetsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'attach-load-balancer-to-subnets)) (common-lisp:progn (common-lisp:defun configure-health-check @@ -4878,7 +4879,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "ConfigureHealthCheck")) - common-lisp:nil "ConfigureHealthCheckResult" *error-map*))) + common-lisp:nil "ConfigureHealthCheckResult" *error-map* + common-lisp:nil))) (common-lisp:export 'configure-health-check)) (common-lisp:progn (common-lisp:defun create-app-cookie-stickiness-policy @@ -4897,7 +4899,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "CreateAppCookieStickinessPolicy")) - common-lisp:nil "CreateAppCookieStickinessPolicyResult" *error-map*))) + common-lisp:nil "CreateAppCookieStickinessPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-app-cookie-stickiness-policy)) (common-lisp:progn (common-lisp:defun create-lbcookie-stickiness-policy @@ -4917,7 +4920,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "CreateLBCookieStickinessPolicy")) - common-lisp:nil "CreateLBCookieStickinessPolicyResult" *error-map*))) + common-lisp:nil "CreateLBCookieStickinessPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-lbcookie-stickiness-policy)) (common-lisp:progn (common-lisp:defun create-load-balancer @@ -4936,7 +4940,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "CreateLoadBalancer")) - common-lisp:nil "CreateLoadBalancerResult" *error-map*))) + common-lisp:nil "CreateLoadBalancerResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-load-balancer)) (common-lisp:progn (common-lisp:defun create-load-balancer-listeners @@ -4953,7 +4957,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "CreateLoadBalancerListeners")) - common-lisp:nil "CreateLoadBalancerListenersResult" *error-map*))) + common-lisp:nil "CreateLoadBalancerListenersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-load-balancer-listeners)) (common-lisp:progn (common-lisp:defun create-load-balancer-policy @@ -4973,7 +4978,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "CreateLoadBalancerPolicy")) - common-lisp:nil "CreateLoadBalancerPolicyResult" *error-map*))) + common-lisp:nil "CreateLoadBalancerPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-load-balancer-policy)) (common-lisp:progn (common-lisp:defun delete-load-balancer @@ -4989,7 +4995,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DeleteLoadBalancer")) - common-lisp:nil "DeleteLoadBalancerResult" *error-map*))) + common-lisp:nil "DeleteLoadBalancerResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-load-balancer)) (common-lisp:progn (common-lisp:defun delete-load-balancer-listeners @@ -5007,7 +5013,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DeleteLoadBalancerListeners")) - common-lisp:nil "DeleteLoadBalancerListenersResult" *error-map*))) + common-lisp:nil "DeleteLoadBalancerListenersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-load-balancer-listeners)) (common-lisp:progn (common-lisp:defun delete-load-balancer-policy @@ -5024,7 +5031,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DeleteLoadBalancerPolicy")) - common-lisp:nil "DeleteLoadBalancerPolicyResult" *error-map*))) + common-lisp:nil "DeleteLoadBalancerPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-load-balancer-policy)) (common-lisp:progn (common-lisp:defun deregister-instances-from-load-balancer @@ -5040,8 +5048,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DeregisterInstancesFromLoadBalancer")) - common-lisp:nil "DeregisterInstancesFromLoadBalancerResult" - *error-map*))) + common-lisp:nil "DeregisterInstancesFromLoadBalancerResult" *error-map* + common-lisp:nil))) (common-lisp:export 'deregister-instances-from-load-balancer)) (common-lisp:progn (common-lisp:defun describe-account-limits @@ -5057,7 +5065,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DescribeAccountLimits")) - common-lisp:nil "DescribeAccountLimitsResult" *error-map*))) + common-lisp:nil "DescribeAccountLimitsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-account-limits)) (common-lisp:progn (common-lisp:defun describe-instance-health @@ -5073,7 +5082,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceHealth")) - common-lisp:nil "DescribeInstanceHealthResult" *error-map*))) + common-lisp:nil "DescribeInstanceHealthResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-instance-health)) (common-lisp:progn (common-lisp:defun describe-load-balancer-attributes @@ -5090,7 +5100,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBalancerAttributes")) - common-lisp:nil "DescribeLoadBalancerAttributesResult" *error-map*))) + common-lisp:nil "DescribeLoadBalancerAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-load-balancer-attributes)) (common-lisp:progn (common-lisp:defun describe-load-balancer-policies @@ -5108,7 +5119,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBalancerPolicies")) - common-lisp:nil "DescribeLoadBalancerPoliciesResult" *error-map*))) + common-lisp:nil "DescribeLoadBalancerPoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-load-balancer-policies)) (common-lisp:progn (common-lisp:defun describe-load-balancer-policy-types @@ -5125,7 +5137,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBalancerPolicyTypes")) - common-lisp:nil "DescribeLoadBalancerPolicyTypesResult" *error-map*))) + common-lisp:nil "DescribeLoadBalancerPolicyTypesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-load-balancer-policy-types)) (common-lisp:progn (common-lisp:defun describe-load-balancers @@ -5142,7 +5155,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBalancers")) - common-lisp:nil "DescribeLoadBalancersResult" *error-map*))) + common-lisp:nil "DescribeLoadBalancersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-load-balancers)) (common-lisp:progn (common-lisp:defun describe-tags @@ -5158,7 +5172,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil "DescribeTagsResult" *error-map*))) + common-lisp:nil "DescribeTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun detach-load-balancer-from-subnets @@ -5175,7 +5189,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DetachLoadBalancerFromSubnets")) - common-lisp:nil "DetachLoadBalancerFromSubnetsResult" *error-map*))) + common-lisp:nil "DetachLoadBalancerFromSubnetsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'detach-load-balancer-from-subnets)) (common-lisp:progn (common-lisp:defun disable-availability-zones-for-load-balancer @@ -5193,7 +5208,7 @@ 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "DisableAvailabilityZonesForLoadBalancer")) common-lisp:nil "DisableAvailabilityZonesForLoadBalancerResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'disable-availability-zones-for-load-balancer)) (common-lisp:progn (common-lisp:defun enable-availability-zones-for-load-balancer @@ -5211,7 +5226,7 @@ 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "EnableAvailabilityZonesForLoadBalancer")) common-lisp:nil "EnableAvailabilityZonesForLoadBalancerResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'enable-availability-zones-for-load-balancer)) (common-lisp:progn (common-lisp:defun modify-load-balancer-attributes @@ -5230,7 +5245,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "ModifyLoadBalancerAttributes")) - common-lisp:nil "ModifyLoadBalancerAttributesResult" *error-map*))) + common-lisp:nil "ModifyLoadBalancerAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-load-balancer-attributes)) (common-lisp:progn (common-lisp:defun register-instances-with-load-balancer @@ -5246,7 +5262,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "RegisterInstancesWithLoadBalancer")) - common-lisp:nil "RegisterInstancesWithLoadBalancerResult" *error-map*))) + common-lisp:nil "RegisterInstancesWithLoadBalancerResult" *error-map* + common-lisp:nil))) (common-lisp:export 'register-instances-with-load-balancer)) (common-lisp:progn (common-lisp:defun remove-tags @@ -5262,7 +5279,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "RemoveTags")) - common-lisp:nil "RemoveTagsResult" *error-map*))) + common-lisp:nil "RemoveTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'remove-tags)) (common-lisp:progn (common-lisp:defun set-load-balancer-listener-sslcertificate @@ -5282,8 +5299,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "SetLoadBalancerListenerSSLCertificate")) - common-lisp:nil "SetLoadBalancerListenerSSLCertificateResult" - *error-map*))) + common-lisp:nil "SetLoadBalancerListenerSSLCertificateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-load-balancer-listener-sslcertificate)) (common-lisp:progn (common-lisp:defun set-load-balancer-policies-for-backend-server @@ -5303,7 +5320,7 @@ 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "SetLoadBalancerPoliciesForBackendServer")) common-lisp:nil "SetLoadBalancerPoliciesForBackendServerResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'set-load-balancer-policies-for-backend-server)) (common-lisp:progn (common-lisp:defun set-load-balancer-policies-of-listener @@ -5322,5 +5339,6 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancing-request aws-sdk/generator/operation::input "POST" "/" "SetLoadBalancerPoliciesOfListener")) - common-lisp:nil "SetLoadBalancerPoliciesOfListenerResult" *error-map*))) + common-lisp:nil "SetLoadBalancerPoliciesOfListenerResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-load-balancer-policies-of-listener)) diff --git a/services/elasticloadbalancingv2/api.lisp b/services/elasticloadbalancingv2/api.lisp index 2ed9fc57..b9feb75d 100644 --- a/services/elasticloadbalancingv2/api.lisp +++ b/services/elasticloadbalancingv2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/elasticloadbalancingv2/api - (:use) - (:nicknames #:aws/elasticloadbalancingv2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/elasticloadbalancingv2/api + (:use) (:nicknames #:aws/elasticloadbalancingv2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/elasticloadbalancingv2/api) (common-lisp:progn (common-lisp:define-condition elasticloadbalancingv2-error @@ -9152,7 +9151,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "AddListenerCertificates")) - common-lisp:nil "AddListenerCertificatesResult" *error-map*))) + common-lisp:nil "AddListenerCertificatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'add-listener-certificates)) (common-lisp:progn (common-lisp:defun add-tags @@ -9168,7 +9168,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "AddTags")) - common-lisp:nil "AddTagsResult" *error-map*))) + common-lisp:nil "AddTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun add-trust-store-revocations @@ -9186,7 +9186,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "AddTrustStoreRevocations")) - common-lisp:nil "AddTrustStoreRevocationsResult" *error-map*))) + common-lisp:nil "AddTrustStoreRevocationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'add-trust-store-revocations)) (common-lisp:progn (common-lisp:defun create-listener @@ -9206,7 +9207,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "CreateListener")) - common-lisp:nil "CreateListenerResult" *error-map*))) + common-lisp:nil "CreateListenerResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-listener)) (common-lisp:progn (common-lisp:defun create-load-balancer @@ -9226,7 +9227,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "CreateLoadBalancer")) - common-lisp:nil "CreateLoadBalancerResult" *error-map*))) + common-lisp:nil "CreateLoadBalancerResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-load-balancer)) (common-lisp:progn (common-lisp:defun create-rule @@ -9244,7 +9245,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "CreateRule")) - common-lisp:nil "CreateRuleResult" *error-map*))) + common-lisp:nil "CreateRuleResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-rule)) (common-lisp:progn (common-lisp:defun create-target-group @@ -9270,7 +9271,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "CreateTargetGroup")) - common-lisp:nil "CreateTargetGroupResult" *error-map*))) + common-lisp:nil "CreateTargetGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-target-group)) (common-lisp:progn (common-lisp:defun create-trust-store @@ -9291,7 +9292,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "CreateTrustStore")) - common-lisp:nil "CreateTrustStoreResult" *error-map*))) + common-lisp:nil "CreateTrustStoreResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-trust-store)) (common-lisp:progn (common-lisp:defun delete-listener @@ -9307,7 +9308,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteListener")) - common-lisp:nil "DeleteListenerResult" *error-map*))) + common-lisp:nil "DeleteListenerResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-listener)) (common-lisp:progn (common-lisp:defun delete-load-balancer @@ -9323,7 +9324,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteLoadBalancer")) - common-lisp:nil "DeleteLoadBalancerResult" *error-map*))) + common-lisp:nil "DeleteLoadBalancerResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-load-balancer)) (common-lisp:progn (common-lisp:defun delete-rule @@ -9339,7 +9340,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteRule")) - common-lisp:nil "DeleteRuleResult" *error-map*))) + common-lisp:nil "DeleteRuleResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun delete-target-group @@ -9355,7 +9356,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteTargetGroup")) - common-lisp:nil "DeleteTargetGroupResult" *error-map*))) + common-lisp:nil "DeleteTargetGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-target-group)) (common-lisp:progn (common-lisp:defun delete-trust-store @@ -9371,7 +9372,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteTrustStore")) - common-lisp:nil "DeleteTrustStoreResult" *error-map*))) + common-lisp:nil "DeleteTrustStoreResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-trust-store)) (common-lisp:progn (common-lisp:defun deregister-targets @@ -9387,7 +9388,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DeregisterTargets")) - common-lisp:nil "DeregisterTargetsResult" *error-map*))) + common-lisp:nil "DeregisterTargetsResult" *error-map* common-lisp:nil))) (common-lisp:export 'deregister-targets)) (common-lisp:progn (common-lisp:defun describe-account-limits @@ -9403,7 +9404,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeAccountLimits")) - common-lisp:nil "DescribeAccountLimitsResult" *error-map*))) + common-lisp:nil "DescribeAccountLimitsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-account-limits)) (common-lisp:progn (common-lisp:defun describe-listener-certificates @@ -9420,7 +9422,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeListenerCertificates")) - common-lisp:nil "DescribeListenerCertificatesResult" *error-map*))) + common-lisp:nil "DescribeListenerCertificatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-listener-certificates)) (common-lisp:progn (common-lisp:defun describe-listeners @@ -9438,7 +9441,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeListeners")) - common-lisp:nil "DescribeListenersResult" *error-map*))) + common-lisp:nil "DescribeListenersResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-listeners)) (common-lisp:progn (common-lisp:defun describe-load-balancer-attributes @@ -9455,7 +9458,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBalancerAttributes")) - common-lisp:nil "DescribeLoadBalancerAttributesResult" *error-map*))) + common-lisp:nil "DescribeLoadBalancerAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-load-balancer-attributes)) (common-lisp:progn (common-lisp:defun describe-load-balancers @@ -9473,7 +9477,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBalancers")) - common-lisp:nil "DescribeLoadBalancersResult" *error-map*))) + common-lisp:nil "DescribeLoadBalancersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-load-balancers)) (common-lisp:progn (common-lisp:defun describe-rules @@ -9490,7 +9495,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeRules")) - common-lisp:nil "DescribeRulesResult" *error-map*))) + common-lisp:nil "DescribeRulesResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-rules)) (common-lisp:progn (common-lisp:defun describe-sslpolicies @@ -9508,7 +9513,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeSSLPolicies")) - common-lisp:nil "DescribeSSLPoliciesResult" *error-map*))) + common-lisp:nil "DescribeSSLPoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-sslpolicies)) (common-lisp:progn (common-lisp:defun describe-tags @@ -9524,7 +9530,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil "DescribeTagsResult" *error-map*))) + common-lisp:nil "DescribeTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun describe-target-group-attributes @@ -9541,7 +9547,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeTargetGroupAttributes")) - common-lisp:nil "DescribeTargetGroupAttributesResult" *error-map*))) + common-lisp:nil "DescribeTargetGroupAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-target-group-attributes)) (common-lisp:progn (common-lisp:defun describe-target-groups @@ -9560,7 +9567,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeTargetGroups")) - common-lisp:nil "DescribeTargetGroupsResult" *error-map*))) + common-lisp:nil "DescribeTargetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-target-groups)) (common-lisp:progn (common-lisp:defun describe-target-health @@ -9577,7 +9585,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeTargetHealth")) - common-lisp:nil "DescribeTargetHealthResult" *error-map*))) + common-lisp:nil "DescribeTargetHealthResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-target-health)) (common-lisp:progn (common-lisp:defun describe-trust-store-associations @@ -9595,7 +9604,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeTrustStoreAssociations")) - common-lisp:nil "DescribeTrustStoreAssociationsResult" *error-map*))) + common-lisp:nil "DescribeTrustStoreAssociationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-trust-store-associations)) (common-lisp:progn (common-lisp:defun describe-trust-store-revocations @@ -9614,7 +9624,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeTrustStoreRevocations")) - common-lisp:nil "DescribeTrustStoreRevocationsResult" *error-map*))) + common-lisp:nil "DescribeTrustStoreRevocationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-trust-store-revocations)) (common-lisp:progn (common-lisp:defun describe-trust-stores @@ -9631,7 +9642,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeTrustStores")) - common-lisp:nil "DescribeTrustStoresResult" *error-map*))) + common-lisp:nil "DescribeTrustStoresResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-trust-stores)) (common-lisp:progn (common-lisp:defun get-trust-store-ca-certificates-bundle @@ -9648,7 +9660,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "GetTrustStoreCaCertificatesBundle")) - common-lisp:nil "GetTrustStoreCaCertificatesBundleResult" *error-map*))) + common-lisp:nil "GetTrustStoreCaCertificatesBundleResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-trust-store-ca-certificates-bundle)) (common-lisp:progn (common-lisp:defun get-trust-store-revocation-content @@ -9665,7 +9678,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "GetTrustStoreRevocationContent")) - common-lisp:nil "GetTrustStoreRevocationContentResult" *error-map*))) + common-lisp:nil "GetTrustStoreRevocationContentResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-trust-store-revocation-content)) (common-lisp:progn (common-lisp:defun modify-listener @@ -9685,7 +9699,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "ModifyListener")) - common-lisp:nil "ModifyListenerResult" *error-map*))) + common-lisp:nil "ModifyListenerResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-listener)) (common-lisp:progn (common-lisp:defun modify-load-balancer-attributes @@ -9702,7 +9716,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "ModifyLoadBalancerAttributes")) - common-lisp:nil "ModifyLoadBalancerAttributesResult" *error-map*))) + common-lisp:nil "ModifyLoadBalancerAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-load-balancer-attributes)) (common-lisp:progn (common-lisp:defun modify-rule @@ -9718,7 +9733,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "ModifyRule")) - common-lisp:nil "ModifyRuleResult" *error-map*))) + common-lisp:nil "ModifyRuleResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-rule)) (common-lisp:progn (common-lisp:defun modify-target-group @@ -9741,7 +9756,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "ModifyTargetGroup")) - common-lisp:nil "ModifyTargetGroupResult" *error-map*))) + common-lisp:nil "ModifyTargetGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-target-group)) (common-lisp:progn (common-lisp:defun modify-target-group-attributes @@ -9758,7 +9773,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "ModifyTargetGroupAttributes")) - common-lisp:nil "ModifyTargetGroupAttributesResult" *error-map*))) + common-lisp:nil "ModifyTargetGroupAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-target-group-attributes)) (common-lisp:progn (common-lisp:defun modify-trust-store @@ -9779,7 +9795,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "ModifyTrustStore")) - common-lisp:nil "ModifyTrustStoreResult" *error-map*))) + common-lisp:nil "ModifyTrustStoreResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-trust-store)) (common-lisp:progn (common-lisp:defun register-targets @@ -9795,7 +9811,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "RegisterTargets")) - common-lisp:nil "RegisterTargetsResult" *error-map*))) + common-lisp:nil "RegisterTargetsResult" *error-map* common-lisp:nil))) (common-lisp:export 'register-targets)) (common-lisp:progn (common-lisp:defun remove-listener-certificates @@ -9812,7 +9828,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "RemoveListenerCertificates")) - common-lisp:nil "RemoveListenerCertificatesResult" *error-map*))) + common-lisp:nil "RemoveListenerCertificatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'remove-listener-certificates)) (common-lisp:progn (common-lisp:defun remove-tags @@ -9828,7 +9845,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "RemoveTags")) - common-lisp:nil "RemoveTagsResult" *error-map*))) + common-lisp:nil "RemoveTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'remove-tags)) (common-lisp:progn (common-lisp:defun remove-trust-store-revocations @@ -9845,7 +9862,8 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "RemoveTrustStoreRevocations")) - common-lisp:nil "RemoveTrustStoreRevocationsResult" *error-map*))) + common-lisp:nil "RemoveTrustStoreRevocationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'remove-trust-store-revocations)) (common-lisp:progn (common-lisp:defun set-ip-address-type @@ -9862,7 +9880,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "SetIpAddressType")) - common-lisp:nil "SetIpAddressTypeResult" *error-map*))) + common-lisp:nil "SetIpAddressTypeResult" *error-map* common-lisp:nil))) (common-lisp:export 'set-ip-address-type)) (common-lisp:progn (common-lisp:defun set-rule-priorities @@ -9878,7 +9896,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "SetRulePriorities")) - common-lisp:nil "SetRulePrioritiesResult" *error-map*))) + common-lisp:nil "SetRulePrioritiesResult" *error-map* common-lisp:nil))) (common-lisp:export 'set-rule-priorities)) (common-lisp:progn (common-lisp:defun set-security-groups @@ -9897,7 +9915,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "SetSecurityGroups")) - common-lisp:nil "SetSecurityGroupsResult" *error-map*))) + common-lisp:nil "SetSecurityGroupsResult" *error-map* common-lisp:nil))) (common-lisp:export 'set-security-groups)) (common-lisp:progn (common-lisp:defun set-subnets @@ -9916,5 +9934,5 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticloadbalancingv2-request aws-sdk/generator/operation::input "POST" "/" "SetSubnets")) - common-lisp:nil "SetSubnetsResult" *error-map*))) + common-lisp:nil "SetSubnetsResult" *error-map* common-lisp:nil))) (common-lisp:export 'set-subnets)) diff --git a/services/elasticmapreduce/api.lisp b/services/elasticmapreduce/api.lisp index 8c58c680..7869a4f8 100644 --- a/services/elasticmapreduce/api.lisp +++ b/services/elasticmapreduce/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/elasticmapreduce/api - (:use) - (:nicknames #:aws/elasticmapreduce) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/elasticmapreduce/api (:use) + (:nicknames #:aws/elasticmapreduce) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/elasticmapreduce/api) (common-lisp:progn (common-lisp:define-condition elasticmapreduce-error @@ -15502,7 +15501,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "AddInstanceFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-instance-fleet)) (common-lisp:progn (common-lisp:defun add-instance-groups @@ -15518,7 +15517,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "AddInstanceGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-instance-groups)) (common-lisp:progn (common-lisp:defun add-job-flow-steps @@ -15535,7 +15534,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "AddJobFlowSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-job-flow-steps)) (common-lisp:progn (common-lisp:defun add-tags @@ -15551,7 +15550,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "AddTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun cancel-steps @@ -15569,7 +15568,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "CancelSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-steps)) (common-lisp:progn (common-lisp:defun create-security-configuration @@ -15586,7 +15585,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "CreateSecurityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-security-configuration)) (common-lisp:progn (common-lisp:defun create-studio @@ -15613,7 +15612,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "CreateStudio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-studio)) (common-lisp:progn (common-lisp:defun create-studio-session-mapping @@ -15633,7 +15632,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "CreateStudioSessionMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-studio-session-mapping)) (common-lisp:progn (common-lisp:defun delete-security-configuration @@ -15650,7 +15649,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DeleteSecurityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-security-configuration)) (common-lisp:progn (common-lisp:defun delete-studio @@ -15666,7 +15665,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DeleteStudio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-studio)) (common-lisp:progn (common-lisp:defun delete-studio-session-mapping @@ -15685,7 +15684,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DeleteStudioSessionMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-studio-session-mapping)) (common-lisp:progn (common-lisp:defun describe-cluster @@ -15701,7 +15700,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DescribeCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster)) (common-lisp:progn (common-lisp:defun describe-job-flows @@ -15720,7 +15719,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DescribeJobFlows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-flows)) (common-lisp:progn (common-lisp:defun describe-notebook-execution @@ -15737,7 +15736,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DescribeNotebookExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-notebook-execution)) (common-lisp:progn (common-lisp:defun describe-release-label @@ -15754,7 +15753,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DescribeReleaseLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-release-label)) (common-lisp:progn (common-lisp:defun describe-security-configuration @@ -15771,7 +15770,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DescribeSecurityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-security-configuration)) (common-lisp:progn (common-lisp:defun describe-step @@ -15787,7 +15786,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DescribeStep")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-step)) (common-lisp:progn (common-lisp:defun describe-studio @@ -15803,7 +15802,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "DescribeStudio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-studio)) (common-lisp:progn (common-lisp:defun get-auto-termination-policy @@ -15820,7 +15819,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "GetAutoTerminationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-auto-termination-policy)) (common-lisp:progn (common-lisp:defun get-block-public-access-configuration () @@ -15846,7 +15845,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "GetClusterSessionCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cluster-session-credentials)) (common-lisp:progn (common-lisp:defun get-managed-scaling-policy @@ -15862,7 +15861,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "GetManagedScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-managed-scaling-policy)) (common-lisp:progn (common-lisp:defun get-studio-session-mapping @@ -15880,7 +15879,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "GetStudioSessionMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-studio-session-mapping)) (common-lisp:progn (common-lisp:defun list-bootstrap-actions @@ -15896,7 +15895,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListBootstrapActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bootstrap-actions)) (common-lisp:progn (common-lisp:defun list-clusters @@ -15914,7 +15913,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters)) (common-lisp:progn (common-lisp:defun list-instance-fleets @@ -15930,7 +15929,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListInstanceFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instance-fleets)) (common-lisp:progn (common-lisp:defun list-instance-groups @@ -15946,7 +15945,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListInstanceGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instance-groups)) (common-lisp:progn (common-lisp:defun list-instances @@ -15966,7 +15965,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instances)) (common-lisp:progn (common-lisp:defun list-notebook-executions @@ -15985,7 +15984,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListNotebookExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notebook-executions)) (common-lisp:progn (common-lisp:defun list-release-labels @@ -16001,7 +16000,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListReleaseLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-release-labels)) (common-lisp:progn (common-lisp:defun list-security-configurations @@ -16018,7 +16017,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListSecurityConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-configurations)) (common-lisp:progn (common-lisp:defun list-steps @@ -16035,7 +16034,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-steps)) (common-lisp:progn (common-lisp:defun list-studio-session-mappings @@ -16052,7 +16051,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListStudioSessionMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-studio-session-mappings)) (common-lisp:progn (common-lisp:defun list-studios @@ -16068,7 +16067,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListStudios")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-studios)) (common-lisp:progn (common-lisp:defun list-supported-instance-types @@ -16085,7 +16084,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ListSupportedInstanceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-supported-instance-types)) (common-lisp:progn (common-lisp:defun modify-cluster @@ -16102,7 +16101,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ModifyCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-cluster)) (common-lisp:progn (common-lisp:defun modify-instance-fleet @@ -16118,7 +16117,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-instance-fleet)) (common-lisp:progn (common-lisp:defun modify-instance-groups @@ -16134,7 +16133,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "ModifyInstanceGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-instance-groups)) (common-lisp:progn (common-lisp:defun put-auto-scaling-policy @@ -16152,7 +16151,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "PutAutoScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-auto-scaling-policy)) (common-lisp:progn (common-lisp:defun put-auto-termination-policy @@ -16170,7 +16169,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "PutAutoTerminationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-auto-termination-policy)) (common-lisp:progn (common-lisp:defun put-block-public-access-configuration @@ -16188,7 +16187,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "PutBlockPublicAccessConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-block-public-access-configuration)) (common-lisp:progn (common-lisp:defun put-managed-scaling-policy @@ -16205,7 +16204,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "PutManagedScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-managed-scaling-policy)) (common-lisp:progn (common-lisp:defun remove-auto-scaling-policy @@ -16221,7 +16220,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "RemoveAutoScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-auto-scaling-policy)) (common-lisp:progn (common-lisp:defun remove-auto-termination-policy @@ -16238,7 +16237,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "RemoveAutoTerminationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-auto-termination-policy)) (common-lisp:progn (common-lisp:defun remove-managed-scaling-policy @@ -16255,7 +16254,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "RemoveManagedScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-managed-scaling-policy)) (common-lisp:progn (common-lisp:defun remove-tags @@ -16271,7 +16270,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "RemoveTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags)) (common-lisp:progn (common-lisp:defun run-job-flow @@ -16307,7 +16306,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "RunJobFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'run-job-flow)) (common-lisp:progn (common-lisp:defun set-keep-job-flow-alive-when-no-steps @@ -16326,7 +16325,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "SetKeepJobFlowAliveWhenNoSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-keep-job-flow-alive-when-no-steps)) (common-lisp:progn (common-lisp:defun set-termination-protection @@ -16343,7 +16342,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "SetTerminationProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-termination-protection)) (common-lisp:progn (common-lisp:defun set-unhealthy-node-replacement @@ -16361,7 +16360,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "SetUnhealthyNodeReplacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-unhealthy-node-replacement)) (common-lisp:progn (common-lisp:defun set-visible-to-all-users @@ -16378,7 +16377,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "SetVisibleToAllUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-visible-to-all-users)) (common-lisp:progn (common-lisp:defun start-notebook-execution @@ -16402,7 +16401,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "StartNotebookExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-notebook-execution)) (common-lisp:progn (common-lisp:defun stop-notebook-execution @@ -16418,7 +16417,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "StopNotebookExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-notebook-execution)) (common-lisp:progn (common-lisp:defun terminate-job-flows @@ -16434,7 +16433,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "TerminateJobFlows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-job-flows)) (common-lisp:progn (common-lisp:defun update-studio @@ -16453,7 +16452,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "UpdateStudio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-studio)) (common-lisp:progn (common-lisp:defun update-studio-session-mapping @@ -16473,5 +16472,5 @@ (aws-sdk/generator/shape:make-request-with-input 'elasticmapreduce-request aws-sdk/generator/operation::input "POST" "/" "UpdateStudioSessionMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-studio-session-mapping)) diff --git a/services/elastictranscoder/api.lisp b/services/elastictranscoder/api.lisp index b2b946cc..d0c8fad5 100644 --- a/services/elastictranscoder/api.lisp +++ b/services/elastictranscoder/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/elastictranscoder/api - (:use) - (:nicknames #:aws/elastictranscoder) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/elastictranscoder/api (:use) + (:nicknames #:aws/elastictranscoder) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/elastictranscoder/api) (common-lisp:progn (common-lisp:define-condition elastictranscoder-error @@ -20,7 +19,7 @@ (common-lisp:export 'elastictranscoder-error)) (common-lisp:progn (common-lisp:defclass elastictranscoder-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "elastictranscoder" :api-version "2012-09-25" :host-prefix @@ -4972,11 +4971,12 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "CancelJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job)) (common-lisp:progn (common-lisp:defun create-job @@ -4995,7 +4995,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elastictranscoder-request aws-sdk/generator/operation::input "POST" "/2012-09-25/jobs" "CreateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun create-pipeline @@ -5015,7 +5015,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elastictranscoder-request aws-sdk/generator/operation::input "POST" "/2012-09-25/pipelines" "CreatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pipeline)) (common-lisp:progn (common-lisp:defun create-preset @@ -5033,7 +5033,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elastictranscoder-request aws-sdk/generator/operation::input "POST" "/2012-09-25/presets" "CreatePreset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-preset)) (common-lisp:progn (common-lisp:defun delete-pipeline @@ -5050,11 +5050,12 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeletePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pipeline)) (common-lisp:progn (common-lisp:defun delete-preset @@ -5071,11 +5072,12 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/presets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeletePreset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-preset)) (common-lisp:progn (common-lisp:defun list-jobs-by-pipeline @@ -5093,12 +5095,13 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/jobsByPipeline/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-id)))) + 'pipeline-id) + common-lisp:t))) "ListJobsByPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs-by-pipeline)) (common-lisp:progn (common-lisp:defun list-jobs-by-status @@ -5115,11 +5118,12 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/jobsByStatus/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'status)))) + aws-sdk/generator/operation::input 'status) + common-lisp:t))) "ListJobsByStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs-by-status)) (common-lisp:progn (common-lisp:defun list-pipelines @@ -5135,7 +5139,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elastictranscoder-request aws-sdk/generator/operation::input "GET" "/2012-09-25/pipelines" "ListPipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipelines)) (common-lisp:progn (common-lisp:defun list-presets @@ -5151,7 +5155,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elastictranscoder-request aws-sdk/generator/operation::input "GET" "/2012-09-25/presets" "ListPresets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-presets)) (common-lisp:progn (common-lisp:defun read-job @@ -5168,11 +5172,12 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "ReadJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'read-job)) (common-lisp:progn (common-lisp:defun read-pipeline @@ -5189,11 +5194,12 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "ReadPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'read-pipeline)) (common-lisp:progn (common-lisp:defun read-preset @@ -5210,11 +5216,12 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/presets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "ReadPreset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'read-preset)) (common-lisp:progn (common-lisp:defun test-role @@ -5231,7 +5238,7 @@ (aws-sdk/generator/shape:make-request-with-input 'elastictranscoder-request aws-sdk/generator/operation::input "POST" "/2012-09-25/roleTests" "TestRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-role)) (common-lisp:progn (common-lisp:defun update-pipeline @@ -5251,11 +5258,12 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipeline)) (common-lisp:progn (common-lisp:defun update-pipeline-notifications @@ -5274,11 +5282,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/pipelines/~A/notifications" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdatePipelineNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipeline-notifications)) (common-lisp:progn (common-lisp:defun update-pipeline-status @@ -5295,9 +5304,10 @@ 'elastictranscoder-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/2012-09-25/pipelines/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdatePipelineStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipeline-status)) diff --git a/services/email/api.lisp b/services/email/api.lisp index f673b3a3..8f459d62 100644 --- a/services/email/api.lisp +++ b/services/email/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/email/api - (:use) - (:nicknames #:aws/email) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/email/api (:use) + (:nicknames #:aws/email) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/email/api) (common-lisp:progn (common-lisp:define-condition email-error @@ -9449,7 +9448,8 @@ aws-sdk/generator/operation::input "POST" "/" "CloneReceiptRuleSet")) - common-lisp:nil "CloneReceiptRuleSetResult" *error-map*))) + common-lisp:nil "CloneReceiptRuleSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'clone-receipt-rule-set)) (common-lisp:progn (common-lisp:defun create-configuration-set @@ -9466,7 +9466,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConfigurationSet")) - common-lisp:nil "CreateConfigurationSetResult" *error-map*))) + common-lisp:nil "CreateConfigurationSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-configuration-set)) (common-lisp:progn (common-lisp:defun create-configuration-set-event-destination @@ -9486,7 +9487,7 @@ "POST" "/" "CreateConfigurationSetEventDestination")) common-lisp:nil "CreateConfigurationSetEventDestinationResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'create-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun create-configuration-set-tracking-options @@ -9505,8 +9506,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConfigurationSetTrackingOptions")) - common-lisp:nil "CreateConfigurationSetTrackingOptionsResult" - *error-map*))) + common-lisp:nil "CreateConfigurationSetTrackingOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-configuration-set-tracking-options)) (common-lisp:progn (common-lisp:defun create-custom-verification-email-template @@ -9528,7 +9529,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCustomVerificationEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-custom-verification-email-template)) (common-lisp:progn (common-lisp:defun create-receipt-filter @@ -9545,7 +9546,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReceiptFilter")) - common-lisp:nil "CreateReceiptFilterResult" *error-map*))) + common-lisp:nil "CreateReceiptFilterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-receipt-filter)) (common-lisp:progn (common-lisp:defun create-receipt-rule @@ -9562,7 +9564,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReceiptRule")) - common-lisp:nil "CreateReceiptRuleResult" *error-map*))) + common-lisp:nil "CreateReceiptRuleResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-receipt-rule)) (common-lisp:progn (common-lisp:defun create-receipt-rule-set @@ -9579,7 +9581,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReceiptRuleSet")) - common-lisp:nil "CreateReceiptRuleSetResult" *error-map*))) + common-lisp:nil "CreateReceiptRuleSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-receipt-rule-set)) (common-lisp:progn (common-lisp:defun create-template @@ -9596,7 +9599,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTemplate")) - common-lisp:nil "CreateTemplateResult" *error-map*))) + common-lisp:nil "CreateTemplateResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-template)) (common-lisp:progn (common-lisp:defun delete-configuration-set @@ -9613,7 +9616,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConfigurationSet")) - common-lisp:nil "DeleteConfigurationSetResult" *error-map*))) + common-lisp:nil "DeleteConfigurationSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-configuration-set)) (common-lisp:progn (common-lisp:defun delete-configuration-set-event-destination @@ -9634,7 +9638,7 @@ "POST" "/" "DeleteConfigurationSetEventDestination")) common-lisp:nil "DeleteConfigurationSetEventDestinationResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'delete-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun delete-configuration-set-tracking-options @@ -9652,8 +9656,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConfigurationSetTrackingOptions")) - common-lisp:nil "DeleteConfigurationSetTrackingOptionsResult" - *error-map*))) + common-lisp:nil "DeleteConfigurationSetTrackingOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-configuration-set-tracking-options)) (common-lisp:progn (common-lisp:defun delete-custom-verification-email-template @@ -9671,7 +9675,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCustomVerificationEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-custom-verification-email-template)) (common-lisp:progn (common-lisp:defun delete-identity @@ -9688,7 +9692,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIdentity")) - common-lisp:nil "DeleteIdentityResult" *error-map*))) + common-lisp:nil "DeleteIdentityResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-identity)) (common-lisp:progn (common-lisp:defun delete-identity-policy @@ -9705,7 +9709,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIdentityPolicy")) - common-lisp:nil "DeleteIdentityPolicyResult" *error-map*))) + common-lisp:nil "DeleteIdentityPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-identity-policy)) (common-lisp:progn (common-lisp:defun delete-receipt-filter @@ -9722,7 +9727,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReceiptFilter")) - common-lisp:nil "DeleteReceiptFilterResult" *error-map*))) + common-lisp:nil "DeleteReceiptFilterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-receipt-filter)) (common-lisp:progn (common-lisp:defun delete-receipt-rule @@ -9739,7 +9745,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReceiptRule")) - common-lisp:nil "DeleteReceiptRuleResult" *error-map*))) + common-lisp:nil "DeleteReceiptRuleResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-receipt-rule)) (common-lisp:progn (common-lisp:defun delete-receipt-rule-set @@ -9756,7 +9762,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReceiptRuleSet")) - common-lisp:nil "DeleteReceiptRuleSetResult" *error-map*))) + common-lisp:nil "DeleteReceiptRuleSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-receipt-rule-set)) (common-lisp:progn (common-lisp:defun delete-template @@ -9773,7 +9780,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTemplate")) - common-lisp:nil "DeleteTemplateResult" *error-map*))) + common-lisp:nil "DeleteTemplateResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-template)) (common-lisp:progn (common-lisp:defun delete-verified-email-address @@ -9791,7 +9798,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVerifiedEmailAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-verified-email-address)) (common-lisp:progn (common-lisp:defun describe-active-receipt-rule-set () @@ -9820,7 +9827,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurationSet")) - common-lisp:nil "DescribeConfigurationSetResult" *error-map*))) + common-lisp:nil "DescribeConfigurationSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-configuration-set)) (common-lisp:progn (common-lisp:defun describe-receipt-rule @@ -9837,7 +9845,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReceiptRule")) - common-lisp:nil "DescribeReceiptRuleResult" *error-map*))) + common-lisp:nil "DescribeReceiptRuleResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-receipt-rule)) (common-lisp:progn (common-lisp:defun describe-receipt-rule-set @@ -9855,7 +9864,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReceiptRuleSet")) - common-lisp:nil "DescribeReceiptRuleSetResult" *error-map*))) + common-lisp:nil "DescribeReceiptRuleSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-receipt-rule-set)) (common-lisp:progn (common-lisp:defun get-account-sending-enabled () @@ -9881,7 +9891,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetCustomVerificationEmailTemplate")) - common-lisp:nil "GetCustomVerificationEmailTemplateResult" *error-map*))) + common-lisp:nil "GetCustomVerificationEmailTemplateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-custom-verification-email-template)) (common-lisp:progn (common-lisp:defun get-identity-dkim-attributes @@ -9899,7 +9910,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetIdentityDkimAttributes")) - common-lisp:nil "GetIdentityDkimAttributesResult" *error-map*))) + common-lisp:nil "GetIdentityDkimAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-identity-dkim-attributes)) (common-lisp:progn (common-lisp:defun get-identity-mail-from-domain-attributes @@ -9917,8 +9929,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetIdentityMailFromDomainAttributes")) - common-lisp:nil "GetIdentityMailFromDomainAttributesResult" - *error-map*))) + common-lisp:nil "GetIdentityMailFromDomainAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-identity-mail-from-domain-attributes)) (common-lisp:progn (common-lisp:defun get-identity-notification-attributes @@ -9936,7 +9948,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetIdentityNotificationAttributes")) - common-lisp:nil "GetIdentityNotificationAttributesResult" *error-map*))) + common-lisp:nil "GetIdentityNotificationAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-identity-notification-attributes)) (common-lisp:progn (common-lisp:defun get-identity-policies @@ -9953,7 +9966,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetIdentityPolicies")) - common-lisp:nil "GetIdentityPoliciesResult" *error-map*))) + common-lisp:nil "GetIdentityPoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-identity-policies)) (common-lisp:progn (common-lisp:defun get-identity-verification-attributes @@ -9971,7 +9985,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetIdentityVerificationAttributes")) - common-lisp:nil "GetIdentityVerificationAttributesResult" *error-map*))) + common-lisp:nil "GetIdentityVerificationAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-identity-verification-attributes)) (common-lisp:progn (common-lisp:defun get-send-quota () @@ -10004,7 +10019,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTemplate")) - common-lisp:nil "GetTemplateResult" *error-map*))) + common-lisp:nil "GetTemplateResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-template)) (common-lisp:progn (common-lisp:defun list-configuration-sets @@ -10021,7 +10036,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListConfigurationSets")) - common-lisp:nil "ListConfigurationSetsResult" *error-map*))) + common-lisp:nil "ListConfigurationSetsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-configuration-sets)) (common-lisp:progn (common-lisp:defun list-custom-verification-email-templates @@ -10039,8 +10055,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListCustomVerificationEmailTemplates")) - common-lisp:nil "ListCustomVerificationEmailTemplatesResult" - *error-map*))) + common-lisp:nil "ListCustomVerificationEmailTemplatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-custom-verification-email-templates)) (common-lisp:progn (common-lisp:defun list-identities @@ -10058,7 +10074,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListIdentities")) - common-lisp:nil "ListIdentitiesResult" *error-map*))) + common-lisp:nil "ListIdentitiesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-identities)) (common-lisp:progn (common-lisp:defun list-identity-policies @@ -10075,7 +10091,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListIdentityPolicies")) - common-lisp:nil "ListIdentityPoliciesResult" *error-map*))) + common-lisp:nil "ListIdentityPoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-identity-policies)) (common-lisp:progn (common-lisp:defun list-receipt-filters () @@ -10100,7 +10117,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListReceiptRuleSets")) - common-lisp:nil "ListReceiptRuleSetsResult" *error-map*))) + common-lisp:nil "ListReceiptRuleSetsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-receipt-rule-sets)) (common-lisp:progn (common-lisp:defun list-templates @@ -10117,7 +10135,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTemplates")) - common-lisp:nil "ListTemplatesResult" *error-map*))) + common-lisp:nil "ListTemplatesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-templates)) (common-lisp:progn (common-lisp:defun list-verified-email-addresses () @@ -10144,7 +10162,8 @@ aws-sdk/generator/operation::input "POST" "/" "PutConfigurationSetDeliveryOptions")) - common-lisp:nil "PutConfigurationSetDeliveryOptionsResult" *error-map*))) + common-lisp:nil "PutConfigurationSetDeliveryOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'put-configuration-set-delivery-options)) (common-lisp:progn (common-lisp:defun put-identity-policy @@ -10161,7 +10180,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutIdentityPolicy")) - common-lisp:nil "PutIdentityPolicyResult" *error-map*))) + common-lisp:nil "PutIdentityPolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-identity-policy)) (common-lisp:progn (common-lisp:defun reorder-receipt-rule-set @@ -10178,7 +10197,8 @@ aws-sdk/generator/operation::input "POST" "/" "ReorderReceiptRuleSet")) - common-lisp:nil "ReorderReceiptRuleSetResult" *error-map*))) + common-lisp:nil "ReorderReceiptRuleSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reorder-receipt-rule-set)) (common-lisp:progn (common-lisp:defun send-bounce @@ -10199,7 +10219,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendBounce")) - common-lisp:nil "SendBounceResult" *error-map*))) + common-lisp:nil "SendBounceResult" *error-map* common-lisp:nil))) (common-lisp:export 'send-bounce)) (common-lisp:progn (common-lisp:defun send-bulk-templated-email @@ -10223,7 +10243,8 @@ aws-sdk/generator/operation::input "POST" "/" "SendBulkTemplatedEmail")) - common-lisp:nil "SendBulkTemplatedEmailResult" *error-map*))) + common-lisp:nil "SendBulkTemplatedEmailResult" *error-map* + common-lisp:nil))) (common-lisp:export 'send-bulk-templated-email)) (common-lisp:progn (common-lisp:defun send-custom-verification-email @@ -10243,7 +10264,8 @@ aws-sdk/generator/operation::input "POST" "/" "SendCustomVerificationEmail")) - common-lisp:nil "SendCustomVerificationEmailResult" *error-map*))) + common-lisp:nil "SendCustomVerificationEmailResult" *error-map* + common-lisp:nil))) (common-lisp:export 'send-custom-verification-email)) (common-lisp:progn (common-lisp:defun send-email @@ -10264,7 +10286,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendEmail")) - common-lisp:nil "SendEmailResult" *error-map*))) + common-lisp:nil "SendEmailResult" *error-map* common-lisp:nil))) (common-lisp:export 'send-email)) (common-lisp:progn (common-lisp:defun send-raw-email @@ -10284,7 +10306,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendRawEmail")) - common-lisp:nil "SendRawEmailResult" *error-map*))) + common-lisp:nil "SendRawEmailResult" *error-map* common-lisp:nil))) (common-lisp:export 'send-raw-email)) (common-lisp:progn (common-lisp:defun send-templated-email @@ -10307,7 +10329,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendTemplatedEmail")) - common-lisp:nil "SendTemplatedEmailResult" *error-map*))) + common-lisp:nil "SendTemplatedEmailResult" *error-map* common-lisp:nil))) (common-lisp:export 'send-templated-email)) (common-lisp:progn (common-lisp:defun set-active-receipt-rule-set @@ -10325,7 +10347,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetActiveReceiptRuleSet")) - common-lisp:nil "SetActiveReceiptRuleSetResult" *error-map*))) + common-lisp:nil "SetActiveReceiptRuleSetResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-active-receipt-rule-set)) (common-lisp:progn (common-lisp:defun set-identity-dkim-enabled @@ -10343,7 +10366,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetIdentityDkimEnabled")) - common-lisp:nil "SetIdentityDkimEnabledResult" *error-map*))) + common-lisp:nil "SetIdentityDkimEnabledResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-identity-dkim-enabled)) (common-lisp:progn (common-lisp:defun set-identity-feedback-forwarding-enabled @@ -10361,8 +10385,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetIdentityFeedbackForwardingEnabled")) - common-lisp:nil "SetIdentityFeedbackForwardingEnabledResult" - *error-map*))) + common-lisp:nil "SetIdentityFeedbackForwardingEnabledResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-identity-feedback-forwarding-enabled)) (common-lisp:progn (common-lisp:defun set-identity-headers-in-notifications-enabled @@ -10382,7 +10406,7 @@ "POST" "/" "SetIdentityHeadersInNotificationsEnabled")) common-lisp:nil "SetIdentityHeadersInNotificationsEnabledResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'set-identity-headers-in-notifications-enabled)) (common-lisp:progn (common-lisp:defun set-identity-mail-from-domain @@ -10402,7 +10426,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetIdentityMailFromDomain")) - common-lisp:nil "SetIdentityMailFromDomainResult" *error-map*))) + common-lisp:nil "SetIdentityMailFromDomainResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-identity-mail-from-domain)) (common-lisp:progn (common-lisp:defun set-identity-notification-topic @@ -10421,7 +10446,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetIdentityNotificationTopic")) - common-lisp:nil "SetIdentityNotificationTopicResult" *error-map*))) + common-lisp:nil "SetIdentityNotificationTopicResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-identity-notification-topic)) (common-lisp:progn (common-lisp:defun set-receipt-rule-position @@ -10439,7 +10465,8 @@ aws-sdk/generator/operation::input "POST" "/" "SetReceiptRulePosition")) - common-lisp:nil "SetReceiptRulePositionResult" *error-map*))) + common-lisp:nil "SetReceiptRulePositionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'set-receipt-rule-position)) (common-lisp:progn (common-lisp:defun test-render-template @@ -10456,7 +10483,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestRenderTemplate")) - common-lisp:nil "TestRenderTemplateResult" *error-map*))) + common-lisp:nil "TestRenderTemplateResult" *error-map* common-lisp:nil))) (common-lisp:export 'test-render-template)) (common-lisp:progn (common-lisp:defun update-account-sending-enabled @@ -10474,7 +10501,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAccountSendingEnabled")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-account-sending-enabled)) (common-lisp:progn (common-lisp:defun update-configuration-set-event-destination @@ -10494,7 +10521,7 @@ "POST" "/" "UpdateConfigurationSetEventDestination")) common-lisp:nil "UpdateConfigurationSetEventDestinationResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'update-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun update-configuration-set-reputation-metrics-enabled @@ -10512,7 +10539,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConfigurationSetReputationMetricsEnabled")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-configuration-set-reputation-metrics-enabled)) (common-lisp:progn (common-lisp:defun update-configuration-set-sending-enabled @@ -10530,7 +10557,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConfigurationSetSendingEnabled")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-configuration-set-sending-enabled)) (common-lisp:progn (common-lisp:defun update-configuration-set-tracking-options @@ -10549,8 +10576,8 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConfigurationSetTrackingOptions")) - common-lisp:nil "UpdateConfigurationSetTrackingOptionsResult" - *error-map*))) + common-lisp:nil "UpdateConfigurationSetTrackingOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-configuration-set-tracking-options)) (common-lisp:progn (common-lisp:defun update-custom-verification-email-template @@ -10572,7 +10599,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCustomVerificationEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-custom-verification-email-template)) (common-lisp:progn (common-lisp:defun update-receipt-rule @@ -10589,7 +10616,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateReceiptRule")) - common-lisp:nil "UpdateReceiptRuleResult" *error-map*))) + common-lisp:nil "UpdateReceiptRuleResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-receipt-rule)) (common-lisp:progn (common-lisp:defun update-template @@ -10606,7 +10633,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTemplate")) - common-lisp:nil "UpdateTemplateResult" *error-map*))) + common-lisp:nil "UpdateTemplateResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-template)) (common-lisp:progn (common-lisp:defun verify-domain-dkim @@ -10623,7 +10650,7 @@ aws-sdk/generator/operation::input "POST" "/" "VerifyDomainDkim")) - common-lisp:nil "VerifyDomainDkimResult" *error-map*))) + common-lisp:nil "VerifyDomainDkimResult" *error-map* common-lisp:nil))) (common-lisp:export 'verify-domain-dkim)) (common-lisp:progn (common-lisp:defun verify-domain-identity @@ -10640,7 +10667,8 @@ aws-sdk/generator/operation::input "POST" "/" "VerifyDomainIdentity")) - common-lisp:nil "VerifyDomainIdentityResult" *error-map*))) + common-lisp:nil "VerifyDomainIdentityResult" *error-map* + common-lisp:nil))) (common-lisp:export 'verify-domain-identity)) (common-lisp:progn (common-lisp:defun verify-email-address @@ -10657,7 +10685,7 @@ aws-sdk/generator/operation::input "POST" "/" "VerifyEmailAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'verify-email-address)) (common-lisp:progn (common-lisp:defun verify-email-identity @@ -10674,5 +10702,6 @@ aws-sdk/generator/operation::input "POST" "/" "VerifyEmailIdentity")) - common-lisp:nil "VerifyEmailIdentityResult" *error-map*))) + common-lisp:nil "VerifyEmailIdentityResult" *error-map* + common-lisp:nil))) (common-lisp:export 'verify-email-identity)) diff --git a/services/emr-containers/api.lisp b/services/emr-containers/api.lisp index 62000ed0..90539416 100644 --- a/services/emr-containers/api.lisp +++ b/services/emr-containers/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/emr-containers/api - (:use) - (:nicknames #:aws/emr-containers) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/emr-containers/api (:use) + (:nicknames #:aws/emr-containers) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/emr-containers/api) (common-lisp:progn (common-lisp:define-condition emr-containers-error @@ -20,7 +19,7 @@ (common-lisp:export 'emr-containers-error)) (common-lisp:progn (common-lisp:defclass emr-containers-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "emr-containers" :api-version "2020-10-01" :host-prefix "emr-containers" @@ -4441,16 +4440,18 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/jobruns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)) - (quri.encode:url-encode + 'virtual-cluster-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-run-id)))) + 'job-run-id) + common-lisp:t))) "CancelJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job-run)) (common-lisp:progn (common-lisp:defun create-job-template @@ -4470,7 +4471,7 @@ aws-sdk/generator/operation::input "POST" "/jobtemplates" "CreateJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job-template)) (common-lisp:progn (common-lisp:defun create-managed-endpoint @@ -4497,12 +4498,13 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/endpoints" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)))) + 'virtual-cluster-id) + common-lisp:t))) "CreateManagedEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-managed-endpoint)) (common-lisp:progn (common-lisp:defun create-virtual-cluster @@ -4522,7 +4524,7 @@ "POST" "/virtualclusters" "CreateVirtualCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-virtual-cluster)) (common-lisp:progn (common-lisp:defun delete-job-template @@ -4544,12 +4546,13 @@ (common-lisp:format common-lisp:nil "/jobtemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "DeleteJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job-template)) (common-lisp:progn (common-lisp:defun delete-managed-endpoint @@ -4571,16 +4574,18 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)) - (quri.encode:url-encode + 'virtual-cluster-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "DeleteManagedEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-managed-endpoint)) (common-lisp:progn (common-lisp:defun delete-virtual-cluster @@ -4602,12 +4607,13 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)))) + 'virtual-cluster-id) + common-lisp:t))) "DeleteVirtualCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-virtual-cluster)) (common-lisp:progn (common-lisp:defun describe-job-run @@ -4629,16 +4635,18 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/jobruns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)) - (quri.encode:url-encode + 'virtual-cluster-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-run-id)))) + 'job-run-id) + common-lisp:t))) "DescribeJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-run)) (common-lisp:progn (common-lisp:defun describe-job-template @@ -4660,12 +4668,13 @@ (common-lisp:format common-lisp:nil "/jobtemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "DescribeJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-template)) (common-lisp:progn (common-lisp:defun describe-managed-endpoint @@ -4688,16 +4697,18 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)) - (quri.encode:url-encode + 'virtual-cluster-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "DescribeManagedEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-managed-endpoint)) (common-lisp:progn (common-lisp:defun describe-virtual-cluster @@ -4719,12 +4730,13 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)))) + 'virtual-cluster-id) + common-lisp:t))) "DescribeVirtualCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-virtual-cluster)) (common-lisp:progn (common-lisp:defun get-managed-endpoint-session-credentials @@ -4753,16 +4765,18 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/endpoints/~A/credentials" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)) - (quri.encode:url-encode + 'virtual-cluster-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "GetManagedEndpointSessionCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-managed-endpoint-session-credentials)) (common-lisp:progn (common-lisp:defun list-job-runs @@ -4787,12 +4801,13 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/jobruns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)))) + 'virtual-cluster-id) + common-lisp:t))) "ListJobRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-job-runs)) (common-lisp:progn (common-lisp:defun list-job-templates @@ -4812,7 +4827,7 @@ aws-sdk/generator/operation::input "GET" "/jobtemplates" "ListJobTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-job-templates)) (common-lisp:progn (common-lisp:defun list-managed-endpoints @@ -4837,12 +4852,13 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/endpoints" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)))) + 'virtual-cluster-id) + common-lisp:t))) "ListManagedEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-managed-endpoints)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4864,12 +4880,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-virtual-clusters @@ -4891,7 +4908,7 @@ "GET" "/virtualclusters" "ListVirtualClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-virtual-clusters)) (common-lisp:progn (common-lisp:defun start-job-run @@ -4919,12 +4936,13 @@ (common-lisp:format common-lisp:nil "/virtualclusters/~A/jobruns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'virtual-cluster-id)))) + 'virtual-cluster-id) + common-lisp:t))) "StartJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-job-run)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4946,12 +4964,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4973,10 +4992,11 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/emr-serverless/api.lisp b/services/emr-serverless/api.lisp index 8c9eb025..8f9e63cf 100644 --- a/services/emr-serverless/api.lisp +++ b/services/emr-serverless/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/emr-serverless/api - (:use) - (:nicknames #:aws/emr-serverless) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/emr-serverless/api (:use) + (:nicknames #:aws/emr-serverless) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/emr-serverless/api) (common-lisp:progn (common-lisp:define-condition emr-serverless-error @@ -20,7 +19,7 @@ (common-lisp:export 'emr-serverless-error)) (common-lisp:progn (common-lisp:defclass emr-serverless-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "emr-serverless" :api-version "2021-07-13" :host-prefix "emr-serverless" @@ -3941,16 +3940,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/jobruns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-run-id)))) + 'job-run-id) + common-lisp:t))) "CancelJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job-run)) (common-lisp:progn (common-lisp:defun create-application @@ -3977,7 +3978,7 @@ aws-sdk/generator/operation::input "POST" "/applications" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun delete-application @@ -3999,12 +4000,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun get-application @@ -4026,12 +4028,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-dashboard-for-job-run @@ -4054,16 +4057,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/jobruns/~A/dashboard" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-run-id)))) + 'job-run-id) + common-lisp:t))) "GetDashboardForJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dashboard-for-job-run)) (common-lisp:progn (common-lisp:defun get-job-run @@ -4085,16 +4090,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/jobruns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-run-id)))) + 'job-run-id) + common-lisp:t))) "GetJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-run)) (common-lisp:progn (common-lisp:defun list-applications @@ -4111,7 +4118,7 @@ aws-sdk/generator/operation::input "GET" "/applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-job-runs @@ -4136,12 +4143,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/jobruns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListJobRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-job-runs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4163,12 +4171,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-application @@ -4190,12 +4199,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "StartApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-application)) (common-lisp:progn (common-lisp:defun start-job-run @@ -4221,12 +4231,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/jobruns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "StartJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-job-run)) (common-lisp:progn (common-lisp:defun stop-application @@ -4248,12 +4259,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "StopApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-application)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4275,12 +4287,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4302,12 +4315,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -4339,10 +4353,11 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) diff --git a/services/entitlement.marketplace/api.lisp b/services/entitlement.marketplace/api.lisp index 488cc030..76b9ab12 100644 --- a/services/entitlement.marketplace/api.lisp +++ b/services/entitlement.marketplace/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/entitlement.marketplace/api - (:use) - (:nicknames #:aws/entitlement.marketplace) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/entitlement.marketplace/api + (:use) (:nicknames #:aws/entitlement.marketplace) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/entitlement.marketplace/api) (common-lisp:progn (common-lisp:define-condition entitlement.marketplace-error @@ -389,5 +388,5 @@ (aws-sdk/generator/shape:make-request-with-input 'entitlement.marketplace-request aws-sdk/generator/operation::input "POST" "/" "GetEntitlements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-entitlements)) diff --git a/services/entityresolution/api.lisp b/services/entityresolution/api.lisp index 190f6758..a5d7b33d 100644 --- a/services/entityresolution/api.lisp +++ b/services/entityresolution/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/entityresolution/api - (:use) - (:nicknames #:aws/entityresolution) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/entityresolution/api (:use) + (:nicknames #:aws/entityresolution) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/entityresolution/api) (common-lisp:progn (common-lisp:define-condition entityresolution-error @@ -20,7 +19,7 @@ (common-lisp:export 'entityresolution-error)) (common-lisp:progn (common-lisp:defclass entityresolution-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "entityresolution" :api-version "2018-05-10" :host-prefix @@ -5314,7 +5313,7 @@ (aws-sdk/generator/shape:make-request-with-input 'entityresolution-request aws-sdk/generator/operation::input "POST" "/idmappingworkflows" "CreateIdMappingWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-id-mapping-workflow)) (common-lisp:progn (common-lisp:defun create-matching-workflow @@ -5335,7 +5334,7 @@ (aws-sdk/generator/shape:make-request-with-input 'entityresolution-request aws-sdk/generator/operation::input "POST" "/matchingworkflows" "CreateMatchingWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-matching-workflow)) (common-lisp:progn (common-lisp:defun create-schema-mapping @@ -5353,7 +5352,7 @@ (aws-sdk/generator/shape:make-request-with-input 'entityresolution-request aws-sdk/generator/operation::input "POST" "/schemas" "CreateSchemaMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-schema-mapping)) (common-lisp:progn (common-lisp:defun delete-id-mapping-workflow @@ -5370,12 +5369,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/idmappingworkflows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "DeleteIdMappingWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-id-mapping-workflow)) (common-lisp:progn (common-lisp:defun delete-matching-workflow @@ -5392,12 +5392,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/matchingworkflows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "DeleteMatchingWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-matching-workflow)) (common-lisp:progn (common-lisp:defun delete-schema-mapping @@ -5414,12 +5415,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/schemas/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "DeleteSchemaMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schema-mapping)) (common-lisp:progn (common-lisp:defun get-id-mapping-job @@ -5436,15 +5438,17 @@ 'entityresolution-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/idmappingworkflows/~A/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)) - (quri.encode:url-encode + 'workflow-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'job-id)))) + aws-sdk/generator/operation::input 'job-id) + common-lisp:t))) "GetIdMappingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-id-mapping-job)) (common-lisp:progn (common-lisp:defun get-id-mapping-workflow @@ -5461,12 +5465,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/idmappingworkflows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "GetIdMappingWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-id-mapping-workflow)) (common-lisp:progn (common-lisp:defun get-match-id @@ -5483,12 +5488,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/matchingworkflows/~A/matches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "GetMatchId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-match-id)) (common-lisp:progn (common-lisp:defun get-matching-job @@ -5505,15 +5511,17 @@ 'entityresolution-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/matchingworkflows/~A/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)) - (quri.encode:url-encode + 'workflow-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'job-id)))) + aws-sdk/generator/operation::input 'job-id) + common-lisp:t))) "GetMatchingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-matching-job)) (common-lisp:progn (common-lisp:defun get-matching-workflow @@ -5530,12 +5538,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/matchingworkflows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "GetMatchingWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-matching-workflow)) (common-lisp:progn (common-lisp:defun get-schema-mapping @@ -5552,12 +5561,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/schemas/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "GetSchemaMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema-mapping)) (common-lisp:progn (common-lisp:defun list-id-mapping-jobs @@ -5575,12 +5585,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/idmappingworkflows/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "ListIdMappingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-id-mapping-jobs)) (common-lisp:progn (common-lisp:defun list-id-mapping-workflows @@ -5596,7 +5607,7 @@ (aws-sdk/generator/shape:make-request-with-input 'entityresolution-request aws-sdk/generator/operation::input "GET" "/idmappingworkflows" "ListIdMappingWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-id-mapping-workflows)) (common-lisp:progn (common-lisp:defun list-matching-jobs @@ -5614,12 +5625,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/matchingworkflows/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "ListMatchingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-matching-jobs)) (common-lisp:progn (common-lisp:defun list-matching-workflows @@ -5635,7 +5647,7 @@ (aws-sdk/generator/shape:make-request-with-input 'entityresolution-request aws-sdk/generator/operation::input "GET" "/matchingworkflows" "ListMatchingWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-matching-workflows)) (common-lisp:progn (common-lisp:defun list-provider-services @@ -5652,7 +5664,7 @@ (aws-sdk/generator/shape:make-request-with-input 'entityresolution-request aws-sdk/generator/operation::input "GET" "/providerservices" "ListProviderServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provider-services)) (common-lisp:progn (common-lisp:defun list-schema-mappings @@ -5668,7 +5680,7 @@ (aws-sdk/generator/shape:make-request-with-input 'entityresolution-request aws-sdk/generator/operation::input "GET" "/schemas" "ListSchemaMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schema-mappings)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5685,12 +5697,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-id-mapping-job @@ -5707,12 +5720,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/idmappingworkflows/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "StartIdMappingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-id-mapping-job)) (common-lisp:progn (common-lisp:defun start-matching-job @@ -5729,12 +5743,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/matchingworkflows/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "StartMatchingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-matching-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5751,12 +5766,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5773,12 +5789,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-id-mapping-workflow @@ -5799,12 +5816,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/idmappingworkflows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "UpdateIdMappingWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-id-mapping-workflow)) (common-lisp:progn (common-lisp:defun update-matching-workflow @@ -5826,12 +5844,13 @@ 'entityresolution-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/matchingworkflows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-name)))) + 'workflow-name) + common-lisp:t))) "UpdateMatchingWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-matching-workflow)) (common-lisp:progn (common-lisp:defun update-schema-mapping @@ -5850,10 +5869,11 @@ 'entityresolution-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/schemas/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "UpdateSchemaMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-schema-mapping)) diff --git a/services/es/api.lisp b/services/es/api.lisp index 666e342c..e010ccbd 100644 --- a/services/es/api.lisp +++ b/services/es/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/es/api - (:use) - (:nicknames #:aws/es) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/es/api (:use) + (:nicknames #:aws/es) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/es/api) (common-lisp:progn (common-lisp:define-condition es-error @@ -19,8 +18,7 @@ common-lisp:nil) (common-lisp:export 'es-error)) (common-lisp:progn - (common-lisp:defclass es-request - (aws-sdk/generator/service::rest-json-request) + (common-lisp:defclass es-request (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "es" :api-version "2015-01-01" :host-prefix "es" :signing-name @@ -11837,12 +11835,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/ccs/inboundConnection/~A/accept" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "AcceptInboundCrossClusterSearchConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-inbound-cross-cluster-search-connection)) (common-lisp:progn (common-lisp:defun add-tags @@ -11860,7 +11859,7 @@ "POST" "/2015-01-01/tags" "AddTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun associate-package @@ -11882,16 +11881,18 @@ (common-lisp:format common-lisp:nil "/2015-01-01/packages/associate/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)) - (quri.encode:url-encode + 'package-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "AssociatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-package)) (common-lisp:progn (common-lisp:defun authorize-vpc-endpoint-access @@ -11914,12 +11915,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/authorizeVpcEndpointAccess" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "AuthorizeVpcEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'authorize-vpc-endpoint-access)) (common-lisp:progn (common-lisp:defun cancel-domain-config-change @@ -11942,12 +11944,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/config/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "CancelDomainConfigChange")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-domain-config-change)) (common-lisp:progn (common-lisp:defun cancel-elasticsearch-service-software-update @@ -11966,7 +11969,7 @@ "POST" "/2015-01-01/es/serviceSoftwareUpdate/cancel" "CancelElasticsearchServiceSoftwareUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-elasticsearch-service-software-update)) (common-lisp:progn (common-lisp:defun create-elasticsearch-domain @@ -11997,7 +12000,7 @@ "POST" "/2015-01-01/es/domain" "CreateElasticsearchDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-elasticsearch-domain)) (common-lisp:progn (common-lisp:defun create-outbound-cross-cluster-search-connection @@ -12019,7 +12022,7 @@ "POST" "/2015-01-01/es/ccs/outboundConnection" "CreateOutboundCrossClusterSearchConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-outbound-cross-cluster-search-connection)) (common-lisp:progn (common-lisp:defun create-package @@ -12040,7 +12043,7 @@ "POST" "/2015-01-01/packages" "CreatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-package)) (common-lisp:progn (common-lisp:defun create-vpc-endpoint @@ -12059,7 +12062,7 @@ "POST" "/2015-01-01/es/vpcEndpoints" "CreateVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-endpoint)) (common-lisp:progn (common-lisp:defun delete-elasticsearch-domain @@ -12082,12 +12085,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteElasticsearchDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-elasticsearch-domain)) (common-lisp:progn (common-lisp:defun delete-elasticsearch-service-role () @@ -12120,12 +12124,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/ccs/inboundConnection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "DeleteInboundCrossClusterSearchConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-inbound-cross-cluster-search-connection)) (common-lisp:progn (common-lisp:defun delete-outbound-cross-cluster-search-connection @@ -12149,12 +12154,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/ccs/outboundConnection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "DeleteOutboundCrossClusterSearchConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-outbound-cross-cluster-search-connection)) (common-lisp:progn (common-lisp:defun delete-package @@ -12176,12 +12182,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)))) + 'package-id) + common-lisp:t))) "DeletePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-package)) (common-lisp:progn (common-lisp:defun delete-vpc-endpoint @@ -12203,12 +12210,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/vpcEndpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpc-endpoint-id)))) + 'vpc-endpoint-id) + common-lisp:t))) "DeleteVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-endpoint)) (common-lisp:progn (common-lisp:defun describe-domain-auto-tunes @@ -12232,12 +12240,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/autoTunes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDomainAutoTunes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-auto-tunes)) (common-lisp:progn (common-lisp:defun describe-domain-change-progress @@ -12260,12 +12269,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/progress" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDomainChangeProgress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-change-progress)) (common-lisp:progn (common-lisp:defun describe-elasticsearch-domain @@ -12288,12 +12298,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeElasticsearchDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-elasticsearch-domain)) (common-lisp:progn (common-lisp:defun describe-elasticsearch-domain-config @@ -12316,12 +12327,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeElasticsearchDomainConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-elasticsearch-domain-config)) (common-lisp:progn (common-lisp:defun describe-elasticsearch-domains @@ -12340,7 +12352,7 @@ "POST" "/2015-01-01/es/domain-info" "DescribeElasticsearchDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-elasticsearch-domains)) (common-lisp:progn (common-lisp:defun describe-elasticsearch-instance-type-limits @@ -12365,16 +12377,18 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/instanceTypeLimits/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'elasticsearch-version)) - (quri.encode:url-encode + 'elasticsearch-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-type)))) + 'instance-type) + common-lisp:t))) "DescribeElasticsearchInstanceTypeLimits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-elasticsearch-instance-type-limits)) (common-lisp:progn (common-lisp:defun describe-inbound-cross-cluster-search-connections @@ -12393,7 +12407,7 @@ "POST" "/2015-01-01/es/ccs/inboundConnection/search" "DescribeInboundCrossClusterSearchConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-inbound-cross-cluster-search-connections)) (common-lisp:progn (common-lisp:defun describe-outbound-cross-cluster-search-connections @@ -12412,7 +12426,7 @@ "POST" "/2015-01-01/es/ccs/outboundConnection/search" "DescribeOutboundCrossClusterSearchConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-outbound-cross-cluster-search-connections)) (common-lisp:progn (common-lisp:defun describe-packages @@ -12430,7 +12444,7 @@ "POST" "/2015-01-01/packages/describe" "DescribePackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-packages)) (common-lisp:progn (common-lisp:defun describe-reserved-elasticsearch-instance-offerings @@ -12453,7 +12467,7 @@ "GET" "/2015-01-01/es/reservedInstanceOfferings" "DescribeReservedElasticsearchInstanceOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-reserved-elasticsearch-instance-offerings)) (common-lisp:progn (common-lisp:defun describe-reserved-elasticsearch-instances @@ -12475,7 +12489,7 @@ "GET" "/2015-01-01/es/reservedInstances" "DescribeReservedElasticsearchInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-reserved-elasticsearch-instances)) (common-lisp:progn (common-lisp:defun describe-vpc-endpoints @@ -12493,7 +12507,7 @@ "POST" "/2015-01-01/es/vpcEndpoints/describe" "DescribeVpcEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vpc-endpoints)) (common-lisp:progn (common-lisp:defun dissociate-package @@ -12515,16 +12529,18 @@ (common-lisp:format common-lisp:nil "/2015-01-01/packages/dissociate/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)) - (quri.encode:url-encode + 'package-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DissociatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'dissociate-package)) (common-lisp:progn (common-lisp:defun get-compatible-elasticsearch-versions @@ -12543,7 +12559,7 @@ "GET" "/2015-01-01/es/compatibleVersions" "GetCompatibleElasticsearchVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compatible-elasticsearch-versions)) (common-lisp:progn (common-lisp:defun get-package-version-history @@ -12567,12 +12583,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/packages/~A/history" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)))) + 'package-id) + common-lisp:t))) "GetPackageVersionHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-package-version-history)) (common-lisp:progn (common-lisp:defun get-upgrade-history @@ -12595,12 +12612,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/upgradeDomain/~A/history" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetUpgradeHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-upgrade-history)) (common-lisp:progn (common-lisp:defun get-upgrade-status @@ -12622,12 +12640,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/upgradeDomain/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetUpgradeStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-upgrade-status)) (common-lisp:progn (common-lisp:defun list-domain-names @@ -12645,7 +12664,7 @@ "GET" "/2015-01-01/domain" "ListDomainNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domain-names)) (common-lisp:progn (common-lisp:defun list-domains-for-package @@ -12668,12 +12687,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/packages/~A/domains" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)))) + 'package-id) + common-lisp:t))) "ListDomainsForPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains-for-package)) (common-lisp:progn (common-lisp:defun list-elasticsearch-instance-types @@ -12699,12 +12719,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/instanceTypes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'elasticsearch-version)))) + 'elasticsearch-version) + common-lisp:t))) "ListElasticsearchInstanceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-elasticsearch-instance-types)) (common-lisp:progn (common-lisp:defun list-elasticsearch-versions @@ -12723,7 +12744,7 @@ "GET" "/2015-01-01/es/versions" "ListElasticsearchVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-elasticsearch-versions)) (common-lisp:progn (common-lisp:defun list-packages-for-domain @@ -12746,12 +12767,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/domain/~A/packages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListPackagesForDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-packages-for-domain)) (common-lisp:progn (common-lisp:defun list-tags @@ -12769,7 +12791,7 @@ "GET" "/2015-01-01/tags/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun list-vpc-endpoint-access @@ -12791,12 +12813,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/listVpcEndpointAccess" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListVpcEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-endpoint-access)) (common-lisp:progn (common-lisp:defun list-vpc-endpoints @@ -12814,7 +12837,7 @@ "GET" "/2015-01-01/es/vpcEndpoints" "ListVpcEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-endpoints)) (common-lisp:progn (common-lisp:defun list-vpc-endpoints-for-domain @@ -12837,12 +12860,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/vpcEndpoints" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListVpcEndpointsForDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-endpoints-for-domain)) (common-lisp:progn (common-lisp:defun purchase-reserved-elasticsearch-instance-offering @@ -12865,7 +12889,7 @@ "POST" "/2015-01-01/es/purchaseReservedInstanceOffering" "PurchaseReservedElasticsearchInstanceOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'purchase-reserved-elasticsearch-instance-offering)) (common-lisp:progn (common-lisp:defun reject-inbound-cross-cluster-search-connection @@ -12889,12 +12913,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/ccs/inboundConnection/~A/reject" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "RejectInboundCrossClusterSearchConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-inbound-cross-cluster-search-connection)) (common-lisp:progn (common-lisp:defun remove-tags @@ -12912,7 +12937,7 @@ "POST" "/2015-01-01/tags-removal" "RemoveTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags)) (common-lisp:progn (common-lisp:defun revoke-vpc-endpoint-access @@ -12935,12 +12960,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/revokeVpcEndpointAccess" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "RevokeVpcEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-vpc-endpoint-access)) (common-lisp:progn (common-lisp:defun start-elasticsearch-service-software-update @@ -12959,7 +12985,7 @@ "POST" "/2015-01-01/es/serviceSoftwareUpdate/start" "StartElasticsearchServiceSoftwareUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-elasticsearch-service-software-update)) (common-lisp:progn (common-lisp:defun update-elasticsearch-domain-config @@ -12992,12 +13018,13 @@ (common-lisp:format common-lisp:nil "/2015-01-01/es/domain/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateElasticsearchDomainConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-elasticsearch-domain-config)) (common-lisp:progn (common-lisp:defun update-package @@ -13018,7 +13045,7 @@ "POST" "/2015-01-01/packages/update" "UpdatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-package)) (common-lisp:progn (common-lisp:defun update-vpc-endpoint @@ -13036,7 +13063,7 @@ "POST" "/2015-01-01/es/vpcEndpoints/update" "UpdateVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpc-endpoint)) (common-lisp:progn (common-lisp:defun upgrade-elasticsearch-domain @@ -13057,5 +13084,5 @@ "POST" "/2015-01-01/es/upgradeDomain" "UpgradeElasticsearchDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upgrade-elasticsearch-domain)) diff --git a/services/eventbridge/api.lisp b/services/eventbridge/api.lisp index ba39c5d5..40c5727b 100644 --- a/services/eventbridge/api.lisp +++ b/services/eventbridge/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/eventbridge/api - (:use) - (:nicknames #:aws/eventbridge) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/eventbridge/api (:use) + (:nicknames #:aws/eventbridge) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/eventbridge/api) (common-lisp:progn (common-lisp:define-condition eventbridge-error @@ -12205,7 +12204,7 @@ aws-sdk/generator/operation::input "POST" "/" "ActivateEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-event-source)) (common-lisp:progn (common-lisp:defun cancel-replay @@ -12222,7 +12221,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelReplay")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-replay)) (common-lisp:progn (common-lisp:defun create-api-destination @@ -12243,7 +12242,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApiDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-api-destination)) (common-lisp:progn (common-lisp:defun create-archive @@ -12263,7 +12262,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-archive)) (common-lisp:progn (common-lisp:defun create-connection @@ -12283,7 +12282,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connection)) (common-lisp:progn (common-lisp:defun create-endpoint @@ -12303,7 +12302,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-endpoint)) (common-lisp:progn (common-lisp:defun create-event-bus @@ -12320,7 +12319,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventBus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-bus)) (common-lisp:progn (common-lisp:defun create-partner-event-source @@ -12338,7 +12337,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePartnerEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-partner-event-source)) (common-lisp:progn (common-lisp:defun deactivate-event-source @@ -12355,7 +12354,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeactivateEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deactivate-event-source)) (common-lisp:progn (common-lisp:defun deauthorize-connection @@ -12372,7 +12371,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeauthorizeConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deauthorize-connection)) (common-lisp:progn (common-lisp:defun delete-api-destination @@ -12389,7 +12388,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApiDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-api-destination)) (common-lisp:progn (common-lisp:defun delete-archive @@ -12406,7 +12405,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-archive)) (common-lisp:progn (common-lisp:defun delete-connection @@ -12423,7 +12422,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun delete-endpoint @@ -12440,7 +12439,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint)) (common-lisp:progn (common-lisp:defun delete-event-bus @@ -12457,7 +12456,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventBus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-bus)) (common-lisp:progn (common-lisp:defun delete-partner-event-source @@ -12475,7 +12474,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePartnerEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-partner-event-source)) (common-lisp:progn (common-lisp:defun delete-rule @@ -12492,7 +12491,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun describe-api-destination @@ -12509,7 +12508,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApiDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-api-destination)) (common-lisp:progn (common-lisp:defun describe-archive @@ -12526,7 +12525,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-archive)) (common-lisp:progn (common-lisp:defun describe-connection @@ -12543,7 +12542,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connection)) (common-lisp:progn (common-lisp:defun describe-endpoint @@ -12560,7 +12559,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoint)) (common-lisp:progn (common-lisp:defun describe-event-bus @@ -12577,7 +12576,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventBus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-bus)) (common-lisp:progn (common-lisp:defun describe-event-source @@ -12594,7 +12593,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-source)) (common-lisp:progn (common-lisp:defun describe-partner-event-source @@ -12612,7 +12611,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePartnerEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-partner-event-source)) (common-lisp:progn (common-lisp:defun describe-replay @@ -12629,7 +12628,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplay")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replay)) (common-lisp:progn (common-lisp:defun describe-rule @@ -12646,7 +12645,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rule)) (common-lisp:progn (common-lisp:defun disable-rule @@ -12663,7 +12662,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-rule)) (common-lisp:progn (common-lisp:defun enable-rule @@ -12680,7 +12679,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-rule)) (common-lisp:progn (common-lisp:defun list-api-destinations @@ -12699,7 +12698,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApiDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-api-destinations)) (common-lisp:progn (common-lisp:defun list-archives @@ -12719,7 +12718,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListArchives")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-archives)) (common-lisp:progn (common-lisp:defun list-connections @@ -12738,7 +12737,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connections)) (common-lisp:progn (common-lisp:defun list-endpoints @@ -12757,7 +12756,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-endpoints)) (common-lisp:progn (common-lisp:defun list-event-buses @@ -12774,7 +12773,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEventBuses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-buses)) (common-lisp:progn (common-lisp:defun list-event-sources @@ -12791,7 +12790,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEventSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-sources)) (common-lisp:progn (common-lisp:defun list-partner-event-source-accounts @@ -12810,7 +12809,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPartnerEventSourceAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-partner-event-source-accounts)) (common-lisp:progn (common-lisp:defun list-partner-event-sources @@ -12828,7 +12827,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPartnerEventSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-partner-event-sources)) (common-lisp:progn (common-lisp:defun list-replays @@ -12848,7 +12847,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListReplays")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-replays)) (common-lisp:progn (common-lisp:defun list-rule-names-by-target @@ -12868,7 +12867,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRuleNamesByTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rule-names-by-target)) (common-lisp:progn (common-lisp:defun list-rules @@ -12887,7 +12886,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12904,7 +12903,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-targets-by-rule @@ -12922,7 +12921,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTargetsByRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-targets-by-rule)) (common-lisp:progn (common-lisp:defun put-events @@ -12939,7 +12938,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-events)) (common-lisp:progn (common-lisp:defun put-partner-events @@ -12956,7 +12955,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPartnerEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-partner-events)) (common-lisp:progn (common-lisp:defun put-permission @@ -12976,7 +12975,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-permission)) (common-lisp:progn (common-lisp:defun put-rule @@ -12995,7 +12994,7 @@ (aws-sdk/generator/shape:make-request-with-input 'eventbridge-request aws-sdk/generator/operation::input "POST" "/" "PutRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-rule)) (common-lisp:progn (common-lisp:defun put-targets @@ -13012,7 +13011,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-targets)) (common-lisp:progn (common-lisp:defun remove-permission @@ -13031,7 +13030,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemovePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-permission)) (common-lisp:progn (common-lisp:defun remove-targets @@ -13048,7 +13047,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-targets)) (common-lisp:progn (common-lisp:defun start-replay @@ -13068,7 +13067,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartReplay")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-replay)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13085,7 +13084,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-event-pattern @@ -13102,7 +13101,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestEventPattern")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-event-pattern)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13119,7 +13118,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-api-destination @@ -13140,7 +13139,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApiDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-api-destination)) (common-lisp:progn (common-lisp:defun update-archive @@ -13160,7 +13159,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-archive)) (common-lisp:progn (common-lisp:defun update-connection @@ -13180,7 +13179,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connection)) (common-lisp:progn (common-lisp:defun update-endpoint @@ -13200,5 +13199,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-endpoint)) diff --git a/services/events/api.lisp b/services/events/api.lisp index eafe9c75..38ad18bf 100644 --- a/services/events/api.lisp +++ b/services/events/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/events/api - (:use) - (:nicknames #:aws/events) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/events/api (:use) + (:nicknames #:aws/events) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/events/api) (common-lisp:progn (common-lisp:define-condition events-error @@ -10802,7 +10801,7 @@ aws-sdk/generator/operation::input "POST" "/" "ActivateEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-event-source)) (common-lisp:progn (common-lisp:defun cancel-replay @@ -10819,7 +10818,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelReplay")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-replay)) (common-lisp:progn (common-lisp:defun create-api-destination @@ -10840,7 +10839,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApiDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-api-destination)) (common-lisp:progn (common-lisp:defun create-archive @@ -10860,7 +10859,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-archive)) (common-lisp:progn (common-lisp:defun create-connection @@ -10880,7 +10879,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connection)) (common-lisp:progn (common-lisp:defun create-event-bus @@ -10897,7 +10896,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventBus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-bus)) (common-lisp:progn (common-lisp:defun create-partner-event-source @@ -10915,7 +10914,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePartnerEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-partner-event-source)) (common-lisp:progn (common-lisp:defun deactivate-event-source @@ -10932,7 +10931,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeactivateEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deactivate-event-source)) (common-lisp:progn (common-lisp:defun deauthorize-connection @@ -10949,7 +10948,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeauthorizeConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deauthorize-connection)) (common-lisp:progn (common-lisp:defun delete-api-destination @@ -10966,7 +10965,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApiDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-api-destination)) (common-lisp:progn (common-lisp:defun delete-archive @@ -10983,7 +10982,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-archive)) (common-lisp:progn (common-lisp:defun delete-connection @@ -11000,7 +10999,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun delete-event-bus @@ -11017,7 +11016,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventBus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-bus)) (common-lisp:progn (common-lisp:defun delete-partner-event-source @@ -11035,7 +11034,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePartnerEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-partner-event-source)) (common-lisp:progn (common-lisp:defun delete-rule @@ -11052,7 +11051,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun describe-api-destination @@ -11069,7 +11068,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApiDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-api-destination)) (common-lisp:progn (common-lisp:defun describe-archive @@ -11086,7 +11085,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-archive)) (common-lisp:progn (common-lisp:defun describe-connection @@ -11103,7 +11102,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connection)) (common-lisp:progn (common-lisp:defun describe-event-bus @@ -11120,7 +11119,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventBus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-bus)) (common-lisp:progn (common-lisp:defun describe-event-source @@ -11137,7 +11136,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-source)) (common-lisp:progn (common-lisp:defun describe-partner-event-source @@ -11155,7 +11154,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePartnerEventSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-partner-event-source)) (common-lisp:progn (common-lisp:defun describe-replay @@ -11172,7 +11171,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReplay")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replay)) (common-lisp:progn (common-lisp:defun describe-rule @@ -11189,7 +11188,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rule)) (common-lisp:progn (common-lisp:defun disable-rule @@ -11206,7 +11205,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-rule)) (common-lisp:progn (common-lisp:defun enable-rule @@ -11223,7 +11222,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-rule)) (common-lisp:progn (common-lisp:defun list-api-destinations @@ -11242,7 +11241,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApiDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-api-destinations)) (common-lisp:progn (common-lisp:defun list-archives @@ -11262,7 +11261,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListArchives")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-archives)) (common-lisp:progn (common-lisp:defun list-connections @@ -11281,7 +11280,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connections)) (common-lisp:progn (common-lisp:defun list-event-buses @@ -11298,7 +11297,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEventBuses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-buses)) (common-lisp:progn (common-lisp:defun list-event-sources @@ -11315,7 +11314,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEventSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-sources)) (common-lisp:progn (common-lisp:defun list-partner-event-source-accounts @@ -11334,7 +11333,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPartnerEventSourceAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-partner-event-source-accounts)) (common-lisp:progn (common-lisp:defun list-partner-event-sources @@ -11352,7 +11351,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPartnerEventSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-partner-event-sources)) (common-lisp:progn (common-lisp:defun list-replays @@ -11372,7 +11371,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListReplays")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-replays)) (common-lisp:progn (common-lisp:defun list-rule-names-by-target @@ -11392,7 +11391,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRuleNamesByTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rule-names-by-target)) (common-lisp:progn (common-lisp:defun list-rules @@ -11411,7 +11410,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11428,7 +11427,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-targets-by-rule @@ -11446,7 +11445,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTargetsByRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-targets-by-rule)) (common-lisp:progn (common-lisp:defun put-events @@ -11463,7 +11462,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-events)) (common-lisp:progn (common-lisp:defun put-partner-events @@ -11480,7 +11479,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPartnerEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-partner-events)) (common-lisp:progn (common-lisp:defun put-permission @@ -11500,7 +11499,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-permission)) (common-lisp:progn (common-lisp:defun put-rule @@ -11519,7 +11518,7 @@ (aws-sdk/generator/shape:make-request-with-input 'events-request aws-sdk/generator/operation::input "POST" "/" "PutRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-rule)) (common-lisp:progn (common-lisp:defun put-targets @@ -11536,7 +11535,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-targets)) (common-lisp:progn (common-lisp:defun remove-permission @@ -11555,7 +11554,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemovePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-permission)) (common-lisp:progn (common-lisp:defun remove-targets @@ -11572,7 +11571,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-targets)) (common-lisp:progn (common-lisp:defun start-replay @@ -11592,7 +11591,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartReplay")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-replay)) (common-lisp:progn (common-lisp:defun tag-resource @@ -11609,7 +11608,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-event-pattern @@ -11626,7 +11625,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestEventPattern")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-event-pattern)) (common-lisp:progn (common-lisp:defun untag-resource @@ -11643,7 +11642,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-api-destination @@ -11664,7 +11663,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApiDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-api-destination)) (common-lisp:progn (common-lisp:defun update-archive @@ -11684,7 +11683,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-archive)) (common-lisp:progn (common-lisp:defun update-connection @@ -11704,5 +11703,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connection)) diff --git a/services/evidently/api.lisp b/services/evidently/api.lisp index 7b67f1ee..43c93ba0 100644 --- a/services/evidently/api.lisp +++ b/services/evidently/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/evidently/api - (:use) - (:nicknames #:aws/evidently) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/evidently/api (:use) + (:nicknames #:aws/evidently) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/evidently/api) (common-lisp:progn (common-lisp:define-condition evidently-error @@ -20,7 +19,7 @@ (common-lisp:export 'evidently-error)) (common-lisp:progn (common-lisp:defclass evidently-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "evidently" :api-version "2021-02-01" :host-prefix "evidently" :signing-name @@ -7963,12 +7962,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/evaluations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "BatchEvaluateFeature")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-evaluate-feature)) (common-lisp:progn (common-lisp:defun create-experiment @@ -7994,12 +7994,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/experiments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "CreateExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-experiment)) (common-lisp:progn (common-lisp:defun create-feature @@ -8025,12 +8026,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/features" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "CreateFeature")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-feature)) (common-lisp:progn (common-lisp:defun create-launch @@ -8055,12 +8057,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/launches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "CreateLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-launch)) (common-lisp:progn (common-lisp:defun create-project @@ -8080,7 +8083,7 @@ aws-sdk/generator/operation::input "POST" "/projects" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun create-segment @@ -8097,7 +8100,7 @@ aws-sdk/generator/operation::input "POST" "/segments" "CreateSegment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-segment)) (common-lisp:progn (common-lisp:defun delete-experiment @@ -8119,16 +8122,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/experiments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'experiment)))) + 'experiment) + common-lisp:t))) "DeleteExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-experiment)) (common-lisp:progn (common-lisp:defun delete-feature @@ -8150,16 +8155,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/features/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'feature)))) + 'feature) + common-lisp:t))) "DeleteFeature")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-feature)) (common-lisp:progn (common-lisp:defun delete-launch @@ -8181,16 +8188,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/launches/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch)))) + 'launch) + common-lisp:t))) "DeleteLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-launch)) (common-lisp:progn (common-lisp:defun delete-project @@ -8212,12 +8221,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-segment @@ -8239,12 +8249,13 @@ (common-lisp:format common-lisp:nil "/segments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment)))) + 'segment) + common-lisp:t))) "DeleteSegment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-segment)) (common-lisp:progn (common-lisp:defun evaluate-feature @@ -8268,16 +8279,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/evaluations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'feature)))) + 'feature) + common-lisp:t))) "EvaluateFeature")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'evaluate-feature)) (common-lisp:progn (common-lisp:defun get-experiment @@ -8299,16 +8312,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/experiments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'experiment)))) + 'experiment) + common-lisp:t))) "GetExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-experiment)) (common-lisp:progn (common-lisp:defun get-experiment-results @@ -8334,16 +8349,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/experiments/~A/results" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'experiment)))) + 'experiment) + common-lisp:t))) "GetExperimentResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-experiment-results)) (common-lisp:progn (common-lisp:defun get-feature @@ -8365,16 +8382,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/features/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'feature)))) + 'feature) + common-lisp:t))) "GetFeature")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-feature)) (common-lisp:progn (common-lisp:defun get-launch @@ -8396,16 +8415,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/launches/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch)))) + 'launch) + common-lisp:t))) "GetLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-launch)) (common-lisp:progn (common-lisp:defun get-project @@ -8427,12 +8448,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "GetProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-project)) (common-lisp:progn (common-lisp:defun get-segment @@ -8454,12 +8476,13 @@ (common-lisp:format common-lisp:nil "/segments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment)))) + 'segment) + common-lisp:t))) "GetSegment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-segment)) (common-lisp:progn (common-lisp:defun list-experiments @@ -8482,12 +8505,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/experiments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "ListExperiments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-experiments)) (common-lisp:progn (common-lisp:defun list-features @@ -8509,12 +8533,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/features" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "ListFeatures")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-features)) (common-lisp:progn (common-lisp:defun list-launches @@ -8537,12 +8562,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/launches" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "ListLaunches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-launches)) (common-lisp:progn (common-lisp:defun list-projects @@ -8559,7 +8585,7 @@ aws-sdk/generator/operation::input "GET" "/projects" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-segment-references @@ -8582,12 +8608,13 @@ (common-lisp:format common-lisp:nil "/segments/~A/references" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment)))) + 'segment) + common-lisp:t))) "ListSegmentReferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-segment-references)) (common-lisp:progn (common-lisp:defun list-segments @@ -8604,7 +8631,7 @@ aws-sdk/generator/operation::input "GET" "/segments" "ListSegments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-segments)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8626,12 +8653,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-project-events @@ -8653,12 +8681,13 @@ (common-lisp:format common-lisp:nil "/events/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "PutProjectEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-project-events)) (common-lisp:progn (common-lisp:defun start-experiment @@ -8682,16 +8711,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/experiments/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'experiment)))) + 'experiment) + common-lisp:t))) "StartExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-experiment)) (common-lisp:progn (common-lisp:defun start-launch @@ -8713,16 +8744,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/launches/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch)))) + 'launch) + common-lisp:t))) "StartLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-launch)) (common-lisp:progn (common-lisp:defun stop-experiment @@ -8745,16 +8778,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/experiments/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'experiment)))) + 'experiment) + common-lisp:t))) "StopExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-experiment)) (common-lisp:progn (common-lisp:defun stop-launch @@ -8777,16 +8812,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/launches/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch)))) + 'launch) + common-lisp:t))) "StopLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-launch)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8808,12 +8845,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-segment-pattern @@ -8831,7 +8869,7 @@ "POST" "/test-segment-pattern" "TestSegmentPattern")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-segment-pattern)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8853,12 +8891,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-experiment @@ -8885,16 +8924,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/experiments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'experiment)))) + 'experiment) + common-lisp:t))) "UpdateExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-experiment)) (common-lisp:progn (common-lisp:defun update-feature @@ -8921,16 +8962,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/features/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'feature)))) + 'feature) + common-lisp:t))) "UpdateFeature")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-feature)) (common-lisp:progn (common-lisp:defun update-launch @@ -8955,16 +8998,18 @@ (common-lisp:format common-lisp:nil "/projects/~A/launches/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)) - (quri.encode:url-encode + 'project) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch)))) + 'launch) + common-lisp:t))) "UpdateLaunch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-launch)) (common-lisp:progn (common-lisp:defun update-project @@ -8987,12 +9032,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) (common-lisp:progn (common-lisp:defun update-project-data-delivery @@ -9016,10 +9062,11 @@ (common-lisp:format common-lisp:nil "/projects/~A/data-delivery" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project)))) + 'project) + common-lisp:t))) "UpdateProjectDataDelivery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project-data-delivery)) diff --git a/services/finspace-data/api.lisp b/services/finspace-data/api.lisp index 203b878e..6f25207e 100644 --- a/services/finspace-data/api.lisp +++ b/services/finspace-data/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/finspace-data/api - (:use) - (:nicknames #:aws/finspace-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/finspace-data/api (:use) + (:nicknames #:aws/finspace-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/finspace-data/api) (common-lisp:progn (common-lisp:define-condition finspace-data-error @@ -20,7 +19,7 @@ (common-lisp:export 'finspace-data-error)) (common-lisp:progn (common-lisp:defclass finspace-data-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "finspace-data" :api-version "2020-07-13" :host-prefix "finspace-api" :signing-name @@ -5703,16 +5702,18 @@ (common-lisp:format common-lisp:nil "/permission-group/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'permission-group-id)) - (quri.encode:url-encode + 'permission-group-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "AssociateUserToPermissionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-user-to-permission-group)) (common-lisp:progn (common-lisp:defun create-changeset @@ -5737,12 +5738,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A/changesetsv2" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "CreateChangeset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-changeset)) (common-lisp:progn (common-lisp:defun create-data-view @@ -5768,12 +5770,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A/dataviewsv2" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "CreateDataView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-view)) (common-lisp:progn (common-lisp:defun create-dataset @@ -5794,7 +5797,7 @@ aws-sdk/generator/operation::input "POST" "/datasetsv2" "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-permission-group @@ -5815,7 +5818,7 @@ "POST" "/permission-group" "CreatePermissionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-permission-group)) (common-lisp:progn (common-lisp:defun create-user @@ -5835,7 +5838,7 @@ aws-sdk/generator/operation::input "POST" "/user" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -5857,12 +5860,13 @@ (common-lisp:format common-lisp:nil "/datasetsv2/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun delete-permission-group @@ -5885,12 +5889,13 @@ (common-lisp:format common-lisp:nil "/permission-group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'permission-group-id)))) + 'permission-group-id) + common-lisp:t))) "DeletePermissionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permission-group)) (common-lisp:progn (common-lisp:defun disable-user @@ -5912,12 +5917,13 @@ (common-lisp:format common-lisp:nil "/user/~A/disable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DisableUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-user)) (common-lisp:progn (common-lisp:defun disassociate-user-from-permission-group @@ -5941,16 +5947,18 @@ (common-lisp:format common-lisp:nil "/permission-group/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'permission-group-id)) - (quri.encode:url-encode + 'permission-group-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DisassociateUserFromPermissionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-user-from-permission-group)) (common-lisp:progn (common-lisp:defun enable-user @@ -5972,12 +5980,13 @@ (common-lisp:format common-lisp:nil "/user/~A/enable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "EnableUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-user)) (common-lisp:progn (common-lisp:defun get-changeset @@ -5999,16 +6008,18 @@ (common-lisp:format common-lisp:nil "/datasets/~A/changesetsv2/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)) - (quri.encode:url-encode + 'dataset-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'changeset-id)))) + 'changeset-id) + common-lisp:t))) "GetChangeset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-changeset)) (common-lisp:progn (common-lisp:defun get-data-view @@ -6030,16 +6041,18 @@ (common-lisp:format common-lisp:nil "/datasets/~A/dataviewsv2/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)) - (quri.encode:url-encode + 'dataset-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataview-id)))) + 'dataview-id) + common-lisp:t))) "GetDataView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-view)) (common-lisp:progn (common-lisp:defun get-dataset @@ -6061,12 +6074,13 @@ (common-lisp:format common-lisp:nil "/datasetsv2/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "GetDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dataset)) (common-lisp:progn (common-lisp:defun get-external-data-view-access-details @@ -6089,16 +6103,18 @@ (common-lisp:format common-lisp:nil "/datasets/~A/dataviewsv2/~A/external-access-details" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)) - (quri.encode:url-encode + 'dataset-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataview-id)))) + 'dataview-id) + common-lisp:t))) "GetExternalDataViewAccessDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-external-data-view-access-details)) (common-lisp:progn (common-lisp:defun get-permission-group @@ -6120,12 +6136,13 @@ (common-lisp:format common-lisp:nil "/permission-group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'permission-group-id)))) + 'permission-group-id) + common-lisp:t))) "GetPermissionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-permission-group)) (common-lisp:progn (common-lisp:defun get-programmatic-access-credentials @@ -6145,7 +6162,7 @@ "GET" "/credentials/programmatic" "GetProgrammaticAccessCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-programmatic-access-credentials)) (common-lisp:progn (common-lisp:defun get-user @@ -6167,12 +6184,13 @@ (common-lisp:format common-lisp:nil "/user/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "GetUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user)) (common-lisp:progn (common-lisp:defun get-working-location @@ -6190,7 +6208,7 @@ "POST" "/workingLocationV1" "GetWorkingLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-working-location)) (common-lisp:progn (common-lisp:defun list-changesets @@ -6213,12 +6231,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A/changesetsv2" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "ListChangesets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-changesets)) (common-lisp:progn (common-lisp:defun list-data-views @@ -6241,12 +6260,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A/dataviewsv2" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "ListDataViews")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-views)) (common-lisp:progn (common-lisp:defun list-datasets @@ -6263,7 +6283,7 @@ aws-sdk/generator/operation::input "GET" "/datasetsv2" "ListDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasets)) (common-lisp:progn (common-lisp:defun list-permission-groups @@ -6281,7 +6301,7 @@ "GET" "/permission-group" "ListPermissionGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permission-groups)) (common-lisp:progn (common-lisp:defun list-permission-groups-by-user @@ -6304,12 +6324,13 @@ (common-lisp:format common-lisp:nil "/user/~A/permission-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "ListPermissionGroupsByUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permission-groups-by-user)) (common-lisp:progn (common-lisp:defun list-users @@ -6326,7 +6347,7 @@ aws-sdk/generator/operation::input "GET" "/user" "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun list-users-by-permission-group @@ -6351,12 +6372,13 @@ (common-lisp:format common-lisp:nil "/permission-group/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'permission-group-id)))) + 'permission-group-id) + common-lisp:t))) "ListUsersByPermissionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users-by-permission-group)) (common-lisp:progn (common-lisp:defun reset-user-password @@ -6378,12 +6400,13 @@ (common-lisp:format common-lisp:nil "/user/~A/password" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "ResetUserPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-user-password)) (common-lisp:progn (common-lisp:defun update-changeset @@ -6408,16 +6431,18 @@ (common-lisp:format common-lisp:nil "/datasets/~A/changesetsv2/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)) - (quri.encode:url-encode + 'dataset-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'changeset-id)))) + 'changeset-id) + common-lisp:t))) "UpdateChangeset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-changeset)) (common-lisp:progn (common-lisp:defun update-dataset @@ -6442,12 +6467,13 @@ (common-lisp:format common-lisp:nil "/datasetsv2/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "UpdateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dataset)) (common-lisp:progn (common-lisp:defun update-permission-group @@ -6472,12 +6498,13 @@ (common-lisp:format common-lisp:nil "/permission-group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'permission-group-id)))) + 'permission-group-id) + common-lisp:t))) "UpdatePermissionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-permission-group)) (common-lisp:progn (common-lisp:defun update-user @@ -6502,10 +6529,11 @@ (common-lisp:format common-lisp:nil "/user/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) diff --git a/services/finspace/api.lisp b/services/finspace/api.lisp index 75a08807..f248f6f8 100644 --- a/services/finspace/api.lisp +++ b/services/finspace/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/finspace/api - (:use) - (:nicknames #:aws/finspace) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/finspace/api (:use) + (:nicknames #:aws/finspace) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/finspace/api) (common-lisp:progn (common-lisp:define-condition finspace-error @@ -20,7 +19,7 @@ (common-lisp:export 'finspace-error)) (common-lisp:progn (common-lisp:defclass finspace-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "finspace" :api-version "2021-03-12" :host-prefix "finspace" :signing-name @@ -12124,7 +12123,7 @@ aws-sdk/generator/operation::input "POST" "/environment" "CreateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun create-kx-changeset @@ -12149,16 +12148,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A/changesets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)))) + 'database-name) + common-lisp:t))) "CreateKxChangeset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-kx-changeset)) (common-lisp:progn (common-lisp:defun create-kx-cluster @@ -12194,12 +12195,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/clusters" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "CreateKxCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-kx-cluster)) (common-lisp:progn (common-lisp:defun create-kx-database @@ -12224,12 +12226,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "CreateKxDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-kx-database)) (common-lisp:progn (common-lisp:defun create-kx-dataview @@ -12257,16 +12260,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A/dataviews" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)))) + 'database-name) + common-lisp:t))) "CreateKxDataview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-kx-dataview)) (common-lisp:progn (common-lisp:defun create-kx-environment @@ -12286,7 +12291,7 @@ "POST" "/kx/environments" "CreateKxEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-kx-environment)) (common-lisp:progn (common-lisp:defun create-kx-scaling-group @@ -12311,12 +12316,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/scalingGroups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "CreateKxScalingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-kx-scaling-group)) (common-lisp:progn (common-lisp:defun create-kx-user @@ -12341,12 +12347,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "CreateKxUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-kx-user)) (common-lisp:progn (common-lisp:defun create-kx-volume @@ -12372,12 +12379,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/kxvolumes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "CreateKxVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-kx-volume)) (common-lisp:progn (common-lisp:defun delete-environment @@ -12399,12 +12407,13 @@ (common-lisp:format common-lisp:nil "/environment/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun delete-kx-cluster @@ -12427,16 +12436,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/clusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-name)))) + 'cluster-name) + common-lisp:t))) "DeleteKxCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-kx-cluster)) (common-lisp:progn (common-lisp:defun delete-kx-database @@ -12460,16 +12471,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)))) + 'database-name) + common-lisp:t))) "DeleteKxDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-kx-database)) (common-lisp:progn (common-lisp:defun delete-kx-dataview @@ -12494,20 +12507,23 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A/dataviews/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)) - (quri.encode:url-encode + 'database-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataview-name)))) + 'dataview-name) + common-lisp:t))) "DeleteKxDataview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-kx-dataview)) (common-lisp:progn (common-lisp:defun delete-kx-environment @@ -12529,12 +12545,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "DeleteKxEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-kx-environment)) (common-lisp:progn (common-lisp:defun delete-kx-scaling-group @@ -12558,16 +12575,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/scalingGroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scaling-group-name)))) + 'scaling-group-name) + common-lisp:t))) "DeleteKxScalingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-kx-scaling-group)) (common-lisp:progn (common-lisp:defun delete-kx-user @@ -12590,16 +12609,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-name)))) + 'user-name) + common-lisp:t))) "DeleteKxUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-kx-user)) (common-lisp:progn (common-lisp:defun delete-kx-volume @@ -12622,16 +12643,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/kxvolumes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'volume-name)))) + 'volume-name) + common-lisp:t))) "DeleteKxVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-kx-volume)) (common-lisp:progn (common-lisp:defun get-environment @@ -12653,12 +12676,13 @@ (common-lisp:format common-lisp:nil "/environment/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "GetEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment)) (common-lisp:progn (common-lisp:defun get-kx-changeset @@ -12682,20 +12706,23 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A/changesets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)) - (quri.encode:url-encode + 'database-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'changeset-id)))) + 'changeset-id) + common-lisp:t))) "GetKxChangeset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-changeset)) (common-lisp:progn (common-lisp:defun get-kx-cluster @@ -12717,16 +12744,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/clusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-name)))) + 'cluster-name) + common-lisp:t))) "GetKxCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-cluster)) (common-lisp:progn (common-lisp:defun get-kx-connection-string @@ -12749,12 +12778,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/connectionString" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "GetKxConnectionString")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-connection-string)) (common-lisp:progn (common-lisp:defun get-kx-database @@ -12776,16 +12806,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)))) + 'database-name) + common-lisp:t))) "GetKxDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-database)) (common-lisp:progn (common-lisp:defun get-kx-dataview @@ -12809,20 +12841,23 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A/dataviews/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)) - (quri.encode:url-encode + 'database-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataview-name)))) + 'dataview-name) + common-lisp:t))) "GetKxDataview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-dataview)) (common-lisp:progn (common-lisp:defun get-kx-environment @@ -12844,12 +12879,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "GetKxEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-environment)) (common-lisp:progn (common-lisp:defun get-kx-scaling-group @@ -12872,16 +12908,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/scalingGroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scaling-group-name)))) + 'scaling-group-name) + common-lisp:t))) "GetKxScalingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-scaling-group)) (common-lisp:progn (common-lisp:defun get-kx-user @@ -12903,16 +12941,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-name)))) + 'user-name) + common-lisp:t))) "GetKxUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-user)) (common-lisp:progn (common-lisp:defun get-kx-volume @@ -12934,16 +12974,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/kxvolumes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'volume-name)))) + 'volume-name) + common-lisp:t))) "GetKxVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-kx-volume)) (common-lisp:progn (common-lisp:defun list-environments @@ -12960,7 +13002,7 @@ aws-sdk/generator/operation::input "GET" "/environment" "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-kx-changesets @@ -12985,16 +13027,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A/changesets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)))) + 'database-name) + common-lisp:t))) "ListKxChangesets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-changesets)) (common-lisp:progn (common-lisp:defun list-kx-cluster-nodes @@ -13018,16 +13062,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/clusters/~A/nodes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-name)))) + 'cluster-name) + common-lisp:t))) "ListKxClusterNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-cluster-nodes)) (common-lisp:progn (common-lisp:defun list-kx-clusters @@ -13051,12 +13097,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/clusters" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "ListKxClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-clusters)) (common-lisp:progn (common-lisp:defun list-kx-databases @@ -13079,12 +13126,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "ListKxDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-databases)) (common-lisp:progn (common-lisp:defun list-kx-dataviews @@ -13109,16 +13157,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A/dataviews" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)))) + 'database-name) + common-lisp:t))) "ListKxDataviews")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-dataviews)) (common-lisp:progn (common-lisp:defun list-kx-environments @@ -13136,7 +13186,7 @@ "GET" "/kx/environments" "ListKxEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-environments)) (common-lisp:progn (common-lisp:defun list-kx-scaling-groups @@ -13159,12 +13209,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/scalingGroups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "ListKxScalingGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-scaling-groups)) (common-lisp:progn (common-lisp:defun list-kx-users @@ -13187,12 +13238,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "ListKxUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-users)) (common-lisp:progn (common-lisp:defun list-kx-volumes @@ -13216,12 +13268,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/kxvolumes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "ListKxVolumes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kx-volumes)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -13243,12 +13296,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13270,12 +13324,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13297,12 +13352,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-environment @@ -13327,12 +13383,13 @@ (common-lisp:format common-lisp:nil "/environment/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "UpdateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment)) (common-lisp:progn (common-lisp:defun update-kx-cluster-code-configuration @@ -13359,16 +13416,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/clusters/~A/configuration/code" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-name)))) + 'cluster-name) + common-lisp:t))) "UpdateKxClusterCodeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kx-cluster-code-configuration)) (common-lisp:progn (common-lisp:defun update-kx-cluster-databases @@ -13394,16 +13453,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/clusters/~A/configuration/databases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-name)))) + 'cluster-name) + common-lisp:t))) "UpdateKxClusterDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kx-cluster-databases)) (common-lisp:progn (common-lisp:defun update-kx-database @@ -13428,16 +13489,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)))) + 'database-name) + common-lisp:t))) "UpdateKxDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kx-database)) (common-lisp:progn (common-lisp:defun update-kx-dataview @@ -13463,20 +13526,23 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/databases/~A/dataviews/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'database-name)) - (quri.encode:url-encode + 'database-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataview-name)))) + 'dataview-name) + common-lisp:t))) "UpdateKxDataview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kx-dataview)) (common-lisp:progn (common-lisp:defun update-kx-environment @@ -13500,12 +13566,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "UpdateKxEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kx-environment)) (common-lisp:progn (common-lisp:defun update-kx-environment-network @@ -13532,12 +13599,13 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/network" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "UpdateKxEnvironmentNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kx-environment-network)) (common-lisp:progn (common-lisp:defun update-kx-user @@ -13561,16 +13629,18 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-name)))) + 'user-name) + common-lisp:t))) "UpdateKxUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kx-user)) (common-lisp:progn (common-lisp:defun update-kx-volume @@ -13595,14 +13665,16 @@ (common-lisp:format common-lisp:nil "/kx/environments/~A/kxvolumes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)) - (quri.encode:url-encode + 'environment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'volume-name)))) + 'volume-name) + common-lisp:t))) "UpdateKxVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-kx-volume)) diff --git a/services/firehose/api.lisp b/services/firehose/api.lisp index 5f8e9b91..df1e199e 100644 --- a/services/firehose/api.lisp +++ b/services/firehose/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/firehose/api - (:use) - (:nicknames #:aws/firehose) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/firehose/api (:use) + (:nicknames #:aws/firehose) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/firehose/api) (common-lisp:progn (common-lisp:define-condition firehose-error @@ -10932,7 +10931,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDeliveryStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-delivery-stream)) (common-lisp:progn (common-lisp:defun delete-delivery-stream @@ -10950,7 +10949,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeliveryStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-delivery-stream)) (common-lisp:progn (common-lisp:defun describe-delivery-stream @@ -10970,7 +10969,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDeliveryStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-delivery-stream)) (common-lisp:progn (common-lisp:defun list-delivery-streams @@ -10990,7 +10989,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeliveryStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-delivery-streams)) (common-lisp:progn (common-lisp:defun list-tags-for-delivery-stream @@ -11010,7 +11009,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForDeliveryStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-delivery-stream)) (common-lisp:progn (common-lisp:defun put-record @@ -11027,7 +11026,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-record)) (common-lisp:progn (common-lisp:defun put-record-batch @@ -11044,7 +11043,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRecordBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-record-batch)) (common-lisp:progn (common-lisp:defun start-delivery-stream-encryption @@ -11065,7 +11064,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDeliveryStreamEncryption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-delivery-stream-encryption)) (common-lisp:progn (common-lisp:defun stop-delivery-stream-encryption @@ -11083,7 +11082,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopDeliveryStreamEncryption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-delivery-stream-encryption)) (common-lisp:progn (common-lisp:defun tag-delivery-stream @@ -11100,7 +11099,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagDeliveryStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-delivery-stream)) (common-lisp:progn (common-lisp:defun untag-delivery-stream @@ -11117,7 +11116,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagDeliveryStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-delivery-stream)) (common-lisp:progn (common-lisp:defun update-destination @@ -11150,5 +11149,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-destination)) diff --git a/services/fis/api.lisp b/services/fis/api.lisp index d2d406a6..89d9a487 100644 --- a/services/fis/api.lisp +++ b/services/fis/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/fis/api - (:use) - (:nicknames #:aws/fis) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/fis/api (:use) + (:nicknames #:aws/fis) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/fis/api) (common-lisp:progn (common-lisp:define-condition fis-error @@ -20,7 +19,7 @@ (common-lisp:export 'fis-error)) (common-lisp:progn (common-lisp:defclass fis-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "fis" :api-version "2020-12-01" :host-prefix "fis" :signing-name "fis" @@ -6301,7 +6300,7 @@ "POST" "/experimentTemplates" "CreateExperimentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-experiment-template)) (common-lisp:progn (common-lisp:defun create-target-account-configuration @@ -6327,16 +6326,18 @@ (common-lisp:format common-lisp:nil "/experimentTemplates/~A/targetAccountConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "CreateTargetAccountConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-target-account-configuration)) (common-lisp:progn (common-lisp:defun delete-experiment-template @@ -6359,12 +6360,13 @@ (common-lisp:format common-lisp:nil "/experimentTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteExperimentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-experiment-template)) (common-lisp:progn (common-lisp:defun delete-target-account-configuration @@ -6388,16 +6390,18 @@ (common-lisp:format common-lisp:nil "/experimentTemplates/~A/targetAccountConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "DeleteTargetAccountConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-target-account-configuration)) (common-lisp:progn (common-lisp:defun get-action @@ -6419,12 +6423,13 @@ (common-lisp:format common-lisp:nil "/actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-action)) (common-lisp:progn (common-lisp:defun get-experiment @@ -6446,12 +6451,13 @@ (common-lisp:format common-lisp:nil "/experiments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-experiment)) (common-lisp:progn (common-lisp:defun get-experiment-target-account-configuration @@ -6474,16 +6480,18 @@ (common-lisp:format common-lisp:nil "/experiments/~A/targetAccountConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "GetExperimentTargetAccountConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-experiment-target-account-configuration)) (common-lisp:progn (common-lisp:defun get-experiment-template @@ -6505,12 +6513,13 @@ (common-lisp:format common-lisp:nil "/experimentTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetExperimentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-experiment-template)) (common-lisp:progn (common-lisp:defun get-target-account-configuration @@ -6534,16 +6543,18 @@ (common-lisp:format common-lisp:nil "/experimentTemplates/~A/targetAccountConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "GetTargetAccountConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-target-account-configuration)) (common-lisp:progn (common-lisp:defun get-target-resource-type @@ -6565,12 +6576,13 @@ (common-lisp:format common-lisp:nil "/targetResourceTypes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)))) + 'resource-type) + common-lisp:t))) "GetTargetResourceType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-target-resource-type)) (common-lisp:progn (common-lisp:defun list-actions @@ -6587,7 +6599,7 @@ aws-sdk/generator/operation::input "GET" "/actions" "ListActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-actions)) (common-lisp:progn (common-lisp:defun list-experiment-resolved-targets @@ -6612,12 +6624,13 @@ (common-lisp:format common-lisp:nil "/experiments/~A/resolvedTargets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListExperimentResolvedTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-experiment-resolved-targets)) (common-lisp:progn (common-lisp:defun list-experiment-target-account-configurations @@ -6640,12 +6653,13 @@ (common-lisp:format common-lisp:nil "/experiments/~A/targetAccountConfigurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListExperimentTargetAccountConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-experiment-target-account-configurations)) (common-lisp:progn (common-lisp:defun list-experiment-templates @@ -6664,7 +6678,7 @@ "GET" "/experimentTemplates" "ListExperimentTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-experiment-templates)) (common-lisp:progn (common-lisp:defun list-experiments @@ -6681,7 +6695,7 @@ aws-sdk/generator/operation::input "GET" "/experiments" "ListExperiments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-experiments)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6703,12 +6717,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-target-account-configurations @@ -6733,12 +6748,13 @@ (common-lisp:format common-lisp:nil "/experimentTemplates/~A/targetAccountConfigurations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListTargetAccountConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-target-account-configurations)) (common-lisp:progn (common-lisp:defun list-target-resource-types @@ -6757,7 +6773,7 @@ "GET" "/targetResourceTypes" "ListTargetResourceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-target-resource-types)) (common-lisp:progn (common-lisp:defun start-experiment @@ -6775,7 +6791,7 @@ aws-sdk/generator/operation::input "POST" "/experiments" "StartExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-experiment)) (common-lisp:progn (common-lisp:defun stop-experiment @@ -6797,12 +6813,13 @@ (common-lisp:format common-lisp:nil "/experiments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "StopExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-experiment)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6824,12 +6841,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6851,12 +6869,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-experiment-template @@ -6882,12 +6901,13 @@ (common-lisp:format common-lisp:nil "/experimentTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateExperimentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-experiment-template)) (common-lisp:progn (common-lisp:defun update-target-account-configuration @@ -6913,14 +6933,16 @@ (common-lisp:format common-lisp:nil "/experimentTemplates/~A/targetAccountConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "UpdateTargetAccountConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-target-account-configuration)) diff --git a/services/fms/api.lisp b/services/fms/api.lisp index dac0d3a6..015cf35a 100644 --- a/services/fms/api.lisp +++ b/services/fms/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/fms/api - (:use) - (:nicknames #:aws/fms) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/fms/api (:use) + (:nicknames #:aws/fms) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/fms/api) (common-lisp:progn (common-lisp:define-condition fms-error @@ -11213,7 +11212,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-admin-account)) (common-lisp:progn (common-lisp:defun associate-third-party-firewall @@ -11231,7 +11230,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateThirdPartyFirewall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-third-party-firewall)) (common-lisp:progn (common-lisp:defun batch-associate-resource @@ -11248,7 +11247,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchAssociateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-resource)) (common-lisp:progn (common-lisp:defun batch-disassociate-resource @@ -11266,7 +11265,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDisassociateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-resource)) (common-lisp:progn (common-lisp:defun delete-apps-list @@ -11283,7 +11282,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAppsList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-apps-list)) (common-lisp:progn (common-lisp:defun delete-notification-channel () @@ -11309,7 +11308,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-policy)) (common-lisp:progn (common-lisp:defun delete-protocols-list @@ -11326,7 +11325,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProtocolsList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-protocols-list)) (common-lisp:progn (common-lisp:defun delete-resource-set @@ -11343,7 +11342,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourceSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-set)) (common-lisp:progn (common-lisp:defun disassociate-admin-account () @@ -11369,7 +11368,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateThirdPartyFirewall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-third-party-firewall)) (common-lisp:progn (common-lisp:defun get-admin-account () @@ -11394,7 +11393,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAdminScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-admin-scope)) (common-lisp:progn (common-lisp:defun get-apps-list @@ -11411,7 +11410,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAppsList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-apps-list)) (common-lisp:progn (common-lisp:defun get-compliance-detail @@ -11428,7 +11427,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetComplianceDetail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compliance-detail)) (common-lisp:progn (common-lisp:defun get-notification-channel () @@ -11453,7 +11452,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy)) (common-lisp:progn (common-lisp:defun get-protection-status @@ -11473,7 +11472,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetProtectionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-protection-status)) (common-lisp:progn (common-lisp:defun get-protocols-list @@ -11490,7 +11489,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetProtocolsList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-protocols-list)) (common-lisp:progn (common-lisp:defun get-resource-set @@ -11507,7 +11506,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourceSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-set)) (common-lisp:progn (common-lisp:defun get-third-party-firewall-association-status @@ -11525,7 +11524,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetThirdPartyFirewallAssociationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-third-party-firewall-association-status)) (common-lisp:progn (common-lisp:defun get-violation-details @@ -11544,7 +11543,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetViolationDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-violation-details)) (common-lisp:progn (common-lisp:defun list-admin-accounts-for-organization @@ -11562,7 +11561,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAdminAccountsForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-admin-accounts-for-organization)) (common-lisp:progn (common-lisp:defun list-admins-managing-account @@ -11580,7 +11579,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAdminsManagingAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-admins-managing-account)) (common-lisp:progn (common-lisp:defun list-apps-lists @@ -11598,7 +11597,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAppsLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-apps-lists)) (common-lisp:progn (common-lisp:defun list-compliance-status @@ -11616,7 +11615,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListComplianceStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-compliance-status)) (common-lisp:progn (common-lisp:defun list-discovered-resources @@ -11637,7 +11636,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDiscoveredResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-discovered-resources)) (common-lisp:progn (common-lisp:defun list-member-accounts @@ -11654,7 +11653,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMemberAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-member-accounts)) (common-lisp:progn (common-lisp:defun list-policies @@ -11671,7 +11670,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policies)) (common-lisp:progn (common-lisp:defun list-protocols-lists @@ -11689,7 +11688,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProtocolsLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-protocols-lists)) (common-lisp:progn (common-lisp:defun list-resource-set-resources @@ -11708,7 +11707,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceSetResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-set-resources)) (common-lisp:progn (common-lisp:defun list-resource-sets @@ -11725,7 +11724,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-sets)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11742,7 +11741,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-third-party-firewall-firewall-policies @@ -11762,7 +11761,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListThirdPartyFirewallFirewallPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-third-party-firewall-firewall-policies)) (common-lisp:progn (common-lisp:defun put-admin-account @@ -11779,7 +11778,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-admin-account)) (common-lisp:progn (common-lisp:defun put-apps-list @@ -11796,7 +11795,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAppsList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-apps-list)) (common-lisp:progn (common-lisp:defun put-notification-channel @@ -11813,7 +11812,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutNotificationChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-notification-channel)) (common-lisp:progn (common-lisp:defun put-policy @@ -11830,7 +11829,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-policy)) (common-lisp:progn (common-lisp:defun put-protocols-list @@ -11847,7 +11846,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutProtocolsList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-protocols-list)) (common-lisp:progn (common-lisp:defun put-resource-set @@ -11864,7 +11863,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourceSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-set)) (common-lisp:progn (common-lisp:defun tag-resource @@ -11881,7 +11880,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -11898,5 +11897,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/forecast/api.lisp b/services/forecast/api.lisp index 8e28664b..bfb620c1 100644 --- a/services/forecast/api.lisp +++ b/services/forecast/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/forecast/api - (:use) - (:nicknames #:aws/forecast) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/forecast/api (:use) + (:nicknames #:aws/forecast) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/forecast/api) (common-lisp:progn (common-lisp:define-condition forecast-error @@ -13121,7 +13120,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAutoPredictor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-auto-predictor)) (common-lisp:progn (common-lisp:defun create-dataset @@ -13141,7 +13140,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-dataset-group @@ -13160,7 +13159,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDatasetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset-group)) (common-lisp:progn (common-lisp:defun create-dataset-import-job @@ -13184,7 +13183,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDatasetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset-import-job)) (common-lisp:progn (common-lisp:defun create-explainability @@ -13206,7 +13205,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateExplainability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-explainability)) (common-lisp:progn (common-lisp:defun create-explainability-export @@ -13227,7 +13226,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateExplainabilityExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-explainability-export)) (common-lisp:progn (common-lisp:defun create-forecast @@ -13247,7 +13246,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-forecast)) (common-lisp:progn (common-lisp:defun create-forecast-export-job @@ -13268,7 +13267,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateForecastExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-forecast-export-job)) (common-lisp:progn (common-lisp:defun create-monitor @@ -13285,7 +13284,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-monitor)) (common-lisp:progn (common-lisp:defun create-predictor @@ -13311,7 +13310,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePredictor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-predictor)) (common-lisp:progn (common-lisp:defun create-predictor-backtest-export-job @@ -13332,7 +13331,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePredictorBacktestExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-predictor-backtest-export-job)) (common-lisp:progn (common-lisp:defun create-what-if-analysis @@ -13352,7 +13351,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWhatIfAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-what-if-analysis)) (common-lisp:progn (common-lisp:defun create-what-if-forecast @@ -13373,7 +13372,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWhatIfForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-what-if-forecast)) (common-lisp:progn (common-lisp:defun create-what-if-forecast-export @@ -13394,7 +13393,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWhatIfForecastExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-what-if-forecast-export)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -13411,7 +13410,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun delete-dataset-group @@ -13428,7 +13427,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDatasetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset-group)) (common-lisp:progn (common-lisp:defun delete-dataset-import-job @@ -13446,7 +13445,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDatasetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset-import-job)) (common-lisp:progn (common-lisp:defun delete-explainability @@ -13463,7 +13462,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteExplainability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-explainability)) (common-lisp:progn (common-lisp:defun delete-explainability-export @@ -13481,7 +13480,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteExplainabilityExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-explainability-export)) (common-lisp:progn (common-lisp:defun delete-forecast @@ -13498,7 +13497,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-forecast)) (common-lisp:progn (common-lisp:defun delete-forecast-export-job @@ -13516,7 +13515,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteForecastExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-forecast-export-job)) (common-lisp:progn (common-lisp:defun delete-monitor @@ -13533,7 +13532,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-monitor)) (common-lisp:progn (common-lisp:defun delete-predictor @@ -13550,7 +13549,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePredictor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-predictor)) (common-lisp:progn (common-lisp:defun delete-predictor-backtest-export-job @@ -13569,7 +13568,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePredictorBacktestExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-predictor-backtest-export-job)) (common-lisp:progn (common-lisp:defun delete-resource-tree @@ -13586,7 +13585,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourceTree")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-tree)) (common-lisp:progn (common-lisp:defun delete-what-if-analysis @@ -13603,7 +13602,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWhatIfAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-what-if-analysis)) (common-lisp:progn (common-lisp:defun delete-what-if-forecast @@ -13620,7 +13619,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWhatIfForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-what-if-forecast)) (common-lisp:progn (common-lisp:defun delete-what-if-forecast-export @@ -13638,7 +13637,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWhatIfForecastExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-what-if-forecast-export)) (common-lisp:progn (common-lisp:defun describe-auto-predictor @@ -13655,7 +13654,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAutoPredictor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-auto-predictor)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -13672,7 +13671,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-dataset-group @@ -13689,7 +13688,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDatasetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset-group)) (common-lisp:progn (common-lisp:defun describe-dataset-import-job @@ -13707,7 +13706,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDatasetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset-import-job)) (common-lisp:progn (common-lisp:defun describe-explainability @@ -13724,7 +13723,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExplainability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-explainability)) (common-lisp:progn (common-lisp:defun describe-explainability-export @@ -13742,7 +13741,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExplainabilityExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-explainability-export)) (common-lisp:progn (common-lisp:defun describe-forecast @@ -13759,7 +13758,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-forecast)) (common-lisp:progn (common-lisp:defun describe-forecast-export-job @@ -13777,7 +13776,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeForecastExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-forecast-export-job)) (common-lisp:progn (common-lisp:defun describe-monitor @@ -13794,7 +13793,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-monitor)) (common-lisp:progn (common-lisp:defun describe-predictor @@ -13811,7 +13810,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePredictor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-predictor)) (common-lisp:progn (common-lisp:defun describe-predictor-backtest-export-job @@ -13830,7 +13829,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePredictorBacktestExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-predictor-backtest-export-job)) (common-lisp:progn (common-lisp:defun describe-what-if-analysis @@ -13848,7 +13847,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWhatIfAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-what-if-analysis)) (common-lisp:progn (common-lisp:defun describe-what-if-forecast @@ -13866,7 +13865,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWhatIfForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-what-if-forecast)) (common-lisp:progn (common-lisp:defun describe-what-if-forecast-export @@ -13884,7 +13883,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWhatIfForecastExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-what-if-forecast-export)) (common-lisp:progn (common-lisp:defun get-accuracy-metrics @@ -13901,7 +13900,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAccuracyMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-accuracy-metrics)) (common-lisp:progn (common-lisp:defun list-dataset-groups @@ -13918,7 +13917,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasetGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-groups)) (common-lisp:progn (common-lisp:defun list-dataset-import-jobs @@ -13935,7 +13934,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasetImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-import-jobs)) (common-lisp:progn (common-lisp:defun list-datasets @@ -13952,7 +13951,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasets)) (common-lisp:progn (common-lisp:defun list-explainabilities @@ -13969,7 +13968,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExplainabilities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-explainabilities)) (common-lisp:progn (common-lisp:defun list-explainability-exports @@ -13987,7 +13986,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExplainabilityExports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-explainability-exports)) (common-lisp:progn (common-lisp:defun list-forecast-export-jobs @@ -14005,7 +14004,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListForecastExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-forecast-export-jobs)) (common-lisp:progn (common-lisp:defun list-forecasts @@ -14022,7 +14021,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListForecasts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-forecasts)) (common-lisp:progn (common-lisp:defun list-monitor-evaluations @@ -14041,7 +14040,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMonitorEvaluations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitor-evaluations)) (common-lisp:progn (common-lisp:defun list-monitors @@ -14058,7 +14057,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMonitors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitors)) (common-lisp:progn (common-lisp:defun list-predictor-backtest-export-jobs @@ -14076,7 +14075,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPredictorBacktestExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-predictor-backtest-export-jobs)) (common-lisp:progn (common-lisp:defun list-predictors @@ -14093,7 +14092,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPredictors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-predictors)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14110,7 +14109,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-what-if-analyses @@ -14127,7 +14126,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWhatIfAnalyses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-what-if-analyses)) (common-lisp:progn (common-lisp:defun list-what-if-forecast-exports @@ -14145,7 +14144,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWhatIfForecastExports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-what-if-forecast-exports)) (common-lisp:progn (common-lisp:defun list-what-if-forecasts @@ -14162,7 +14161,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWhatIfForecasts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-what-if-forecasts)) (common-lisp:progn (common-lisp:defun resume-resource @@ -14179,7 +14178,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResumeResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-resource)) (common-lisp:progn (common-lisp:defun stop-resource @@ -14196,7 +14195,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -14213,7 +14212,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14230,7 +14229,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-dataset-group @@ -14247,5 +14246,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDatasetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dataset-group)) diff --git a/services/forecastquery/api.lisp b/services/forecastquery/api.lisp index 10681574..e01a0fdb 100644 --- a/services/forecastquery/api.lisp +++ b/services/forecastquery/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/forecastquery/api - (:use) - (:nicknames #:aws/forecastquery) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/forecastquery/api (:use) + (:nicknames #:aws/forecastquery) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/forecastquery/api) (common-lisp:progn (common-lisp:define-condition forecastquery-error @@ -451,7 +450,7 @@ aws-sdk/generator/operation::input "POST" "/" "QueryForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query-forecast)) (common-lisp:progn (common-lisp:defun query-what-if-forecast @@ -471,5 +470,5 @@ aws-sdk/generator/operation::input "POST" "/" "QueryWhatIfForecast")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query-what-if-forecast)) diff --git a/services/frauddetector/api.lisp b/services/frauddetector/api.lisp index ca6bd18c..73be68db 100644 --- a/services/frauddetector/api.lisp +++ b/services/frauddetector/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/frauddetector/api - (:use) - (:nicknames #:aws/frauddetector) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/frauddetector/api (:use) + (:nicknames #:aws/frauddetector) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/frauddetector/api) (common-lisp:progn (common-lisp:define-condition frauddetector-error @@ -14013,7 +14012,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchCreateVariable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-variable)) (common-lisp:progn (common-lisp:defun batch-get-variable @@ -14030,7 +14029,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchGetVariable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-variable)) (common-lisp:progn (common-lisp:defun cancel-batch-import-job @@ -14047,7 +14046,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CancelBatchImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-batch-import-job)) (common-lisp:progn (common-lisp:defun cancel-batch-prediction-job @@ -14065,7 +14064,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CancelBatchPredictionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-batch-prediction-job)) (common-lisp:progn (common-lisp:defun create-batch-import-job @@ -14085,7 +14084,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateBatchImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-batch-import-job)) (common-lisp:progn (common-lisp:defun create-batch-prediction-job @@ -14107,7 +14106,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateBatchPredictionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-batch-prediction-job)) (common-lisp:progn (common-lisp:defun create-detector-version @@ -14128,7 +14127,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateDetectorVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-detector-version)) (common-lisp:progn (common-lisp:defun create-list @@ -14147,7 +14146,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-list)) (common-lisp:progn (common-lisp:defun create-model @@ -14167,7 +14166,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model)) (common-lisp:progn (common-lisp:defun create-model-version @@ -14188,7 +14187,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateModelVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-version)) (common-lisp:progn (common-lisp:defun create-rule @@ -14208,7 +14207,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule)) (common-lisp:progn (common-lisp:defun create-variable @@ -14228,7 +14227,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateVariable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-variable)) (common-lisp:progn (common-lisp:defun delete-batch-import-job @@ -14245,7 +14244,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteBatchImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-batch-import-job)) (common-lisp:progn (common-lisp:defun delete-batch-prediction-job @@ -14263,7 +14262,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteBatchPredictionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-batch-prediction-job)) (common-lisp:progn (common-lisp:defun delete-detector @@ -14280,7 +14279,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-detector)) (common-lisp:progn (common-lisp:defun delete-detector-version @@ -14298,7 +14297,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteDetectorVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-detector-version)) (common-lisp:progn (common-lisp:defun delete-entity-type @@ -14315,7 +14314,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteEntityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-entity-type)) (common-lisp:progn (common-lisp:defun delete-event @@ -14334,7 +14333,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event)) (common-lisp:progn (common-lisp:defun delete-event-type @@ -14351,7 +14350,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteEventType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-type)) (common-lisp:progn (common-lisp:defun delete-events-by-event-type @@ -14369,7 +14368,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteEventsByEventType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-events-by-event-type)) (common-lisp:progn (common-lisp:defun delete-external-model @@ -14386,7 +14385,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteExternalModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-external-model)) (common-lisp:progn (common-lisp:defun delete-label @@ -14403,7 +14402,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-label)) (common-lisp:progn (common-lisp:defun delete-list @@ -14420,7 +14419,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-list)) (common-lisp:progn (common-lisp:defun delete-model @@ -14437,7 +14436,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model)) (common-lisp:progn (common-lisp:defun delete-model-version @@ -14455,7 +14454,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteModelVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-version)) (common-lisp:progn (common-lisp:defun delete-outcome @@ -14472,7 +14471,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteOutcome")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-outcome)) (common-lisp:progn (common-lisp:defun delete-rule @@ -14489,7 +14488,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun delete-variable @@ -14506,7 +14505,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteVariable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-variable)) (common-lisp:progn (common-lisp:defun describe-detector @@ -14524,7 +14523,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-detector)) (common-lisp:progn (common-lisp:defun describe-model-versions @@ -14544,7 +14543,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeModelVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-versions)) (common-lisp:progn (common-lisp:defun get-batch-import-jobs @@ -14561,7 +14560,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBatchImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-batch-import-jobs)) (common-lisp:progn (common-lisp:defun get-batch-prediction-jobs @@ -14579,7 +14578,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBatchPredictionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-batch-prediction-jobs)) (common-lisp:progn (common-lisp:defun get-delete-events-by-event-type-status @@ -14597,7 +14596,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDeleteEventsByEventTypeStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-delete-events-by-event-type-status)) (common-lisp:progn (common-lisp:defun get-detector-version @@ -14615,7 +14614,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDetectorVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-detector-version)) (common-lisp:progn (common-lisp:defun get-detectors @@ -14633,7 +14632,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDetectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-detectors)) (common-lisp:progn (common-lisp:defun get-entity-types @@ -14650,7 +14649,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetEntityTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-entity-types)) (common-lisp:progn (common-lisp:defun get-event @@ -14666,7 +14665,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'frauddetector-request aws-sdk/generator/operation::input "POST" "/" "GetEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event)) (common-lisp:progn (common-lisp:defun get-event-prediction @@ -14688,7 +14687,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetEventPrediction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-prediction)) (common-lisp:progn (common-lisp:defun get-event-prediction-metadata @@ -14709,7 +14708,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetEventPredictionMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-prediction-metadata)) (common-lisp:progn (common-lisp:defun get-event-types @@ -14726,7 +14725,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetEventTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-types)) (common-lisp:progn (common-lisp:defun get-external-models @@ -14744,7 +14743,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetExternalModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-external-models)) (common-lisp:progn (common-lisp:defun get-kmsencryption-key () @@ -14769,7 +14768,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-labels)) (common-lisp:progn (common-lisp:defun get-list-elements @@ -14786,7 +14785,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetListElements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-list-elements)) (common-lisp:progn (common-lisp:defun get-lists-metadata @@ -14803,7 +14802,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetListsMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lists-metadata)) (common-lisp:progn (common-lisp:defun get-model-version @@ -14821,7 +14820,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetModelVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-model-version)) (common-lisp:progn (common-lisp:defun get-models @@ -14840,7 +14839,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-models)) (common-lisp:progn (common-lisp:defun get-outcomes @@ -14857,7 +14856,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetOutcomes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-outcomes)) (common-lisp:progn (common-lisp:defun get-rules @@ -14876,7 +14875,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'frauddetector-request aws-sdk/generator/operation::input "POST" "/" "GetRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rules)) (common-lisp:progn (common-lisp:defun get-variables @@ -14893,7 +14892,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetVariables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-variables)) (common-lisp:progn (common-lisp:defun list-event-predictions @@ -14914,7 +14913,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListEventPredictions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-predictions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14932,7 +14931,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-detector @@ -14951,7 +14950,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-detector)) (common-lisp:progn (common-lisp:defun put-entity-type @@ -14968,7 +14967,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutEntityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-entity-type)) (common-lisp:progn (common-lisp:defun put-event-type @@ -14988,7 +14987,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutEventType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-event-type)) (common-lisp:progn (common-lisp:defun put-external-model @@ -15010,7 +15009,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutExternalModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-external-model)) (common-lisp:progn (common-lisp:defun put-kmsencryption-key @@ -15027,7 +15026,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutKMSEncryptionKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-kmsencryption-key)) (common-lisp:progn (common-lisp:defun put-label @@ -15043,7 +15042,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'frauddetector-request aws-sdk/generator/operation::input "POST" "/" "PutLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-label)) (common-lisp:progn (common-lisp:defun put-outcome @@ -15060,7 +15059,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutOutcome")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-outcome)) (common-lisp:progn (common-lisp:defun send-event @@ -15080,7 +15079,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SendEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-event)) (common-lisp:progn (common-lisp:defun tag-resource @@ -15097,7 +15096,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -15114,7 +15113,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-detector-version @@ -15136,7 +15135,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDetectorVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-detector-version)) (common-lisp:progn (common-lisp:defun update-detector-version-metadata @@ -15156,7 +15155,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDetectorVersionMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-detector-version-metadata)) (common-lisp:progn (common-lisp:defun update-detector-version-status @@ -15175,7 +15174,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDetectorVersionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-detector-version-status)) (common-lisp:progn (common-lisp:defun update-event-label @@ -15195,7 +15194,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateEventLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-label)) (common-lisp:progn (common-lisp:defun update-list @@ -15215,7 +15214,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-list)) (common-lisp:progn (common-lisp:defun update-model @@ -15233,7 +15232,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model)) (common-lisp:progn (common-lisp:defun update-model-version @@ -15253,7 +15252,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateModelVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model-version)) (common-lisp:progn (common-lisp:defun update-model-version-status @@ -15273,7 +15272,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateModelVersionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model-version-status)) (common-lisp:progn (common-lisp:defun update-rule-metadata @@ -15290,7 +15289,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateRuleMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule-metadata)) (common-lisp:progn (common-lisp:defun update-rule-version @@ -15309,7 +15308,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateRuleVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule-version)) (common-lisp:progn (common-lisp:defun update-variable @@ -15328,5 +15327,5 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateVariable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-variable)) diff --git a/services/freetier/api.lisp b/services/freetier/api.lisp index 5206cf49..86dbb80a 100644 --- a/services/freetier/api.lisp +++ b/services/freetier/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/freetier/api - (:use) - (:nicknames #:aws/freetier) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/freetier/api (:use) + (:nicknames #:aws/freetier) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/freetier/api) (common-lisp:progn (common-lisp:define-condition freetier-error @@ -493,5 +492,5 @@ aws-sdk/generator/operation::input "POST" "/" "GetFreeTierUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-free-tier-usage)) diff --git a/services/fsx/api.lisp b/services/fsx/api.lisp index 0b44b64e..de64e756 100644 --- a/services/fsx/api.lisp +++ b/services/fsx/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/fsx/api - (:use) - (:nicknames #:aws/fsx) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/fsx/api (:use) + (:nicknames #:aws/fsx) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/fsx/api) (common-lisp:progn (common-lisp:define-condition fsx-error @@ -17198,7 +17197,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateFileSystemAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-file-system-aliases)) (common-lisp:progn (common-lisp:defun cancel-data-repository-task @@ -17216,7 +17215,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelDataRepositoryTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-data-repository-task)) (common-lisp:progn (common-lisp:defun copy-backup @@ -17236,7 +17235,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-backup)) (common-lisp:progn (common-lisp:defun copy-snapshot-and-update-volume @@ -17257,7 +17256,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopySnapshotAndUpdateVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-snapshot-and-update-volume)) (common-lisp:progn (common-lisp:defun create-backup @@ -17276,7 +17275,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backup)) (common-lisp:progn (common-lisp:defun create-data-repository-association @@ -17299,7 +17298,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataRepositoryAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-repository-association)) (common-lisp:progn (common-lisp:defun create-data-repository-task @@ -17321,7 +17320,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataRepositoryTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-repository-task)) (common-lisp:progn (common-lisp:defun create-file-cache @@ -17346,7 +17345,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFileCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-file-cache)) (common-lisp:progn (common-lisp:defun create-file-system @@ -17371,7 +17370,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFileSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-file-system)) (common-lisp:progn (common-lisp:defun create-file-system-from-backup @@ -17397,7 +17396,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFileSystemFromBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-file-system-from-backup)) (common-lisp:progn (common-lisp:defun create-snapshot @@ -17415,7 +17414,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-snapshot)) (common-lisp:progn (common-lisp:defun create-storage-virtual-machine @@ -17437,7 +17436,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStorageVirtualMachine")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-storage-virtual-machine)) (common-lisp:progn (common-lisp:defun create-volume @@ -17457,7 +17456,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-volume)) (common-lisp:progn (common-lisp:defun create-volume-from-backup @@ -17478,7 +17477,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVolumeFromBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-volume-from-backup)) (common-lisp:progn (common-lisp:defun delete-backup @@ -17495,7 +17494,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup)) (common-lisp:progn (common-lisp:defun delete-data-repository-association @@ -17516,7 +17515,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataRepositoryAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-repository-association)) (common-lisp:progn (common-lisp:defun delete-file-cache @@ -17534,7 +17533,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFileCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-file-cache)) (common-lisp:progn (common-lisp:defun delete-file-system @@ -17555,7 +17554,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFileSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-file-system)) (common-lisp:progn (common-lisp:defun delete-snapshot @@ -17573,7 +17572,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-snapshot)) (common-lisp:progn (common-lisp:defun delete-storage-virtual-machine @@ -17593,7 +17592,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStorageVirtualMachine")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-storage-virtual-machine)) (common-lisp:progn (common-lisp:defun delete-volume @@ -17613,7 +17612,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-volume)) (common-lisp:progn (common-lisp:defun describe-backups @@ -17632,7 +17631,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBackups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-backups)) (common-lisp:progn (common-lisp:defun describe-data-repository-associations @@ -17652,7 +17651,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataRepositoryAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-repository-associations)) (common-lisp:progn (common-lisp:defun describe-data-repository-tasks @@ -17671,7 +17670,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataRepositoryTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-repository-tasks)) (common-lisp:progn (common-lisp:defun describe-file-caches @@ -17689,7 +17688,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFileCaches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-file-caches)) (common-lisp:progn (common-lisp:defun describe-file-system-aliases @@ -17710,7 +17709,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFileSystemAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-file-system-aliases)) (common-lisp:progn (common-lisp:defun describe-file-systems @@ -17728,7 +17727,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFileSystems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-file-systems)) (common-lisp:progn (common-lisp:defun describe-shared-vpc-configuration () @@ -17756,7 +17755,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-snapshots)) (common-lisp:progn (common-lisp:defun describe-storage-virtual-machines @@ -17777,7 +17776,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStorageVirtualMachines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-storage-virtual-machines)) (common-lisp:progn (common-lisp:defun describe-volumes @@ -17796,7 +17795,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVolumes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-volumes)) (common-lisp:progn (common-lisp:defun disassociate-file-system-aliases @@ -17816,7 +17815,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateFileSystemAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-file-system-aliases)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -17834,7 +17833,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun release-file-system-nfs-v3locks @@ -17853,7 +17852,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReleaseFileSystemNfsV3Locks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'release-file-system-nfs-v3locks)) (common-lisp:progn (common-lisp:defun restore-volume-from-snapshot @@ -17873,7 +17872,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreVolumeFromSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-volume-from-snapshot)) (common-lisp:progn (common-lisp:defun start-misconfigured-state-recovery @@ -17892,7 +17891,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMisconfiguredStateRecovery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-misconfigured-state-recovery)) (common-lisp:progn (common-lisp:defun tag-resource @@ -17909,7 +17908,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -17926,7 +17925,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-data-repository-association @@ -17947,7 +17946,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDataRepositoryAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-repository-association)) (common-lisp:progn (common-lisp:defun update-file-cache @@ -17967,7 +17966,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFileCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-file-cache)) (common-lisp:progn (common-lisp:defun update-file-system @@ -17990,7 +17989,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFileSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-file-system)) (common-lisp:progn (common-lisp:defun update-shared-vpc-configuration @@ -18013,7 +18012,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSharedVpcConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-shared-vpc-configuration)) (common-lisp:progn (common-lisp:defun update-snapshot @@ -18031,7 +18030,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-snapshot)) (common-lisp:progn (common-lisp:defun update-storage-virtual-machine @@ -18053,7 +18052,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStorageVirtualMachine")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-storage-virtual-machine)) (common-lisp:progn (common-lisp:defun update-volume @@ -18073,5 +18072,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-volume)) diff --git a/services/gamelift/api.lisp b/services/gamelift/api.lisp index 5074e8ae..77c2f2af 100644 --- a/services/gamelift/api.lisp +++ b/services/gamelift/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/gamelift/api - (:use) - (:nicknames #:aws/gamelift) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/gamelift/api (:use) + (:nicknames #:aws/gamelift) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/gamelift/api) (common-lisp:progn (common-lisp:define-condition gamelift-error @@ -18823,7 +18822,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptMatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-match)) (common-lisp:progn (common-lisp:defun claim-game-server @@ -18843,7 +18842,7 @@ aws-sdk/generator/operation::input "POST" "/" "ClaimGameServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'claim-game-server)) (common-lisp:progn (common-lisp:defun create-alias @@ -18861,7 +18860,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alias)) (common-lisp:progn (common-lisp:defun create-build @@ -18881,7 +18880,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBuild")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-build)) (common-lisp:progn (common-lisp:defun create-fleet @@ -18913,7 +18912,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet)) (common-lisp:progn (common-lisp:defun create-fleet-locations @@ -18930,7 +18929,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFleetLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet-locations)) (common-lisp:progn (common-lisp:defun create-game-server-group @@ -18953,7 +18952,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGameServerGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-game-server-group)) (common-lisp:progn (common-lisp:defun create-game-session @@ -18976,7 +18975,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGameSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-game-session)) (common-lisp:progn (common-lisp:defun create-game-session-queue @@ -18999,7 +18998,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGameSessionQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-game-session-queue)) (common-lisp:progn (common-lisp:defun create-location @@ -19016,7 +19015,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-location)) (common-lisp:progn (common-lisp:defun create-matchmaking-configuration @@ -19043,7 +19042,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMatchmakingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-matchmaking-configuration)) (common-lisp:progn (common-lisp:defun create-matchmaking-rule-set @@ -19061,7 +19060,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMatchmakingRuleSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-matchmaking-rule-set)) (common-lisp:progn (common-lisp:defun create-player-session @@ -19079,7 +19078,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePlayerSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-player-session)) (common-lisp:progn (common-lisp:defun create-player-sessions @@ -19098,7 +19097,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePlayerSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-player-sessions)) (common-lisp:progn (common-lisp:defun create-script @@ -19117,7 +19116,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateScript")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-script)) (common-lisp:progn (common-lisp:defun create-vpc-peering-authorization @@ -19136,7 +19135,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpcPeeringAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-peering-authorization)) (common-lisp:progn (common-lisp:defun create-vpc-peering-connection @@ -19156,7 +19155,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVpcPeeringConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-peering-connection)) (common-lisp:progn (common-lisp:defun delete-alias @@ -19173,7 +19172,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alias)) (common-lisp:progn (common-lisp:defun delete-build @@ -19190,7 +19189,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBuild")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-build)) (common-lisp:progn (common-lisp:defun delete-fleet @@ -19207,7 +19206,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet)) (common-lisp:progn (common-lisp:defun delete-fleet-locations @@ -19224,7 +19223,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFleetLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet-locations)) (common-lisp:progn (common-lisp:defun delete-game-server-group @@ -19242,7 +19241,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGameServerGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-game-server-group)) (common-lisp:progn (common-lisp:defun delete-game-session-queue @@ -19259,7 +19258,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGameSessionQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-game-session-queue)) (common-lisp:progn (common-lisp:defun delete-location @@ -19276,7 +19275,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-location)) (common-lisp:progn (common-lisp:defun delete-matchmaking-configuration @@ -19294,7 +19293,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMatchmakingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-matchmaking-configuration)) (common-lisp:progn (common-lisp:defun delete-matchmaking-rule-set @@ -19312,7 +19311,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMatchmakingRuleSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-matchmaking-rule-set)) (common-lisp:progn (common-lisp:defun delete-scaling-policy @@ -19329,7 +19328,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scaling-policy)) (common-lisp:progn (common-lisp:defun delete-script @@ -19346,7 +19345,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteScript")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-script)) (common-lisp:progn (common-lisp:defun delete-vpc-peering-authorization @@ -19365,7 +19364,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpcPeeringAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-peering-authorization)) (common-lisp:progn (common-lisp:defun delete-vpc-peering-connection @@ -19384,7 +19383,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVpcPeeringConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-peering-connection)) (common-lisp:progn (common-lisp:defun deregister-compute @@ -19401,7 +19400,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterCompute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-compute)) (common-lisp:progn (common-lisp:defun deregister-game-server @@ -19419,7 +19418,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterGameServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-game-server)) (common-lisp:progn (common-lisp:defun describe-alias @@ -19436,7 +19435,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-alias)) (common-lisp:progn (common-lisp:defun describe-build @@ -19453,7 +19452,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBuild")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-build)) (common-lisp:progn (common-lisp:defun describe-compute @@ -19470,7 +19469,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCompute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-compute)) (common-lisp:progn (common-lisp:defun describe-ec2instance-limits @@ -19488,7 +19487,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEC2InstanceLimits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ec2instance-limits)) (common-lisp:progn (common-lisp:defun describe-fleet-attributes @@ -19505,7 +19504,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-attributes)) (common-lisp:progn (common-lisp:defun describe-fleet-capacity @@ -19522,7 +19521,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetCapacity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-capacity)) (common-lisp:progn (common-lisp:defun describe-fleet-events @@ -19541,7 +19540,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-events)) (common-lisp:progn (common-lisp:defun describe-fleet-location-attributes @@ -19560,7 +19559,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetLocationAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-location-attributes)) (common-lisp:progn (common-lisp:defun describe-fleet-location-capacity @@ -19578,7 +19577,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetLocationCapacity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-location-capacity)) (common-lisp:progn (common-lisp:defun describe-fleet-location-utilization @@ -19596,7 +19595,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetLocationUtilization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-location-utilization)) (common-lisp:progn (common-lisp:defun describe-fleet-port-settings @@ -19614,7 +19613,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetPortSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-port-settings)) (common-lisp:progn (common-lisp:defun describe-fleet-utilization @@ -19631,7 +19630,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFleetUtilization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-utilization)) (common-lisp:progn (common-lisp:defun describe-game-server @@ -19649,7 +19648,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGameServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-game-server)) (common-lisp:progn (common-lisp:defun describe-game-server-group @@ -19666,7 +19665,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGameServerGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-game-server-group)) (common-lisp:progn (common-lisp:defun describe-game-server-instances @@ -19687,7 +19686,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGameServerInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-game-server-instances)) (common-lisp:progn (common-lisp:defun describe-game-session-details @@ -19708,7 +19707,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGameSessionDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-game-session-details)) (common-lisp:progn (common-lisp:defun describe-game-session-placement @@ -19726,7 +19725,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGameSessionPlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-game-session-placement)) (common-lisp:progn (common-lisp:defun describe-game-session-queues @@ -19744,7 +19743,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGameSessionQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-game-session-queues)) (common-lisp:progn (common-lisp:defun describe-game-sessions @@ -19764,7 +19763,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGameSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-game-sessions)) (common-lisp:progn (common-lisp:defun describe-instances @@ -19783,7 +19782,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instances)) (common-lisp:progn (common-lisp:defun describe-matchmaking @@ -19800,7 +19799,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMatchmaking")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-matchmaking)) (common-lisp:progn (common-lisp:defun describe-matchmaking-configurations @@ -19819,7 +19818,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMatchmakingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-matchmaking-configurations)) (common-lisp:progn (common-lisp:defun describe-matchmaking-rule-sets @@ -19837,7 +19836,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMatchmakingRuleSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-matchmaking-rule-sets)) (common-lisp:progn (common-lisp:defun describe-player-sessions @@ -19858,7 +19857,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePlayerSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-player-sessions)) (common-lisp:progn (common-lisp:defun describe-runtime-configuration @@ -19876,7 +19875,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRuntimeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-runtime-configuration)) (common-lisp:progn (common-lisp:defun describe-scaling-policies @@ -19895,7 +19894,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeScalingPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scaling-policies)) (common-lisp:progn (common-lisp:defun describe-script @@ -19912,7 +19911,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeScript")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-script)) (common-lisp:progn (common-lisp:defun describe-vpc-peering-authorizations () @@ -19938,7 +19937,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVpcPeeringConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vpc-peering-connections)) (common-lisp:progn (common-lisp:defun get-compute-access @@ -19955,7 +19954,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetComputeAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compute-access)) (common-lisp:progn (common-lisp:defun get-compute-auth-token @@ -19972,7 +19971,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetComputeAuthToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compute-auth-token)) (common-lisp:progn (common-lisp:defun get-game-session-log-url @@ -19989,7 +19988,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetGameSessionLogUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-game-session-log-url)) (common-lisp:progn (common-lisp:defun get-instance-access @@ -20006,7 +20005,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInstanceAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-access)) (common-lisp:progn (common-lisp:defun list-aliases @@ -20025,7 +20024,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-aliases)) (common-lisp:progn (common-lisp:defun list-builds @@ -20042,7 +20041,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBuilds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-builds)) (common-lisp:progn (common-lisp:defun list-compute @@ -20060,7 +20059,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCompute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-compute)) (common-lisp:progn (common-lisp:defun list-fleets @@ -20078,7 +20077,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fleets)) (common-lisp:progn (common-lisp:defun list-game-server-groups @@ -20095,7 +20094,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGameServerGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-game-server-groups)) (common-lisp:progn (common-lisp:defun list-game-servers @@ -20114,7 +20113,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGameServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-game-servers)) (common-lisp:progn (common-lisp:defun list-locations @@ -20131,7 +20130,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-locations)) (common-lisp:progn (common-lisp:defun list-scripts @@ -20148,7 +20147,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListScripts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scripts)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -20165,7 +20164,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-scaling-policy @@ -20188,7 +20187,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutScalingPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-scaling-policy)) (common-lisp:progn (common-lisp:defun register-compute @@ -20208,7 +20207,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterCompute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-compute)) (common-lisp:progn (common-lisp:defun register-game-server @@ -20228,7 +20227,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterGameServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-game-server)) (common-lisp:progn (common-lisp:defun request-upload-credentials @@ -20245,7 +20244,7 @@ aws-sdk/generator/operation::input "POST" "/" "RequestUploadCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'request-upload-credentials)) (common-lisp:progn (common-lisp:defun resolve-alias @@ -20262,7 +20261,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResolveAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resolve-alias)) (common-lisp:progn (common-lisp:defun resume-game-server-group @@ -20280,7 +20279,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResumeGameServerGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-game-server-group)) (common-lisp:progn (common-lisp:defun search-game-sessions @@ -20300,7 +20299,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchGameSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-game-sessions)) (common-lisp:progn (common-lisp:defun start-fleet-actions @@ -20317,7 +20316,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFleetActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-fleet-actions)) (common-lisp:progn (common-lisp:defun start-game-session-placement @@ -20341,7 +20340,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartGameSessionPlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-game-session-placement)) (common-lisp:progn (common-lisp:defun start-match-backfill @@ -20361,7 +20360,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMatchBackfill")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-match-backfill)) (common-lisp:progn (common-lisp:defun start-matchmaking @@ -20379,7 +20378,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMatchmaking")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-matchmaking)) (common-lisp:progn (common-lisp:defun stop-fleet-actions @@ -20396,7 +20395,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopFleetActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-fleet-actions)) (common-lisp:progn (common-lisp:defun stop-game-session-placement @@ -20414,7 +20413,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopGameSessionPlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-game-session-placement)) (common-lisp:progn (common-lisp:defun stop-matchmaking @@ -20431,7 +20430,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopMatchmaking")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-matchmaking)) (common-lisp:progn (common-lisp:defun suspend-game-server-group @@ -20449,7 +20448,7 @@ aws-sdk/generator/operation::input "POST" "/" "SuspendGameServerGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'suspend-game-server-group)) (common-lisp:progn (common-lisp:defun tag-resource @@ -20466,7 +20465,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -20483,7 +20482,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-alias @@ -20502,7 +20501,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-alias)) (common-lisp:progn (common-lisp:defun update-build @@ -20519,7 +20518,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateBuild")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-build)) (common-lisp:progn (common-lisp:defun update-fleet-attributes @@ -20542,7 +20541,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFleetAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fleet-attributes)) (common-lisp:progn (common-lisp:defun update-fleet-capacity @@ -20562,7 +20561,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFleetCapacity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fleet-capacity)) (common-lisp:progn (common-lisp:defun update-fleet-port-settings @@ -20583,7 +20582,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFleetPortSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fleet-port-settings)) (common-lisp:progn (common-lisp:defun update-game-server @@ -20603,7 +20602,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGameServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-game-server)) (common-lisp:progn (common-lisp:defun update-game-server-group @@ -20624,7 +20623,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGameServerGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-game-server-group)) (common-lisp:progn (common-lisp:defun update-game-session @@ -20646,7 +20645,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGameSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-game-session)) (common-lisp:progn (common-lisp:defun update-game-session-queue @@ -20669,7 +20668,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGameSessionQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-game-session-queue)) (common-lisp:progn (common-lisp:defun update-matchmaking-configuration @@ -20696,7 +20695,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMatchmakingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-matchmaking-configuration)) (common-lisp:progn (common-lisp:defun update-runtime-configuration @@ -20714,7 +20713,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRuntimeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-runtime-configuration)) (common-lisp:progn (common-lisp:defun update-script @@ -20733,7 +20732,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateScript")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-script)) (common-lisp:progn (common-lisp:defun validate-matchmaking-rule-set @@ -20751,5 +20750,5 @@ aws-sdk/generator/operation::input "POST" "/" "ValidateMatchmakingRuleSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-matchmaking-rule-set)) diff --git a/services/glacier/api.lisp b/services/glacier/api.lisp index 8aa8209c..55a3ace1 100644 --- a/services/glacier/api.lisp +++ b/services/glacier/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/glacier/api - (:use) - (:nicknames #:aws/glacier) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/glacier/api (:use) + (:nicknames #:aws/glacier) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/glacier/api) (common-lisp:progn (common-lisp:define-condition glacier-error @@ -20,7 +19,7 @@ (common-lisp:export 'glacier-error)) (common-lisp:progn (common-lisp:defclass glacier-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "glacier" :api-version "2012-06-01" :host-prefix "glacier" :signing-name @@ -211,16 +210,22 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-sha256-tree-hash" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sha256-tree-hash" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'archive-id)) - (common-lisp:cons "x-amz-archive-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-archive-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -468,12 +473,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'archive-size)) - (common-lisp:cons "x-amz-archive-size" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-archive-size" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-sha256-tree-hash" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sha256-tree-hash" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -580,7 +589,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-vault-output)) (common-lisp:append)) @@ -1168,7 +1179,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'range)) - (common-lisp:cons "Range" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Range" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-job-output-input)) (common-lisp:append)) @@ -1236,25 +1249,35 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-sha256-tree-hash" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sha256-tree-hash" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-range)) - (common-lisp:cons "Content-Range" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Range" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept-ranges)) - (common-lisp:cons "Accept-Ranges" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Accept-Ranges" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'archive-description)) - (common-lisp:cons "x-amz-archive-description" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-archive-description" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1271,7 +1294,13 @@ ( (aws-sdk/generator/shape::input get-job-output-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-job-output-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-vault-access-policy-input common-lisp:nil ((account-id :initarg :account-id :initform @@ -1351,7 +1380,13 @@ ( (aws-sdk/generator/shape::input get-vault-access-policy-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'policy))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-vault-access-policy-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-vault-lock-input common-lisp:nil ((account-id :initarg :account-id :initform @@ -1542,7 +1577,13 @@ (aws-sdk/generator/shape::input get-vault-notifications-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'vault-notification-config))) + 'vault-notification-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-vault-notifications-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass glacier-job-description common-lisp:nil ((job-id :initarg :job-id :initform common-lisp:nil @@ -2026,7 +2067,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input initiate-job-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'job-parameters))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'job-parameters)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input initiate-job-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass initiate-job-output common-lisp:nil ((location :initarg :location :initform common-lisp:nil @@ -2061,16 +2106,22 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'job-id)) - (common-lisp:cons "x-amz-job-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-job-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'job-output-path)) - (common-lisp:cons "x-amz-job-output-path" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-job-output-path" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input initiate-job-output)) (common-lisp:append)) @@ -2124,12 +2175,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'archive-description)) - (common-lisp:cons "x-amz-archive-description" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-archive-description" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'part-size)) - (common-lisp:cons "x-amz-part-size" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-part-size" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2173,12 +2228,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'upload-id)) - (common-lisp:cons "x-amz-multipart-upload-id" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-multipart-upload-id" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2241,7 +2300,13 @@ ( (aws-sdk/generator/shape::input initiate-vault-lock-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'policy))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + initiate-vault-lock-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass initiate-vault-lock-output common-lisp:nil ((lock-id :initarg :lock-id :initform common-lisp:nil @@ -2267,7 +2332,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'lock-id)) - (common-lisp:cons "x-amz-lock-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-lock-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3559,7 +3626,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'capacity-id)) - (common-lisp:cons "x-amz-capacity-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-capacity-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3960,7 +4029,13 @@ ( (aws-sdk/generator/shape::input set-vault-access-policy-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'policy))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + set-vault-access-policy-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass set-vault-notifications-input common-lisp:nil ((account-id :initarg :account-id :initform @@ -4018,7 +4093,13 @@ (aws-sdk/generator/shape::input set-vault-notifications-input)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'vault-notification-config))) + 'vault-notification-config)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + set-vault-notifications-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype size () 'common-lisp:integer) (common-lisp:deftype status-code () 'common-lisp:string) (common-lisp:deftype storage-class () 'common-lisp:string) @@ -4087,13 +4168,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'archive-description)) - (common-lisp:cons "x-amz-archive-description" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-archive-description" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-sha256-tree-hash" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sha256-tree-hash" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input upload-archive-input)) (common-lisp:append @@ -4106,7 +4191,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input upload-archive-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input upload-archive-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass upload-list-element common-lisp:nil ((multipart-upload-id :initarg :multipart-upload-id @@ -4251,12 +4340,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-sha256-tree-hash" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sha256-tree-hash" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'range)) - (common-lisp:cons "Content-Range" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Range" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4273,7 +4366,13 @@ ( (aws-sdk/generator/shape::input upload-multipart-part-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + upload-multipart-part-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass upload-multipart-part-output common-lisp:nil ((checksum :initarg :checksum :initform common-lisp:nil @@ -4299,8 +4398,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum)) - (common-lisp:cons "x-amz-sha256-tree-hash" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sha256-tree-hash" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4475,20 +4576,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/multipart-uploads/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)) - (quri.encode:url-encode + 'vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "AbortMultipartUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'abort-multipart-upload)) (common-lisp:progn (common-lisp:defun abort-vault-lock @@ -4510,16 +4614,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/lock-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "AbortVaultLock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'abort-vault-lock)) (common-lisp:progn (common-lisp:defun add-tags-to-vault @@ -4541,16 +4647,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/tags?operation=add" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "AddTagsToVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-vault)) (common-lisp:progn (common-lisp:defun complete-multipart-upload @@ -4575,20 +4683,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/multipart-uploads/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)) - (quri.encode:url-encode + 'vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "CompleteMultipartUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'complete-multipart-upload)) (common-lisp:progn (common-lisp:defun complete-vault-lock @@ -4610,20 +4721,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/lock-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)) - (quri.encode:url-encode + 'vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'lock-id)))) + 'lock-id) + common-lisp:t))) "CompleteVaultLock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'complete-vault-lock)) (common-lisp:progn (common-lisp:defun create-vault @@ -4645,16 +4759,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "CreateVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vault)) (common-lisp:progn (common-lisp:defun delete-archive @@ -4677,20 +4793,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/archives/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)) - (quri.encode:url-encode + 'vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'archive-id)))) + 'archive-id) + common-lisp:t))) "DeleteArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-archive)) (common-lisp:progn (common-lisp:defun delete-vault @@ -4712,16 +4831,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "DeleteVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vault)) (common-lisp:progn (common-lisp:defun delete-vault-access-policy @@ -4743,16 +4864,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/access-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "DeleteVaultAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vault-access-policy)) (common-lisp:progn (common-lisp:defun delete-vault-notifications @@ -4774,16 +4897,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/notification-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "DeleteVaultNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vault-notifications)) (common-lisp:progn (common-lisp:defun describe-job @@ -4805,20 +4930,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)) - (quri.encode:url-encode + 'vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job)) (common-lisp:progn (common-lisp:defun describe-vault @@ -4840,16 +4968,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "DescribeVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vault)) (common-lisp:progn (common-lisp:defun get-data-retrieval-policy @@ -4871,12 +5001,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/policies/data-retrieval" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "GetDataRetrievalPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-retrieval-policy)) (common-lisp:progn (common-lisp:defun get-job-output @@ -4899,21 +5030,24 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/jobs/~A/output" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)) - (quri.encode:url-encode + 'vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetJobOutput") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-output)) (common-lisp:progn (common-lisp:defun get-vault-access-policy @@ -4935,16 +5069,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/access-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "GetVaultAccessPolicy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vault-access-policy)) (common-lisp:progn (common-lisp:defun get-vault-lock @@ -4966,16 +5102,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/lock-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "GetVaultLock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vault-lock)) (common-lisp:progn (common-lisp:defun get-vault-notifications @@ -4997,16 +5135,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/notification-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "GetVaultNotifications")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vault-notifications)) (common-lisp:progn (common-lisp:defun initiate-job @@ -5029,16 +5169,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "InitiateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initiate-job)) (common-lisp:progn (common-lisp:defun initiate-multipart-upload @@ -5063,16 +5205,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/multipart-uploads" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "InitiateMultipartUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initiate-multipart-upload)) (common-lisp:progn (common-lisp:defun initiate-vault-lock @@ -5094,16 +5238,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/lock-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "InitiateVaultLock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initiate-vault-lock)) (common-lisp:progn (common-lisp:defun list-jobs @@ -5128,16 +5274,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-multipart-uploads @@ -5160,16 +5308,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/multipart-uploads" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "ListMultipartUploads")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-multipart-uploads)) (common-lisp:progn (common-lisp:defun list-parts @@ -5193,20 +5343,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/multipart-uploads/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)) - (quri.encode:url-encode + 'vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "ListParts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-parts)) (common-lisp:progn (common-lisp:defun list-provisioned-capacity @@ -5228,12 +5381,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/provisioned-capacity" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "ListProvisionedCapacity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provisioned-capacity)) (common-lisp:progn (common-lisp:defun list-tags-for-vault @@ -5255,16 +5409,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "ListTagsForVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-vault)) (common-lisp:progn (common-lisp:defun list-vaults @@ -5286,12 +5442,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "ListVaults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vaults)) (common-lisp:progn (common-lisp:defun purchase-provisioned-capacity @@ -5314,12 +5471,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/provisioned-capacity" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "PurchaseProvisionedCapacity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'purchase-provisioned-capacity)) (common-lisp:progn (common-lisp:defun remove-tags-from-vault @@ -5341,16 +5499,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/tags?operation=remove" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "RemoveTagsFromVault")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-vault)) (common-lisp:progn (common-lisp:defun set-data-retrieval-policy @@ -5372,12 +5532,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/policies/data-retrieval" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)))) + 'account-id) + common-lisp:t))) "SetDataRetrievalPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-data-retrieval-policy)) (common-lisp:progn (common-lisp:defun set-vault-access-policy @@ -5399,16 +5560,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/access-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "SetVaultAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-vault-access-policy)) (common-lisp:progn (common-lisp:defun set-vault-notifications @@ -5432,16 +5595,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/notification-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "SetVaultNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-vault-notifications)) (common-lisp:progn (common-lisp:defun upload-archive @@ -5466,16 +5631,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/archives" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)))) + 'vault-name) + common-lisp:t))) "UploadArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upload-archive)) (common-lisp:progn (common-lisp:defun upload-multipart-part @@ -5500,18 +5667,21 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/~A/vaults/~A/multipart-uploads/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'account-id)) - (quri.encode:url-encode + 'account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vault-name)) - (quri.encode:url-encode + 'vault-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "UploadMultipartPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upload-multipart-part)) diff --git a/services/globalaccelerator/api.lisp b/services/globalaccelerator/api.lisp index 0ec1fa1b..ea034fba 100644 --- a/services/globalaccelerator/api.lisp +++ b/services/globalaccelerator/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/globalaccelerator/api - (:use) - (:nicknames #:aws/globalaccelerator) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/globalaccelerator/api (:use) + (:nicknames #:aws/globalaccelerator) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/globalaccelerator/api) (common-lisp:progn (common-lisp:define-condition globalaccelerator-error @@ -8269,7 +8268,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "AddCustomRoutingEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-custom-routing-endpoints)) (common-lisp:progn (common-lisp:defun add-endpoints @@ -8287,7 +8286,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "AddEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-endpoints)) (common-lisp:progn (common-lisp:defun advertise-byoip-cidr @@ -8303,7 +8302,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "AdvertiseByoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'advertise-byoip-cidr)) (common-lisp:progn (common-lisp:defun allow-custom-routing-traffic @@ -8324,7 +8323,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "AllowCustomRoutingTraffic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'allow-custom-routing-traffic)) (common-lisp:progn (common-lisp:defun create-accelerator @@ -8343,7 +8342,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "CreateAccelerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-accelerator)) (common-lisp:progn (common-lisp:defun create-cross-account-attachment @@ -8362,7 +8361,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "CreateCrossAccountAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cross-account-attachment)) (common-lisp:progn (common-lisp:defun create-custom-routing-accelerator @@ -8382,7 +8381,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "CreateCustomRoutingAccelerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-routing-accelerator)) (common-lisp:progn (common-lisp:defun create-custom-routing-endpoint-group @@ -8402,7 +8401,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "CreateCustomRoutingEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-routing-endpoint-group)) (common-lisp:progn (common-lisp:defun create-custom-routing-listener @@ -8421,7 +8420,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "CreateCustomRoutingListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-routing-listener)) (common-lisp:progn (common-lisp:defun create-endpoint-group @@ -8445,7 +8444,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "CreateEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-endpoint-group)) (common-lisp:progn (common-lisp:defun create-listener @@ -8464,7 +8463,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "CreateListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-listener)) (common-lisp:progn (common-lisp:defun delete-accelerator @@ -8480,7 +8479,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DeleteAccelerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-accelerator)) (common-lisp:progn (common-lisp:defun delete-cross-account-attachment @@ -8497,7 +8496,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DeleteCrossAccountAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cross-account-attachment)) (common-lisp:progn (common-lisp:defun delete-custom-routing-accelerator @@ -8514,7 +8513,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DeleteCustomRoutingAccelerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-routing-accelerator)) (common-lisp:progn (common-lisp:defun delete-custom-routing-endpoint-group @@ -8531,7 +8530,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DeleteCustomRoutingEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-routing-endpoint-group)) (common-lisp:progn (common-lisp:defun delete-custom-routing-listener @@ -8548,7 +8547,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DeleteCustomRoutingListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-routing-listener)) (common-lisp:progn (common-lisp:defun delete-endpoint-group @@ -8564,7 +8563,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DeleteEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint-group)) (common-lisp:progn (common-lisp:defun delete-listener @@ -8580,7 +8579,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DeleteListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-listener)) (common-lisp:progn (common-lisp:defun deny-custom-routing-traffic @@ -8601,7 +8600,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DenyCustomRoutingTraffic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deny-custom-routing-traffic)) (common-lisp:progn (common-lisp:defun deprovision-byoip-cidr @@ -8617,7 +8616,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DeprovisionByoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deprovision-byoip-cidr)) (common-lisp:progn (common-lisp:defun describe-accelerator @@ -8633,7 +8632,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeAccelerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-accelerator)) (common-lisp:progn (common-lisp:defun describe-accelerator-attributes @@ -8650,7 +8649,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeAcceleratorAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-accelerator-attributes)) (common-lisp:progn (common-lisp:defun describe-cross-account-attachment @@ -8667,7 +8666,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeCrossAccountAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cross-account-attachment)) (common-lisp:progn (common-lisp:defun describe-custom-routing-accelerator @@ -8684,7 +8683,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeCustomRoutingAccelerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-routing-accelerator)) (common-lisp:progn (common-lisp:defun describe-custom-routing-accelerator-attributes @@ -8701,7 +8700,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeCustomRoutingAcceleratorAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-routing-accelerator-attributes)) (common-lisp:progn (common-lisp:defun describe-custom-routing-endpoint-group @@ -8718,7 +8717,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeCustomRoutingEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-routing-endpoint-group)) (common-lisp:progn (common-lisp:defun describe-custom-routing-listener @@ -8735,7 +8734,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeCustomRoutingListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-routing-listener)) (common-lisp:progn (common-lisp:defun describe-endpoint-group @@ -8751,7 +8750,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoint-group)) (common-lisp:progn (common-lisp:defun describe-listener @@ -8767,7 +8766,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "DescribeListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-listener)) (common-lisp:progn (common-lisp:defun list-accelerators @@ -8783,7 +8782,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListAccelerators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accelerators)) (common-lisp:progn (common-lisp:defun list-byoip-cidrs @@ -8799,7 +8798,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListByoipCidrs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-byoip-cidrs)) (common-lisp:progn (common-lisp:defun list-cross-account-attachments @@ -8816,7 +8815,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListCrossAccountAttachments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cross-account-attachments)) (common-lisp:progn (common-lisp:defun list-cross-account-resource-accounts () @@ -8845,7 +8844,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListCrossAccountResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cross-account-resources)) (common-lisp:progn (common-lisp:defun list-custom-routing-accelerators @@ -8862,7 +8861,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListCustomRoutingAccelerators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-routing-accelerators)) (common-lisp:progn (common-lisp:defun list-custom-routing-endpoint-groups @@ -8880,7 +8879,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListCustomRoutingEndpointGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-routing-endpoint-groups)) (common-lisp:progn (common-lisp:defun list-custom-routing-listeners @@ -8898,7 +8897,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListCustomRoutingListeners")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-routing-listeners)) (common-lisp:progn (common-lisp:defun list-custom-routing-port-mappings @@ -8918,7 +8917,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListCustomRoutingPortMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-routing-port-mappings)) (common-lisp:progn (common-lisp:defun list-custom-routing-port-mappings-by-destination @@ -8938,7 +8937,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListCustomRoutingPortMappingsByDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-routing-port-mappings-by-destination)) (common-lisp:progn (common-lisp:defun list-endpoint-groups @@ -8955,7 +8954,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListEndpointGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-endpoint-groups)) (common-lisp:progn (common-lisp:defun list-listeners @@ -8972,7 +8971,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListListeners")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-listeners)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8988,7 +8987,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun provision-byoip-cidr @@ -9005,7 +9004,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "ProvisionByoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'provision-byoip-cidr)) (common-lisp:progn (common-lisp:defun remove-custom-routing-endpoints @@ -9023,7 +9022,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "RemoveCustomRoutingEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-custom-routing-endpoints)) (common-lisp:progn (common-lisp:defun remove-endpoints @@ -9040,7 +9039,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "RemoveEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-endpoints)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9056,7 +9055,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9072,7 +9071,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-accelerator @@ -9090,7 +9089,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UpdateAccelerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-accelerator)) (common-lisp:progn (common-lisp:defun update-accelerator-attributes @@ -9110,7 +9109,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UpdateAcceleratorAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-accelerator-attributes)) (common-lisp:progn (common-lisp:defun update-cross-account-attachment @@ -9130,7 +9129,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UpdateCrossAccountAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cross-account-attachment)) (common-lisp:progn (common-lisp:defun update-custom-routing-accelerator @@ -9149,7 +9148,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UpdateCustomRoutingAccelerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-custom-routing-accelerator)) (common-lisp:progn (common-lisp:defun update-custom-routing-accelerator-attributes @@ -9169,7 +9168,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UpdateCustomRoutingAcceleratorAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-custom-routing-accelerator-attributes)) (common-lisp:progn (common-lisp:defun update-custom-routing-listener @@ -9186,7 +9185,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UpdateCustomRoutingListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-custom-routing-listener)) (common-lisp:progn (common-lisp:defun update-endpoint-group @@ -9210,7 +9209,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UpdateEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-endpoint-group)) (common-lisp:progn (common-lisp:defun update-listener @@ -9228,7 +9227,7 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "UpdateListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-listener)) (common-lisp:progn (common-lisp:defun withdraw-byoip-cidr @@ -9244,5 +9243,5 @@ (aws-sdk/generator/shape:make-request-with-input 'globalaccelerator-request aws-sdk/generator/operation::input "POST" "/" "WithdrawByoipCidr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'withdraw-byoip-cidr)) diff --git a/services/glue/api.lisp b/services/glue/api.lisp index 0aa01c46..ddfb1ffb 100644 --- a/services/glue/api.lisp +++ b/services/glue/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/glue/api - (:use) - (:nicknames #:aws/glue) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/glue/api (:use) + (:nicknames #:aws/glue) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/glue/api) (common-lisp:progn (common-lisp:define-condition glue-error @@ -56504,7 +56503,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchCreatePartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-partition)) (common-lisp:progn (common-lisp:defun batch-delete-connection @@ -56522,7 +56521,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-connection)) (common-lisp:progn (common-lisp:defun batch-delete-partition @@ -56542,7 +56541,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeletePartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-partition)) (common-lisp:progn (common-lisp:defun batch-delete-table @@ -56562,7 +56561,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-table)) (common-lisp:progn (common-lisp:defun batch-delete-table-version @@ -56582,7 +56581,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteTableVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-table-version)) (common-lisp:progn (common-lisp:defun batch-get-blueprints @@ -56601,7 +56600,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetBlueprints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-blueprints)) (common-lisp:progn (common-lisp:defun batch-get-crawlers @@ -56618,7 +56617,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetCrawlers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-crawlers)) (common-lisp:progn (common-lisp:defun batch-get-custom-entity-types @@ -56636,7 +56635,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetCustomEntityTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-custom-entity-types)) (common-lisp:progn (common-lisp:defun batch-get-data-quality-result @@ -56654,7 +56653,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetDataQualityResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-data-quality-result)) (common-lisp:progn (common-lisp:defun batch-get-dev-endpoints @@ -56671,7 +56670,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetDevEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-dev-endpoints)) (common-lisp:progn (common-lisp:defun batch-get-jobs @@ -56688,7 +56687,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-jobs)) (common-lisp:progn (common-lisp:defun batch-get-partition @@ -56708,7 +56707,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetPartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-partition)) (common-lisp:progn (common-lisp:defun batch-get-table-optimizer @@ -56726,7 +56725,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetTableOptimizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-table-optimizer)) (common-lisp:progn (common-lisp:defun batch-get-triggers @@ -56743,7 +56742,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetTriggers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-triggers)) (common-lisp:progn (common-lisp:defun batch-get-workflows @@ -56760,7 +56759,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-workflows)) (common-lisp:progn (common-lisp:defun batch-stop-job-run @@ -56777,7 +56776,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchStopJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-stop-job-run)) (common-lisp:progn (common-lisp:defun batch-update-partition @@ -56796,7 +56795,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchUpdatePartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-partition)) (common-lisp:progn (common-lisp:defun cancel-data-quality-rule-recommendation-run @@ -56814,7 +56813,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelDataQualityRuleRecommendationRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-data-quality-rule-recommendation-run)) (common-lisp:progn (common-lisp:defun cancel-data-quality-ruleset-evaluation-run @@ -56832,7 +56831,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelDataQualityRulesetEvaluationRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-data-quality-ruleset-evaluation-run)) (common-lisp:progn (common-lisp:defun cancel-mltask-run @@ -56849,7 +56848,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelMLTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-mltask-run)) (common-lisp:progn (common-lisp:defun cancel-statement @@ -56866,7 +56865,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-statement)) (common-lisp:progn (common-lisp:defun check-schema-version-validity @@ -56884,7 +56883,7 @@ aws-sdk/generator/operation::input "POST" "/" "CheckSchemaVersionValidity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'check-schema-version-validity)) (common-lisp:progn (common-lisp:defun create-blueprint @@ -56902,7 +56901,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBlueprint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-blueprint)) (common-lisp:progn (common-lisp:defun create-classifier @@ -56922,7 +56921,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateClassifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-classifier)) (common-lisp:progn (common-lisp:defun create-connection @@ -56940,7 +56939,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connection)) (common-lisp:progn (common-lisp:defun create-crawler @@ -56965,7 +56964,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCrawler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-crawler)) (common-lisp:progn (common-lisp:defun create-custom-entity-type @@ -56984,7 +56983,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCustomEntityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-entity-type)) (common-lisp:progn (common-lisp:defun create-data-quality-ruleset @@ -57005,7 +57004,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataQualityRuleset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-quality-ruleset)) (common-lisp:progn (common-lisp:defun create-database @@ -57022,7 +57021,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-database)) (common-lisp:progn (common-lisp:defun create-dev-endpoint @@ -57047,7 +57046,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDevEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dev-endpoint)) (common-lisp:progn (common-lisp:defun create-job @@ -57076,7 +57075,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun create-mltransform @@ -57099,7 +57098,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMLTransform")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-mltransform)) (common-lisp:progn (common-lisp:defun create-partition @@ -57119,7 +57118,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-partition)) (common-lisp:progn (common-lisp:defun create-partition-index @@ -57139,7 +57138,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePartitionIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-partition-index)) (common-lisp:progn (common-lisp:defun create-registry @@ -57156,7 +57155,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRegistry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-registry)) (common-lisp:progn (common-lisp:defun create-schema @@ -57176,7 +57175,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-schema)) (common-lisp:progn (common-lisp:defun create-script @@ -57193,7 +57192,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateScript")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-script)) (common-lisp:progn (common-lisp:defun create-security-configuration @@ -57211,7 +57210,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSecurityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-security-configuration)) (common-lisp:progn (common-lisp:defun create-session @@ -57234,7 +57233,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-session)) (common-lisp:progn (common-lisp:defun create-table @@ -57254,7 +57253,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-table)) (common-lisp:progn (common-lisp:defun create-table-optimizer @@ -57274,7 +57273,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTableOptimizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-table-optimizer)) (common-lisp:progn (common-lisp:defun create-trigger @@ -57295,7 +57294,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrigger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-trigger)) (common-lisp:progn (common-lisp:defun create-user-defined-function @@ -57314,7 +57313,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserDefinedFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-defined-function)) (common-lisp:progn (common-lisp:defun create-workflow @@ -57334,7 +57333,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workflow)) (common-lisp:progn (common-lisp:defun delete-blueprint @@ -57351,7 +57350,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBlueprint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-blueprint)) (common-lisp:progn (common-lisp:defun delete-classifier @@ -57368,7 +57367,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteClassifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-classifier)) (common-lisp:progn (common-lisp:defun delete-column-statistics-for-partition @@ -57389,7 +57388,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteColumnStatisticsForPartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-column-statistics-for-partition)) (common-lisp:progn (common-lisp:defun delete-column-statistics-for-table @@ -57409,7 +57408,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteColumnStatisticsForTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-column-statistics-for-table)) (common-lisp:progn (common-lisp:defun delete-connection @@ -57426,7 +57425,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun delete-crawler @@ -57443,7 +57442,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCrawler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-crawler)) (common-lisp:progn (common-lisp:defun delete-custom-entity-type @@ -57461,7 +57460,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCustomEntityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-entity-type)) (common-lisp:progn (common-lisp:defun delete-data-quality-ruleset @@ -57479,7 +57478,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataQualityRuleset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-quality-ruleset)) (common-lisp:progn (common-lisp:defun delete-database @@ -57496,7 +57495,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-database)) (common-lisp:progn (common-lisp:defun delete-dev-endpoint @@ -57513,7 +57512,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDevEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dev-endpoint)) (common-lisp:progn (common-lisp:defun delete-job @@ -57530,7 +57529,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job)) (common-lisp:progn (common-lisp:defun delete-mltransform @@ -57547,7 +57546,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMLTransform")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mltransform)) (common-lisp:progn (common-lisp:defun delete-partition @@ -57567,7 +57566,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-partition)) (common-lisp:progn (common-lisp:defun delete-partition-index @@ -57586,7 +57585,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePartitionIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-partition-index)) (common-lisp:progn (common-lisp:defun delete-registry @@ -57603,7 +57602,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRegistry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-registry)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -57621,7 +57620,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-schema @@ -57638,7 +57637,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schema)) (common-lisp:progn (common-lisp:defun delete-schema-versions @@ -57655,7 +57654,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSchemaVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schema-versions)) (common-lisp:progn (common-lisp:defun delete-security-configuration @@ -57673,7 +57672,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSecurityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-security-configuration)) (common-lisp:progn (common-lisp:defun delete-session @@ -57690,7 +57689,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-session)) (common-lisp:progn (common-lisp:defun delete-table @@ -57709,7 +57708,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-table)) (common-lisp:progn (common-lisp:defun delete-table-optimizer @@ -57727,7 +57726,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTableOptimizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-table-optimizer)) (common-lisp:progn (common-lisp:defun delete-table-version @@ -57746,7 +57745,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTableVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-table-version)) (common-lisp:progn (common-lisp:defun delete-trigger @@ -57763,7 +57762,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrigger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-trigger)) (common-lisp:progn (common-lisp:defun delete-user-defined-function @@ -57782,7 +57781,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserDefinedFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-defined-function)) (common-lisp:progn (common-lisp:defun delete-workflow @@ -57799,7 +57798,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workflow)) (common-lisp:progn (common-lisp:defun get-blueprint @@ -57818,7 +57817,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetBlueprint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-blueprint)) (common-lisp:progn (common-lisp:defun get-blueprint-run @@ -57835,7 +57834,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetBlueprintRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-blueprint-run)) (common-lisp:progn (common-lisp:defun get-blueprint-runs @@ -57853,7 +57852,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetBlueprintRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-blueprint-runs)) (common-lisp:progn (common-lisp:defun get-catalog-import-status @@ -57871,7 +57870,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCatalogImportStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-catalog-import-status)) (common-lisp:progn (common-lisp:defun get-classifier @@ -57888,7 +57887,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetClassifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-classifier)) (common-lisp:progn (common-lisp:defun get-classifiers @@ -57905,7 +57904,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetClassifiers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-classifiers)) (common-lisp:progn (common-lisp:defun get-column-statistics-for-partition @@ -57926,7 +57925,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetColumnStatisticsForPartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-column-statistics-for-partition)) (common-lisp:progn (common-lisp:defun get-column-statistics-for-table @@ -57946,7 +57945,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetColumnStatisticsForTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-column-statistics-for-table)) (common-lisp:progn (common-lisp:defun get-column-statistics-task-run @@ -57964,7 +57963,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetColumnStatisticsTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-column-statistics-task-run)) (common-lisp:progn (common-lisp:defun get-column-statistics-task-runs @@ -57984,7 +57983,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetColumnStatisticsTaskRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-column-statistics-task-runs)) (common-lisp:progn (common-lisp:defun get-connection @@ -58001,7 +58000,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connection)) (common-lisp:progn (common-lisp:defun get-connections @@ -58021,7 +58020,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connections)) (common-lisp:progn (common-lisp:defun get-crawler @@ -58038,7 +58037,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCrawler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-crawler)) (common-lisp:progn (common-lisp:defun get-crawler-metrics @@ -58056,7 +58055,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCrawlerMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-crawler-metrics)) (common-lisp:progn (common-lisp:defun get-crawlers @@ -58073,7 +58072,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCrawlers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-crawlers)) (common-lisp:progn (common-lisp:defun get-custom-entity-type @@ -58090,7 +58089,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCustomEntityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-custom-entity-type)) (common-lisp:progn (common-lisp:defun get-data-catalog-encryption-settings @@ -58108,7 +58107,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDataCatalogEncryptionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-catalog-encryption-settings)) (common-lisp:progn (common-lisp:defun get-data-quality-result @@ -58125,7 +58124,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDataQualityResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-quality-result)) (common-lisp:progn (common-lisp:defun get-data-quality-rule-recommendation-run @@ -58143,7 +58142,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDataQualityRuleRecommendationRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-quality-rule-recommendation-run)) (common-lisp:progn (common-lisp:defun get-data-quality-ruleset @@ -58160,7 +58159,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDataQualityRuleset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-quality-ruleset)) (common-lisp:progn (common-lisp:defun get-data-quality-ruleset-evaluation-run @@ -58178,7 +58177,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDataQualityRulesetEvaluationRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-quality-ruleset-evaluation-run)) (common-lisp:progn (common-lisp:defun get-database @@ -58195,7 +58194,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-database)) (common-lisp:progn (common-lisp:defun get-databases @@ -58215,7 +58214,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-databases)) (common-lisp:progn (common-lisp:defun get-dataflow-graph @@ -58232,7 +58231,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDataflowGraph")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dataflow-graph)) (common-lisp:progn (common-lisp:defun get-dev-endpoint @@ -58249,7 +58248,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDevEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dev-endpoint)) (common-lisp:progn (common-lisp:defun get-dev-endpoints @@ -58266,7 +58265,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDevEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dev-endpoints)) (common-lisp:progn (common-lisp:defun get-job @@ -58282,7 +58281,7 @@ (aws-sdk/generator/shape:make-request-with-input 'glue-request aws-sdk/generator/operation::input "POST" "/" "GetJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job)) (common-lisp:progn (common-lisp:defun get-job-bookmark @@ -58299,7 +58298,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetJobBookmark")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-bookmark)) (common-lisp:progn (common-lisp:defun get-job-run @@ -58317,7 +58316,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-run)) (common-lisp:progn (common-lisp:defun get-job-runs @@ -58335,7 +58334,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetJobRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-runs)) (common-lisp:progn (common-lisp:defun get-jobs @@ -58351,7 +58350,7 @@ (aws-sdk/generator/shape:make-request-with-input 'glue-request aws-sdk/generator/operation::input "POST" "/" "GetJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-jobs)) (common-lisp:progn (common-lisp:defun get-mltask-run @@ -58368,7 +58367,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMLTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mltask-run)) (common-lisp:progn (common-lisp:defun get-mltask-runs @@ -58387,7 +58386,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMLTaskRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mltask-runs)) (common-lisp:progn (common-lisp:defun get-mltransform @@ -58404,7 +58403,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMLTransform")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mltransform)) (common-lisp:progn (common-lisp:defun get-mltransforms @@ -58422,7 +58421,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMLTransforms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mltransforms)) (common-lisp:progn (common-lisp:defun get-mapping @@ -58439,7 +58438,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mapping)) (common-lisp:progn (common-lisp:defun get-partition @@ -58459,7 +58458,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-partition)) (common-lisp:progn (common-lisp:defun get-partition-indexes @@ -58478,7 +58477,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPartitionIndexes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-partition-indexes)) (common-lisp:progn (common-lisp:defun get-partitions @@ -58500,7 +58499,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPartitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-partitions)) (common-lisp:progn (common-lisp:defun get-plan @@ -58519,7 +58518,7 @@ (aws-sdk/generator/shape:make-request-with-input 'glue-request aws-sdk/generator/operation::input "POST" "/" "GetPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-plan)) (common-lisp:progn (common-lisp:defun get-registry @@ -58536,7 +58535,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRegistry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-registry)) (common-lisp:progn (common-lisp:defun get-resource-policies @@ -58553,7 +58552,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policies)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -58570,7 +58569,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun get-schema @@ -58587,7 +58586,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema)) (common-lisp:progn (common-lisp:defun get-schema-by-definition @@ -58604,7 +58603,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSchemaByDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema-by-definition)) (common-lisp:progn (common-lisp:defun get-schema-version @@ -58623,7 +58622,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSchemaVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema-version)) (common-lisp:progn (common-lisp:defun get-schema-versions-diff @@ -58643,7 +58642,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSchemaVersionsDiff")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema-versions-diff)) (common-lisp:progn (common-lisp:defun get-security-configuration @@ -58661,7 +58660,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSecurityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-security-configuration)) (common-lisp:progn (common-lisp:defun get-security-configurations @@ -58679,7 +58678,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSecurityConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-security-configurations)) (common-lisp:progn (common-lisp:defun get-session @@ -58696,7 +58695,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-session)) (common-lisp:progn (common-lisp:defun get-statement @@ -58713,7 +58712,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-statement)) (common-lisp:progn (common-lisp:defun get-table @@ -58732,7 +58731,7 @@ (aws-sdk/generator/shape:make-request-with-input 'glue-request aws-sdk/generator/operation::input "POST" "/" "GetTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table)) (common-lisp:progn (common-lisp:defun get-table-optimizer @@ -58750,7 +58749,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTableOptimizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table-optimizer)) (common-lisp:progn (common-lisp:defun get-table-version @@ -58769,7 +58768,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTableVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table-version)) (common-lisp:progn (common-lisp:defun get-table-versions @@ -58789,7 +58788,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTableVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table-versions)) (common-lisp:progn (common-lisp:defun get-tables @@ -58809,7 +58808,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tables)) (common-lisp:progn (common-lisp:defun get-tags @@ -58825,7 +58824,7 @@ (aws-sdk/generator/shape:make-request-with-input 'glue-request aws-sdk/generator/operation::input "POST" "/" "GetTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tags)) (common-lisp:progn (common-lisp:defun get-trigger @@ -58842,7 +58841,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTrigger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-trigger)) (common-lisp:progn (common-lisp:defun get-triggers @@ -58861,7 +58860,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTriggers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-triggers)) (common-lisp:progn (common-lisp:defun get-unfiltered-partition-metadata @@ -58884,7 +58883,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUnfilteredPartitionMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-unfiltered-partition-metadata)) (common-lisp:progn (common-lisp:defun get-unfiltered-partitions-metadata @@ -58908,7 +58907,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUnfilteredPartitionsMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-unfiltered-partitions-metadata)) (common-lisp:progn (common-lisp:defun get-unfiltered-table-metadata @@ -58931,7 +58930,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUnfilteredTableMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-unfiltered-table-metadata)) (common-lisp:progn (common-lisp:defun get-user-defined-function @@ -58950,7 +58949,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUserDefinedFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-defined-function)) (common-lisp:progn (common-lisp:defun get-user-defined-functions @@ -58971,7 +58970,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUserDefinedFunctions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-defined-functions)) (common-lisp:progn (common-lisp:defun get-workflow @@ -58988,7 +58987,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow)) (common-lisp:progn (common-lisp:defun get-workflow-run @@ -59005,7 +59004,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWorkflowRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-run)) (common-lisp:progn (common-lisp:defun get-workflow-run-properties @@ -59023,7 +59022,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWorkflowRunProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-run-properties)) (common-lisp:progn (common-lisp:defun get-workflow-runs @@ -59042,7 +59041,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWorkflowRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-runs)) (common-lisp:progn (common-lisp:defun import-catalog-to-glue @@ -59059,7 +59058,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportCatalogToGlue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-catalog-to-glue)) (common-lisp:progn (common-lisp:defun list-blueprints @@ -59076,7 +59075,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBlueprints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-blueprints)) (common-lisp:progn (common-lisp:defun list-column-statistics-task-runs @@ -59094,7 +59093,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListColumnStatisticsTaskRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-column-statistics-task-runs)) (common-lisp:progn (common-lisp:defun list-crawlers @@ -59111,7 +59110,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCrawlers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-crawlers)) (common-lisp:progn (common-lisp:defun list-crawls @@ -59130,7 +59129,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCrawls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-crawls)) (common-lisp:progn (common-lisp:defun list-custom-entity-types @@ -59147,7 +59146,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCustomEntityTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-entity-types)) (common-lisp:progn (common-lisp:defun list-data-quality-results @@ -59165,7 +59164,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDataQualityResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-quality-results)) (common-lisp:progn (common-lisp:defun list-data-quality-rule-recommendation-runs @@ -59183,7 +59182,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDataQualityRuleRecommendationRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-quality-rule-recommendation-runs)) (common-lisp:progn (common-lisp:defun list-data-quality-ruleset-evaluation-runs @@ -59201,7 +59200,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDataQualityRulesetEvaluationRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-quality-ruleset-evaluation-runs)) (common-lisp:progn (common-lisp:defun list-data-quality-rulesets @@ -59220,7 +59219,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDataQualityRulesets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-quality-rulesets)) (common-lisp:progn (common-lisp:defun list-dev-endpoints @@ -59237,7 +59236,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDevEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dev-endpoints)) (common-lisp:progn (common-lisp:defun list-jobs @@ -59253,7 +59252,7 @@ (aws-sdk/generator/shape:make-request-with-input 'glue-request aws-sdk/generator/operation::input "POST" "/" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-mltransforms @@ -59271,7 +59270,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMLTransforms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mltransforms)) (common-lisp:progn (common-lisp:defun list-registries @@ -59288,7 +59287,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRegistries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-registries)) (common-lisp:progn (common-lisp:defun list-schema-versions @@ -59306,7 +59305,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSchemaVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schema-versions)) (common-lisp:progn (common-lisp:defun list-schemas @@ -59324,7 +59323,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schemas)) (common-lisp:progn (common-lisp:defun list-sessions @@ -59343,7 +59342,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sessions)) (common-lisp:progn (common-lisp:defun list-statements @@ -59361,7 +59360,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStatements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-statements)) (common-lisp:progn (common-lisp:defun list-table-optimizer-runs @@ -59382,7 +59381,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTableOptimizerRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-table-optimizer-runs)) (common-lisp:progn (common-lisp:defun list-triggers @@ -59401,7 +59400,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTriggers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-triggers)) (common-lisp:progn (common-lisp:defun list-workflows @@ -59418,7 +59417,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflows)) (common-lisp:progn (common-lisp:defun put-data-catalog-encryption-settings @@ -59438,7 +59437,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDataCatalogEncryptionSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-data-catalog-encryption-settings)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -59459,7 +59458,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun put-schema-version-metadata @@ -59480,7 +59479,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutSchemaVersionMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-schema-version-metadata)) (common-lisp:progn (common-lisp:defun put-workflow-run-properties @@ -59498,7 +59497,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutWorkflowRunProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-workflow-run-properties)) (common-lisp:progn (common-lisp:defun query-schema-version-metadata @@ -59519,7 +59518,7 @@ aws-sdk/generator/operation::input "POST" "/" "QuerySchemaVersionMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query-schema-version-metadata)) (common-lisp:progn (common-lisp:defun register-schema-version @@ -59536,7 +59535,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterSchemaVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-schema-version)) (common-lisp:progn (common-lisp:defun remove-schema-version-metadata @@ -59557,7 +59556,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveSchemaVersionMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-schema-version-metadata)) (common-lisp:progn (common-lisp:defun reset-job-bookmark @@ -59574,7 +59573,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetJobBookmark")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-job-bookmark)) (common-lisp:progn (common-lisp:defun resume-workflow-run @@ -59591,7 +59590,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResumeWorkflowRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-workflow-run)) (common-lisp:progn (common-lisp:defun run-statement @@ -59608,7 +59607,7 @@ aws-sdk/generator/operation::input "POST" "/" "RunStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'run-statement)) (common-lisp:progn (common-lisp:defun search-tables @@ -59628,7 +59627,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-tables)) (common-lisp:progn (common-lisp:defun start-blueprint-run @@ -59646,7 +59645,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartBlueprintRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-blueprint-run)) (common-lisp:progn (common-lisp:defun start-column-statistics-task-run @@ -59667,7 +59666,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartColumnStatisticsTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-column-statistics-task-run)) (common-lisp:progn (common-lisp:defun start-crawler @@ -59684,7 +59683,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartCrawler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-crawler)) (common-lisp:progn (common-lisp:defun start-crawler-schedule @@ -59701,7 +59700,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartCrawlerSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-crawler-schedule)) (common-lisp:progn (common-lisp:defun start-data-quality-rule-recommendation-run @@ -59722,7 +59721,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDataQualityRuleRecommendationRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-data-quality-rule-recommendation-run)) (common-lisp:progn (common-lisp:defun start-data-quality-ruleset-evaluation-run @@ -59745,7 +59744,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDataQualityRulesetEvaluationRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-data-quality-ruleset-evaluation-run)) (common-lisp:progn (common-lisp:defun start-export-labels-task-run @@ -59763,7 +59762,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartExportLabelsTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-export-labels-task-run)) (common-lisp:progn (common-lisp:defun start-import-labels-task-run @@ -59783,7 +59782,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartImportLabelsTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import-labels-task-run)) (common-lisp:progn (common-lisp:defun start-job-run @@ -59806,7 +59805,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartJobRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-job-run)) (common-lisp:progn (common-lisp:defun start-mlevaluation-task-run @@ -59824,7 +59823,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMLEvaluationTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-mlevaluation-task-run)) (common-lisp:progn (common-lisp:defun start-mllabeling-set-generation-task-run @@ -59842,7 +59841,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMLLabelingSetGenerationTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-mllabeling-set-generation-task-run)) (common-lisp:progn (common-lisp:defun start-trigger @@ -59859,7 +59858,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartTrigger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-trigger)) (common-lisp:progn (common-lisp:defun start-workflow-run @@ -59876,7 +59875,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartWorkflowRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-workflow-run)) (common-lisp:progn (common-lisp:defun stop-column-statistics-task-run @@ -59894,7 +59893,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopColumnStatisticsTaskRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-column-statistics-task-run)) (common-lisp:progn (common-lisp:defun stop-crawler @@ -59911,7 +59910,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopCrawler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-crawler)) (common-lisp:progn (common-lisp:defun stop-crawler-schedule @@ -59928,7 +59927,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopCrawlerSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-crawler-schedule)) (common-lisp:progn (common-lisp:defun stop-session @@ -59945,7 +59944,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-session)) (common-lisp:progn (common-lisp:defun stop-trigger @@ -59962,7 +59961,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopTrigger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-trigger)) (common-lisp:progn (common-lisp:defun stop-workflow-run @@ -59979,7 +59978,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopWorkflowRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-workflow-run)) (common-lisp:progn (common-lisp:defun tag-resource @@ -59996,7 +59995,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -60013,7 +60012,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-blueprint @@ -60031,7 +60030,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateBlueprint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-blueprint)) (common-lisp:progn (common-lisp:defun update-classifier @@ -60051,7 +60050,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateClassifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-classifier)) (common-lisp:progn (common-lisp:defun update-column-statistics-for-partition @@ -60072,7 +60071,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateColumnStatisticsForPartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-column-statistics-for-partition)) (common-lisp:progn (common-lisp:defun update-column-statistics-for-table @@ -60093,7 +60092,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateColumnStatisticsForTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-column-statistics-for-table)) (common-lisp:progn (common-lisp:defun update-connection @@ -60111,7 +60110,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connection)) (common-lisp:progn (common-lisp:defun update-crawler @@ -60136,7 +60135,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCrawler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-crawler)) (common-lisp:progn (common-lisp:defun update-crawler-schedule @@ -60153,7 +60152,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCrawlerSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-crawler-schedule)) (common-lisp:progn (common-lisp:defun update-data-quality-ruleset @@ -60171,7 +60170,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDataQualityRuleset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-quality-ruleset)) (common-lisp:progn (common-lisp:defun update-database @@ -60188,7 +60187,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-database)) (common-lisp:progn (common-lisp:defun update-dev-endpoint @@ -60210,7 +60209,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDevEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dev-endpoint)) (common-lisp:progn (common-lisp:defun update-job @@ -60227,7 +60226,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-job)) (common-lisp:progn (common-lisp:defun update-job-from-source-control @@ -60249,7 +60248,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateJobFromSourceControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-job-from-source-control)) (common-lisp:progn (common-lisp:defun update-mltransform @@ -60271,7 +60270,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMLTransform")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-mltransform)) (common-lisp:progn (common-lisp:defun update-partition @@ -60291,7 +60290,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePartition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-partition)) (common-lisp:progn (common-lisp:defun update-registry @@ -60308,7 +60307,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRegistry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-registry)) (common-lisp:progn (common-lisp:defun update-schema @@ -60328,7 +60327,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-schema)) (common-lisp:progn (common-lisp:defun update-source-control-from-job @@ -60350,7 +60349,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSourceControlFromJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-source-control-from-job)) (common-lisp:progn (common-lisp:defun update-table @@ -60370,7 +60369,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-table)) (common-lisp:progn (common-lisp:defun update-table-optimizer @@ -60390,7 +60389,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTableOptimizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-table-optimizer)) (common-lisp:progn (common-lisp:defun update-trigger @@ -60407,7 +60406,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTrigger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-trigger)) (common-lisp:progn (common-lisp:defun update-user-defined-function @@ -60428,7 +60427,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUserDefinedFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-defined-function)) (common-lisp:progn (common-lisp:defun update-workflow @@ -60448,5 +60447,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workflow)) diff --git a/services/grafana/api.lisp b/services/grafana/api.lisp index 177f2c7a..8d38034d 100644 --- a/services/grafana/api.lisp +++ b/services/grafana/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/grafana/api - (:use) - (:nicknames #:aws/grafana) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/grafana/api (:use) + (:nicknames #:aws/grafana) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/grafana/api) (common-lisp:progn (common-lisp:define-condition grafana-error @@ -20,7 +19,7 @@ (common-lisp:export 'grafana-error)) (common-lisp:progn (common-lisp:defclass grafana-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "grafana" :api-version "2020-08-18" :host-prefix "grafana" :signing-name @@ -184,7 +183,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grafana-token)) - (common-lisp:cons "Grafana-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Grafana-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3862,16 +3863,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/licenses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'license-type)))) + 'license-type) + common-lisp:t))) "AssociateLicense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-license)) (common-lisp:progn (common-lisp:defun create-workspace @@ -3901,7 +3904,7 @@ aws-sdk/generator/operation::input "POST" "/workspaces" "CreateWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workspace)) (common-lisp:progn (common-lisp:defun create-workspace-api-key @@ -3925,12 +3928,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/apikeys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "CreateWorkspaceApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workspace-api-key)) (common-lisp:progn (common-lisp:defun delete-workspace @@ -3952,12 +3956,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DeleteWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workspace)) (common-lisp:progn (common-lisp:defun delete-workspace-api-key @@ -3979,16 +3984,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/apikeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-name)))) + 'key-name) + common-lisp:t))) "DeleteWorkspaceApiKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workspace-api-key)) (common-lisp:progn (common-lisp:defun describe-workspace @@ -4010,12 +4017,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DescribeWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace)) (common-lisp:progn (common-lisp:defun describe-workspace-authentication @@ -4038,12 +4046,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/authentication" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DescribeWorkspaceAuthentication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace-authentication)) (common-lisp:progn (common-lisp:defun describe-workspace-configuration @@ -4066,12 +4075,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DescribeWorkspaceConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace-configuration)) (common-lisp:progn (common-lisp:defun disassociate-license @@ -4093,16 +4103,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/licenses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'license-type)))) + 'license-type) + common-lisp:t))) "DisassociateLicense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-license)) (common-lisp:progn (common-lisp:defun list-permissions @@ -4127,12 +4139,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "ListPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permissions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4154,12 +4167,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-versions @@ -4177,7 +4191,7 @@ aws-sdk/generator/operation::input "GET" "/versions" "ListVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-versions)) (common-lisp:progn (common-lisp:defun list-workspaces @@ -4194,7 +4208,7 @@ aws-sdk/generator/operation::input "GET" "/workspaces" "ListWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workspaces)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4216,12 +4230,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4243,12 +4258,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-permissions @@ -4271,12 +4287,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "UpdatePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-permissions)) (common-lisp:progn (common-lisp:defun update-workspace @@ -4310,12 +4327,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "UpdateWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workspace)) (common-lisp:progn (common-lisp:defun update-workspace-authentication @@ -4341,12 +4359,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/authentication" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "UpdateWorkspaceAuthentication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workspace-authentication)) (common-lisp:progn (common-lisp:defun update-workspace-configuration @@ -4371,10 +4390,11 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "UpdateWorkspaceConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workspace-configuration)) diff --git a/services/greengrass/api.lisp b/services/greengrass/api.lisp index 6eb2283d..1e91cd4e 100644 --- a/services/greengrass/api.lisp +++ b/services/greengrass/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/greengrass/api - (:use) - (:nicknames #:aws/greengrass) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/greengrass/api (:use) + (:nicknames #:aws/greengrass) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/greengrass/api) (common-lisp:progn (common-lisp:define-condition greengrass-error @@ -20,7 +19,7 @@ (common-lisp:export 'greengrass-error)) (common-lisp:progn (common-lisp:defclass greengrass-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "greengrass" :api-version "2017-06-07" :host-prefix "greengrass" :signing-name @@ -782,8 +781,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -973,8 +973,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1112,8 +1113,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1300,8 +1302,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1444,8 +1447,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1571,8 +1575,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1761,8 +1766,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1900,8 +1906,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2099,8 +2106,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2234,8 +2242,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2327,8 +2336,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-group-request)) (common-lisp:append @@ -2549,8 +2559,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2736,8 +2747,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2926,8 +2938,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3065,8 +3078,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3256,8 +3270,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3433,8 +3448,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3600,8 +3616,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3792,8 +3809,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11486,8 +11504,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12188,8 +12207,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'amzn-client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13708,12 +13728,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/role" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "AssociateRoleToGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-role-to-group)) (common-lisp:progn (common-lisp:defun associate-service-role-to-account @@ -13732,7 +13753,7 @@ "PUT" "/greengrass/servicerole" "AssociateServiceRoleToAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-service-role-to-account)) (common-lisp:progn (common-lisp:defun create-connector-definition @@ -13753,7 +13774,7 @@ "POST" "/greengrass/definition/connectors" "CreateConnectorDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connector-definition)) (common-lisp:progn (common-lisp:defun create-connector-definition-version @@ -13779,12 +13800,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/connectors/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-definition-id)))) + 'connector-definition-id) + common-lisp:t))) "CreateConnectorDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connector-definition-version)) (common-lisp:progn (common-lisp:defun create-core-definition @@ -13804,7 +13826,7 @@ "POST" "/greengrass/definition/cores" "CreateCoreDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-core-definition)) (common-lisp:progn (common-lisp:defun create-core-definition-version @@ -13829,12 +13851,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/cores/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-definition-id)))) + 'core-definition-id) + common-lisp:t))) "CreateCoreDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-core-definition-version)) (common-lisp:progn (common-lisp:defun create-deployment @@ -13859,12 +13882,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun create-device-definition @@ -13884,7 +13908,7 @@ "POST" "/greengrass/definition/devices" "CreateDeviceDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-device-definition)) (common-lisp:progn (common-lisp:defun create-device-definition-version @@ -13909,12 +13933,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/devices/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-definition-id)))) + 'device-definition-id) + common-lisp:t))) "CreateDeviceDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-device-definition-version)) (common-lisp:progn (common-lisp:defun create-function-definition @@ -13935,7 +13960,7 @@ "POST" "/greengrass/definition/functions" "CreateFunctionDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-function-definition)) (common-lisp:progn (common-lisp:defun create-function-definition-version @@ -13961,12 +13986,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/functions/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-definition-id)))) + 'function-definition-id) + common-lisp:t))) "CreateFunctionDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-function-definition-version)) (common-lisp:progn (common-lisp:defun create-group @@ -13986,7 +14012,7 @@ "POST" "/greengrass/groups" "CreateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun create-group-certificate-authority @@ -14009,12 +14035,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/certificateauthorities" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "CreateGroupCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group-certificate-authority)) (common-lisp:progn (common-lisp:defun create-group-version @@ -14046,12 +14073,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "CreateGroupVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group-version)) (common-lisp:progn (common-lisp:defun create-logger-definition @@ -14071,7 +14099,7 @@ "POST" "/greengrass/definition/loggers" "CreateLoggerDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-logger-definition)) (common-lisp:progn (common-lisp:defun create-logger-definition-version @@ -14096,12 +14124,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/loggers/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'logger-definition-id)))) + 'logger-definition-id) + common-lisp:t))) "CreateLoggerDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-logger-definition-version)) (common-lisp:progn (common-lisp:defun create-resource-definition @@ -14122,7 +14151,7 @@ "POST" "/greengrass/definition/resources" "CreateResourceDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-definition)) (common-lisp:progn (common-lisp:defun create-resource-definition-version @@ -14147,12 +14176,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/resources/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-definition-id)))) + 'resource-definition-id) + common-lisp:t))) "CreateResourceDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-definition-version)) (common-lisp:progn (common-lisp:defun create-software-update-job @@ -14177,7 +14207,7 @@ "POST" "/greengrass/updates" "CreateSoftwareUpdateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-software-update-job)) (common-lisp:progn (common-lisp:defun create-subscription-definition @@ -14198,7 +14228,7 @@ "POST" "/greengrass/definition/subscriptions" "CreateSubscriptionDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subscription-definition)) (common-lisp:progn (common-lisp:defun create-subscription-definition-version @@ -14224,12 +14254,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/subscriptions/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscription-definition-id)))) + 'subscription-definition-id) + common-lisp:t))) "CreateSubscriptionDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subscription-definition-version)) (common-lisp:progn (common-lisp:defun delete-connector-definition @@ -14252,12 +14283,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-definition-id)))) + 'connector-definition-id) + common-lisp:t))) "DeleteConnectorDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connector-definition)) (common-lisp:progn (common-lisp:defun delete-core-definition @@ -14279,12 +14311,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/cores/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-definition-id)))) + 'core-definition-id) + common-lisp:t))) "DeleteCoreDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-core-definition)) (common-lisp:progn (common-lisp:defun delete-device-definition @@ -14306,12 +14339,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-definition-id)))) + 'device-definition-id) + common-lisp:t))) "DeleteDeviceDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device-definition)) (common-lisp:progn (common-lisp:defun delete-function-definition @@ -14334,12 +14368,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/functions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-definition-id)))) + 'function-definition-id) + common-lisp:t))) "DeleteFunctionDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-function-definition)) (common-lisp:progn (common-lisp:defun delete-group @@ -14361,12 +14396,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun delete-logger-definition @@ -14388,12 +14424,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/loggers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'logger-definition-id)))) + 'logger-definition-id) + common-lisp:t))) "DeleteLoggerDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-logger-definition)) (common-lisp:progn (common-lisp:defun delete-resource-definition @@ -14416,12 +14453,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-definition-id)))) + 'resource-definition-id) + common-lisp:t))) "DeleteResourceDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-definition)) (common-lisp:progn (common-lisp:defun delete-subscription-definition @@ -14444,12 +14482,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscription-definition-id)))) + 'subscription-definition-id) + common-lisp:t))) "DeleteSubscriptionDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subscription-definition)) (common-lisp:progn (common-lisp:defun disassociate-role-from-group @@ -14472,12 +14511,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/role" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "DisassociateRoleFromGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-role-from-group)) (common-lisp:progn (common-lisp:defun disassociate-service-role-from-account () @@ -14508,12 +14548,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/role" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "GetAssociatedRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-associated-role)) (common-lisp:progn (common-lisp:defun get-bulk-deployment-status @@ -14536,12 +14577,13 @@ (common-lisp:format common-lisp:nil "/greengrass/bulk/deployments/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bulk-deployment-id)))) + 'bulk-deployment-id) + common-lisp:t))) "GetBulkDeploymentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bulk-deployment-status)) (common-lisp:progn (common-lisp:defun get-connectivity-info @@ -14563,12 +14605,13 @@ (common-lisp:format common-lisp:nil "/greengrass/things/~A/connectivityInfo" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "GetConnectivityInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connectivity-info)) (common-lisp:progn (common-lisp:defun get-connector-definition @@ -14590,12 +14633,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-definition-id)))) + 'connector-definition-id) + common-lisp:t))) "GetConnectorDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connector-definition)) (common-lisp:progn (common-lisp:defun get-connector-definition-version @@ -14621,16 +14665,18 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/connectors/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-definition-id)) - (quri.encode:url-encode + 'connector-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-definition-version-id)))) + 'connector-definition-version-id) + common-lisp:t))) "GetConnectorDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connector-definition-version)) (common-lisp:progn (common-lisp:defun get-core-definition @@ -14652,12 +14698,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/cores/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-definition-id)))) + 'core-definition-id) + common-lisp:t))) "GetCoreDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-core-definition)) (common-lisp:progn (common-lisp:defun get-core-definition-version @@ -14682,16 +14729,18 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/cores/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-definition-id)) - (quri.encode:url-encode + 'core-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-definition-version-id)))) + 'core-definition-version-id) + common-lisp:t))) "GetCoreDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-core-definition-version)) (common-lisp:progn (common-lisp:defun get-deployment-status @@ -14713,16 +14762,18 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/deployments/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)) - (quri.encode:url-encode + 'group-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "GetDeploymentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment-status)) (common-lisp:progn (common-lisp:defun get-device-definition @@ -14744,12 +14795,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-definition-id)))) + 'device-definition-id) + common-lisp:t))) "GetDeviceDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-definition)) (common-lisp:progn (common-lisp:defun get-device-definition-version @@ -14775,16 +14827,18 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/devices/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-definition-id)) - (quri.encode:url-encode + 'device-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-definition-version-id)))) + 'device-definition-version-id) + common-lisp:t))) "GetDeviceDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-definition-version)) (common-lisp:progn (common-lisp:defun get-function-definition @@ -14806,12 +14860,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/functions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-definition-id)))) + 'function-definition-id) + common-lisp:t))) "GetFunctionDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function-definition)) (common-lisp:progn (common-lisp:defun get-function-definition-version @@ -14837,16 +14892,18 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/functions/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-definition-id)) - (quri.encode:url-encode + 'function-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-definition-version-id)))) + 'function-definition-version-id) + common-lisp:t))) "GetFunctionDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function-definition-version)) (common-lisp:progn (common-lisp:defun get-group @@ -14868,12 +14925,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "GetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group)) (common-lisp:progn (common-lisp:defun get-group-certificate-authority @@ -14897,16 +14955,18 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/certificateauthorities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)) - (quri.encode:url-encode + 'group-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-authority-id)))) + 'certificate-authority-id) + common-lisp:t))) "GetGroupCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group-certificate-authority)) (common-lisp:progn (common-lisp:defun get-group-certificate-configuration @@ -14929,12 +14989,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/certificateauthorities/configuration/expiry" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "GetGroupCertificateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group-certificate-configuration)) (common-lisp:progn (common-lisp:defun get-group-version @@ -14956,16 +15017,18 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)) - (quri.encode:url-encode + 'group-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-version-id)))) + 'group-version-id) + common-lisp:t))) "GetGroupVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group-version)) (common-lisp:progn (common-lisp:defun get-logger-definition @@ -14987,12 +15050,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/loggers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'logger-definition-id)))) + 'logger-definition-id) + common-lisp:t))) "GetLoggerDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-logger-definition)) (common-lisp:progn (common-lisp:defun get-logger-definition-version @@ -15018,16 +15082,18 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/loggers/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'logger-definition-id)) - (quri.encode:url-encode + 'logger-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'logger-definition-version-id)))) + 'logger-definition-version-id) + common-lisp:t))) "GetLoggerDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-logger-definition-version)) (common-lisp:progn (common-lisp:defun get-resource-definition @@ -15049,12 +15115,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-definition-id)))) + 'resource-definition-id) + common-lisp:t))) "GetResourceDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-definition)) (common-lisp:progn (common-lisp:defun get-resource-definition-version @@ -15080,16 +15147,18 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/resources/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-definition-id)) - (quri.encode:url-encode + 'resource-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-definition-version-id)))) + 'resource-definition-version-id) + common-lisp:t))) "GetResourceDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-definition-version)) (common-lisp:progn (common-lisp:defun get-service-role-for-account () @@ -15121,12 +15190,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscription-definition-id)))) + 'subscription-definition-id) + common-lisp:t))) "GetSubscriptionDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-subscription-definition)) (common-lisp:progn (common-lisp:defun get-subscription-definition-version @@ -15152,16 +15222,18 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/subscriptions/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscription-definition-id)) - (quri.encode:url-encode + 'subscription-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscription-definition-version-id)))) + 'subscription-definition-version-id) + common-lisp:t))) "GetSubscriptionDefinitionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-subscription-definition-version)) (common-lisp:progn (common-lisp:defun get-thing-runtime-configuration @@ -15184,12 +15256,13 @@ (common-lisp:format common-lisp:nil "/greengrass/things/~A/runtimeconfig" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "GetThingRuntimeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-thing-runtime-configuration)) (common-lisp:progn (common-lisp:defun list-bulk-deployment-detailed-reports @@ -15214,12 +15287,13 @@ (common-lisp:format common-lisp:nil "/greengrass/bulk/deployments/~A/detailed-reports" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bulk-deployment-id)))) + 'bulk-deployment-id) + common-lisp:t))) "ListBulkDeploymentDetailedReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bulk-deployment-detailed-reports)) (common-lisp:progn (common-lisp:defun list-bulk-deployments @@ -15237,7 +15311,7 @@ "GET" "/greengrass/bulk/deployments" "ListBulkDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bulk-deployments)) (common-lisp:progn (common-lisp:defun list-connector-definition-versions @@ -15262,12 +15336,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/connectors/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-definition-id)))) + 'connector-definition-id) + common-lisp:t))) "ListConnectorDefinitionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connector-definition-versions)) (common-lisp:progn (common-lisp:defun list-connector-definitions @@ -15286,7 +15361,7 @@ "GET" "/greengrass/definition/connectors" "ListConnectorDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connector-definitions)) (common-lisp:progn (common-lisp:defun list-core-definition-versions @@ -15311,12 +15386,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/cores/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-definition-id)))) + 'core-definition-id) + common-lisp:t))) "ListCoreDefinitionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-core-definition-versions)) (common-lisp:progn (common-lisp:defun list-core-definitions @@ -15334,7 +15410,7 @@ "GET" "/greengrass/definition/cores" "ListCoreDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-core-definitions)) (common-lisp:progn (common-lisp:defun list-deployments @@ -15357,12 +15433,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "ListDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployments)) (common-lisp:progn (common-lisp:defun list-device-definition-versions @@ -15387,12 +15464,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/devices/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-definition-id)))) + 'device-definition-id) + common-lisp:t))) "ListDeviceDefinitionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-definition-versions)) (common-lisp:progn (common-lisp:defun list-device-definitions @@ -15410,7 +15488,7 @@ "GET" "/greengrass/definition/devices" "ListDeviceDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-definitions)) (common-lisp:progn (common-lisp:defun list-function-definition-versions @@ -15435,12 +15513,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/functions/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-definition-id)))) + 'function-definition-id) + common-lisp:t))) "ListFunctionDefinitionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-function-definition-versions)) (common-lisp:progn (common-lisp:defun list-function-definitions @@ -15459,7 +15538,7 @@ "GET" "/greengrass/definition/functions" "ListFunctionDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-function-definitions)) (common-lisp:progn (common-lisp:defun list-group-certificate-authorities @@ -15482,12 +15561,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/certificateauthorities" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "ListGroupCertificateAuthorities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-group-certificate-authorities)) (common-lisp:progn (common-lisp:defun list-group-versions @@ -15510,12 +15590,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "ListGroupVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-group-versions)) (common-lisp:progn (common-lisp:defun list-groups @@ -15533,7 +15614,7 @@ "GET" "/greengrass/groups" "ListGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun list-logger-definition-versions @@ -15558,12 +15639,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/loggers/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'logger-definition-id)))) + 'logger-definition-id) + common-lisp:t))) "ListLoggerDefinitionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-logger-definition-versions)) (common-lisp:progn (common-lisp:defun list-logger-definitions @@ -15581,7 +15663,7 @@ "GET" "/greengrass/definition/loggers" "ListLoggerDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-logger-definitions)) (common-lisp:progn (common-lisp:defun list-resource-definition-versions @@ -15606,12 +15688,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/resources/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-definition-id)))) + 'resource-definition-id) + common-lisp:t))) "ListResourceDefinitionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-definition-versions)) (common-lisp:progn (common-lisp:defun list-resource-definitions @@ -15630,7 +15713,7 @@ "GET" "/greengrass/definition/resources" "ListResourceDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-definitions)) (common-lisp:progn (common-lisp:defun list-subscription-definition-versions @@ -15655,12 +15738,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/subscriptions/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscription-definition-id)))) + 'subscription-definition-id) + common-lisp:t))) "ListSubscriptionDefinitionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscription-definition-versions)) (common-lisp:progn (common-lisp:defun list-subscription-definitions @@ -15679,7 +15763,7 @@ "GET" "/greengrass/definition/subscriptions" "ListSubscriptionDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscription-definitions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -15701,12 +15785,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun reset-deployments @@ -15729,12 +15814,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/deployments/$reset" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "ResetDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-deployments)) (common-lisp:progn (common-lisp:defun start-bulk-deployment @@ -15755,7 +15841,7 @@ "POST" "/greengrass/bulk/deployments" "StartBulkDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-bulk-deployment)) (common-lisp:progn (common-lisp:defun stop-bulk-deployment @@ -15777,12 +15863,13 @@ (common-lisp:format common-lisp:nil "/greengrass/bulk/deployments/~A/$stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bulk-deployment-id)))) + 'bulk-deployment-id) + common-lisp:t))) "StopBulkDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-bulk-deployment)) (common-lisp:progn (common-lisp:defun tag-resource @@ -15804,12 +15891,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -15831,12 +15919,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-connectivity-info @@ -15858,12 +15947,13 @@ (common-lisp:format common-lisp:nil "/greengrass/things/~A/connectivityInfo" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "UpdateConnectivityInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connectivity-info)) (common-lisp:progn (common-lisp:defun update-connector-definition @@ -15886,12 +15976,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-definition-id)))) + 'connector-definition-id) + common-lisp:t))) "UpdateConnectorDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connector-definition)) (common-lisp:progn (common-lisp:defun update-core-definition @@ -15913,12 +16004,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/cores/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-definition-id)))) + 'core-definition-id) + common-lisp:t))) "UpdateCoreDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-core-definition)) (common-lisp:progn (common-lisp:defun update-device-definition @@ -15940,12 +16032,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-definition-id)))) + 'device-definition-id) + common-lisp:t))) "UpdateDeviceDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device-definition)) (common-lisp:progn (common-lisp:defun update-function-definition @@ -15968,12 +16061,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/functions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-definition-id)))) + 'function-definition-id) + common-lisp:t))) "UpdateFunctionDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-function-definition)) (common-lisp:progn (common-lisp:defun update-group @@ -15995,12 +16089,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "UpdateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group)) (common-lisp:progn (common-lisp:defun update-group-certificate-configuration @@ -16025,12 +16120,13 @@ (common-lisp:format common-lisp:nil "/greengrass/groups/~A/certificateauthorities/configuration/expiry" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-id)))) + 'group-id) + common-lisp:t))) "UpdateGroupCertificateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group-certificate-configuration)) (common-lisp:progn (common-lisp:defun update-logger-definition @@ -16052,12 +16148,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/loggers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'logger-definition-id)))) + 'logger-definition-id) + common-lisp:t))) "UpdateLoggerDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-logger-definition)) (common-lisp:progn (common-lisp:defun update-resource-definition @@ -16080,12 +16177,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-definition-id)))) + 'resource-definition-id) + common-lisp:t))) "UpdateResourceDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-definition)) (common-lisp:progn (common-lisp:defun update-subscription-definition @@ -16109,12 +16207,13 @@ (common-lisp:format common-lisp:nil "/greengrass/definition/subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscription-definition-id)))) + 'subscription-definition-id) + common-lisp:t))) "UpdateSubscriptionDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscription-definition)) (common-lisp:progn (common-lisp:defun update-thing-runtime-configuration @@ -16138,10 +16237,11 @@ (common-lisp:format common-lisp:nil "/greengrass/things/~A/runtimeconfig" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "UpdateThingRuntimeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-thing-runtime-configuration)) diff --git a/services/greengrassv2/api.lisp b/services/greengrassv2/api.lisp index 25db7931..b297f080 100644 --- a/services/greengrassv2/api.lisp +++ b/services/greengrassv2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/greengrassv2/api - (:use) - (:nicknames #:aws/greengrassv2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/greengrassv2/api (:use) + (:nicknames #:aws/greengrassv2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/greengrassv2/api) (common-lisp:progn (common-lisp:define-condition greengrassv2-error @@ -20,7 +19,7 @@ (common-lisp:export 'greengrassv2-error)) (common-lisp:progn (common-lisp:defclass greengrassv2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "greengrassv2" :api-version "2020-11-30" :host-prefix "greengrass" :signing-name @@ -6502,7 +6501,7 @@ "PUT" "/greengrass/servicerole" "AssociateServiceRoleToAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-service-role-to-account)) (common-lisp:progn (common-lisp:defun batch-associate-client-device-with-core-device @@ -6525,12 +6524,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/coreDevices/~A/associateClientDevices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-device-thing-name)))) + 'core-device-thing-name) + common-lisp:t))) "BatchAssociateClientDeviceWithCoreDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-client-device-with-core-device)) (common-lisp:progn (common-lisp:defun batch-disassociate-client-device-from-core-device @@ -6553,12 +6553,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/coreDevices/~A/disassociateClientDevices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-device-thing-name)))) + 'core-device-thing-name) + common-lisp:t))) "BatchDisassociateClientDeviceFromCoreDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-client-device-from-core-device)) (common-lisp:progn (common-lisp:defun cancel-deployment @@ -6580,12 +6581,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/deployments/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "CancelDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-deployment)) (common-lisp:progn (common-lisp:defun create-component-version @@ -6605,7 +6607,7 @@ "POST" "/greengrass/v2/createComponentVersion" "CreateComponentVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-component-version)) (common-lisp:progn (common-lisp:defun create-deployment @@ -6628,7 +6630,7 @@ "POST" "/greengrass/v2/deployments" "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun delete-component @@ -6650,12 +6652,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/components/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "DeleteComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-component)) (common-lisp:progn (common-lisp:defun delete-core-device @@ -6677,12 +6680,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/coreDevices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-device-thing-name)))) + 'core-device-thing-name) + common-lisp:t))) "DeleteCoreDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-core-device)) (common-lisp:progn (common-lisp:defun delete-deployment @@ -6704,12 +6708,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "DeleteDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-deployment)) (common-lisp:progn (common-lisp:defun describe-component @@ -6731,12 +6736,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/components/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "DescribeComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-component)) (common-lisp:progn (common-lisp:defun disassociate-service-role-from-account () @@ -6767,12 +6773,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/components/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "GetComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-component)) (common-lisp:progn (common-lisp:defun get-component-version-artifact @@ -6795,15 +6802,16 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/components/~A/artifacts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)) + 'arn) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'artifact-name))) "GetComponentVersionArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-component-version-artifact)) (common-lisp:progn (common-lisp:defun get-connectivity-info @@ -6825,12 +6833,13 @@ (common-lisp:format common-lisp:nil "/greengrass/things/~A/connectivityInfo" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "GetConnectivityInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connectivity-info)) (common-lisp:progn (common-lisp:defun get-core-device @@ -6852,12 +6861,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/coreDevices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-device-thing-name)))) + 'core-device-thing-name) + common-lisp:t))) "GetCoreDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-core-device)) (common-lisp:progn (common-lisp:defun get-deployment @@ -6879,12 +6889,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "GetDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment)) (common-lisp:progn (common-lisp:defun get-service-role-for-account () @@ -6918,12 +6929,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/coreDevices/~A/associatedClientDevices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-device-thing-name)))) + 'core-device-thing-name) + common-lisp:t))) "ListClientDevicesAssociatedWithCoreDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-client-devices-associated-with-core-device)) (common-lisp:progn (common-lisp:defun list-component-versions @@ -6945,12 +6957,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/components/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "ListComponentVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-component-versions)) (common-lisp:progn (common-lisp:defun list-components @@ -6968,7 +6981,7 @@ "GET" "/greengrass/v2/components" "ListComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-components)) (common-lisp:progn (common-lisp:defun list-core-devices @@ -6988,7 +7001,7 @@ "GET" "/greengrass/v2/coreDevices" "ListCoreDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-core-devices)) (common-lisp:progn (common-lisp:defun list-deployments @@ -7009,7 +7022,7 @@ "GET" "/greengrass/v2/deployments" "ListDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployments)) (common-lisp:progn (common-lisp:defun list-effective-deployments @@ -7034,12 +7047,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/coreDevices/~A/effectiveDeployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-device-thing-name)))) + 'core-device-thing-name) + common-lisp:t))) "ListEffectiveDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-effective-deployments)) (common-lisp:progn (common-lisp:defun list-installed-components @@ -7065,12 +7079,13 @@ (common-lisp:format common-lisp:nil "/greengrass/v2/coreDevices/~A/installedComponents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-device-thing-name)))) + 'core-device-thing-name) + common-lisp:t))) "ListInstalledComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-installed-components)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7092,12 +7107,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun resolve-component-candidates @@ -7116,7 +7132,7 @@ "POST" "/greengrass/v2/resolveComponentCandidates" "ResolveComponentCandidates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resolve-component-candidates)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7138,12 +7154,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7165,12 +7182,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-connectivity-info @@ -7192,10 +7210,11 @@ (common-lisp:format common-lisp:nil "/greengrass/things/~A/connectivityInfo" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "UpdateConnectivityInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connectivity-info)) diff --git a/services/groundstation/api.lisp b/services/groundstation/api.lisp index f4d5107c..9b1c8629 100644 --- a/services/groundstation/api.lisp +++ b/services/groundstation/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/groundstation/api - (:use) - (:nicknames #:aws/groundstation) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/groundstation/api (:use) + (:nicknames #:aws/groundstation) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/groundstation/api) (common-lisp:progn (common-lisp:define-condition groundstation-error @@ -20,7 +19,7 @@ (common-lisp:export 'groundstation-error)) (common-lisp:progn (common-lisp:defclass groundstation-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "groundstation" :api-version "2019-05-23" :host-prefix "groundstation" :signing-name @@ -7284,12 +7283,13 @@ (common-lisp:format common-lisp:nil "/contact/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "CancelContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-contact)) (common-lisp:progn (common-lisp:defun create-config @@ -7306,7 +7306,7 @@ aws-sdk/generator/operation::input "POST" "/config" "CreateConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-config)) (common-lisp:progn (common-lisp:defun create-dataflow-endpoint-group @@ -7328,7 +7328,7 @@ "POST" "/dataflowEndpointGroup" "CreateDataflowEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataflow-endpoint-group)) (common-lisp:progn (common-lisp:defun create-ephemeris @@ -7348,7 +7348,7 @@ aws-sdk/generator/operation::input "POST" "/ephemeris" "CreateEphemeris")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ephemeris)) (common-lisp:progn (common-lisp:defun create-mission-profile @@ -7373,7 +7373,7 @@ "POST" "/missionprofile" "CreateMissionProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-mission-profile)) (common-lisp:progn (common-lisp:defun delete-config @@ -7395,16 +7395,18 @@ (common-lisp:format common-lisp:nil "/config/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'config-type)) - (quri.encode:url-encode + 'config-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'config-id)))) + 'config-id) + common-lisp:t))) "DeleteConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-config)) (common-lisp:progn (common-lisp:defun delete-dataflow-endpoint-group @@ -7427,12 +7429,13 @@ (common-lisp:format common-lisp:nil "/dataflowEndpointGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataflow-endpoint-group-id)))) + 'dataflow-endpoint-group-id) + common-lisp:t))) "DeleteDataflowEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataflow-endpoint-group)) (common-lisp:progn (common-lisp:defun delete-ephemeris @@ -7454,12 +7457,13 @@ (common-lisp:format common-lisp:nil "/ephemeris/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ephemeris-id)))) + 'ephemeris-id) + common-lisp:t))) "DeleteEphemeris")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ephemeris)) (common-lisp:progn (common-lisp:defun delete-mission-profile @@ -7481,12 +7485,13 @@ (common-lisp:format common-lisp:nil "/missionprofile/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mission-profile-id)))) + 'mission-profile-id) + common-lisp:t))) "DeleteMissionProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mission-profile)) (common-lisp:progn (common-lisp:defun describe-contact @@ -7508,12 +7513,13 @@ (common-lisp:format common-lisp:nil "/contact/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-id)))) + 'contact-id) + common-lisp:t))) "DescribeContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-contact)) (common-lisp:progn (common-lisp:defun describe-ephemeris @@ -7535,12 +7541,13 @@ (common-lisp:format common-lisp:nil "/ephemeris/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ephemeris-id)))) + 'ephemeris-id) + common-lisp:t))) "DescribeEphemeris")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ephemeris)) (common-lisp:progn (common-lisp:defun get-agent-configuration @@ -7562,12 +7569,13 @@ (common-lisp:format common-lisp:nil "/agent/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "GetAgentConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-agent-configuration)) (common-lisp:progn (common-lisp:defun get-config @@ -7589,16 +7597,18 @@ (common-lisp:format common-lisp:nil "/config/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'config-type)) - (quri.encode:url-encode + 'config-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'config-id)))) + 'config-id) + common-lisp:t))) "GetConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-config)) (common-lisp:progn (common-lisp:defun get-dataflow-endpoint-group @@ -7621,12 +7631,13 @@ (common-lisp:format common-lisp:nil "/dataflowEndpointGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataflow-endpoint-group-id)))) + 'dataflow-endpoint-group-id) + common-lisp:t))) "GetDataflowEndpointGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dataflow-endpoint-group)) (common-lisp:progn (common-lisp:defun get-minute-usage @@ -7643,7 +7654,7 @@ aws-sdk/generator/operation::input "POST" "/minute-usage" "GetMinuteUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-minute-usage)) (common-lisp:progn (common-lisp:defun get-mission-profile @@ -7665,12 +7676,13 @@ (common-lisp:format common-lisp:nil "/missionprofile/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mission-profile-id)))) + 'mission-profile-id) + common-lisp:t))) "GetMissionProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mission-profile)) (common-lisp:progn (common-lisp:defun get-satellite @@ -7692,12 +7704,13 @@ (common-lisp:format common-lisp:nil "/satellite/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'satellite-id)))) + 'satellite-id) + common-lisp:t))) "GetSatellite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-satellite)) (common-lisp:progn (common-lisp:defun list-configs @@ -7714,7 +7727,7 @@ aws-sdk/generator/operation::input "GET" "/config" "ListConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configs)) (common-lisp:progn (common-lisp:defun list-contacts @@ -7735,7 +7748,7 @@ aws-sdk/generator/operation::input "POST" "/contacts" "ListContacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contacts)) (common-lisp:progn (common-lisp:defun list-dataflow-endpoint-groups @@ -7754,7 +7767,7 @@ "GET" "/dataflowEndpointGroup" "ListDataflowEndpointGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataflow-endpoint-groups)) (common-lisp:progn (common-lisp:defun list-ephemerides @@ -7774,7 +7787,7 @@ aws-sdk/generator/operation::input "POST" "/ephemerides" "ListEphemerides")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ephemerides)) (common-lisp:progn (common-lisp:defun list-ground-stations @@ -7792,7 +7805,7 @@ aws-sdk/generator/operation::input "GET" "/groundstation" "ListGroundStations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ground-stations)) (common-lisp:progn (common-lisp:defun list-mission-profiles @@ -7809,7 +7822,7 @@ aws-sdk/generator/operation::input "GET" "/missionprofile" "ListMissionProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mission-profiles)) (common-lisp:progn (common-lisp:defun list-satellites @@ -7826,7 +7839,7 @@ aws-sdk/generator/operation::input "GET" "/satellite" "ListSatellites")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-satellites)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7848,12 +7861,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun register-agent @@ -7870,7 +7884,7 @@ aws-sdk/generator/operation::input "POST" "/agent" "RegisterAgent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-agent)) (common-lisp:progn (common-lisp:defun reserve-contact @@ -7890,7 +7904,7 @@ aws-sdk/generator/operation::input "POST" "/contact" "ReserveContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reserve-contact)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7912,12 +7926,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7939,12 +7954,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-agent-status @@ -7969,12 +7985,13 @@ (common-lisp:format common-lisp:nil "/agent/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'agent-id)))) + 'agent-id) + common-lisp:t))) "UpdateAgentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-agent-status)) (common-lisp:progn (common-lisp:defun update-config @@ -7997,16 +8014,18 @@ (common-lisp:format common-lisp:nil "/config/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'config-type)) - (quri.encode:url-encode + 'config-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'config-id)))) + 'config-id) + common-lisp:t))) "UpdateConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-config)) (common-lisp:progn (common-lisp:defun update-ephemeris @@ -8029,12 +8048,13 @@ (common-lisp:format common-lisp:nil "/ephemeris/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ephemeris-id)))) + 'ephemeris-id) + common-lisp:t))) "UpdateEphemeris")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ephemeris)) (common-lisp:progn (common-lisp:defun update-mission-profile @@ -8063,10 +8083,11 @@ (common-lisp:format common-lisp:nil "/missionprofile/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'mission-profile-id)))) + 'mission-profile-id) + common-lisp:t))) "UpdateMissionProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-mission-profile)) diff --git a/services/guardduty/api.lisp b/services/guardduty/api.lisp index 31a78613..82263b9d 100644 --- a/services/guardduty/api.lisp +++ b/services/guardduty/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/guardduty/api - (:use) - (:nicknames #:aws/guardduty) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/guardduty/api (:use) + (:nicknames #:aws/guardduty) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/guardduty/api) (common-lisp:progn (common-lisp:define-condition guardduty-error @@ -20,7 +19,7 @@ (common-lisp:export 'guardduty-error)) (common-lisp:progn (common-lisp:defclass guardduty-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "guardduty" :api-version "2017-11-28" :host-prefix "guardduty" :signing-name @@ -19635,12 +19634,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/administrator" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "AcceptAdministratorInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-administrator-invitation)) (common-lisp:progn (common-lisp:defun accept-invitation @@ -19663,12 +19663,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/master" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "AcceptInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-invitation)) (common-lisp:progn (common-lisp:defun archive-findings @@ -19690,12 +19691,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/findings/archive" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "ArchiveFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'archive-findings)) (common-lisp:progn (common-lisp:defun create-detector @@ -19715,7 +19717,7 @@ aws-sdk/generator/operation::input "POST" "/detector" "CreateDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-detector)) (common-lisp:progn (common-lisp:defun create-filter @@ -19740,12 +19742,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/filter" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "CreateFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-filter)) (common-lisp:progn (common-lisp:defun create-ipset @@ -19770,12 +19773,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/ipset" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "CreateIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ipset)) (common-lisp:progn (common-lisp:defun create-members @@ -19797,12 +19801,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "CreateMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-members)) (common-lisp:progn (common-lisp:defun create-publishing-destination @@ -19828,12 +19833,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/publishingDestination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "CreatePublishingDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-publishing-destination)) (common-lisp:progn (common-lisp:defun create-sample-findings @@ -19855,12 +19861,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/findings/create" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "CreateSampleFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sample-findings)) (common-lisp:progn (common-lisp:defun create-threat-intel-set @@ -19885,12 +19892,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/threatintelset" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "CreateThreatIntelSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-threat-intel-set)) (common-lisp:progn (common-lisp:defun decline-invitations @@ -19908,7 +19916,7 @@ "POST" "/invitation/decline" "DeclineInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'decline-invitations)) (common-lisp:progn (common-lisp:defun delete-detector @@ -19930,12 +19938,13 @@ (common-lisp:format common-lisp:nil "/detector/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "DeleteDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-detector)) (common-lisp:progn (common-lisp:defun delete-filter @@ -19957,16 +19966,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/filter/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'filter-name)))) + 'filter-name) + common-lisp:t))) "DeleteFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-filter)) (common-lisp:progn (common-lisp:defun delete-ipset @@ -19988,16 +19999,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/ipset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip-set-id)))) + 'ip-set-id) + common-lisp:t))) "DeleteIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ipset)) (common-lisp:progn (common-lisp:defun delete-invitations @@ -20015,7 +20028,7 @@ "POST" "/invitation/delete" "DeleteInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-invitations)) (common-lisp:progn (common-lisp:defun delete-members @@ -20037,12 +20050,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member/delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "DeleteMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-members)) (common-lisp:progn (common-lisp:defun delete-publishing-destination @@ -20065,16 +20079,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/publishingDestination/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'destination-id)))) + 'destination-id) + common-lisp:t))) "DeletePublishingDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-publishing-destination)) (common-lisp:progn (common-lisp:defun delete-threat-intel-set @@ -20097,16 +20113,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/threatintelset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'threat-intel-set-id)))) + 'threat-intel-set-id) + common-lisp:t))) "DeleteThreatIntelSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-threat-intel-set)) (common-lisp:progn (common-lisp:defun describe-malware-scans @@ -20131,12 +20149,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/malware-scans" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "DescribeMalwareScans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-malware-scans)) (common-lisp:progn (common-lisp:defun describe-organization-configuration @@ -20160,12 +20179,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/admin" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "DescribeOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization-configuration)) (common-lisp:progn (common-lisp:defun describe-publishing-destination @@ -20188,16 +20208,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/publishingDestination/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'destination-id)))) + 'destination-id) + common-lisp:t))) "DescribePublishingDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-publishing-destination)) (common-lisp:progn (common-lisp:defun disable-organization-admin-account @@ -20215,7 +20237,7 @@ aws-sdk/generator/operation::input "POST" "/admin/disable" "DisableOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-organization-admin-account)) (common-lisp:progn (common-lisp:defun disassociate-from-administrator-account @@ -20238,12 +20260,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/administrator/disassociate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "DisassociateFromAdministratorAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-from-administrator-account)) (common-lisp:progn (common-lisp:defun disassociate-from-master-account @@ -20266,12 +20289,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/master/disassociate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "DisassociateFromMasterAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-from-master-account)) (common-lisp:progn (common-lisp:defun disassociate-members @@ -20293,12 +20317,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member/disassociate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "DisassociateMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-members)) (common-lisp:progn (common-lisp:defun enable-organization-admin-account @@ -20316,7 +20341,7 @@ aws-sdk/generator/operation::input "POST" "/admin/enable" "EnableOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-organization-admin-account)) (common-lisp:progn (common-lisp:defun get-administrator-account @@ -20339,12 +20364,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/administrator" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetAdministratorAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-administrator-account)) (common-lisp:progn (common-lisp:defun get-coverage-statistics @@ -20368,12 +20394,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/coverage/statistics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetCoverageStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-coverage-statistics)) (common-lisp:progn (common-lisp:defun get-detector @@ -20395,12 +20422,13 @@ (common-lisp:format common-lisp:nil "/detector/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-detector)) (common-lisp:progn (common-lisp:defun get-filter @@ -20422,16 +20450,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/filter/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'filter-name)))) + 'filter-name) + common-lisp:t))) "GetFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-filter)) (common-lisp:progn (common-lisp:defun get-findings @@ -20454,12 +20484,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/findings/get" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-findings)) (common-lisp:progn (common-lisp:defun get-findings-statistics @@ -20484,12 +20515,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/findings/statistics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetFindingsStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-findings-statistics)) (common-lisp:progn (common-lisp:defun get-ipset @@ -20511,16 +20543,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/ipset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip-set-id)))) + 'ip-set-id) + common-lisp:t))) "GetIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ipset)) (common-lisp:progn (common-lisp:defun get-invitations-count () @@ -20552,12 +20586,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/malware-scan-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetMalwareScanSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-malware-scan-settings)) (common-lisp:progn (common-lisp:defun get-master-account @@ -20579,12 +20614,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/master" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetMasterAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-master-account)) (common-lisp:progn (common-lisp:defun get-member-detectors @@ -20606,12 +20642,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member/detector/get" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetMemberDetectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-member-detectors)) (common-lisp:progn (common-lisp:defun get-members @@ -20633,12 +20670,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member/get" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-members)) (common-lisp:progn (common-lisp:defun get-organization-statistics () @@ -20670,12 +20708,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/freeTrial/daysRemaining" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetRemainingFreeTrialDays")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-remaining-free-trial-days)) (common-lisp:progn (common-lisp:defun get-threat-intel-set @@ -20698,16 +20737,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/threatintelset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'threat-intel-set-id)))) + 'threat-intel-set-id) + common-lisp:t))) "GetThreatIntelSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-threat-intel-set)) (common-lisp:progn (common-lisp:defun get-usage-statistics @@ -20732,12 +20773,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/usage/statistics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "GetUsageStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-statistics)) (common-lisp:progn (common-lisp:defun invite-members @@ -20762,12 +20804,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member/invite" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "InviteMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invite-members)) (common-lisp:progn (common-lisp:defun list-coverage @@ -20792,12 +20835,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/coverage" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "ListCoverage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-coverage)) (common-lisp:progn (common-lisp:defun list-detectors @@ -20814,7 +20858,7 @@ aws-sdk/generator/operation::input "GET" "/detector" "ListDetectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-detectors)) (common-lisp:progn (common-lisp:defun list-filters @@ -20837,12 +20881,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/filter" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "ListFilters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-filters)) (common-lisp:progn (common-lisp:defun list-findings @@ -20867,12 +20912,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/findings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "ListFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings)) (common-lisp:progn (common-lisp:defun list-ipsets @@ -20895,12 +20941,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/ipset" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "ListIPSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ipsets)) (common-lisp:progn (common-lisp:defun list-invitations @@ -20917,7 +20964,7 @@ aws-sdk/generator/operation::input "GET" "/invitation" "ListInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-invitations)) (common-lisp:progn (common-lisp:defun list-members @@ -20941,12 +20988,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "ListMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-members)) (common-lisp:progn (common-lisp:defun list-organization-admin-accounts @@ -20964,7 +21012,7 @@ aws-sdk/generator/operation::input "GET" "/admin" "ListOrganizationAdminAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-admin-accounts)) (common-lisp:progn (common-lisp:defun list-publishing-destinations @@ -20988,12 +21036,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/publishingDestination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "ListPublishingDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-publishing-destinations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -21015,12 +21064,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-threat-intel-sets @@ -21043,12 +21093,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/threatintelset" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "ListThreatIntelSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-threat-intel-sets)) (common-lisp:progn (common-lisp:defun start-malware-scan @@ -21066,7 +21117,7 @@ "POST" "/malware-scan/start" "StartMalwareScan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-malware-scan)) (common-lisp:progn (common-lisp:defun start-monitoring-members @@ -21088,12 +21139,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "StartMonitoringMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-monitoring-members)) (common-lisp:progn (common-lisp:defun stop-monitoring-members @@ -21115,12 +21167,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "StopMonitoringMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-monitoring-members)) (common-lisp:progn (common-lisp:defun tag-resource @@ -21142,12 +21195,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun unarchive-findings @@ -21169,12 +21223,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/findings/unarchive" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "UnarchiveFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unarchive-findings)) (common-lisp:progn (common-lisp:defun untag-resource @@ -21196,12 +21251,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-detector @@ -21226,12 +21282,13 @@ (common-lisp:format common-lisp:nil "/detector/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "UpdateDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-detector)) (common-lisp:progn (common-lisp:defun update-filter @@ -21256,16 +21313,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/filter/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'filter-name)))) + 'filter-name) + common-lisp:t))) "UpdateFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-filter)) (common-lisp:progn (common-lisp:defun update-findings-feedback @@ -21289,12 +21348,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/findings/feedback" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "UpdateFindingsFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-findings-feedback)) (common-lisp:progn (common-lisp:defun update-ipset @@ -21318,16 +21378,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/ipset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip-set-id)))) + 'ip-set-id) + common-lisp:t))) "UpdateIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ipset)) (common-lisp:progn (common-lisp:defun update-malware-scan-settings @@ -21353,12 +21415,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/malware-scan-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "UpdateMalwareScanSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-malware-scan-settings)) (common-lisp:progn (common-lisp:defun update-member-detectors @@ -21382,12 +21445,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/member/detector/update" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "UpdateMemberDetectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-member-detectors)) (common-lisp:progn (common-lisp:defun update-organization-configuration @@ -21413,12 +21477,13 @@ (common-lisp:format common-lisp:nil "/detector/~A/admin" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)))) + 'detector-id) + common-lisp:t))) "UpdateOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-organization-configuration)) (common-lisp:progn (common-lisp:defun update-publishing-destination @@ -21443,16 +21508,18 @@ (common-lisp:format common-lisp:nil "/detector/~A/publishingDestination/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'destination-id)))) + 'destination-id) + common-lisp:t))) "UpdatePublishingDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-publishing-destination)) (common-lisp:progn (common-lisp:defun update-threat-intel-set @@ -21477,14 +21544,16 @@ (common-lisp:format common-lisp:nil "/detector/~A/threatintelset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-id)) - (quri.encode:url-encode + 'detector-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'threat-intel-set-id)))) + 'threat-intel-set-id) + common-lisp:t))) "UpdateThreatIntelSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-threat-intel-set)) diff --git a/services/health/api.lisp b/services/health/api.lisp index c2ab9fe2..8bee9967 100644 --- a/services/health/api.lisp +++ b/services/health/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/health/api - (:use) - (:nicknames #:aws/health) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/health/api (:use) + (:nicknames #:aws/health) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/health/api) (common-lisp:progn (common-lisp:define-condition health-error @@ -3637,7 +3636,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeAffectedAccountsForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-affected-accounts-for-organization)) (common-lisp:progn (common-lisp:defun describe-affected-entities @@ -3656,7 +3655,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeAffectedEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-affected-entities)) (common-lisp:progn (common-lisp:defun describe-affected-entities-for-organization @@ -3678,7 +3677,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeAffectedEntitiesForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-affected-entities-for-organization)) (common-lisp:progn (common-lisp:defun describe-entity-aggregates @@ -3696,7 +3695,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeEntityAggregates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-entity-aggregates)) (common-lisp:progn (common-lisp:defun describe-entity-aggregates-for-organization @@ -3714,7 +3713,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeEntityAggregatesForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-entity-aggregates-for-organization)) (common-lisp:progn (common-lisp:defun describe-event-aggregates @@ -3734,7 +3733,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeEventAggregates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-aggregates)) (common-lisp:progn (common-lisp:defun describe-event-details @@ -3751,7 +3750,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeEventDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-details)) (common-lisp:progn (common-lisp:defun describe-event-details-for-organization @@ -3770,7 +3769,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeEventDetailsForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-details-for-organization)) (common-lisp:progn (common-lisp:defun describe-event-types @@ -3788,7 +3787,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeEventTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-types)) (common-lisp:progn (common-lisp:defun describe-events @@ -3806,7 +3805,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-events-for-organization @@ -3825,7 +3824,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeEventsForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-events-for-organization)) (common-lisp:progn (common-lisp:defun describe-health-service-status-for-organization () diff --git a/services/healthlake/api.lisp b/services/healthlake/api.lisp index a4bd933c..0f2a2f45 100644 --- a/services/healthlake/api.lisp +++ b/services/healthlake/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/healthlake/api - (:use) - (:nicknames #:aws/healthlake) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/healthlake/api (:use) + (:nicknames #:aws/healthlake) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/healthlake/api) (common-lisp:progn (common-lisp:define-condition healthlake-error @@ -2880,7 +2879,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFHIRDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fhirdatastore)) (common-lisp:progn (common-lisp:defun delete-fhirdatastore @@ -2897,7 +2896,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFHIRDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fhirdatastore)) (common-lisp:progn (common-lisp:defun describe-fhirdatastore @@ -2914,7 +2913,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFHIRDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fhirdatastore)) (common-lisp:progn (common-lisp:defun describe-fhirexport-job @@ -2931,7 +2930,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFHIRExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fhirexport-job)) (common-lisp:progn (common-lisp:defun describe-fhirimport-job @@ -2948,7 +2947,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFHIRImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fhirimport-job)) (common-lisp:progn (common-lisp:defun list-fhirdatastores @@ -2965,7 +2964,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFHIRDatastores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fhirdatastores)) (common-lisp:progn (common-lisp:defun list-fhirexport-jobs @@ -2985,7 +2984,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFHIRExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fhirexport-jobs)) (common-lisp:progn (common-lisp:defun list-fhirimport-jobs @@ -3005,7 +3004,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFHIRImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fhirimport-jobs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3022,7 +3021,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-fhirexport-job @@ -3042,7 +3041,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFHIRExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-fhirexport-job)) (common-lisp:progn (common-lisp:defun start-fhirimport-job @@ -3063,7 +3062,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFHIRImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-fhirimport-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3080,7 +3079,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3097,5 +3096,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/honeycode/api.lisp b/services/honeycode/api.lisp index e1326ac1..56aa95c5 100644 --- a/services/honeycode/api.lisp +++ b/services/honeycode/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/honeycode/api - (:use) - (:nicknames #:aws/honeycode) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/honeycode/api (:use) + (:nicknames #:aws/honeycode) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/honeycode/api) (common-lisp:progn (common-lisp:define-condition honeycode-error @@ -20,7 +19,7 @@ (common-lisp:export 'honeycode-error)) (common-lisp:progn (common-lisp:defclass honeycode-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "honeycode" :api-version "2020-03-01" :host-prefix "honeycode" :signing-name @@ -3338,16 +3337,18 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/rows/batchcreate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)))) + 'table-id) + common-lisp:t))) "BatchCreateTableRows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-table-rows)) (common-lisp:progn (common-lisp:defun batch-delete-table-rows @@ -3371,16 +3372,18 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/rows/batchdelete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)))) + 'table-id) + common-lisp:t))) "BatchDeleteTableRows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-table-rows)) (common-lisp:progn (common-lisp:defun batch-update-table-rows @@ -3405,16 +3408,18 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/rows/batchupdate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)))) + 'table-id) + common-lisp:t))) "BatchUpdateTableRows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-table-rows)) (common-lisp:progn (common-lisp:defun batch-upsert-table-rows @@ -3439,16 +3444,18 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/rows/batchupsert" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)))) + 'table-id) + common-lisp:t))) "BatchUpsertTableRows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-upsert-table-rows)) (common-lisp:progn (common-lisp:defun describe-table-data-import-job @@ -3471,20 +3478,23 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/import/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)) - (quri.encode:url-encode + 'table-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeTableDataImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-table-data-import-job)) (common-lisp:progn (common-lisp:defun get-screen-data @@ -3504,7 +3514,7 @@ aws-sdk/generator/operation::input "POST" "/screendata" "GetScreenData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-screen-data)) (common-lisp:progn (common-lisp:defun invoke-screen-automation @@ -3530,24 +3540,28 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/apps/~A/screens/~A/automations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-id)) - (quri.encode:url-encode + 'app-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'screen-id)) - (quri.encode:url-encode + 'screen-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'automation-id)))) + 'automation-id) + common-lisp:t))) "InvokeScreenAutomation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-screen-automation)) (common-lisp:progn (common-lisp:defun list-table-columns @@ -3570,16 +3584,18 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/columns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)))) + 'table-id) + common-lisp:t))) "ListTableColumns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-table-columns)) (common-lisp:progn (common-lisp:defun list-table-rows @@ -3604,16 +3620,18 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/rows/list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)))) + 'table-id) + common-lisp:t))) "ListTableRows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-table-rows)) (common-lisp:progn (common-lisp:defun list-tables @@ -3636,12 +3654,13 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)))) + 'workbook-id) + common-lisp:t))) "ListTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tables)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3663,12 +3682,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun query-table-rows @@ -3693,16 +3713,18 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/rows/query" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)))) + 'table-id) + common-lisp:t))) "QueryTableRows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query-table-rows)) (common-lisp:progn (common-lisp:defun start-table-data-import-job @@ -3728,16 +3750,18 @@ (common-lisp:format common-lisp:nil "/workbooks/~A/tables/~A/import" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workbook-id)) - (quri.encode:url-encode + 'workbook-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'table-id)))) + 'table-id) + common-lisp:t))) "StartTableDataImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-table-data-import-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3759,12 +3783,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3786,10 +3811,11 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/iam/api.lisp b/services/iam/api.lisp index b14b3f6d..bf5ee853 100644 --- a/services/iam/api.lisp +++ b/services/iam/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iam/api - (:use) - (:nicknames #:aws/iam) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iam/api (:use) + (:nicknames #:aws/iam) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iam/api) (common-lisp:progn (common-lisp:define-condition iam-error @@ -19507,7 +19506,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddClientIDToOpenIDConnectProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-client-idto-open-idconnect-provider)) (common-lisp:progn (common-lisp:defun add-role-to-instance-profile @@ -19526,7 +19525,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddRoleToInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-role-to-instance-profile)) (common-lisp:progn (common-lisp:defun add-user-to-group @@ -19543,7 +19542,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddUserToGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-user-to-group)) (common-lisp:progn (common-lisp:defun attach-group-policy @@ -19560,7 +19559,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-group-policy)) (common-lisp:progn (common-lisp:defun attach-role-policy @@ -19577,7 +19576,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachRolePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-role-policy)) (common-lisp:progn (common-lisp:defun attach-user-policy @@ -19594,7 +19593,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachUserPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'attach-user-policy)) (common-lisp:progn (common-lisp:defun change-password @@ -19611,7 +19610,7 @@ aws-sdk/generator/operation::input "POST" "/" "ChangePassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'change-password)) (common-lisp:progn (common-lisp:defun create-access-key @@ -19628,7 +19627,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAccessKey")) - common-lisp:nil "CreateAccessKeyResult" *error-map*))) + common-lisp:nil "CreateAccessKeyResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-access-key)) (common-lisp:progn (common-lisp:defun create-account-alias @@ -19645,7 +19644,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAccountAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-account-alias)) (common-lisp:progn (common-lisp:defun create-group @@ -19662,7 +19661,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGroup")) - common-lisp:nil "CreateGroupResult" *error-map*))) + common-lisp:nil "CreateGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun create-instance-profile @@ -19680,7 +19679,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstanceProfile")) - common-lisp:nil "CreateInstanceProfileResult" *error-map*))) + common-lisp:nil "CreateInstanceProfileResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-instance-profile)) (common-lisp:progn (common-lisp:defun create-login-profile @@ -19699,7 +19699,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLoginProfile")) - common-lisp:nil "CreateLoginProfileResult" *error-map*))) + common-lisp:nil "CreateLoginProfileResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-login-profile)) (common-lisp:progn (common-lisp:defun create-open-idconnect-provider @@ -19718,7 +19718,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateOpenIDConnectProvider")) - common-lisp:nil "CreateOpenIDConnectProviderResult" *error-map*))) + common-lisp:nil "CreateOpenIDConnectProviderResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-open-idconnect-provider)) (common-lisp:progn (common-lisp:defun create-policy @@ -19737,7 +19738,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePolicy")) - common-lisp:nil "CreatePolicyResult" *error-map*))) + common-lisp:nil "CreatePolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-policy)) (common-lisp:progn (common-lisp:defun create-policy-version @@ -19756,7 +19757,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePolicyVersion")) - common-lisp:nil "CreatePolicyVersionResult" *error-map*))) + common-lisp:nil "CreatePolicyVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-policy-version)) (common-lisp:progn (common-lisp:defun create-role @@ -19777,7 +19779,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRole")) - common-lisp:nil "CreateRoleResult" *error-map*))) + common-lisp:nil "CreateRoleResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-role)) (common-lisp:progn (common-lisp:defun create-samlprovider @@ -19795,7 +19797,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSAMLProvider")) - common-lisp:nil "CreateSAMLProviderResult" *error-map*))) + common-lisp:nil "CreateSAMLProviderResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-samlprovider)) (common-lisp:progn (common-lisp:defun create-service-linked-role @@ -19815,7 +19817,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServiceLinkedRole")) - common-lisp:nil "CreateServiceLinkedRoleResult" *error-map*))) + common-lisp:nil "CreateServiceLinkedRoleResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-service-linked-role)) (common-lisp:progn (common-lisp:defun create-service-specific-credential @@ -19833,7 +19836,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServiceSpecificCredential")) - common-lisp:nil "CreateServiceSpecificCredentialResult" *error-map*))) + common-lisp:nil "CreateServiceSpecificCredentialResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-service-specific-credential)) (common-lisp:progn (common-lisp:defun create-user @@ -19851,7 +19855,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil "CreateUserResult" *error-map*))) + common-lisp:nil "CreateUserResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun create-virtual-mfadevice @@ -19869,7 +19873,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVirtualMFADevice")) - common-lisp:nil "CreateVirtualMFADeviceResult" *error-map*))) + common-lisp:nil "CreateVirtualMFADeviceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-virtual-mfadevice)) (common-lisp:progn (common-lisp:defun deactivate-mfadevice @@ -19886,7 +19891,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeactivateMFADevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'deactivate-mfadevice)) (common-lisp:progn (common-lisp:defun delete-access-key @@ -19903,7 +19908,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAccessKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-access-key)) (common-lisp:progn (common-lisp:defun delete-account-alias @@ -19920,7 +19925,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAccountAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-account-alias)) (common-lisp:progn (common-lisp:defun delete-account-password-policy () @@ -19945,7 +19950,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun delete-group-policy @@ -19962,7 +19967,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-group-policy)) (common-lisp:progn (common-lisp:defun delete-instance-profile @@ -19979,7 +19984,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-instance-profile)) (common-lisp:progn (common-lisp:defun delete-login-profile @@ -19996,7 +20001,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLoginProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-login-profile)) (common-lisp:progn (common-lisp:defun delete-open-idconnect-provider @@ -20014,7 +20019,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteOpenIDConnectProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-open-idconnect-provider)) (common-lisp:progn (common-lisp:defun delete-policy @@ -20031,7 +20036,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-policy)) (common-lisp:progn (common-lisp:defun delete-policy-version @@ -20048,7 +20053,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-policy-version)) (common-lisp:progn (common-lisp:defun delete-role @@ -20065,7 +20070,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-role)) (common-lisp:progn (common-lisp:defun delete-role-permissions-boundary @@ -20083,7 +20088,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRolePermissionsBoundary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-role-permissions-boundary)) (common-lisp:progn (common-lisp:defun delete-role-policy @@ -20100,7 +20105,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRolePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-role-policy)) (common-lisp:progn (common-lisp:defun delete-samlprovider @@ -20117,7 +20122,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSAMLProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-samlprovider)) (common-lisp:progn (common-lisp:defun delete-sshpublic-key @@ -20134,7 +20139,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSSHPublicKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-sshpublic-key)) (common-lisp:progn (common-lisp:defun delete-server-certificate @@ -20152,7 +20157,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServerCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-server-certificate)) (common-lisp:progn (common-lisp:defun delete-service-linked-role @@ -20170,7 +20175,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServiceLinkedRole")) - common-lisp:nil "DeleteServiceLinkedRoleResult" *error-map*))) + common-lisp:nil "DeleteServiceLinkedRoleResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-service-linked-role)) (common-lisp:progn (common-lisp:defun delete-service-specific-credential @@ -20189,7 +20195,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServiceSpecificCredential")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-service-specific-credential)) (common-lisp:progn (common-lisp:defun delete-signing-certificate @@ -20207,7 +20213,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSigningCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-signing-certificate)) (common-lisp:progn (common-lisp:defun delete-user @@ -20224,7 +20230,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun delete-user-permissions-boundary @@ -20242,7 +20248,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserPermissionsBoundary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-user-permissions-boundary)) (common-lisp:progn (common-lisp:defun delete-user-policy @@ -20259,7 +20265,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-user-policy)) (common-lisp:progn (common-lisp:defun delete-virtual-mfadevice @@ -20276,7 +20282,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVirtualMFADevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-virtual-mfadevice)) (common-lisp:progn (common-lisp:defun detach-group-policy @@ -20293,7 +20299,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-group-policy)) (common-lisp:progn (common-lisp:defun detach-role-policy @@ -20310,7 +20316,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachRolePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-role-policy)) (common-lisp:progn (common-lisp:defun detach-user-policy @@ -20327,7 +20333,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachUserPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'detach-user-policy)) (common-lisp:progn (common-lisp:defun enable-mfadevice @@ -20347,7 +20353,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableMFADevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-mfadevice)) (common-lisp:progn (common-lisp:defun generate-credential-report () @@ -20374,7 +20380,8 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateOrganizationsAccessReport")) - common-lisp:nil "GenerateOrganizationsAccessReportResult" *error-map*))) + common-lisp:nil "GenerateOrganizationsAccessReportResult" *error-map* + common-lisp:nil))) (common-lisp:export 'generate-organizations-access-report)) (common-lisp:progn (common-lisp:defun generate-service-last-accessed-details @@ -20392,7 +20399,8 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateServiceLastAccessedDetails")) - common-lisp:nil "GenerateServiceLastAccessedDetailsResult" *error-map*))) + common-lisp:nil "GenerateServiceLastAccessedDetailsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'generate-service-last-accessed-details)) (common-lisp:progn (common-lisp:defun get-access-key-last-used @@ -20409,7 +20417,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetAccessKeyLastUsed")) - common-lisp:nil "GetAccessKeyLastUsedResult" *error-map*))) + common-lisp:nil "GetAccessKeyLastUsedResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-access-key-last-used)) (common-lisp:progn (common-lisp:defun get-account-authorization-details @@ -20427,7 +20436,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetAccountAuthorizationDetails")) - common-lisp:nil "GetAccountAuthorizationDetailsResult" *error-map*))) + common-lisp:nil "GetAccountAuthorizationDetailsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-account-authorization-details)) (common-lisp:progn (common-lisp:defun get-account-password-policy () @@ -20461,7 +20471,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetContextKeysForCustomPolicy")) - common-lisp:nil "GetContextKeysForCustomPolicyResult" *error-map*))) + common-lisp:nil "GetContextKeysForCustomPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-context-keys-for-custom-policy)) (common-lisp:progn (common-lisp:defun get-context-keys-for-principal-policy @@ -20480,7 +20491,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetContextKeysForPrincipalPolicy")) - common-lisp:nil "GetContextKeysForPrincipalPolicyResult" *error-map*))) + common-lisp:nil "GetContextKeysForPrincipalPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-context-keys-for-principal-policy)) (common-lisp:progn (common-lisp:defun get-credential-report () @@ -20504,7 +20516,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iam-request aws-sdk/generator/operation::input "POST" "/" "GetGroup")) - common-lisp:nil "GetGroupResult" *error-map*))) + common-lisp:nil "GetGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-group)) (common-lisp:progn (common-lisp:defun get-group-policy @@ -20521,7 +20533,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetGroupPolicy")) - common-lisp:nil "GetGroupPolicyResult" *error-map*))) + common-lisp:nil "GetGroupPolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-group-policy)) (common-lisp:progn (common-lisp:defun get-instance-profile @@ -20538,7 +20550,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInstanceProfile")) - common-lisp:nil "GetInstanceProfileResult" *error-map*))) + common-lisp:nil "GetInstanceProfileResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-instance-profile)) (common-lisp:progn (common-lisp:defun get-login-profile @@ -20555,7 +20567,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLoginProfile")) - common-lisp:nil "GetLoginProfileResult" *error-map*))) + common-lisp:nil "GetLoginProfileResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-login-profile)) (common-lisp:progn (common-lisp:defun get-mfadevice @@ -20572,7 +20584,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMFADevice")) - common-lisp:nil "GetMFADeviceResult" *error-map*))) + common-lisp:nil "GetMFADeviceResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-mfadevice)) (common-lisp:progn (common-lisp:defun get-open-idconnect-provider @@ -20590,7 +20602,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetOpenIDConnectProvider")) - common-lisp:nil "GetOpenIDConnectProviderResult" *error-map*))) + common-lisp:nil "GetOpenIDConnectProviderResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-open-idconnect-provider)) (common-lisp:progn (common-lisp:defun get-organizations-access-report @@ -20609,7 +20622,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetOrganizationsAccessReport")) - common-lisp:nil "GetOrganizationsAccessReportResult" *error-map*))) + common-lisp:nil "GetOrganizationsAccessReportResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-organizations-access-report)) (common-lisp:progn (common-lisp:defun get-policy @@ -20626,7 +20640,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPolicy")) - common-lisp:nil "GetPolicyResult" *error-map*))) + common-lisp:nil "GetPolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-policy)) (common-lisp:progn (common-lisp:defun get-policy-version @@ -20643,7 +20657,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPolicyVersion")) - common-lisp:nil "GetPolicyVersionResult" *error-map*))) + common-lisp:nil "GetPolicyVersionResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-policy-version)) (common-lisp:progn (common-lisp:defun get-role @@ -20659,7 +20673,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iam-request aws-sdk/generator/operation::input "POST" "/" "GetRole")) - common-lisp:nil "GetRoleResult" *error-map*))) + common-lisp:nil "GetRoleResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-role)) (common-lisp:progn (common-lisp:defun get-role-policy @@ -20676,7 +20690,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRolePolicy")) - common-lisp:nil "GetRolePolicyResult" *error-map*))) + common-lisp:nil "GetRolePolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-role-policy)) (common-lisp:progn (common-lisp:defun get-samlprovider @@ -20693,7 +20707,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSAMLProvider")) - common-lisp:nil "GetSAMLProviderResult" *error-map*))) + common-lisp:nil "GetSAMLProviderResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-samlprovider)) (common-lisp:progn (common-lisp:defun get-sshpublic-key @@ -20711,7 +20725,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSSHPublicKey")) - common-lisp:nil "GetSSHPublicKeyResult" *error-map*))) + common-lisp:nil "GetSSHPublicKeyResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-sshpublic-key)) (common-lisp:progn (common-lisp:defun get-server-certificate @@ -20728,7 +20742,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetServerCertificate")) - common-lisp:nil "GetServerCertificateResult" *error-map*))) + common-lisp:nil "GetServerCertificateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-server-certificate)) (common-lisp:progn (common-lisp:defun get-service-last-accessed-details @@ -20746,7 +20761,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceLastAccessedDetails")) - common-lisp:nil "GetServiceLastAccessedDetailsResult" *error-map*))) + common-lisp:nil "GetServiceLastAccessedDetailsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-service-last-accessed-details)) (common-lisp:progn (common-lisp:defun get-service-last-accessed-details-with-entities @@ -20767,7 +20783,7 @@ "POST" "/" "GetServiceLastAccessedDetailsWithEntities")) common-lisp:nil "GetServiceLastAccessedDetailsWithEntitiesResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'get-service-last-accessed-details-with-entities)) (common-lisp:progn (common-lisp:defun get-service-linked-role-deletion-status @@ -20785,7 +20801,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceLinkedRoleDeletionStatus")) - common-lisp:nil "GetServiceLinkedRoleDeletionStatusResult" *error-map*))) + common-lisp:nil "GetServiceLinkedRoleDeletionStatusResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-service-linked-role-deletion-status)) (common-lisp:progn (common-lisp:defun get-user @@ -20801,7 +20818,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iam-request aws-sdk/generator/operation::input "POST" "/" "GetUser")) - common-lisp:nil "GetUserResult" *error-map*))) + common-lisp:nil "GetUserResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-user)) (common-lisp:progn (common-lisp:defun get-user-policy @@ -20818,7 +20835,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUserPolicy")) - common-lisp:nil "GetUserPolicyResult" *error-map*))) + common-lisp:nil "GetUserPolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-user-policy)) (common-lisp:progn (common-lisp:defun list-access-keys @@ -20835,7 +20852,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccessKeys")) - common-lisp:nil "ListAccessKeysResult" *error-map*))) + common-lisp:nil "ListAccessKeysResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-access-keys)) (common-lisp:progn (common-lisp:defun list-account-aliases @@ -20852,7 +20869,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccountAliases")) - common-lisp:nil "ListAccountAliasesResult" *error-map*))) + common-lisp:nil "ListAccountAliasesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-account-aliases)) (common-lisp:progn (common-lisp:defun list-attached-group-policies @@ -20871,7 +20888,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListAttachedGroupPolicies")) - common-lisp:nil "ListAttachedGroupPoliciesResult" *error-map*))) + common-lisp:nil "ListAttachedGroupPoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-attached-group-policies)) (common-lisp:progn (common-lisp:defun list-attached-role-policies @@ -20890,7 +20908,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListAttachedRolePolicies")) - common-lisp:nil "ListAttachedRolePoliciesResult" *error-map*))) + common-lisp:nil "ListAttachedRolePoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-attached-role-policies)) (common-lisp:progn (common-lisp:defun list-attached-user-policies @@ -20909,7 +20928,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListAttachedUserPolicies")) - common-lisp:nil "ListAttachedUserPoliciesResult" *error-map*))) + common-lisp:nil "ListAttachedUserPoliciesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-attached-user-policies)) (common-lisp:progn (common-lisp:defun list-entities-for-policy @@ -20929,7 +20949,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListEntitiesForPolicy")) - common-lisp:nil "ListEntitiesForPolicyResult" *error-map*))) + common-lisp:nil "ListEntitiesForPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-entities-for-policy)) (common-lisp:progn (common-lisp:defun list-group-policies @@ -20946,7 +20967,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroupPolicies")) - common-lisp:nil "ListGroupPoliciesResult" *error-map*))) + common-lisp:nil "ListGroupPoliciesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-group-policies)) (common-lisp:progn (common-lisp:defun list-groups @@ -20963,7 +20984,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroups")) - common-lisp:nil "ListGroupsResult" *error-map*))) + common-lisp:nil "ListGroupsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun list-groups-for-user @@ -20980,7 +21001,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroupsForUser")) - common-lisp:nil "ListGroupsForUserResult" *error-map*))) + common-lisp:nil "ListGroupsForUserResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-groups-for-user)) (common-lisp:progn (common-lisp:defun list-instance-profile-tags @@ -20999,7 +21020,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListInstanceProfileTags")) - common-lisp:nil "ListInstanceProfileTagsResult" *error-map*))) + common-lisp:nil "ListInstanceProfileTagsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-instance-profile-tags)) (common-lisp:progn (common-lisp:defun list-instance-profiles @@ -21016,7 +21038,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListInstanceProfiles")) - common-lisp:nil "ListInstanceProfilesResult" *error-map*))) + common-lisp:nil "ListInstanceProfilesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-instance-profiles)) (common-lisp:progn (common-lisp:defun list-instance-profiles-for-role @@ -21034,7 +21057,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListInstanceProfilesForRole")) - common-lisp:nil "ListInstanceProfilesForRoleResult" *error-map*))) + common-lisp:nil "ListInstanceProfilesForRoleResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-instance-profiles-for-role)) (common-lisp:progn (common-lisp:defun list-mfadevice-tags @@ -21051,7 +21075,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMFADeviceTags")) - common-lisp:nil "ListMFADeviceTagsResult" *error-map*))) + common-lisp:nil "ListMFADeviceTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-mfadevice-tags)) (common-lisp:progn (common-lisp:defun list-mfadevices @@ -21068,7 +21092,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMFADevices")) - common-lisp:nil "ListMFADevicesResult" *error-map*))) + common-lisp:nil "ListMFADevicesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-mfadevices)) (common-lisp:progn (common-lisp:defun list-open-idconnect-provider-tags @@ -21088,7 +21112,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListOpenIDConnectProviderTags")) - common-lisp:nil "ListOpenIDConnectProviderTagsResult" *error-map*))) + common-lisp:nil "ListOpenIDConnectProviderTagsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-open-idconnect-provider-tags)) (common-lisp:progn (common-lisp:defun list-open-idconnect-providers () @@ -21116,7 +21141,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPolicies")) - common-lisp:nil "ListPoliciesResult" *error-map*))) + common-lisp:nil "ListPoliciesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-policies)) (common-lisp:progn (common-lisp:defun list-policies-granting-service-access @@ -21134,7 +21159,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListPoliciesGrantingServiceAccess")) - common-lisp:nil "ListPoliciesGrantingServiceAccessResult" *error-map*))) + common-lisp:nil "ListPoliciesGrantingServiceAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-policies-granting-service-access)) (common-lisp:progn (common-lisp:defun list-policy-tags @@ -21151,7 +21177,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPolicyTags")) - common-lisp:nil "ListPolicyTagsResult" *error-map*))) + common-lisp:nil "ListPolicyTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-policy-tags)) (common-lisp:progn (common-lisp:defun list-policy-versions @@ -21168,7 +21194,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPolicyVersions")) - common-lisp:nil "ListPolicyVersionsResult" *error-map*))) + common-lisp:nil "ListPolicyVersionsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-policy-versions)) (common-lisp:progn (common-lisp:defun list-role-policies @@ -21185,7 +21211,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRolePolicies")) - common-lisp:nil "ListRolePoliciesResult" *error-map*))) + common-lisp:nil "ListRolePoliciesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-role-policies)) (common-lisp:progn (common-lisp:defun list-role-tags @@ -21202,7 +21228,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRoleTags")) - common-lisp:nil "ListRoleTagsResult" *error-map*))) + common-lisp:nil "ListRoleTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-role-tags)) (common-lisp:progn (common-lisp:defun list-roles @@ -21219,7 +21245,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRoles")) - common-lisp:nil "ListRolesResult" *error-map*))) + common-lisp:nil "ListRolesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-roles)) (common-lisp:progn (common-lisp:defun list-samlprovider-tags @@ -21237,7 +21263,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListSAMLProviderTags")) - common-lisp:nil "ListSAMLProviderTagsResult" *error-map*))) + common-lisp:nil "ListSAMLProviderTagsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-samlprovider-tags)) (common-lisp:progn (common-lisp:defun list-samlproviders () @@ -21262,7 +21289,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSSHPublicKeys")) - common-lisp:nil "ListSSHPublicKeysResult" *error-map*))) + common-lisp:nil "ListSSHPublicKeysResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-sshpublic-keys)) (common-lisp:progn (common-lisp:defun list-server-certificate-tags @@ -21281,7 +21308,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListServerCertificateTags")) - common-lisp:nil "ListServerCertificateTagsResult" *error-map*))) + common-lisp:nil "ListServerCertificateTagsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-server-certificate-tags)) (common-lisp:progn (common-lisp:defun list-server-certificates @@ -21298,7 +21326,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListServerCertificates")) - common-lisp:nil "ListServerCertificatesResult" *error-map*))) + common-lisp:nil "ListServerCertificatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-server-certificates)) (common-lisp:progn (common-lisp:defun list-service-specific-credentials @@ -21316,7 +21345,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceSpecificCredentials")) - common-lisp:nil "ListServiceSpecificCredentialsResult" *error-map*))) + common-lisp:nil "ListServiceSpecificCredentialsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-service-specific-credentials)) (common-lisp:progn (common-lisp:defun list-signing-certificates @@ -21334,7 +21364,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListSigningCertificates")) - common-lisp:nil "ListSigningCertificatesResult" *error-map*))) + common-lisp:nil "ListSigningCertificatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-signing-certificates)) (common-lisp:progn (common-lisp:defun list-user-policies @@ -21351,7 +21382,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUserPolicies")) - common-lisp:nil "ListUserPoliciesResult" *error-map*))) + common-lisp:nil "ListUserPoliciesResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-user-policies)) (common-lisp:progn (common-lisp:defun list-user-tags @@ -21368,7 +21399,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUserTags")) - common-lisp:nil "ListUserTagsResult" *error-map*))) + common-lisp:nil "ListUserTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-user-tags)) (common-lisp:progn (common-lisp:defun list-users @@ -21385,7 +21416,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUsers")) - common-lisp:nil "ListUsersResult" *error-map*))) + common-lisp:nil "ListUsersResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun list-virtual-mfadevices @@ -21403,7 +21434,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListVirtualMFADevices")) - common-lisp:nil "ListVirtualMFADevicesResult" *error-map*))) + common-lisp:nil "ListVirtualMFADevicesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-virtual-mfadevices)) (common-lisp:progn (common-lisp:defun put-group-policy @@ -21421,7 +21453,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-group-policy)) (common-lisp:progn (common-lisp:defun put-role-permissions-boundary @@ -21439,7 +21471,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRolePermissionsBoundary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-role-permissions-boundary)) (common-lisp:progn (common-lisp:defun put-role-policy @@ -21457,7 +21489,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRolePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-role-policy)) (common-lisp:progn (common-lisp:defun put-user-permissions-boundary @@ -21475,7 +21507,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutUserPermissionsBoundary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-user-permissions-boundary)) (common-lisp:progn (common-lisp:defun put-user-policy @@ -21493,7 +21525,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutUserPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-user-policy)) (common-lisp:progn (common-lisp:defun remove-client-idfrom-open-idconnect-provider @@ -21512,7 +21544,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveClientIDFromOpenIDConnectProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-client-idfrom-open-idconnect-provider)) (common-lisp:progn (common-lisp:defun remove-role-from-instance-profile @@ -21531,7 +21563,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveRoleFromInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-role-from-instance-profile)) (common-lisp:progn (common-lisp:defun remove-user-from-group @@ -21548,7 +21580,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveUserFromGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-user-from-group)) (common-lisp:progn (common-lisp:defun reset-service-specific-credential @@ -21567,7 +21599,8 @@ aws-sdk/generator/operation::input "POST" "/" "ResetServiceSpecificCredential")) - common-lisp:nil "ResetServiceSpecificCredentialResult" *error-map*))) + common-lisp:nil "ResetServiceSpecificCredentialResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reset-service-specific-credential)) (common-lisp:progn (common-lisp:defun resync-mfadevice @@ -21587,7 +21620,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResyncMFADevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'resync-mfadevice)) (common-lisp:progn (common-lisp:defun set-default-policy-version @@ -21605,7 +21638,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetDefaultPolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-default-policy-version)) (common-lisp:progn (common-lisp:defun set-security-token-service-preferences @@ -21623,7 +21656,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetSecurityTokenServicePreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-security-token-service-preferences)) (common-lisp:progn (common-lisp:defun simulate-custom-policy @@ -21647,7 +21680,8 @@ aws-sdk/generator/operation::input "POST" "/" "SimulateCustomPolicy")) - common-lisp:nil "SimulateCustomPolicyResult" *error-map*))) + common-lisp:nil "SimulateCustomPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'simulate-custom-policy)) (common-lisp:progn (common-lisp:defun simulate-principal-policy @@ -21672,7 +21706,8 @@ aws-sdk/generator/operation::input "POST" "/" "SimulatePrincipalPolicy")) - common-lisp:nil "SimulatePrincipalPolicyResult" *error-map*))) + common-lisp:nil "SimulatePrincipalPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'simulate-principal-policy)) (common-lisp:progn (common-lisp:defun tag-instance-profile @@ -21689,7 +21724,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'tag-instance-profile)) (common-lisp:progn (common-lisp:defun tag-mfadevice @@ -21706,7 +21741,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagMFADevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'tag-mfadevice)) (common-lisp:progn (common-lisp:defun tag-open-idconnect-provider @@ -21725,7 +21760,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagOpenIDConnectProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'tag-open-idconnect-provider)) (common-lisp:progn (common-lisp:defun tag-policy @@ -21742,7 +21777,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'tag-policy)) (common-lisp:progn (common-lisp:defun tag-role @@ -21758,7 +21793,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iam-request aws-sdk/generator/operation::input "POST" "/" "TagRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'tag-role)) (common-lisp:progn (common-lisp:defun tag-samlprovider @@ -21775,7 +21810,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagSAMLProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'tag-samlprovider)) (common-lisp:progn (common-lisp:defun tag-server-certificate @@ -21792,7 +21827,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagServerCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'tag-server-certificate)) (common-lisp:progn (common-lisp:defun tag-user @@ -21808,7 +21843,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iam-request aws-sdk/generator/operation::input "POST" "/" "TagUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'tag-user)) (common-lisp:progn (common-lisp:defun untag-instance-profile @@ -21825,7 +21860,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagInstanceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'untag-instance-profile)) (common-lisp:progn (common-lisp:defun untag-mfadevice @@ -21842,7 +21877,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagMFADevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'untag-mfadevice)) (common-lisp:progn (common-lisp:defun untag-open-idconnect-provider @@ -21861,7 +21896,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagOpenIDConnectProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'untag-open-idconnect-provider)) (common-lisp:progn (common-lisp:defun untag-policy @@ -21878,7 +21913,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'untag-policy)) (common-lisp:progn (common-lisp:defun untag-role @@ -21895,7 +21930,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'untag-role)) (common-lisp:progn (common-lisp:defun untag-samlprovider @@ -21912,7 +21947,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagSAMLProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'untag-samlprovider)) (common-lisp:progn (common-lisp:defun untag-server-certificate @@ -21930,7 +21965,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagServerCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'untag-server-certificate)) (common-lisp:progn (common-lisp:defun untag-user @@ -21947,7 +21982,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'untag-user)) (common-lisp:progn (common-lisp:defun update-access-key @@ -21964,7 +21999,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAccessKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-access-key)) (common-lisp:progn (common-lisp:defun update-account-password-policy @@ -21990,7 +22025,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAccountPasswordPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-account-password-policy)) (common-lisp:progn (common-lisp:defun update-assume-role-policy @@ -22008,7 +22043,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAssumeRolePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-assume-role-policy)) (common-lisp:progn (common-lisp:defun update-group @@ -22026,7 +22061,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-group)) (common-lisp:progn (common-lisp:defun update-login-profile @@ -22045,7 +22080,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateLoginProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-login-profile)) (common-lisp:progn (common-lisp:defun update-open-idconnect-provider-thumbprint @@ -22065,7 +22100,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateOpenIDConnectProviderThumbprint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-open-idconnect-provider-thumbprint)) (common-lisp:progn (common-lisp:defun update-role @@ -22084,7 +22119,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRole")) - common-lisp:nil "UpdateRoleResult" *error-map*))) + common-lisp:nil "UpdateRoleResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-role)) (common-lisp:progn (common-lisp:defun update-role-description @@ -22101,7 +22136,8 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRoleDescription")) - common-lisp:nil "UpdateRoleDescriptionResult" *error-map*))) + common-lisp:nil "UpdateRoleDescriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-role-description)) (common-lisp:progn (common-lisp:defun update-samlprovider @@ -22119,7 +22155,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSAMLProvider")) - common-lisp:nil "UpdateSAMLProviderResult" *error-map*))) + common-lisp:nil "UpdateSAMLProviderResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-samlprovider)) (common-lisp:progn (common-lisp:defun update-sshpublic-key @@ -22137,7 +22173,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSSHPublicKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-sshpublic-key)) (common-lisp:progn (common-lisp:defun update-server-certificate @@ -22158,7 +22194,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServerCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-server-certificate)) (common-lisp:progn (common-lisp:defun update-service-specific-credential @@ -22178,7 +22214,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceSpecificCredential")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-service-specific-credential)) (common-lisp:progn (common-lisp:defun update-signing-certificate @@ -22197,7 +22233,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSigningCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-signing-certificate)) (common-lisp:progn (common-lisp:defun update-user @@ -22215,7 +22251,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'update-user)) (common-lisp:progn (common-lisp:defun upload-sshpublic-key @@ -22232,7 +22268,7 @@ aws-sdk/generator/operation::input "POST" "/" "UploadSSHPublicKey")) - common-lisp:nil "UploadSSHPublicKeyResult" *error-map*))) + common-lisp:nil "UploadSSHPublicKeyResult" *error-map* common-lisp:nil))) (common-lisp:export 'upload-sshpublic-key)) (common-lisp:progn (common-lisp:defun upload-server-certificate @@ -22253,7 +22289,8 @@ aws-sdk/generator/operation::input "POST" "/" "UploadServerCertificate")) - common-lisp:nil "UploadServerCertificateResult" *error-map*))) + common-lisp:nil "UploadServerCertificateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'upload-server-certificate)) (common-lisp:progn (common-lisp:defun upload-signing-certificate @@ -22271,5 +22308,6 @@ aws-sdk/generator/operation::input "POST" "/" "UploadSigningCertificate")) - common-lisp:nil "UploadSigningCertificateResult" *error-map*))) + common-lisp:nil "UploadSigningCertificateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'upload-signing-certificate)) diff --git a/services/identitystore/api.lisp b/services/identitystore/api.lisp index ae670853..c5cfbea6 100644 --- a/services/identitystore/api.lisp +++ b/services/identitystore/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/identitystore/api - (:use) - (:nicknames #:aws/identitystore) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/identitystore/api (:use) + (:nicknames #:aws/identitystore) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/identitystore/api) (common-lisp:progn (common-lisp:define-condition identitystore-error @@ -3628,7 +3627,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun create-group-membership @@ -3646,7 +3645,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGroupMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group-membership)) (common-lisp:progn (common-lisp:defun create-user @@ -3669,7 +3668,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun delete-group @@ -3686,7 +3685,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun delete-group-membership @@ -3704,7 +3703,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGroupMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group-membership)) (common-lisp:progn (common-lisp:defun delete-user @@ -3721,7 +3720,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun describe-group @@ -3738,7 +3737,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-group)) (common-lisp:progn (common-lisp:defun describe-group-membership @@ -3757,7 +3756,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGroupMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-group-membership)) (common-lisp:progn (common-lisp:defun describe-user @@ -3774,7 +3773,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user)) (common-lisp:progn (common-lisp:defun get-group-id @@ -3792,7 +3791,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetGroupId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group-id)) (common-lisp:progn (common-lisp:defun get-group-membership-id @@ -3810,7 +3809,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetGroupMembershipId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group-membership-id)) (common-lisp:progn (common-lisp:defun get-user-id @@ -3828,7 +3827,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUserId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-id)) (common-lisp:progn (common-lisp:defun is-member-in-groups @@ -3846,7 +3845,7 @@ aws-sdk/generator/operation::input "POST" "/" "IsMemberInGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'is-member-in-groups)) (common-lisp:progn (common-lisp:defun list-group-memberships @@ -3865,7 +3864,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroupMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-group-memberships)) (common-lisp:progn (common-lisp:defun list-group-memberships-for-member @@ -3885,7 +3884,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroupMembershipsForMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-group-memberships-for-member)) (common-lisp:progn (common-lisp:defun list-groups @@ -3904,7 +3903,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun list-users @@ -3923,7 +3922,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun update-group @@ -3941,7 +3940,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group)) (common-lisp:progn (common-lisp:defun update-user @@ -3959,5 +3958,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) diff --git a/services/imagebuilder/api.lisp b/services/imagebuilder/api.lisp index 3433067b..9d372a60 100644 --- a/services/imagebuilder/api.lisp +++ b/services/imagebuilder/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/imagebuilder/api - (:use) - (:nicknames #:aws/imagebuilder) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/imagebuilder/api (:use) + (:nicknames #:aws/imagebuilder) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/imagebuilder/api) (common-lisp:progn (common-lisp:define-condition imagebuilder-error @@ -20,7 +19,7 @@ (common-lisp:export 'imagebuilder-error)) (common-lisp:progn (common-lisp:defclass imagebuilder-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "imagebuilder" :api-version "2019-12-02" :host-prefix "imagebuilder" :signing-name @@ -20500,7 +20499,7 @@ "PUT" "/CancelImageCreation" "CancelImageCreation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-image-creation)) (common-lisp:progn (common-lisp:defun cancel-lifecycle-execution @@ -20520,7 +20519,7 @@ "PUT" "/CancelLifecycleExecution" "CancelLifecycleExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-lifecycle-execution)) (common-lisp:progn (common-lisp:defun create-component @@ -20542,7 +20541,7 @@ "PUT" "/CreateComponent" "CreateComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-component)) (common-lisp:progn (common-lisp:defun create-container-recipe @@ -20570,7 +20569,7 @@ "PUT" "/CreateContainerRecipe" "CreateContainerRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-container-recipe)) (common-lisp:progn (common-lisp:defun create-distribution-configuration @@ -20591,7 +20590,7 @@ "PUT" "/CreateDistributionConfiguration" "CreateDistributionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-distribution-configuration)) (common-lisp:progn (common-lisp:defun create-image @@ -20616,7 +20615,7 @@ aws-sdk/generator/operation::input "PUT" "/CreateImage" "CreateImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-image)) (common-lisp:progn (common-lisp:defun create-image-pipeline @@ -20644,7 +20643,7 @@ "PUT" "/CreateImagePipeline" "CreateImagePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-image-pipeline)) (common-lisp:progn (common-lisp:defun create-image-recipe @@ -20668,7 +20667,7 @@ "PUT" "/CreateImageRecipe" "CreateImageRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-image-recipe)) (common-lisp:progn (common-lisp:defun create-infrastructure-configuration @@ -20694,7 +20693,7 @@ "PUT" "/CreateInfrastructureConfiguration" "CreateInfrastructureConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-infrastructure-configuration)) (common-lisp:progn (common-lisp:defun create-lifecycle-policy @@ -20716,7 +20715,7 @@ "PUT" "/CreateLifecyclePolicy" "CreateLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lifecycle-policy)) (common-lisp:progn (common-lisp:defun create-workflow @@ -20737,7 +20736,7 @@ aws-sdk/generator/operation::input "PUT" "/CreateWorkflow" "CreateWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workflow)) (common-lisp:progn (common-lisp:defun delete-component @@ -20755,7 +20754,7 @@ "DELETE" "/DeleteComponent" "DeleteComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-component)) (common-lisp:progn (common-lisp:defun delete-container-recipe @@ -20773,7 +20772,7 @@ "DELETE" "/DeleteContainerRecipe" "DeleteContainerRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-container-recipe)) (common-lisp:progn (common-lisp:defun delete-distribution-configuration @@ -20792,7 +20791,7 @@ "DELETE" "/DeleteDistributionConfiguration" "DeleteDistributionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-distribution-configuration)) (common-lisp:progn (common-lisp:defun delete-image @@ -20809,7 +20808,7 @@ aws-sdk/generator/operation::input "DELETE" "/DeleteImage" "DeleteImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image)) (common-lisp:progn (common-lisp:defun delete-image-pipeline @@ -20827,7 +20826,7 @@ "DELETE" "/DeleteImagePipeline" "DeleteImagePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image-pipeline)) (common-lisp:progn (common-lisp:defun delete-image-recipe @@ -20845,7 +20844,7 @@ "DELETE" "/DeleteImageRecipe" "DeleteImageRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image-recipe)) (common-lisp:progn (common-lisp:defun delete-infrastructure-configuration @@ -20865,7 +20864,7 @@ "DELETE" "/DeleteInfrastructureConfiguration" "DeleteInfrastructureConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-infrastructure-configuration)) (common-lisp:progn (common-lisp:defun delete-lifecycle-policy @@ -20883,7 +20882,7 @@ "DELETE" "/DeleteLifecyclePolicy" "DeleteLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lifecycle-policy)) (common-lisp:progn (common-lisp:defun delete-workflow @@ -20901,7 +20900,7 @@ "DELETE" "/DeleteWorkflow" "DeleteWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workflow)) (common-lisp:progn (common-lisp:defun get-component @@ -20918,7 +20917,7 @@ aws-sdk/generator/operation::input "GET" "/GetComponent" "GetComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-component)) (common-lisp:progn (common-lisp:defun get-component-policy @@ -20936,7 +20935,7 @@ "GET" "/GetComponentPolicy" "GetComponentPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-component-policy)) (common-lisp:progn (common-lisp:defun get-container-recipe @@ -20954,7 +20953,7 @@ "GET" "/GetContainerRecipe" "GetContainerRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-container-recipe)) (common-lisp:progn (common-lisp:defun get-container-recipe-policy @@ -20973,7 +20972,7 @@ "GET" "/GetContainerRecipePolicy" "GetContainerRecipePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-container-recipe-policy)) (common-lisp:progn (common-lisp:defun get-distribution-configuration @@ -20992,7 +20991,7 @@ "GET" "/GetDistributionConfiguration" "GetDistributionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-distribution-configuration)) (common-lisp:progn (common-lisp:defun get-image @@ -21009,7 +21008,7 @@ aws-sdk/generator/operation::input "GET" "/GetImage" "GetImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-image)) (common-lisp:progn (common-lisp:defun get-image-pipeline @@ -21027,7 +21026,7 @@ "GET" "/GetImagePipeline" "GetImagePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-image-pipeline)) (common-lisp:progn (common-lisp:defun get-image-policy @@ -21044,7 +21043,7 @@ aws-sdk/generator/operation::input "GET" "/GetImagePolicy" "GetImagePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-image-policy)) (common-lisp:progn (common-lisp:defun get-image-recipe @@ -21061,7 +21060,7 @@ aws-sdk/generator/operation::input "GET" "/GetImageRecipe" "GetImageRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-image-recipe)) (common-lisp:progn (common-lisp:defun get-image-recipe-policy @@ -21079,7 +21078,7 @@ "GET" "/GetImageRecipePolicy" "GetImageRecipePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-image-recipe-policy)) (common-lisp:progn (common-lisp:defun get-infrastructure-configuration @@ -21099,7 +21098,7 @@ "GET" "/GetInfrastructureConfiguration" "GetInfrastructureConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-infrastructure-configuration)) (common-lisp:progn (common-lisp:defun get-lifecycle-execution @@ -21117,7 +21116,7 @@ "GET" "/GetLifecycleExecution" "GetLifecycleExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lifecycle-execution)) (common-lisp:progn (common-lisp:defun get-lifecycle-policy @@ -21135,7 +21134,7 @@ "GET" "/GetLifecyclePolicy" "GetLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lifecycle-policy)) (common-lisp:progn (common-lisp:defun get-workflow @@ -21152,7 +21151,7 @@ aws-sdk/generator/operation::input "GET" "/GetWorkflow" "GetWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow)) (common-lisp:progn (common-lisp:defun get-workflow-execution @@ -21170,7 +21169,7 @@ "GET" "/GetWorkflowExecution" "GetWorkflowExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-execution)) (common-lisp:progn (common-lisp:defun get-workflow-step-execution @@ -21189,7 +21188,7 @@ "GET" "/GetWorkflowStepExecution" "GetWorkflowStepExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-step-execution)) (common-lisp:progn (common-lisp:defun import-component @@ -21211,7 +21210,7 @@ "PUT" "/ImportComponent" "ImportComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-component)) (common-lisp:progn (common-lisp:defun import-vm-image @@ -21231,7 +21230,7 @@ aws-sdk/generator/operation::input "PUT" "/ImportVmImage" "ImportVmImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-vm-image)) (common-lisp:progn (common-lisp:defun list-component-build-versions @@ -21252,7 +21251,7 @@ "POST" "/ListComponentBuildVersions" "ListComponentBuildVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-component-build-versions)) (common-lisp:progn (common-lisp:defun list-components @@ -21272,7 +21271,7 @@ "POST" "/ListComponents" "ListComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-components)) (common-lisp:progn (common-lisp:defun list-container-recipes @@ -21291,7 +21290,7 @@ "POST" "/ListContainerRecipes" "ListContainerRecipes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-container-recipes)) (common-lisp:progn (common-lisp:defun list-distribution-configurations @@ -21310,7 +21309,7 @@ "POST" "/ListDistributionConfigurations" "ListDistributionConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-distribution-configurations)) (common-lisp:progn (common-lisp:defun list-image-build-versions @@ -21331,7 +21330,7 @@ "POST" "/ListImageBuildVersions" "ListImageBuildVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-build-versions)) (common-lisp:progn (common-lisp:defun list-image-packages @@ -21351,7 +21350,7 @@ "POST" "/ListImagePackages" "ListImagePackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-packages)) (common-lisp:progn (common-lisp:defun list-image-pipeline-images @@ -21372,7 +21371,7 @@ "POST" "/ListImagePipelineImages" "ListImagePipelineImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-pipeline-images)) (common-lisp:progn (common-lisp:defun list-image-pipelines @@ -21390,7 +21389,7 @@ "POST" "/ListImagePipelines" "ListImagePipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-pipelines)) (common-lisp:progn (common-lisp:defun list-image-recipes @@ -21409,7 +21408,7 @@ "POST" "/ListImageRecipes" "ListImageRecipes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-recipes)) (common-lisp:progn (common-lisp:defun list-image-scan-finding-aggregations @@ -21428,7 +21427,7 @@ "POST" "/ListImageScanFindingAggregations" "ListImageScanFindingAggregations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-scan-finding-aggregations)) (common-lisp:progn (common-lisp:defun list-image-scan-findings @@ -21446,7 +21445,7 @@ "POST" "/ListImageScanFindings" "ListImageScanFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-scan-findings)) (common-lisp:progn (common-lisp:defun list-images @@ -21466,7 +21465,7 @@ aws-sdk/generator/operation::input "POST" "/ListImages" "ListImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-images)) (common-lisp:progn (common-lisp:defun list-infrastructure-configurations @@ -21485,7 +21484,7 @@ "POST" "/ListInfrastructureConfigurations" "ListInfrastructureConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-infrastructure-configurations)) (common-lisp:progn (common-lisp:defun list-lifecycle-execution-resources @@ -21507,7 +21506,7 @@ "POST" "/ListLifecycleExecutionResources" "ListLifecycleExecutionResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lifecycle-execution-resources)) (common-lisp:progn (common-lisp:defun list-lifecycle-executions @@ -21527,7 +21526,7 @@ "POST" "/ListLifecycleExecutions" "ListLifecycleExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lifecycle-executions)) (common-lisp:progn (common-lisp:defun list-lifecycle-policies @@ -21545,7 +21544,7 @@ "POST" "/ListLifecyclePolicies" "ListLifecyclePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lifecycle-policies)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -21567,12 +21566,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-waiting-workflow-steps @@ -21591,7 +21591,7 @@ "POST" "/ListWaitingWorkflowSteps" "ListWaitingWorkflowSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-waiting-workflow-steps)) (common-lisp:progn (common-lisp:defun list-workflow-build-versions @@ -21612,7 +21612,7 @@ "POST" "/ListWorkflowBuildVersions" "ListWorkflowBuildVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflow-build-versions)) (common-lisp:progn (common-lisp:defun list-workflow-executions @@ -21632,7 +21632,7 @@ "POST" "/ListWorkflowExecutions" "ListWorkflowExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflow-executions)) (common-lisp:progn (common-lisp:defun list-workflow-step-executions @@ -21653,7 +21653,7 @@ "POST" "/ListWorkflowStepExecutions" "ListWorkflowStepExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflow-step-executions)) (common-lisp:progn (common-lisp:defun list-workflows @@ -21672,7 +21672,7 @@ aws-sdk/generator/operation::input "POST" "/ListWorkflows" "ListWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflows)) (common-lisp:progn (common-lisp:defun put-component-policy @@ -21690,7 +21690,7 @@ "PUT" "/PutComponentPolicy" "PutComponentPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-component-policy)) (common-lisp:progn (common-lisp:defun put-container-recipe-policy @@ -21709,7 +21709,7 @@ "PUT" "/PutContainerRecipePolicy" "PutContainerRecipePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-container-recipe-policy)) (common-lisp:progn (common-lisp:defun put-image-policy @@ -21726,7 +21726,7 @@ aws-sdk/generator/operation::input "PUT" "/PutImagePolicy" "PutImagePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-image-policy)) (common-lisp:progn (common-lisp:defun put-image-recipe-policy @@ -21744,7 +21744,7 @@ "PUT" "/PutImageRecipePolicy" "PutImageRecipePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-image-recipe-policy)) (common-lisp:progn (common-lisp:defun send-workflow-step-action @@ -21766,7 +21766,7 @@ "PUT" "/SendWorkflowStepAction" "SendWorkflowStepAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-workflow-step-action)) (common-lisp:progn (common-lisp:defun start-image-pipeline-execution @@ -21786,7 +21786,7 @@ "PUT" "/StartImagePipelineExecution" "StartImagePipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-image-pipeline-execution)) (common-lisp:progn (common-lisp:defun start-resource-state-update @@ -21808,7 +21808,7 @@ "PUT" "/StartResourceStateUpdate" "StartResourceStateUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-resource-state-update)) (common-lisp:progn (common-lisp:defun tag-resource @@ -21830,12 +21830,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -21857,12 +21858,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-distribution-configuration @@ -21884,7 +21886,7 @@ "PUT" "/UpdateDistributionConfiguration" "UpdateDistributionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-distribution-configuration)) (common-lisp:progn (common-lisp:defun update-image-pipeline @@ -21913,7 +21915,7 @@ "PUT" "/UpdateImagePipeline" "UpdateImagePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-image-pipeline)) (common-lisp:progn (common-lisp:defun update-infrastructure-configuration @@ -21940,7 +21942,7 @@ "PUT" "/UpdateInfrastructureConfiguration" "UpdateInfrastructureConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-infrastructure-configuration)) (common-lisp:progn (common-lisp:defun update-lifecycle-policy @@ -21963,5 +21965,5 @@ "PUT" "/UpdateLifecyclePolicy" "UpdateLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-lifecycle-policy)) diff --git a/services/importexport/api.lisp b/services/importexport/api.lisp index 1057e7ec..c4807133 100644 --- a/services/importexport/api.lisp +++ b/services/importexport/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/importexport/api - (:use) - (:nicknames #:aws/importexport) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/importexport/api (:use) + (:nicknames #:aws/importexport) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/importexport/api) (common-lisp:progn (common-lisp:define-condition importexport-error @@ -1391,7 +1390,7 @@ "POST" "/?Operation=CancelJob" "CancelJob")) - common-lisp:nil "CancelJobResult" *error-map*))) + common-lisp:nil "CancelJobResult" *error-map* common-lisp:nil))) (common-lisp:export 'cancel-job)) (common-lisp:progn (common-lisp:defun create-job @@ -1412,7 +1411,7 @@ "POST" "/?Operation=CreateJob" "CreateJob")) - common-lisp:nil "CreateJobResult" *error-map*))) + common-lisp:nil "CreateJobResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun get-shipping-label @@ -1434,7 +1433,7 @@ "POST" "/?Operation=GetShippingLabel" "GetShippingLabel")) - common-lisp:nil "GetShippingLabelResult" *error-map*))) + common-lisp:nil "GetShippingLabelResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-shipping-label)) (common-lisp:progn (common-lisp:defun get-status @@ -1452,7 +1451,7 @@ "POST" "/?Operation=GetStatus" "GetStatus")) - common-lisp:nil "GetStatusResult" *error-map*))) + common-lisp:nil "GetStatusResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-status)) (common-lisp:progn (common-lisp:defun list-jobs @@ -1470,7 +1469,7 @@ "POST" "/?Operation=ListJobs" "ListJobs")) - common-lisp:nil "ListJobsResult" *error-map*))) + common-lisp:nil "ListJobsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun update-job @@ -1490,5 +1489,5 @@ "POST" "/?Operation=UpdateJob" "UpdateJob")) - common-lisp:nil "UpdateJobResult" *error-map*))) + common-lisp:nil "UpdateJobResult" *error-map* common-lisp:nil))) (common-lisp:export 'update-job)) diff --git a/services/inspector-scan/api.lisp b/services/inspector-scan/api.lisp index 9c7e457f..5554d667 100644 --- a/services/inspector-scan/api.lisp +++ b/services/inspector-scan/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/inspector-scan/api - (:use) - (:nicknames #:aws/inspector-scan) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/inspector-scan/api (:use) + (:nicknames #:aws/inspector-scan) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/inspector-scan/api) (common-lisp:progn (common-lisp:define-condition inspector-scan-error @@ -20,7 +19,7 @@ (common-lisp:export 'inspector-scan-error)) (common-lisp:progn (common-lisp:defclass inspector-scan-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "inspector-scan" :api-version "2023-08-08" :host-prefix "inspector-scan" diff --git a/services/inspector/api.lisp b/services/inspector/api.lisp index f8b8dde0..118bf62f 100644 --- a/services/inspector/api.lisp +++ b/services/inspector/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/inspector/api - (:use) - (:nicknames #:aws/inspector) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/inspector/api (:use) + (:nicknames #:aws/inspector) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/inspector/api) (common-lisp:progn (common-lisp:define-condition inspector-error @@ -6958,7 +6957,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddAttributesToFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-attributes-to-findings)) (common-lisp:progn (common-lisp:defun create-assessment-target @@ -6977,7 +6976,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAssessmentTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assessment-target)) (common-lisp:progn (common-lisp:defun create-assessment-template @@ -6999,7 +6998,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAssessmentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assessment-template)) (common-lisp:progn (common-lisp:defun create-exclusions-preview @@ -7017,7 +7016,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateExclusionsPreview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-exclusions-preview)) (common-lisp:progn (common-lisp:defun create-resource-group @@ -7034,7 +7033,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateResourceGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-group)) (common-lisp:progn (common-lisp:defun delete-assessment-run @@ -7051,7 +7050,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAssessmentRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assessment-run)) (common-lisp:progn (common-lisp:defun delete-assessment-target @@ -7068,7 +7067,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAssessmentTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assessment-target)) (common-lisp:progn (common-lisp:defun delete-assessment-template @@ -7086,7 +7085,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAssessmentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assessment-template)) (common-lisp:progn (common-lisp:defun describe-assessment-runs @@ -7103,7 +7102,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAssessmentRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-assessment-runs)) (common-lisp:progn (common-lisp:defun describe-assessment-targets @@ -7121,7 +7120,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAssessmentTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-assessment-targets)) (common-lisp:progn (common-lisp:defun describe-assessment-templates @@ -7139,7 +7138,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAssessmentTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-assessment-templates)) (common-lisp:progn (common-lisp:defun describe-cross-account-access-role () @@ -7164,7 +7163,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExclusions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-exclusions)) (common-lisp:progn (common-lisp:defun describe-findings @@ -7181,7 +7180,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-findings)) (common-lisp:progn (common-lisp:defun describe-resource-groups @@ -7198,7 +7197,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeResourceGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-groups)) (common-lisp:progn (common-lisp:defun describe-rules-packages @@ -7215,7 +7214,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRulesPackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rules-packages)) (common-lisp:progn (common-lisp:defun get-assessment-report @@ -7234,7 +7233,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAssessmentReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assessment-report)) (common-lisp:progn (common-lisp:defun get-exclusions-preview @@ -7254,7 +7253,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetExclusionsPreview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-exclusions-preview)) (common-lisp:progn (common-lisp:defun get-telemetry-metadata @@ -7271,7 +7270,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTelemetryMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-telemetry-metadata)) (common-lisp:progn (common-lisp:defun list-assessment-run-agents @@ -7291,7 +7290,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssessmentRunAgents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessment-run-agents)) (common-lisp:progn (common-lisp:defun list-assessment-runs @@ -7311,7 +7310,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssessmentRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessment-runs)) (common-lisp:progn (common-lisp:defun list-assessment-targets @@ -7328,7 +7327,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssessmentTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessment-targets)) (common-lisp:progn (common-lisp:defun list-assessment-templates @@ -7349,7 +7348,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssessmentTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assessment-templates)) (common-lisp:progn (common-lisp:defun list-event-subscriptions @@ -7367,7 +7366,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEventSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-subscriptions)) (common-lisp:progn (common-lisp:defun list-exclusions @@ -7386,7 +7385,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExclusions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-exclusions)) (common-lisp:progn (common-lisp:defun list-findings @@ -7405,7 +7404,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings)) (common-lisp:progn (common-lisp:defun list-rules-packages @@ -7422,7 +7421,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRulesPackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules-packages)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7439,7 +7438,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun preview-agents @@ -7458,7 +7457,7 @@ aws-sdk/generator/operation::input "POST" "/" "PreviewAgents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'preview-agents)) (common-lisp:progn (common-lisp:defun register-cross-account-access-role @@ -7476,7 +7475,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterCrossAccountAccessRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-cross-account-access-role)) (common-lisp:progn (common-lisp:defun remove-attributes-from-findings @@ -7494,7 +7493,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveAttributesFromFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-attributes-from-findings)) (common-lisp:progn (common-lisp:defun set-tags-for-resource @@ -7511,7 +7510,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-assessment-run @@ -7530,7 +7529,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartAssessmentRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-assessment-run)) (common-lisp:progn (common-lisp:defun stop-assessment-run @@ -7547,7 +7546,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopAssessmentRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-assessment-run)) (common-lisp:progn (common-lisp:defun subscribe-to-event @@ -7564,7 +7563,7 @@ aws-sdk/generator/operation::input "POST" "/" "SubscribeToEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'subscribe-to-event)) (common-lisp:progn (common-lisp:defun unsubscribe-from-event @@ -7581,7 +7580,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnsubscribeFromEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unsubscribe-from-event)) (common-lisp:progn (common-lisp:defun update-assessment-target @@ -7601,5 +7600,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAssessmentTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-assessment-target)) diff --git a/services/inspector2/api.lisp b/services/inspector2/api.lisp index f62fb304..9eea6ddc 100644 --- a/services/inspector2/api.lisp +++ b/services/inspector2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/inspector2/api - (:use) - (:nicknames #:aws/inspector2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/inspector2/api (:use) + (:nicknames #:aws/inspector2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/inspector2/api) (common-lisp:progn (common-lisp:define-condition inspector2-error @@ -20,7 +19,7 @@ (common-lisp:export 'inspector2-error)) (common-lisp:progn (common-lisp:defclass inspector2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "inspector2" :api-version "2020-06-08" :host-prefix "inspector2" :signing-name @@ -19389,7 +19388,7 @@ "POST" "/members/associate" "AssociateMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-member)) (common-lisp:progn (common-lisp:defun batch-get-account-status @@ -19407,7 +19406,7 @@ "POST" "/status/batch/get" "BatchGetAccountStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-account-status)) (common-lisp:progn (common-lisp:defun batch-get-code-snippet @@ -19425,7 +19424,7 @@ "POST" "/codesnippet/batchget" "BatchGetCodeSnippet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-code-snippet)) (common-lisp:progn (common-lisp:defun batch-get-finding-details @@ -19444,7 +19443,7 @@ "POST" "/findings/details/batch/get" "BatchGetFindingDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-finding-details)) (common-lisp:progn (common-lisp:defun batch-get-free-trial-info @@ -19463,7 +19462,7 @@ "POST" "/freetrialinfo/batchget" "BatchGetFreeTrialInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-free-trial-info)) (common-lisp:progn (common-lisp:defun batch-get-member-ec2deep-inspection-status @@ -19482,7 +19481,7 @@ "POST" "/ec2deepinspectionstatus/member/batch/get" "BatchGetMemberEc2DeepInspectionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-member-ec2deep-inspection-status)) (common-lisp:progn (common-lisp:defun batch-update-member-ec2deep-inspection-status @@ -19501,7 +19500,7 @@ "POST" "/ec2deepinspectionstatus/member/batch/update" "BatchUpdateMemberEc2DeepInspectionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-member-ec2deep-inspection-status)) (common-lisp:progn (common-lisp:defun cancel-findings-report @@ -19519,7 +19518,7 @@ "POST" "/reporting/cancel" "CancelFindingsReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-findings-report)) (common-lisp:progn (common-lisp:defun cancel-sbom-export @@ -19537,7 +19536,7 @@ "POST" "/sbomexport/cancel" "CancelSbomExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-sbom-export)) (common-lisp:progn (common-lisp:defun create-cis-scan-configuration @@ -19558,7 +19557,7 @@ "POST" "/cis/scan-configuration/create" "CreateCisScanConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cis-scan-configuration)) (common-lisp:progn (common-lisp:defun create-filter @@ -19579,7 +19578,7 @@ "POST" "/filters/create" "CreateFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-filter)) (common-lisp:progn (common-lisp:defun create-findings-report @@ -19599,7 +19598,7 @@ "POST" "/reporting/create" "CreateFindingsReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-findings-report)) (common-lisp:progn (common-lisp:defun create-sbom-export @@ -19620,7 +19619,7 @@ "POST" "/sbomexport/create" "CreateSbomExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sbom-export)) (common-lisp:progn (common-lisp:defun delete-cis-scan-configuration @@ -19639,7 +19638,7 @@ "POST" "/cis/scan-configuration/delete" "DeleteCisScanConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cis-scan-configuration)) (common-lisp:progn (common-lisp:defun delete-filter @@ -19657,7 +19656,7 @@ "POST" "/filters/delete" "DeleteFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-filter)) (common-lisp:progn (common-lisp:defun describe-organization-configuration () @@ -19684,7 +19683,7 @@ aws-sdk/generator/operation::input "POST" "/disable" "Disable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable)) (common-lisp:progn (common-lisp:defun disable-delegated-admin-account @@ -19703,7 +19702,7 @@ "POST" "/delegatedadminaccounts/disable" "DisableDelegatedAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-delegated-admin-account)) (common-lisp:progn (common-lisp:defun disassociate-member @@ -19721,7 +19720,7 @@ "POST" "/members/disassociate" "DisassociateMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-member)) (common-lisp:progn (common-lisp:defun enable @@ -19739,7 +19738,7 @@ aws-sdk/generator/operation::input "POST" "/enable" "Enable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable)) (common-lisp:progn (common-lisp:defun enable-delegated-admin-account @@ -19759,7 +19758,7 @@ "POST" "/delegatedadminaccounts/enable" "EnableDelegatedAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-delegated-admin-account)) (common-lisp:progn (common-lisp:defun get-cis-scan-report @@ -19777,7 +19776,7 @@ "POST" "/cis/scan/report/get" "GetCisScanReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cis-scan-report)) (common-lisp:progn (common-lisp:defun get-cis-scan-result-details @@ -19799,7 +19798,7 @@ "POST" "/cis/scan-result/details/get" "GetCisScanResultDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cis-scan-result-details)) (common-lisp:progn (common-lisp:defun get-configuration () @@ -19845,7 +19844,7 @@ "GET" "/encryptionkey/get" "GetEncryptionKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-encryption-key)) (common-lisp:progn (common-lisp:defun get-findings-report-status @@ -19864,7 +19863,7 @@ "POST" "/reporting/status/get" "GetFindingsReportStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-findings-report-status)) (common-lisp:progn (common-lisp:defun get-member @@ -19881,7 +19880,7 @@ aws-sdk/generator/operation::input "POST" "/members/get" "GetMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-member)) (common-lisp:progn (common-lisp:defun get-sbom-export @@ -19899,7 +19898,7 @@ "POST" "/sbomexport/get" "GetSbomExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sbom-export)) (common-lisp:progn (common-lisp:defun list-account-permissions @@ -19917,7 +19916,7 @@ "POST" "/accountpermissions/list" "ListAccountPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-permissions)) (common-lisp:progn (common-lisp:defun list-cis-scan-configurations @@ -19939,7 +19938,7 @@ "POST" "/cis/scan-configuration/list" "ListCisScanConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cis-scan-configurations)) (common-lisp:progn (common-lisp:defun list-cis-scan-results-aggregated-by-checks @@ -19961,7 +19960,7 @@ "POST" "/cis/scan-result/check/list" "ListCisScanResultsAggregatedByChecks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cis-scan-results-aggregated-by-checks)) (common-lisp:progn (common-lisp:defun list-cis-scan-results-aggregated-by-target-resource @@ -19983,7 +19982,7 @@ "POST" "/cis/scan-result/resource/list" "ListCisScanResultsAggregatedByTargetResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cis-scan-results-aggregated-by-target-resource)) (common-lisp:progn (common-lisp:defun list-cis-scans @@ -20003,7 +20002,7 @@ aws-sdk/generator/operation::input "POST" "/cis/scan/list" "ListCisScans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cis-scans)) (common-lisp:progn (common-lisp:defun list-coverage @@ -20021,7 +20020,7 @@ aws-sdk/generator/operation::input "POST" "/coverage/list" "ListCoverage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-coverage)) (common-lisp:progn (common-lisp:defun list-coverage-statistics @@ -20040,7 +20039,7 @@ "POST" "/coverage/statistics/list" "ListCoverageStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-coverage-statistics)) (common-lisp:progn (common-lisp:defun list-delegated-admin-accounts @@ -20059,7 +20058,7 @@ "POST" "/delegatedadminaccounts/list" "ListDelegatedAdminAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-delegated-admin-accounts)) (common-lisp:progn (common-lisp:defun list-filters @@ -20077,7 +20076,7 @@ aws-sdk/generator/operation::input "POST" "/filters/list" "ListFilters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-filters)) (common-lisp:progn (common-lisp:defun list-finding-aggregations @@ -20099,7 +20098,7 @@ "POST" "/findings/aggregation/list" "ListFindingAggregations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-finding-aggregations)) (common-lisp:progn (common-lisp:defun list-findings @@ -20119,7 +20118,7 @@ aws-sdk/generator/operation::input "POST" "/findings/list" "ListFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings)) (common-lisp:progn (common-lisp:defun list-members @@ -20137,7 +20136,7 @@ aws-sdk/generator/operation::input "POST" "/members/list" "ListMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-members)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -20159,12 +20158,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-usage-totals @@ -20182,7 +20182,7 @@ aws-sdk/generator/operation::input "POST" "/usage/list" "ListUsageTotals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-usage-totals)) (common-lisp:progn (common-lisp:defun reset-encryption-key @@ -20200,7 +20200,7 @@ "PUT" "/encryptionkey/reset" "ResetEncryptionKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-encryption-key)) (common-lisp:progn (common-lisp:defun search-vulnerabilities @@ -20218,7 +20218,7 @@ "POST" "/vulnerabilities/search" "SearchVulnerabilities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-vulnerabilities)) (common-lisp:progn (common-lisp:defun send-cis-session-health @@ -20236,7 +20236,7 @@ "PUT" "/cissession/health/send" "SendCisSessionHealth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-cis-session-health)) (common-lisp:progn (common-lisp:defun send-cis-session-telemetry @@ -20256,7 +20256,7 @@ "PUT" "/cissession/telemetry/send" "SendCisSessionTelemetry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-cis-session-telemetry)) (common-lisp:progn (common-lisp:defun start-cis-session @@ -20274,7 +20274,7 @@ "PUT" "/cissession/start" "StartCisSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-cis-session)) (common-lisp:progn (common-lisp:defun stop-cis-session @@ -20293,7 +20293,7 @@ "PUT" "/cissession/stop" "StopCisSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-cis-session)) (common-lisp:progn (common-lisp:defun tag-resource @@ -20315,12 +20315,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -20342,12 +20343,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-cis-scan-configuration @@ -20369,7 +20371,7 @@ "POST" "/cis/scan-configuration/update" "UpdateCisScanConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cis-scan-configuration)) (common-lisp:progn (common-lisp:defun update-configuration @@ -20387,7 +20389,7 @@ "POST" "/configuration/update" "UpdateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configuration)) (common-lisp:progn (common-lisp:defun update-ec2deep-inspection-configuration @@ -20407,7 +20409,7 @@ "POST" "/ec2deepinspectionconfiguration/update" "UpdateEc2DeepInspectionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ec2deep-inspection-configuration)) (common-lisp:progn (common-lisp:defun update-encryption-key @@ -20426,7 +20428,7 @@ "PUT" "/encryptionkey/update" "UpdateEncryptionKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-encryption-key)) (common-lisp:progn (common-lisp:defun update-filter @@ -20447,7 +20449,7 @@ "POST" "/filters/update" "UpdateFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-filter)) (common-lisp:progn (common-lisp:defun update-org-ec2deep-inspection-configuration @@ -20466,7 +20468,7 @@ "POST" "/ec2deepinspectionconfiguration/org/update" "UpdateOrgEc2DeepInspectionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-org-ec2deep-inspection-configuration)) (common-lisp:progn (common-lisp:defun update-organization-configuration @@ -20485,5 +20487,5 @@ "POST" "/organizationconfiguration/update" "UpdateOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-organization-configuration)) diff --git a/services/internetmonitor/api.lisp b/services/internetmonitor/api.lisp index d5739957..893ec4c4 100644 --- a/services/internetmonitor/api.lisp +++ b/services/internetmonitor/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/internetmonitor/api - (:use) - (:nicknames #:aws/internetmonitor) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/internetmonitor/api (:use) + (:nicknames #:aws/internetmonitor) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/internetmonitor/api) (common-lisp:progn (common-lisp:define-condition internetmonitor-error @@ -20,7 +19,7 @@ (common-lisp:export 'internetmonitor-error)) (common-lisp:progn (common-lisp:defclass internetmonitor-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "internetmonitor" :api-version "2021-06-03" :host-prefix @@ -3010,7 +3009,7 @@ (aws-sdk/generator/shape:make-request-with-input 'internetmonitor-request aws-sdk/generator/operation::input "POST" "/v20210603/Monitors" "CreateMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-monitor)) (common-lisp:progn (common-lisp:defun delete-monitor @@ -3027,12 +3026,13 @@ 'internetmonitor-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "DeleteMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-monitor)) (common-lisp:progn (common-lisp:defun get-health-event @@ -3050,16 +3050,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A/HealthEvents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)) - (quri.encode:url-encode + 'monitor-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'event-id)))) + aws-sdk/generator/operation::input 'event-id) + common-lisp:t))) "GetHealthEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-health-event)) (common-lisp:progn (common-lisp:defun get-monitor @@ -3076,12 +3077,13 @@ 'internetmonitor-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "GetMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-monitor)) (common-lisp:progn (common-lisp:defun get-query-results @@ -3101,16 +3103,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A/Queries/~A/Results" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)) - (quri.encode:url-encode + 'monitor-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'query-id)))) + aws-sdk/generator/operation::input 'query-id) + common-lisp:t))) "GetQueryResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-results)) (common-lisp:progn (common-lisp:defun get-query-status @@ -3128,16 +3131,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A/Queries/~A/Status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)) - (quri.encode:url-encode + 'monitor-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'query-id)))) + aws-sdk/generator/operation::input 'query-id) + common-lisp:t))) "GetQueryStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-status)) (common-lisp:progn (common-lisp:defun list-health-events @@ -3158,12 +3162,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A/HealthEvents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "ListHealthEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-health-events)) (common-lisp:progn (common-lisp:defun list-monitors @@ -3180,7 +3185,7 @@ (aws-sdk/generator/shape:make-request-with-input 'internetmonitor-request aws-sdk/generator/operation::input "GET" "/v20210603/Monitors" "ListMonitors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitors)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3197,12 +3202,13 @@ 'internetmonitor-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-query @@ -3222,12 +3228,13 @@ 'internetmonitor-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A/Queries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "StartQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-query)) (common-lisp:progn (common-lisp:defun stop-query @@ -3245,16 +3252,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A/Queries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)) - (quri.encode:url-encode + 'monitor-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'query-id)))) + aws-sdk/generator/operation::input 'query-id) + common-lisp:t))) "StopQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-query)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3271,12 +3279,13 @@ 'internetmonitor-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3293,12 +3302,13 @@ 'internetmonitor-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-monitor @@ -3323,10 +3333,11 @@ 'internetmonitor-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v20210603/Monitors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "UpdateMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-monitor)) diff --git a/services/iot-data/api.lisp b/services/iot-data/api.lisp index 364dd7de..feecf62f 100644 --- a/services/iot-data/api.lisp +++ b/services/iot-data/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iot-data/api - (:use) - (:nicknames #:aws/iot-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iot-data/api (:use) + (:nicknames #:aws/iot-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iot-data/api) (common-lisp:progn (common-lisp:define-condition iot-data-error @@ -20,7 +19,7 @@ (common-lisp:export 'iot-data-error)) (common-lisp:progn (common-lisp:defclass iot-data-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iot-data" :api-version "2015-05-28" :host-prefix "data-ats.iot" :signing-name @@ -123,7 +122,13 @@ ( (aws-sdk/generator/shape::input delete-thing-shadow-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-thing-shadow-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-retained-message-request common-lisp:nil ((topic :initarg :topic :initform @@ -318,7 +323,13 @@ ( (aws-sdk/generator/shape::input get-thing-shadow-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-thing-shadow-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:define-condition internal-failure-exception (iot-data-error) @@ -637,19 +648,25 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'user-properties)) - (common-lisp:cons "x-amz-mqtt5-user-properties" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-mqtt5-user-properties" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'payload-format-indicator)) - (common-lisp:cons "x-amz-mqtt5-payload-format-indicator" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-mqtt5-payload-format-indicator" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'correlation-data)) - (common-lisp:cons "x-amz-mqtt5-correlation-data" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-mqtt5-correlation-data" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input publish-request)) (common-lisp:append @@ -662,7 +679,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input publish-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input publish-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype qos () 'common-lisp:integer) (common-lisp:progn (common-lisp:define-condition request-entity-too-large-exception @@ -851,7 +872,13 @@ ( (aws-sdk/generator/shape::input update-thing-shadow-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-thing-shadow-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-thing-shadow-response common-lisp:nil ((payload :initarg :payload :initform common-lisp:nil @@ -889,7 +916,13 @@ ( (aws-sdk/generator/shape::input update-thing-shadow-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-thing-shadow-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype user-properties () 'common-lisp:string) (common-lisp:deftype user-properties-blob () '(common-lisp:simple-array (common-lisp:unsigned-byte 8) (common-lisp:*))) @@ -914,13 +947,14 @@ (common-lisp:format common-lisp:nil "/things/~A/shadow" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "DeleteThingShadow") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-thing-shadow)) (common-lisp:progn (common-lisp:defun get-retained-message @@ -942,12 +976,13 @@ (common-lisp:format common-lisp:nil "/retainedMessage/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic)))) + 'topic) + common-lisp:t))) "GetRetainedMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-retained-message)) (common-lisp:progn (common-lisp:defun get-thing-shadow @@ -969,13 +1004,14 @@ (common-lisp:format common-lisp:nil "/things/~A/shadow" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "GetThingShadow") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-thing-shadow)) (common-lisp:progn (common-lisp:defun list-named-shadows-for-thing @@ -999,12 +1035,13 @@ (common-lisp:format common-lisp:nil "/api/things/shadow/ListNamedShadowsForThing/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "ListNamedShadowsForThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-named-shadows-for-thing)) (common-lisp:progn (common-lisp:defun list-retained-messages @@ -1022,7 +1059,7 @@ "GET" "/retainedMessage" "ListRetainedMessages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-retained-messages)) (common-lisp:progn (common-lisp:defun publish @@ -1049,12 +1086,13 @@ (common-lisp:format common-lisp:nil "/topics/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic)))) + 'topic) + common-lisp:t))) "Publish")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish)) (common-lisp:progn (common-lisp:defun update-thing-shadow @@ -1076,11 +1114,12 @@ (common-lisp:format common-lisp:nil "/things/~A/shadow" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "UpdateThingShadow") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-thing-shadow)) diff --git a/services/iot-jobs-data/api.lisp b/services/iot-jobs-data/api.lisp index f8a96e90..9adf39bc 100644 --- a/services/iot-jobs-data/api.lisp +++ b/services/iot-jobs-data/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iot-jobs-data/api - (:use) - (:nicknames #:aws/iot-jobs-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iot-jobs-data/api (:use) + (:nicknames #:aws/iot-jobs-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iot-jobs-data/api) (common-lisp:progn (common-lisp:define-condition iot-jobs-data-error @@ -20,7 +19,7 @@ (common-lisp:export 'iot-jobs-data-error)) (common-lisp:progn (common-lisp:defclass iot-jobs-data-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iot-jobs-data" :api-version "2017-09-29" :host-prefix "data.jobs.iot" :signing-name @@ -958,16 +957,18 @@ (common-lisp:format common-lisp:nil "/things/~A/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)) - (quri.encode:url-encode + 'thing-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeJobExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-execution)) (common-lisp:progn (common-lisp:defun get-pending-job-executions @@ -990,12 +991,13 @@ (common-lisp:format common-lisp:nil "/things/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "GetPendingJobExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pending-job-executions)) (common-lisp:progn (common-lisp:defun start-next-pending-job-execution @@ -1020,12 +1022,13 @@ (common-lisp:format common-lisp:nil "/things/~A/jobs/$next" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "StartNextPendingJobExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-next-pending-job-execution)) (common-lisp:progn (common-lisp:defun update-job-execution @@ -1053,14 +1056,16 @@ (common-lisp:format common-lisp:nil "/things/~A/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)) - (quri.encode:url-encode + 'thing-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "UpdateJobExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-job-execution)) diff --git a/services/iot-roborunner/api.lisp b/services/iot-roborunner/api.lisp index 6ede9248..1a85befb 100644 --- a/services/iot-roborunner/api.lisp +++ b/services/iot-roborunner/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iot-roborunner/api - (:use) - (:nicknames #:aws/iot-roborunner) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iot-roborunner/api (:use) + (:nicknames #:aws/iot-roborunner) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iot-roborunner/api) (common-lisp:progn (common-lisp:define-condition iot-roborunner-error @@ -20,7 +19,7 @@ (common-lisp:export 'iot-roborunner-error)) (common-lisp:progn (common-lisp:defclass iot-roborunner-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iot-roborunner" :api-version "2018-05-10" :host-prefix "iotroborunner" @@ -3715,7 +3714,7 @@ "POST" "/createDestination" "CreateDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-destination)) (common-lisp:progn (common-lisp:defun create-site @@ -3734,7 +3733,7 @@ aws-sdk/generator/operation::input "POST" "/createSite" "CreateSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-site)) (common-lisp:progn (common-lisp:defun create-worker @@ -3757,7 +3756,7 @@ aws-sdk/generator/operation::input "POST" "/createWorker" "CreateWorker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-worker)) (common-lisp:progn (common-lisp:defun create-worker-fleet @@ -3777,7 +3776,7 @@ "POST" "/createWorkerFleet" "CreateWorkerFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-worker-fleet)) (common-lisp:progn (common-lisp:defun delete-destination @@ -3795,7 +3794,7 @@ "POST" "/deleteDestination" "DeleteDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-destination)) (common-lisp:progn (common-lisp:defun delete-site @@ -3812,7 +3811,7 @@ aws-sdk/generator/operation::input "POST" "/deleteSite" "DeleteSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-site)) (common-lisp:progn (common-lisp:defun delete-worker @@ -3829,7 +3828,7 @@ aws-sdk/generator/operation::input "POST" "/deleteWorker" "DeleteWorker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-worker)) (common-lisp:progn (common-lisp:defun delete-worker-fleet @@ -3847,7 +3846,7 @@ "POST" "/deleteWorkerFleet" "DeleteWorkerFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-worker-fleet)) (common-lisp:progn (common-lisp:defun get-destination @@ -3864,7 +3863,7 @@ aws-sdk/generator/operation::input "GET" "/getDestination" "GetDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-destination)) (common-lisp:progn (common-lisp:defun get-site @@ -3881,7 +3880,7 @@ aws-sdk/generator/operation::input "GET" "/getSite" "GetSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-site)) (common-lisp:progn (common-lisp:defun get-worker @@ -3898,7 +3897,7 @@ aws-sdk/generator/operation::input "GET" "/getWorker" "GetWorker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-worker)) (common-lisp:progn (common-lisp:defun get-worker-fleet @@ -3915,7 +3914,7 @@ aws-sdk/generator/operation::input "GET" "/getWorkerFleet" "GetWorkerFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-worker-fleet)) (common-lisp:progn (common-lisp:defun list-destinations @@ -3934,7 +3933,7 @@ "GET" "/listDestinations" "ListDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-destinations)) (common-lisp:progn (common-lisp:defun list-sites @@ -3951,7 +3950,7 @@ aws-sdk/generator/operation::input "GET" "/listSites" "ListSites")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sites)) (common-lisp:progn (common-lisp:defun list-worker-fleets @@ -3969,7 +3968,7 @@ "GET" "/listWorkerFleets" "ListWorkerFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-worker-fleets)) (common-lisp:progn (common-lisp:defun list-workers @@ -3987,7 +3986,7 @@ aws-sdk/generator/operation::input "GET" "/listWorkers" "ListWorkers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workers)) (common-lisp:progn (common-lisp:defun update-destination @@ -4007,7 +4006,7 @@ "POST" "/updateDestination" "UpdateDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-destination)) (common-lisp:progn (common-lisp:defun update-site @@ -4025,7 +4024,7 @@ aws-sdk/generator/operation::input "POST" "/updateSite" "UpdateSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-site)) (common-lisp:progn (common-lisp:defun update-worker @@ -4046,7 +4045,7 @@ aws-sdk/generator/operation::input "POST" "/updateWorker" "UpdateWorker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-worker)) (common-lisp:progn (common-lisp:defun update-worker-fleet @@ -4065,5 +4064,5 @@ "POST" "/updateWorkerFleet" "UpdateWorkerFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-worker-fleet)) diff --git a/services/iot/api.lisp b/services/iot/api.lisp index 63fa4388..67cb11bf 100644 --- a/services/iot/api.lisp +++ b/services/iot/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iot/api - (:use) - (:nicknames #:aws/iot) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iot/api (:use) + (:nicknames #:aws/iot) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iot/api) (common-lisp:progn (common-lisp:define-condition iot-error @@ -20,7 +19,7 @@ (common-lisp:export 'iot-error)) (common-lisp:progn (common-lisp:defclass iot-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iot" :api-version "2015-05-28" :host-prefix "iot" :signing-name "iot" @@ -1597,8 +1596,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'principal)) - (common-lisp:cons "x-amzn-iot-principal" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-iot-principal" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1715,7 +1715,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'principal)) - (common-lisp:cons "x-amzn-principal" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-principal" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10871,7 +10873,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'tags)) - (common-lisp:cons "x-amz-tagging" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-tagging" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10888,7 +10892,13 @@ ( (aws-sdk/generator/shape::input create-topic-rule-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'topic-rule-payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'topic-rule-payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-topic-rule-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype created-at-date () 'common-lisp:string) (common-lisp:deftype creation-date () 'common-lisp:string) (common-lisp:deftype credential-duration-seconds () 'common-lisp:integer) @@ -17777,8 +17787,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'principal)) - (common-lisp:cons "x-amzn-iot-principal" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-iot-principal" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17895,7 +17906,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'principal)) - (common-lisp:cons "x-amzn-principal" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-principal" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -27513,7 +27526,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'policy-name)) - (common-lisp:cons "x-amzn-iot-policy" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-iot-policy" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -27692,8 +27707,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'principal)) - (common-lisp:cons "x-amzn-iot-principal" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-iot-principal" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -27794,7 +27810,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'principal)) - (common-lisp:cons "x-amzn-principal" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-principal" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -34462,7 +34480,13 @@ ( (aws-sdk/generator/shape::input replace-topic-rule-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'topic-rule-payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'topic-rule-payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + replace-topic-rule-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype report-type () 'common-lisp:string) (common-lisp:progn (common-lisp:defclass republish-action common-lisp:nil @@ -36078,7 +36102,13 @@ (aws-sdk/generator/shape::input set-logging-options-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'logging-options-payload))) + 'logging-options-payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + set-logging-options-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass set-v2logging-level-request common-lisp:nil ((log-target :initarg :log-target :initform @@ -45019,12 +45049,13 @@ (common-lisp:format common-lisp:nil "/accept-certificate-transfer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-id)))) + 'certificate-id) + common-lisp:t))) "AcceptCertificateTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-certificate-transfer)) (common-lisp:progn (common-lisp:defun add-thing-to-billing-group @@ -45046,7 +45077,7 @@ "PUT" "/billing-groups/addThingToBillingGroup" "AddThingToBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-thing-to-billing-group)) (common-lisp:progn (common-lisp:defun add-thing-to-thing-group @@ -45067,7 +45098,7 @@ "PUT" "/thing-groups/addThingToThingGroup" "AddThingToThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-thing-to-thing-group)) (common-lisp:progn (common-lisp:defun associate-targets-with-job @@ -45091,12 +45122,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A/targets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "AssociateTargetsWithJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-targets-with-job)) (common-lisp:progn (common-lisp:defun attach-policy @@ -45118,12 +45150,13 @@ (common-lisp:format common-lisp:nil "/target-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "AttachPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-policy)) (common-lisp:progn (common-lisp:defun attach-principal-policy @@ -45145,12 +45178,13 @@ (common-lisp:format common-lisp:nil "/principal-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "AttachPrincipalPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-principal-policy)) (common-lisp:progn (common-lisp:defun attach-security-profile @@ -45174,12 +45208,13 @@ (common-lisp:format common-lisp:nil "/security-profiles/~A/targets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-name)))) + 'security-profile-name) + common-lisp:t))) "AttachSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-security-profile)) (common-lisp:progn (common-lisp:defun attach-thing-principal @@ -45201,12 +45236,13 @@ (common-lisp:format common-lisp:nil "/things/~A/principals" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "AttachThingPrincipal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-thing-principal)) (common-lisp:progn (common-lisp:defun cancel-audit-mitigation-actions-task @@ -45229,12 +45265,13 @@ (common-lisp:format common-lisp:nil "/audit/mitigationactions/tasks/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "CancelAuditMitigationActionsTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-audit-mitigation-actions-task)) (common-lisp:progn (common-lisp:defun cancel-audit-task @@ -45256,12 +45293,13 @@ (common-lisp:format common-lisp:nil "/audit/tasks/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "CancelAuditTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-audit-task)) (common-lisp:progn (common-lisp:defun cancel-certificate-transfer @@ -45284,12 +45322,13 @@ (common-lisp:format common-lisp:nil "/cancel-certificate-transfer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-id)))) + 'certificate-id) + common-lisp:t))) "CancelCertificateTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-certificate-transfer)) (common-lisp:progn (common-lisp:defun cancel-detect-mitigation-actions-task @@ -45312,12 +45351,13 @@ (common-lisp:format common-lisp:nil "/detect/mitigationactions/tasks/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "CancelDetectMitigationActionsTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-detect-mitigation-actions-task)) (common-lisp:progn (common-lisp:defun cancel-job @@ -45340,12 +45380,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "CancelJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job)) (common-lisp:progn (common-lisp:defun cancel-job-execution @@ -45370,16 +45411,18 @@ (common-lisp:format common-lisp:nil "/things/~A/jobs/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)) - (quri.encode:url-encode + 'thing-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "CancelJobExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job-execution)) (common-lisp:progn (common-lisp:defun clear-default-authorizer () @@ -45415,7 +45458,7 @@ aws-sdk/generator/operation::input 'confirmation-token))) "ConfirmTopicRuleDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'confirm-topic-rule-destination)) (common-lisp:progn (common-lisp:defun create-audit-suppression @@ -45437,7 +45480,7 @@ "POST" "/audit/suppressions/create" "CreateAuditSuppression")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-audit-suppression)) (common-lisp:progn (common-lisp:defun create-authorizer @@ -45464,12 +45507,13 @@ (common-lisp:format common-lisp:nil "/authorizer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-name)))) + 'authorizer-name) + common-lisp:t))) "CreateAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-authorizer)) (common-lisp:progn (common-lisp:defun create-billing-group @@ -45493,12 +45537,13 @@ (common-lisp:format common-lisp:nil "/billing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'billing-group-name)))) + 'billing-group-name) + common-lisp:t))) "CreateBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-billing-group)) (common-lisp:progn (common-lisp:defun create-certificate-from-csr @@ -45518,7 +45563,7 @@ aws-sdk/generator/operation::input "POST" "/certificates" "CreateCertificateFromCsr")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-certificate-from-csr)) (common-lisp:progn (common-lisp:defun create-certificate-provider @@ -45545,12 +45590,13 @@ (common-lisp:format common-lisp:nil "/certificate-providers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-provider-name)))) + 'certificate-provider-name) + common-lisp:t))) "CreateCertificateProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-certificate-provider)) (common-lisp:progn (common-lisp:defun create-custom-metric @@ -45575,12 +45621,13 @@ (common-lisp:format common-lisp:nil "/custom-metric/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metric-name)))) + 'metric-name) + common-lisp:t))) "CreateCustomMetric")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-metric)) (common-lisp:progn (common-lisp:defun create-dimension @@ -45604,12 +45651,13 @@ (common-lisp:format common-lisp:nil "/dimensions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateDimension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dimension)) (common-lisp:progn (common-lisp:defun create-domain-configuration @@ -45638,12 +45686,13 @@ (common-lisp:format common-lisp:nil "/domainConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-configuration-name)))) + 'domain-configuration-name) + common-lisp:t))) "CreateDomainConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain-configuration)) (common-lisp:progn (common-lisp:defun create-dynamic-thing-group @@ -45669,12 +45718,13 @@ (common-lisp:format common-lisp:nil "/dynamic-thing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-group-name)))) + 'thing-group-name) + common-lisp:t))) "CreateDynamicThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dynamic-thing-group)) (common-lisp:progn (common-lisp:defun create-fleet-metric @@ -45700,12 +45750,13 @@ (common-lisp:format common-lisp:nil "/fleet-metric/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metric-name)))) + 'metric-name) + common-lisp:t))) "CreateFleetMetric")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet-metric)) (common-lisp:progn (common-lisp:defun create-job @@ -45737,12 +45788,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "CreateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun create-job-template @@ -45772,12 +45824,13 @@ (common-lisp:format common-lisp:nil "/job-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-template-id)))) + 'job-template-id) + common-lisp:t))) "CreateJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job-template)) (common-lisp:progn (common-lisp:defun create-keys-and-certificate @@ -45796,7 +45849,7 @@ "POST" "/keys-and-certificate" "CreateKeysAndCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-keys-and-certificate)) (common-lisp:progn (common-lisp:defun create-mitigation-action @@ -45819,12 +45872,13 @@ (common-lisp:format common-lisp:nil "/mitigationactions/actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-name)))) + 'action-name) + common-lisp:t))) "CreateMitigationAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-mitigation-action)) (common-lisp:progn (common-lisp:defun create-otaupdate @@ -45855,12 +45909,13 @@ (common-lisp:format common-lisp:nil "/otaUpdates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ota-update-id)))) + 'ota-update-id) + common-lisp:t))) "CreateOTAUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-otaupdate)) (common-lisp:progn (common-lisp:defun create-package @@ -45884,12 +45939,13 @@ (common-lisp:format common-lisp:nil "/packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)))) + 'package-name) + common-lisp:t))) "CreatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-package)) (common-lisp:progn (common-lisp:defun create-package-version @@ -45914,16 +45970,18 @@ (common-lisp:format common-lisp:nil "/packages/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)) - (quri.encode:url-encode + 'package-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-name)))) + 'version-name) + common-lisp:t))) "CreatePackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-package-version)) (common-lisp:progn (common-lisp:defun create-policy @@ -45946,12 +46004,13 @@ (common-lisp:format common-lisp:nil "/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "CreatePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-policy)) (common-lisp:progn (common-lisp:defun create-policy-version @@ -45975,12 +46034,13 @@ (common-lisp:format common-lisp:nil "/policies/~A/version" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "CreatePolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-policy-version)) (common-lisp:progn (common-lisp:defun create-provisioning-claim @@ -46003,12 +46063,13 @@ (common-lisp:format common-lisp:nil "/provisioning-templates/~A/provisioning-claim" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "CreateProvisioningClaim")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-provisioning-claim)) (common-lisp:progn (common-lisp:defun create-provisioning-template @@ -46031,7 +46092,7 @@ "POST" "/provisioning-templates" "CreateProvisioningTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-provisioning-template)) (common-lisp:progn (common-lisp:defun create-provisioning-template-version @@ -46056,12 +46117,13 @@ (common-lisp:format common-lisp:nil "/provisioning-templates/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "CreateProvisioningTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-provisioning-template-version)) (common-lisp:progn (common-lisp:defun create-role-alias @@ -46086,12 +46148,13 @@ (common-lisp:format common-lisp:nil "/role-aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role-alias)))) + 'role-alias) + common-lisp:t))) "CreateRoleAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-role-alias)) (common-lisp:progn (common-lisp:defun create-scheduled-audit @@ -46116,12 +46179,13 @@ (common-lisp:format common-lisp:nil "/audit/scheduledaudits/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scheduled-audit-name)))) + 'scheduled-audit-name) + common-lisp:t))) "CreateScheduledAudit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-scheduled-audit)) (common-lisp:progn (common-lisp:defun create-security-profile @@ -46150,12 +46214,13 @@ (common-lisp:format common-lisp:nil "/security-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-name)))) + 'security-profile-name) + common-lisp:t))) "CreateSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-security-profile)) (common-lisp:progn (common-lisp:defun create-stream @@ -46179,12 +46244,13 @@ (common-lisp:format common-lisp:nil "/streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stream-id)))) + 'stream-id) + common-lisp:t))) "CreateStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stream)) (common-lisp:progn (common-lisp:defun create-thing @@ -46209,12 +46275,13 @@ (common-lisp:format common-lisp:nil "/things/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "CreateThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-thing)) (common-lisp:progn (common-lisp:defun create-thing-group @@ -46239,12 +46306,13 @@ (common-lisp:format common-lisp:nil "/thing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-group-name)))) + 'thing-group-name) + common-lisp:t))) "CreateThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-thing-group)) (common-lisp:progn (common-lisp:defun create-thing-type @@ -46268,12 +46336,13 @@ (common-lisp:format common-lisp:nil "/thing-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-type-name)))) + 'thing-type-name) + common-lisp:t))) "CreateThingType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-thing-type)) (common-lisp:progn (common-lisp:defun create-topic-rule @@ -46296,12 +46365,13 @@ (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "CreateTopicRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-topic-rule)) (common-lisp:progn (common-lisp:defun create-topic-rule-destination @@ -46319,7 +46389,7 @@ aws-sdk/generator/operation::input "POST" "/destinations" "CreateTopicRuleDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-topic-rule-destination)) (common-lisp:progn (common-lisp:defun delete-account-audit-configuration @@ -46338,7 +46408,7 @@ "DELETE" "/audit/configuration" "DeleteAccountAuditConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-account-audit-configuration)) (common-lisp:progn (common-lisp:defun delete-audit-suppression @@ -46356,7 +46426,7 @@ "POST" "/audit/suppressions/delete" "DeleteAuditSuppression")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-audit-suppression)) (common-lisp:progn (common-lisp:defun delete-authorizer @@ -46378,12 +46448,13 @@ (common-lisp:format common-lisp:nil "/authorizer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-name)))) + 'authorizer-name) + common-lisp:t))) "DeleteAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-authorizer)) (common-lisp:progn (common-lisp:defun delete-billing-group @@ -46406,12 +46477,13 @@ (common-lisp:format common-lisp:nil "/billing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'billing-group-name)))) + 'billing-group-name) + common-lisp:t))) "DeleteBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-billing-group)) (common-lisp:progn (common-lisp:defun delete-cacertificate @@ -46433,12 +46505,13 @@ (common-lisp:format common-lisp:nil "/cacertificate/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ca-certificate-id)))) + 'ca-certificate-id) + common-lisp:t))) "DeleteCACertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cacertificate)) (common-lisp:progn (common-lisp:defun delete-certificate @@ -46460,12 +46533,13 @@ (common-lisp:format common-lisp:nil "/certificates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-id)))) + 'certificate-id) + common-lisp:t))) "DeleteCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-certificate)) (common-lisp:progn (common-lisp:defun delete-certificate-provider @@ -46488,12 +46562,13 @@ (common-lisp:format common-lisp:nil "/certificate-providers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-provider-name)))) + 'certificate-provider-name) + common-lisp:t))) "DeleteCertificateProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-certificate-provider)) (common-lisp:progn (common-lisp:defun delete-custom-metric @@ -46515,12 +46590,13 @@ (common-lisp:format common-lisp:nil "/custom-metric/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metric-name)))) + 'metric-name) + common-lisp:t))) "DeleteCustomMetric")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-metric)) (common-lisp:progn (common-lisp:defun delete-dimension @@ -46542,12 +46618,13 @@ (common-lisp:format common-lisp:nil "/dimensions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteDimension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dimension)) (common-lisp:progn (common-lisp:defun delete-domain-configuration @@ -46570,12 +46647,13 @@ (common-lisp:format common-lisp:nil "/domainConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-configuration-name)))) + 'domain-configuration-name) + common-lisp:t))) "DeleteDomainConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain-configuration)) (common-lisp:progn (common-lisp:defun delete-dynamic-thing-group @@ -46599,12 +46677,13 @@ (common-lisp:format common-lisp:nil "/dynamic-thing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-group-name)))) + 'thing-group-name) + common-lisp:t))) "DeleteDynamicThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dynamic-thing-group)) (common-lisp:progn (common-lisp:defun delete-fleet-metric @@ -46626,12 +46705,13 @@ (common-lisp:format common-lisp:nil "/fleet-metric/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metric-name)))) + 'metric-name) + common-lisp:t))) "DeleteFleetMetric")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet-metric)) (common-lisp:progn (common-lisp:defun delete-job @@ -46653,12 +46733,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DeleteJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job)) (common-lisp:progn (common-lisp:defun delete-job-execution @@ -46683,20 +46764,23 @@ (common-lisp:format common-lisp:nil "/things/~A/jobs/~A/executionNumber/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)) - (quri.encode:url-encode + 'thing-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)) - (quri.encode:url-encode + 'job-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'execution-number)))) + 'execution-number) + common-lisp:t))) "DeleteJobExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job-execution)) (common-lisp:progn (common-lisp:defun delete-job-template @@ -46718,12 +46802,13 @@ (common-lisp:format common-lisp:nil "/job-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-template-id)))) + 'job-template-id) + common-lisp:t))) "DeleteJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job-template)) (common-lisp:progn (common-lisp:defun delete-mitigation-action @@ -46745,12 +46830,13 @@ (common-lisp:format common-lisp:nil "/mitigationactions/actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-name)))) + 'action-name) + common-lisp:t))) "DeleteMitigationAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mitigation-action)) (common-lisp:progn (common-lisp:defun delete-otaupdate @@ -46774,12 +46860,13 @@ (common-lisp:format common-lisp:nil "/otaUpdates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ota-update-id)))) + 'ota-update-id) + common-lisp:t))) "DeleteOTAUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-otaupdate)) (common-lisp:progn (common-lisp:defun delete-package @@ -46801,12 +46888,13 @@ (common-lisp:format common-lisp:nil "/packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)))) + 'package-name) + common-lisp:t))) "DeletePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-package)) (common-lisp:progn (common-lisp:defun delete-package-version @@ -46829,16 +46917,18 @@ (common-lisp:format common-lisp:nil "/packages/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)) - (quri.encode:url-encode + 'package-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-name)))) + 'version-name) + common-lisp:t))) "DeletePackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-package-version)) (common-lisp:progn (common-lisp:defun delete-policy @@ -46860,12 +46950,13 @@ (common-lisp:format common-lisp:nil "/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "DeletePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-policy)) (common-lisp:progn (common-lisp:defun delete-policy-version @@ -46887,16 +46978,18 @@ (common-lisp:format common-lisp:nil "/policies/~A/version/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)) - (quri.encode:url-encode + 'policy-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-version-id)))) + 'policy-version-id) + common-lisp:t))) "DeletePolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-policy-version)) (common-lisp:progn (common-lisp:defun delete-provisioning-template @@ -46919,12 +47012,13 @@ (common-lisp:format common-lisp:nil "/provisioning-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DeleteProvisioningTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-provisioning-template)) (common-lisp:progn (common-lisp:defun delete-provisioning-template-version @@ -46947,16 +47041,18 @@ (common-lisp:format common-lisp:nil "/provisioning-templates/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)) - (quri.encode:url-encode + 'template-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)))) + 'version-id) + common-lisp:t))) "DeleteProvisioningTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-provisioning-template-version)) (common-lisp:progn (common-lisp:defun delete-registration-code () @@ -46987,12 +47083,13 @@ (common-lisp:format common-lisp:nil "/role-aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role-alias)))) + 'role-alias) + common-lisp:t))) "DeleteRoleAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-role-alias)) (common-lisp:progn (common-lisp:defun delete-scheduled-audit @@ -47014,12 +47111,13 @@ (common-lisp:format common-lisp:nil "/audit/scheduledaudits/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scheduled-audit-name)))) + 'scheduled-audit-name) + common-lisp:t))) "DeleteScheduledAudit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scheduled-audit)) (common-lisp:progn (common-lisp:defun delete-security-profile @@ -47042,12 +47140,13 @@ (common-lisp:format common-lisp:nil "/security-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-name)))) + 'security-profile-name) + common-lisp:t))) "DeleteSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-security-profile)) (common-lisp:progn (common-lisp:defun delete-stream @@ -47069,12 +47168,13 @@ (common-lisp:format common-lisp:nil "/streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stream-id)))) + 'stream-id) + common-lisp:t))) "DeleteStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stream)) (common-lisp:progn (common-lisp:defun delete-thing @@ -47096,12 +47196,13 @@ (common-lisp:format common-lisp:nil "/things/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "DeleteThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-thing)) (common-lisp:progn (common-lisp:defun delete-thing-group @@ -47124,12 +47225,13 @@ (common-lisp:format common-lisp:nil "/thing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-group-name)))) + 'thing-group-name) + common-lisp:t))) "DeleteThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-thing-group)) (common-lisp:progn (common-lisp:defun delete-thing-type @@ -47151,12 +47253,13 @@ (common-lisp:format common-lisp:nil "/thing-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-type-name)))) + 'thing-type-name) + common-lisp:t))) "DeleteThingType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-thing-type)) (common-lisp:progn (common-lisp:defun delete-topic-rule @@ -47178,12 +47281,13 @@ (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "DeleteTopicRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-topic-rule)) (common-lisp:progn (common-lisp:defun delete-topic-rule-destination @@ -47210,7 +47314,7 @@ aws-sdk/generator/operation::input 'arn))) "DeleteTopicRuleDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-topic-rule-destination)) (common-lisp:progn (common-lisp:defun delete-v2logging-level @@ -47228,7 +47332,7 @@ "DELETE" "/v2LoggingLevel" "DeleteV2LoggingLevel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-v2logging-level)) (common-lisp:progn (common-lisp:defun deprecate-thing-type @@ -47250,12 +47354,13 @@ (common-lisp:format common-lisp:nil "/thing-types/~A/deprecate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-type-name)))) + 'thing-type-name) + common-lisp:t))) "DeprecateThingType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deprecate-thing-type)) (common-lisp:progn (common-lisp:defun describe-account-audit-configuration () @@ -47286,12 +47391,13 @@ (common-lisp:format common-lisp:nil "/audit/findings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'finding-id)))) + 'finding-id) + common-lisp:t))) "DescribeAuditFinding")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-audit-finding)) (common-lisp:progn (common-lisp:defun describe-audit-mitigation-actions-task @@ -47314,12 +47420,13 @@ (common-lisp:format common-lisp:nil "/audit/mitigationactions/tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "DescribeAuditMitigationActionsTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-audit-mitigation-actions-task)) (common-lisp:progn (common-lisp:defun describe-audit-suppression @@ -47338,7 +47445,7 @@ "POST" "/audit/suppressions/describe" "DescribeAuditSuppression")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-audit-suppression)) (common-lisp:progn (common-lisp:defun describe-audit-task @@ -47360,12 +47467,13 @@ (common-lisp:format common-lisp:nil "/audit/tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "DescribeAuditTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-audit-task)) (common-lisp:progn (common-lisp:defun describe-authorizer @@ -47387,12 +47495,13 @@ (common-lisp:format common-lisp:nil "/authorizer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-name)))) + 'authorizer-name) + common-lisp:t))) "DescribeAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-authorizer)) (common-lisp:progn (common-lisp:defun describe-billing-group @@ -47414,12 +47523,13 @@ (common-lisp:format common-lisp:nil "/billing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'billing-group-name)))) + 'billing-group-name) + common-lisp:t))) "DescribeBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-billing-group)) (common-lisp:progn (common-lisp:defun describe-cacertificate @@ -47441,12 +47551,13 @@ (common-lisp:format common-lisp:nil "/cacertificate/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ca-certificate-id)))) + 'ca-certificate-id) + common-lisp:t))) "DescribeCACertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cacertificate)) (common-lisp:progn (common-lisp:defun describe-certificate @@ -47468,12 +47579,13 @@ (common-lisp:format common-lisp:nil "/certificates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-id)))) + 'certificate-id) + common-lisp:t))) "DescribeCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-certificate)) (common-lisp:progn (common-lisp:defun describe-certificate-provider @@ -47496,12 +47608,13 @@ (common-lisp:format common-lisp:nil "/certificate-providers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-provider-name)))) + 'certificate-provider-name) + common-lisp:t))) "DescribeCertificateProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-certificate-provider)) (common-lisp:progn (common-lisp:defun describe-custom-metric @@ -47523,12 +47636,13 @@ (common-lisp:format common-lisp:nil "/custom-metric/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metric-name)))) + 'metric-name) + common-lisp:t))) "DescribeCustomMetric")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-metric)) (common-lisp:progn (common-lisp:defun describe-default-authorizer () @@ -47560,12 +47674,13 @@ (common-lisp:format common-lisp:nil "/detect/mitigationactions/tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "DescribeDetectMitigationActionsTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-detect-mitigation-actions-task)) (common-lisp:progn (common-lisp:defun describe-dimension @@ -47587,12 +47702,13 @@ (common-lisp:format common-lisp:nil "/dimensions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeDimension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dimension)) (common-lisp:progn (common-lisp:defun describe-domain-configuration @@ -47615,12 +47731,13 @@ (common-lisp:format common-lisp:nil "/domainConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-configuration-name)))) + 'domain-configuration-name) + common-lisp:t))) "DescribeDomainConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-configuration)) (common-lisp:progn (common-lisp:defun describe-endpoint @@ -47637,7 +47754,7 @@ aws-sdk/generator/operation::input "GET" "/endpoint" "DescribeEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoint)) (common-lisp:progn (common-lisp:defun describe-event-configurations () @@ -47668,12 +47785,13 @@ (common-lisp:format common-lisp:nil "/fleet-metric/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metric-name)))) + 'metric-name) + common-lisp:t))) "DescribeFleetMetric")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-metric)) (common-lisp:progn (common-lisp:defun describe-index @@ -47695,12 +47813,13 @@ (common-lisp:format common-lisp:nil "/indices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-name)))) + 'index-name) + common-lisp:t))) "DescribeIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-index)) (common-lisp:progn (common-lisp:defun describe-job @@ -47722,12 +47841,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job)) (common-lisp:progn (common-lisp:defun describe-job-execution @@ -47750,16 +47870,18 @@ (common-lisp:format common-lisp:nil "/things/~A/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)) - (quri.encode:url-encode + 'thing-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeJobExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-execution)) (common-lisp:progn (common-lisp:defun describe-job-template @@ -47781,12 +47903,13 @@ (common-lisp:format common-lisp:nil "/job-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-template-id)))) + 'job-template-id) + common-lisp:t))) "DescribeJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-template)) (common-lisp:progn (common-lisp:defun describe-managed-job-template @@ -47809,12 +47932,13 @@ (common-lisp:format common-lisp:nil "/managed-job-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DescribeManagedJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-managed-job-template)) (common-lisp:progn (common-lisp:defun describe-mitigation-action @@ -47837,12 +47961,13 @@ (common-lisp:format common-lisp:nil "/mitigationactions/actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-name)))) + 'action-name) + common-lisp:t))) "DescribeMitigationAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-mitigation-action)) (common-lisp:progn (common-lisp:defun describe-provisioning-template @@ -47865,12 +47990,13 @@ (common-lisp:format common-lisp:nil "/provisioning-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DescribeProvisioningTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-provisioning-template)) (common-lisp:progn (common-lisp:defun describe-provisioning-template-version @@ -47893,16 +48019,18 @@ (common-lisp:format common-lisp:nil "/provisioning-templates/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)) - (quri.encode:url-encode + 'template-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)))) + 'version-id) + common-lisp:t))) "DescribeProvisioningTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-provisioning-template-version)) (common-lisp:progn (common-lisp:defun describe-role-alias @@ -47924,12 +48052,13 @@ (common-lisp:format common-lisp:nil "/role-aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role-alias)))) + 'role-alias) + common-lisp:t))) "DescribeRoleAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-role-alias)) (common-lisp:progn (common-lisp:defun describe-scheduled-audit @@ -47951,12 +48080,13 @@ (common-lisp:format common-lisp:nil "/audit/scheduledaudits/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scheduled-audit-name)))) + 'scheduled-audit-name) + common-lisp:t))) "DescribeScheduledAudit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scheduled-audit)) (common-lisp:progn (common-lisp:defun describe-security-profile @@ -47979,12 +48109,13 @@ (common-lisp:format common-lisp:nil "/security-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-name)))) + 'security-profile-name) + common-lisp:t))) "DescribeSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-security-profile)) (common-lisp:progn (common-lisp:defun describe-stream @@ -48006,12 +48137,13 @@ (common-lisp:format common-lisp:nil "/streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stream-id)))) + 'stream-id) + common-lisp:t))) "DescribeStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stream)) (common-lisp:progn (common-lisp:defun describe-thing @@ -48033,12 +48165,13 @@ (common-lisp:format common-lisp:nil "/things/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "DescribeThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-thing)) (common-lisp:progn (common-lisp:defun describe-thing-group @@ -48060,12 +48193,13 @@ (common-lisp:format common-lisp:nil "/thing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-group-name)))) + 'thing-group-name) + common-lisp:t))) "DescribeThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-thing-group)) (common-lisp:progn (common-lisp:defun describe-thing-registration-task @@ -48088,12 +48222,13 @@ (common-lisp:format common-lisp:nil "/thing-registration-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "DescribeThingRegistrationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-thing-registration-task)) (common-lisp:progn (common-lisp:defun describe-thing-type @@ -48115,12 +48250,13 @@ (common-lisp:format common-lisp:nil "/thing-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-type-name)))) + 'thing-type-name) + common-lisp:t))) "DescribeThingType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-thing-type)) (common-lisp:progn (common-lisp:defun detach-policy @@ -48142,12 +48278,13 @@ (common-lisp:format common-lisp:nil "/target-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "DetachPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-policy)) (common-lisp:progn (common-lisp:defun detach-principal-policy @@ -48169,12 +48306,13 @@ (common-lisp:format common-lisp:nil "/principal-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "DetachPrincipalPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-principal-policy)) (common-lisp:progn (common-lisp:defun detach-security-profile @@ -48198,12 +48336,13 @@ (common-lisp:format common-lisp:nil "/security-profiles/~A/targets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-name)))) + 'security-profile-name) + common-lisp:t))) "DetachSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-security-profile)) (common-lisp:progn (common-lisp:defun detach-thing-principal @@ -48225,12 +48364,13 @@ (common-lisp:format common-lisp:nil "/things/~A/principals" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "DetachThingPrincipal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-thing-principal)) (common-lisp:progn (common-lisp:defun disable-topic-rule @@ -48252,12 +48392,13 @@ (common-lisp:format common-lisp:nil "/rules/~A/disable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "DisableTopicRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-topic-rule)) (common-lisp:progn (common-lisp:defun enable-topic-rule @@ -48279,12 +48420,13 @@ (common-lisp:format common-lisp:nil "/rules/~A/enable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "EnableTopicRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-topic-rule)) (common-lisp:progn (common-lisp:defun get-behavior-model-training-summaries @@ -48305,7 +48447,7 @@ "GET" "/behavior-model-training/summaries" "GetBehaviorModelTrainingSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-behavior-model-training-summaries)) (common-lisp:progn (common-lisp:defun get-buckets-aggregation @@ -48326,7 +48468,7 @@ "POST" "/indices/buckets" "GetBucketsAggregation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-buckets-aggregation)) (common-lisp:progn (common-lisp:defun get-cardinality @@ -48347,7 +48489,7 @@ "POST" "/indices/cardinality" "GetCardinality")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cardinality)) (common-lisp:progn (common-lisp:defun get-effective-policies @@ -48367,7 +48509,7 @@ "POST" "/effective-policies" "GetEffectivePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-effective-policies)) (common-lisp:progn (common-lisp:defun get-indexing-configuration () @@ -48398,12 +48540,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A/job-document" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetJobDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-document)) (common-lisp:progn (common-lisp:defun get-logging-options () @@ -48434,12 +48577,13 @@ (common-lisp:format common-lisp:nil "/otaUpdates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ota-update-id)))) + 'ota-update-id) + common-lisp:t))) "GetOTAUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-otaupdate)) (common-lisp:progn (common-lisp:defun get-package @@ -48461,12 +48605,13 @@ (common-lisp:format common-lisp:nil "/packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)))) + 'package-name) + common-lisp:t))) "GetPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-package)) (common-lisp:progn (common-lisp:defun get-package-configuration () @@ -48497,16 +48642,18 @@ (common-lisp:format common-lisp:nil "/packages/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)) - (quri.encode:url-encode + 'package-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-name)))) + 'version-name) + common-lisp:t))) "GetPackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-package-version)) (common-lisp:progn (common-lisp:defun get-percentiles @@ -48527,7 +48674,7 @@ "POST" "/indices/percentiles" "GetPercentiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-percentiles)) (common-lisp:progn (common-lisp:defun get-policy @@ -48549,12 +48696,13 @@ (common-lisp:format common-lisp:nil "/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "GetPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy)) (common-lisp:progn (common-lisp:defun get-policy-version @@ -48576,16 +48724,18 @@ (common-lisp:format common-lisp:nil "/policies/~A/version/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)) - (quri.encode:url-encode + 'policy-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-version-id)))) + 'policy-version-id) + common-lisp:t))) "GetPolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy-version)) (common-lisp:progn (common-lisp:defun get-registration-code () @@ -48615,7 +48765,7 @@ "POST" "/indices/statistics" "GetStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-statistics)) (common-lisp:progn (common-lisp:defun get-topic-rule @@ -48637,12 +48787,13 @@ (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "GetTopicRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-topic-rule)) (common-lisp:progn (common-lisp:defun get-topic-rule-destination @@ -48669,7 +48820,7 @@ aws-sdk/generator/operation::input 'arn))) "GetTopicRuleDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-topic-rule-destination)) (common-lisp:progn (common-lisp:defun get-v2logging-options () @@ -48701,7 +48852,7 @@ "GET" "/active-violations" "ListActiveViolations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-active-violations)) (common-lisp:progn (common-lisp:defun list-attached-policies @@ -48724,12 +48875,13 @@ (common-lisp:format common-lisp:nil "/attached-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'target)))) + 'target) + common-lisp:t))) "ListAttachedPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attached-policies)) (common-lisp:progn (common-lisp:defun list-audit-findings @@ -48751,7 +48903,7 @@ "POST" "/audit/findings" "ListAuditFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-audit-findings)) (common-lisp:progn (common-lisp:defun list-audit-mitigation-actions-executions @@ -48773,7 +48925,7 @@ "GET" "/audit/mitigationactions/executions" "ListAuditMitigationActionsExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-audit-mitigation-actions-executions)) (common-lisp:progn (common-lisp:defun list-audit-mitigation-actions-tasks @@ -48795,7 +48947,7 @@ "GET" "/audit/mitigationactions/tasks" "ListAuditMitigationActionsTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-audit-mitigation-actions-tasks)) (common-lisp:progn (common-lisp:defun list-audit-suppressions @@ -48816,7 +48968,7 @@ "POST" "/audit/suppressions/list" "ListAuditSuppressions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-audit-suppressions)) (common-lisp:progn (common-lisp:defun list-audit-tasks @@ -48836,7 +48988,7 @@ aws-sdk/generator/operation::input "GET" "/audit/tasks" "ListAuditTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-audit-tasks)) (common-lisp:progn (common-lisp:defun list-authorizers @@ -48854,7 +49006,7 @@ aws-sdk/generator/operation::input "GET" "/authorizers/" "ListAuthorizers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-authorizers)) (common-lisp:progn (common-lisp:defun list-billing-groups @@ -48873,7 +49025,7 @@ aws-sdk/generator/operation::input "GET" "/billing-groups" "ListBillingGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-billing-groups)) (common-lisp:progn (common-lisp:defun list-cacertificates @@ -48892,7 +49044,7 @@ aws-sdk/generator/operation::input "GET" "/cacertificates" "ListCACertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cacertificates)) (common-lisp:progn (common-lisp:defun list-certificate-providers @@ -48911,7 +49063,7 @@ "GET" "/certificate-providers/" "ListCertificateProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-certificate-providers)) (common-lisp:progn (common-lisp:defun list-certificates @@ -48929,7 +49081,7 @@ aws-sdk/generator/operation::input "GET" "/certificates" "ListCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-certificates)) (common-lisp:progn (common-lisp:defun list-certificates-by-ca @@ -48953,12 +49105,13 @@ (common-lisp:format common-lisp:nil "/certificates-by-ca/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ca-certificate-id)))) + 'ca-certificate-id) + common-lisp:t))) "ListCertificatesByCA")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-certificates-by-ca)) (common-lisp:progn (common-lisp:defun list-custom-metrics @@ -48975,7 +49128,7 @@ aws-sdk/generator/operation::input "GET" "/custom-metrics" "ListCustomMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-metrics)) (common-lisp:progn (common-lisp:defun list-detect-mitigation-actions-executions @@ -48997,7 +49150,7 @@ "GET" "/detect/mitigationactions/executions" "ListDetectMitigationActionsExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-detect-mitigation-actions-executions)) (common-lisp:progn (common-lisp:defun list-detect-mitigation-actions-tasks @@ -49018,7 +49171,7 @@ "GET" "/detect/mitigationactions/tasks" "ListDetectMitigationActionsTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-detect-mitigation-actions-tasks)) (common-lisp:progn (common-lisp:defun list-dimensions @@ -49035,7 +49188,7 @@ aws-sdk/generator/operation::input "GET" "/dimensions" "ListDimensions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dimensions)) (common-lisp:progn (common-lisp:defun list-domain-configurations @@ -49054,7 +49207,7 @@ "GET" "/domainConfigurations" "ListDomainConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domain-configurations)) (common-lisp:progn (common-lisp:defun list-fleet-metrics @@ -49071,7 +49224,7 @@ aws-sdk/generator/operation::input "GET" "/fleet-metrics" "ListFleetMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fleet-metrics)) (common-lisp:progn (common-lisp:defun list-indices @@ -49088,7 +49241,7 @@ aws-sdk/generator/operation::input "GET" "/indices" "ListIndices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-indices)) (common-lisp:progn (common-lisp:defun list-job-executions-for-job @@ -49112,12 +49265,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A/things" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "ListJobExecutionsForJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-job-executions-for-job)) (common-lisp:progn (common-lisp:defun list-job-executions-for-thing @@ -49143,12 +49297,13 @@ (common-lisp:format common-lisp:nil "/things/~A/jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "ListJobExecutionsForThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-job-executions-for-thing)) (common-lisp:progn (common-lisp:defun list-job-templates @@ -49165,7 +49320,7 @@ aws-sdk/generator/operation::input "GET" "/job-templates" "ListJobTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-job-templates)) (common-lisp:progn (common-lisp:defun list-jobs @@ -49185,7 +49340,7 @@ aws-sdk/generator/operation::input "GET" "/jobs" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-managed-job-templates @@ -49205,7 +49360,7 @@ "GET" "/managed-job-templates" "ListManagedJobTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-managed-job-templates)) (common-lisp:progn (common-lisp:defun list-metric-values @@ -49226,7 +49381,7 @@ aws-sdk/generator/operation::input "GET" "/metric-values" "ListMetricValues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-metric-values)) (common-lisp:progn (common-lisp:defun list-mitigation-actions @@ -49245,7 +49400,7 @@ "GET" "/mitigationactions/actions" "ListMitigationActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mitigation-actions)) (common-lisp:progn (common-lisp:defun list-otaupdates @@ -49263,7 +49418,7 @@ aws-sdk/generator/operation::input "GET" "/otaUpdates" "ListOTAUpdates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-otaupdates)) (common-lisp:progn (common-lisp:defun list-outgoing-certificates @@ -49283,7 +49438,7 @@ "GET" "/certificates-out-going" "ListOutgoingCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-outgoing-certificates)) (common-lisp:progn (common-lisp:defun list-package-versions @@ -49307,12 +49462,13 @@ (common-lisp:format common-lisp:nil "/packages/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)))) + 'package-name) + common-lisp:t))) "ListPackageVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-package-versions)) (common-lisp:progn (common-lisp:defun list-packages @@ -49329,7 +49485,7 @@ aws-sdk/generator/operation::input "GET" "/packages" "ListPackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-packages)) (common-lisp:progn (common-lisp:defun list-policies @@ -49347,7 +49503,7 @@ aws-sdk/generator/operation::input "GET" "/policies" "ListPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policies)) (common-lisp:progn (common-lisp:defun list-policy-principals @@ -49367,7 +49523,7 @@ "GET" "/policy-principals" "ListPolicyPrincipals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policy-principals)) (common-lisp:progn (common-lisp:defun list-policy-versions @@ -49389,12 +49545,13 @@ (common-lisp:format common-lisp:nil "/policies/~A/version" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "ListPolicyVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policy-versions)) (common-lisp:progn (common-lisp:defun list-principal-policies @@ -49414,7 +49571,7 @@ "GET" "/principal-policies" "ListPrincipalPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-principal-policies)) (common-lisp:progn (common-lisp:defun list-principal-things @@ -49433,7 +49590,7 @@ "GET" "/principals/things" "ListPrincipalThings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-principal-things)) (common-lisp:progn (common-lisp:defun list-provisioning-template-versions @@ -49457,12 +49614,13 @@ (common-lisp:format common-lisp:nil "/provisioning-templates/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "ListProvisioningTemplateVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provisioning-template-versions)) (common-lisp:progn (common-lisp:defun list-provisioning-templates @@ -49481,7 +49639,7 @@ "GET" "/provisioning-templates" "ListProvisioningTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provisioning-templates)) (common-lisp:progn (common-lisp:defun list-related-resources-for-audit-finding @@ -49501,7 +49659,7 @@ "GET" "/audit/relatedResources" "ListRelatedResourcesForAuditFinding")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-related-resources-for-audit-finding)) (common-lisp:progn (common-lisp:defun list-role-aliases @@ -49519,7 +49677,7 @@ aws-sdk/generator/operation::input "GET" "/role-aliases" "ListRoleAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-role-aliases)) (common-lisp:progn (common-lisp:defun list-scheduled-audits @@ -49537,7 +49695,7 @@ "GET" "/audit/scheduledaudits" "ListScheduledAudits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scheduled-audits)) (common-lisp:progn (common-lisp:defun list-security-profiles @@ -49557,7 +49715,7 @@ "GET" "/security-profiles" "ListSecurityProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-profiles)) (common-lisp:progn (common-lisp:defun list-security-profiles-for-target @@ -49579,7 +49737,7 @@ "GET" "/security-profiles-for-target" "ListSecurityProfilesForTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-profiles-for-target)) (common-lisp:progn (common-lisp:defun list-streams @@ -49597,7 +49755,7 @@ aws-sdk/generator/operation::input "GET" "/streams" "ListStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-streams)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -49614,7 +49772,7 @@ aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-targets-for-policy @@ -49636,12 +49794,13 @@ (common-lisp:format common-lisp:nil "/policy-targets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "ListTargetsForPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-targets-for-policy)) (common-lisp:progn (common-lisp:defun list-targets-for-security-profile @@ -49666,12 +49825,13 @@ (common-lisp:format common-lisp:nil "/security-profiles/~A/targets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-name)))) + 'security-profile-name) + common-lisp:t))) "ListTargetsForSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-targets-for-security-profile)) (common-lisp:progn (common-lisp:defun list-thing-groups @@ -49691,7 +49851,7 @@ aws-sdk/generator/operation::input "GET" "/thing-groups" "ListThingGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-thing-groups)) (common-lisp:progn (common-lisp:defun list-thing-groups-for-thing @@ -49715,12 +49875,13 @@ (common-lisp:format common-lisp:nil "/things/~A/thing-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "ListThingGroupsForThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-thing-groups-for-thing)) (common-lisp:progn (common-lisp:defun list-thing-principals @@ -49743,12 +49904,13 @@ (common-lisp:format common-lisp:nil "/things/~A/principals" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "ListThingPrincipals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-thing-principals)) (common-lisp:progn (common-lisp:defun list-thing-registration-task-reports @@ -49773,12 +49935,13 @@ (common-lisp:format common-lisp:nil "/thing-registration-tasks/~A/reports" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "ListThingRegistrationTaskReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-thing-registration-task-reports)) (common-lisp:progn (common-lisp:defun list-thing-registration-tasks @@ -49797,7 +49960,7 @@ "GET" "/thing-registration-tasks" "ListThingRegistrationTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-thing-registration-tasks)) (common-lisp:progn (common-lisp:defun list-thing-types @@ -49815,7 +49978,7 @@ aws-sdk/generator/operation::input "GET" "/thing-types" "ListThingTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-thing-types)) (common-lisp:progn (common-lisp:defun list-things @@ -49836,7 +49999,7 @@ aws-sdk/generator/operation::input "GET" "/things" "ListThings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-things)) (common-lisp:progn (common-lisp:defun list-things-in-billing-group @@ -49861,12 +50024,13 @@ (common-lisp:format common-lisp:nil "/billing-groups/~A/things" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'billing-group-name)))) + 'billing-group-name) + common-lisp:t))) "ListThingsInBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-things-in-billing-group)) (common-lisp:progn (common-lisp:defun list-things-in-thing-group @@ -49891,12 +50055,13 @@ (common-lisp:format common-lisp:nil "/thing-groups/~A/things" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-group-name)))) + 'thing-group-name) + common-lisp:t))) "ListThingsInThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-things-in-thing-group)) (common-lisp:progn (common-lisp:defun list-topic-rule-destinations @@ -49914,7 +50079,7 @@ aws-sdk/generator/operation::input "GET" "/destinations" "ListTopicRuleDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-topic-rule-destinations)) (common-lisp:progn (common-lisp:defun list-topic-rules @@ -49933,7 +50098,7 @@ aws-sdk/generator/operation::input "GET" "/rules" "ListTopicRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-topic-rules)) (common-lisp:progn (common-lisp:defun list-v2logging-levels @@ -49951,7 +50116,7 @@ aws-sdk/generator/operation::input "GET" "/v2LoggingLevel" "ListV2LoggingLevels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-v2logging-levels)) (common-lisp:progn (common-lisp:defun list-violation-events @@ -49975,7 +50140,7 @@ "GET" "/violation-events" "ListViolationEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-violation-events)) (common-lisp:progn (common-lisp:defun put-verification-state-on-violation @@ -50001,12 +50166,13 @@ (common-lisp:format common-lisp:nil "/violations/verification-state/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'violation-id)))) + 'violation-id) + common-lisp:t))) "PutVerificationStateOnViolation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-verification-state-on-violation)) (common-lisp:progn (common-lisp:defun register-cacertificate @@ -50028,7 +50194,7 @@ aws-sdk/generator/operation::input "POST" "/cacertificate" "RegisterCACertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-cacertificate)) (common-lisp:progn (common-lisp:defun register-certificate @@ -50049,7 +50215,7 @@ "POST" "/certificate/register" "RegisterCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-certificate)) (common-lisp:progn (common-lisp:defun register-certificate-without-ca @@ -50068,7 +50234,7 @@ "POST" "/certificate/register-no-ca" "RegisterCertificateWithoutCA")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-certificate-without-ca)) (common-lisp:progn (common-lisp:defun register-thing @@ -50085,7 +50251,7 @@ aws-sdk/generator/operation::input "POST" "/things" "RegisterThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-thing)) (common-lisp:progn (common-lisp:defun reject-certificate-transfer @@ -50108,12 +50274,13 @@ (common-lisp:format common-lisp:nil "/reject-certificate-transfer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-id)))) + 'certificate-id) + common-lisp:t))) "RejectCertificateTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-certificate-transfer)) (common-lisp:progn (common-lisp:defun remove-thing-from-billing-group @@ -50135,7 +50302,7 @@ "PUT" "/billing-groups/removeThingFromBillingGroup" "RemoveThingFromBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-thing-from-billing-group)) (common-lisp:progn (common-lisp:defun remove-thing-from-thing-group @@ -50157,7 +50324,7 @@ "PUT" "/thing-groups/removeThingFromThingGroup" "RemoveThingFromThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-thing-from-thing-group)) (common-lisp:progn (common-lisp:defun replace-topic-rule @@ -50179,12 +50346,13 @@ (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-name)))) + 'rule-name) + common-lisp:t))) "ReplaceTopicRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'replace-topic-rule)) (common-lisp:progn (common-lisp:defun search-index @@ -50205,7 +50373,7 @@ "POST" "/indices/search" "SearchIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-index)) (common-lisp:progn (common-lisp:defun set-default-authorizer @@ -50223,7 +50391,7 @@ "POST" "/default-authorizer" "SetDefaultAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-default-authorizer)) (common-lisp:progn (common-lisp:defun set-default-policy-version @@ -50246,16 +50414,18 @@ (common-lisp:format common-lisp:nil "/policies/~A/version/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)) - (quri.encode:url-encode + 'policy-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-version-id)))) + 'policy-version-id) + common-lisp:t))) "SetDefaultPolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-default-policy-version)) (common-lisp:progn (common-lisp:defun set-logging-options @@ -50273,7 +50443,7 @@ "POST" "/loggingOptions" "SetLoggingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-logging-options)) (common-lisp:progn (common-lisp:defun set-v2logging-level @@ -50291,7 +50461,7 @@ "POST" "/v2LoggingLevel" "SetV2LoggingLevel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-v2logging-level)) (common-lisp:progn (common-lisp:defun set-v2logging-options @@ -50311,7 +50481,7 @@ "POST" "/v2LoggingOptions" "SetV2LoggingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-v2logging-options)) (common-lisp:progn (common-lisp:defun start-audit-mitigation-actions-task @@ -50337,12 +50507,13 @@ (common-lisp:format common-lisp:nil "/audit/mitigationactions/tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "StartAuditMitigationActionsTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-audit-mitigation-actions-task)) (common-lisp:progn (common-lisp:defun start-detect-mitigation-actions-task @@ -50371,12 +50542,13 @@ (common-lisp:format common-lisp:nil "/detect/mitigationactions/tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "StartDetectMitigationActionsTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-detect-mitigation-actions-task)) (common-lisp:progn (common-lisp:defun start-on-demand-audit-task @@ -50394,7 +50566,7 @@ aws-sdk/generator/operation::input "POST" "/audit/tasks" "StartOnDemandAuditTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-on-demand-audit-task)) (common-lisp:progn (common-lisp:defun start-thing-registration-task @@ -50416,7 +50588,7 @@ "POST" "/thing-registration-tasks" "StartThingRegistrationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-thing-registration-task)) (common-lisp:progn (common-lisp:defun stop-thing-registration-task @@ -50439,12 +50611,13 @@ (common-lisp:format common-lisp:nil "/thing-registration-tasks/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "StopThingRegistrationTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-thing-registration-task)) (common-lisp:progn (common-lisp:defun tag-resource @@ -50461,7 +50634,7 @@ aws-sdk/generator/operation::input "POST" "/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-authorization @@ -50483,7 +50656,7 @@ "POST" "/test-authorization" "TestAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-authorization)) (common-lisp:progn (common-lisp:defun test-invoke-authorizer @@ -50508,12 +50681,13 @@ (common-lisp:format common-lisp:nil "/authorizer/~A/test" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-name)))) + 'authorizer-name) + common-lisp:t))) "TestInvokeAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-invoke-authorizer)) (common-lisp:progn (common-lisp:defun transfer-certificate @@ -50537,12 +50711,13 @@ (common-lisp:format common-lisp:nil "/transfer-certificate/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-id)))) + 'certificate-id) + common-lisp:t))) "TransferCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'transfer-certificate)) (common-lisp:progn (common-lisp:defun untag-resource @@ -50559,7 +50734,7 @@ aws-sdk/generator/operation::input "POST" "/untag" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-account-audit-configuration @@ -50582,7 +50757,7 @@ "PATCH" "/audit/configuration" "UpdateAccountAuditConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-audit-configuration)) (common-lisp:progn (common-lisp:defun update-audit-suppression @@ -50603,7 +50778,7 @@ "PATCH" "/audit/suppressions/update" "UpdateAuditSuppression")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-audit-suppression)) (common-lisp:progn (common-lisp:defun update-authorizer @@ -50629,12 +50804,13 @@ (common-lisp:format common-lisp:nil "/authorizer/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'authorizer-name)))) + 'authorizer-name) + common-lisp:t))) "UpdateAuthorizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-authorizer)) (common-lisp:progn (common-lisp:defun update-billing-group @@ -50659,12 +50835,13 @@ (common-lisp:format common-lisp:nil "/billing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'billing-group-name)))) + 'billing-group-name) + common-lisp:t))) "UpdateBillingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-billing-group)) (common-lisp:progn (common-lisp:defun update-cacertificate @@ -50691,12 +50868,13 @@ (common-lisp:format common-lisp:nil "/cacertificate/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ca-certificate-id)))) + 'ca-certificate-id) + common-lisp:t))) "UpdateCACertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cacertificate)) (common-lisp:progn (common-lisp:defun update-certificate @@ -50718,12 +50896,13 @@ (common-lisp:format common-lisp:nil "/certificates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-id)))) + 'certificate-id) + common-lisp:t))) "UpdateCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-certificate)) (common-lisp:progn (common-lisp:defun update-certificate-provider @@ -50749,12 +50928,13 @@ (common-lisp:format common-lisp:nil "/certificate-providers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'certificate-provider-name)))) + 'certificate-provider-name) + common-lisp:t))) "UpdateCertificateProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-certificate-provider)) (common-lisp:progn (common-lisp:defun update-custom-metric @@ -50776,12 +50956,13 @@ (common-lisp:format common-lisp:nil "/custom-metric/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metric-name)))) + 'metric-name) + common-lisp:t))) "UpdateCustomMetric")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-custom-metric)) (common-lisp:progn (common-lisp:defun update-dimension @@ -50803,12 +50984,13 @@ (common-lisp:format common-lisp:nil "/dimensions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateDimension")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dimension)) (common-lisp:progn (common-lisp:defun update-domain-configuration @@ -50837,12 +51019,13 @@ (common-lisp:format common-lisp:nil "/domainConfigurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-configuration-name)))) + 'domain-configuration-name) + common-lisp:t))) "UpdateDomainConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-configuration)) (common-lisp:progn (common-lisp:defun update-dynamic-thing-group @@ -50868,12 +51051,13 @@ (common-lisp:format common-lisp:nil "/dynamic-thing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-group-name)))) + 'thing-group-name) + common-lisp:t))) "UpdateDynamicThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dynamic-thing-group)) (common-lisp:progn (common-lisp:defun update-event-configurations @@ -50892,7 +51076,7 @@ "PATCH" "/event-configurations" "UpdateEventConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-configurations)) (common-lisp:progn (common-lisp:defun update-fleet-metric @@ -50919,12 +51103,13 @@ (common-lisp:format common-lisp:nil "/fleet-metric/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metric-name)))) + 'metric-name) + common-lisp:t))) "UpdateFleetMetric")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fleet-metric)) (common-lisp:progn (common-lisp:defun update-indexing-configuration @@ -50946,7 +51131,7 @@ "POST" "/indexing/config" "UpdateIndexingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-indexing-configuration)) (common-lisp:progn (common-lisp:defun update-job @@ -50973,12 +51158,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "UpdateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-job)) (common-lisp:progn (common-lisp:defun update-mitigation-action @@ -51001,12 +51187,13 @@ (common-lisp:format common-lisp:nil "/mitigationactions/actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-name)))) + 'action-name) + common-lisp:t))) "UpdateMitigationAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-mitigation-action)) (common-lisp:progn (common-lisp:defun update-package @@ -51031,12 +51218,13 @@ (common-lisp:format common-lisp:nil "/packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)))) + 'package-name) + common-lisp:t))) "UpdatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-package)) (common-lisp:progn (common-lisp:defun update-package-configuration @@ -51057,7 +51245,7 @@ "PATCH" "/package-configuration" "UpdatePackageConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-package-configuration)) (common-lisp:progn (common-lisp:defun update-package-version @@ -51082,16 +51270,18 @@ (common-lisp:format common-lisp:nil "/packages/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-name)) - (quri.encode:url-encode + 'package-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-name)))) + 'version-name) + common-lisp:t))) "UpdatePackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-package-version)) (common-lisp:progn (common-lisp:defun update-provisioning-template @@ -51118,12 +51308,13 @@ (common-lisp:format common-lisp:nil "/provisioning-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "UpdateProvisioningTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-provisioning-template)) (common-lisp:progn (common-lisp:defun update-role-alias @@ -51147,12 +51338,13 @@ (common-lisp:format common-lisp:nil "/role-aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role-alias)))) + 'role-alias) + common-lisp:t))) "UpdateRoleAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-role-alias)) (common-lisp:progn (common-lisp:defun update-scheduled-audit @@ -51177,12 +51369,13 @@ (common-lisp:format common-lisp:nil "/audit/scheduledaudits/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scheduled-audit-name)))) + 'scheduled-audit-name) + common-lisp:t))) "UpdateScheduledAudit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-scheduled-audit)) (common-lisp:progn (common-lisp:defun update-security-profile @@ -51215,12 +51408,13 @@ (common-lisp:format common-lisp:nil "/security-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'security-profile-name)))) + 'security-profile-name) + common-lisp:t))) "UpdateSecurityProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-security-profile)) (common-lisp:progn (common-lisp:defun update-stream @@ -51243,12 +51437,13 @@ (common-lisp:format common-lisp:nil "/streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stream-id)))) + 'stream-id) + common-lisp:t))) "UpdateStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stream)) (common-lisp:progn (common-lisp:defun update-thing @@ -51273,12 +51468,13 @@ (common-lisp:format common-lisp:nil "/things/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-name)))) + 'thing-name) + common-lisp:t))) "UpdateThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-thing)) (common-lisp:progn (common-lisp:defun update-thing-group @@ -51303,12 +51499,13 @@ (common-lisp:format common-lisp:nil "/thing-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'thing-group-name)))) + 'thing-group-name) + common-lisp:t))) "UpdateThingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-thing-group)) (common-lisp:progn (common-lisp:defun update-thing-groups-for-thing @@ -51330,7 +51527,7 @@ "PUT" "/thing-groups/updateThingGroupsForThing" "UpdateThingGroupsForThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-thing-groups-for-thing)) (common-lisp:progn (common-lisp:defun update-topic-rule-destination @@ -51348,7 +51545,7 @@ aws-sdk/generator/operation::input "PATCH" "/destinations" "UpdateTopicRuleDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-topic-rule-destination)) (common-lisp:progn (common-lisp:defun validate-security-profile-behaviors @@ -51367,5 +51564,5 @@ "POST" "/security-profile-behaviors/validate" "ValidateSecurityProfileBehaviors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-security-profile-behaviors)) diff --git a/services/iot1click-devices/api.lisp b/services/iot1click-devices/api.lisp index 6f430da3..9c791c8a 100644 --- a/services/iot1click-devices/api.lisp +++ b/services/iot1click-devices/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iot1click-devices/api - (:use) - (:nicknames #:aws/iot1click-devices) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iot1click-devices/api (:use) + (:nicknames #:aws/iot1click-devices) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iot1click-devices/api) (common-lisp:progn (common-lisp:define-condition iot1click-devices-error @@ -20,7 +19,7 @@ (common-lisp:export 'iot1click-devices-error)) (common-lisp:progn (common-lisp:defclass iot1click-devices-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iot1click-devices" :api-version "2018-05-14" :host-prefix @@ -1500,12 +1499,12 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/claims/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'claim-code)))) + aws-sdk/generator/operation::input 'claim-code) + common-lisp:t))) "ClaimDevicesByClaimCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'claim-devices-by-claim-code)) (common-lisp:progn (common-lisp:defun describe-device @@ -1522,12 +1521,12 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'device-id)))) + aws-sdk/generator/operation::input 'device-id) + common-lisp:t))) "DescribeDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device)) (common-lisp:progn (common-lisp:defun finalize-device-claim @@ -1544,12 +1543,12 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A/finalize-claim" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'device-id)))) + aws-sdk/generator/operation::input 'device-id) + common-lisp:t))) "FinalizeDeviceClaim")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'finalize-device-claim)) (common-lisp:progn (common-lisp:defun get-device-methods @@ -1566,12 +1565,12 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A/methods" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'device-id)))) + aws-sdk/generator/operation::input 'device-id) + common-lisp:t))) "GetDeviceMethods")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-methods)) (common-lisp:progn (common-lisp:defun initiate-device-claim @@ -1588,12 +1587,12 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A/initiate-claim" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'device-id)))) + aws-sdk/generator/operation::input 'device-id) + common-lisp:t))) "InitiateDeviceClaim")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initiate-device-claim)) (common-lisp:progn (common-lisp:defun invoke-device-method @@ -1612,12 +1611,12 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A/methods" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'device-id)))) + aws-sdk/generator/operation::input 'device-id) + common-lisp:t))) "InvokeDeviceMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-device-method)) (common-lisp:progn (common-lisp:defun list-device-events @@ -1637,12 +1636,12 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A/events" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'device-id)))) + aws-sdk/generator/operation::input 'device-id) + common-lisp:t))) "ListDeviceEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-events)) (common-lisp:progn (common-lisp:defun list-devices @@ -1659,7 +1658,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iot1click-devices-request aws-sdk/generator/operation::input "GET" "/devices" "ListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1676,12 +1675,13 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1698,12 +1698,13 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun unclaim-device @@ -1720,12 +1721,12 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A/unclaim" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'device-id)))) + aws-sdk/generator/operation::input 'device-id) + common-lisp:t))) "UnclaimDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unclaim-device)) (common-lisp:progn (common-lisp:defun untag-resource @@ -1742,12 +1743,13 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-device-state @@ -1764,10 +1766,10 @@ 'iot1click-devices-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A/state" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'device-id)))) + aws-sdk/generator/operation::input 'device-id) + common-lisp:t))) "UpdateDeviceState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device-state)) diff --git a/services/iot1click-projects/api.lisp b/services/iot1click-projects/api.lisp index 5ac2d65a..e55600de 100644 --- a/services/iot1click-projects/api.lisp +++ b/services/iot1click-projects/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iot1click-projects/api - (:use) - (:nicknames #:aws/iot1click-projects) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iot1click-projects/api (:use) + (:nicknames #:aws/iot1click-projects) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iot1click-projects/api) (common-lisp:progn (common-lisp:define-condition iot1click-projects-error @@ -20,7 +19,7 @@ (common-lisp:export 'iot1click-projects-error)) (common-lisp:progn (common-lisp:defclass iot1click-projects-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iot1click-projects" :api-version "2018-05-14" :host-prefix @@ -1881,20 +1880,23 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A/placements/~A/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'placement-name)) - (quri.encode:url-encode + 'placement-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-template-name)))) + 'device-template-name) + common-lisp:t))) "AssociateDeviceWithPlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-device-with-placement)) (common-lisp:progn (common-lisp:defun create-placement @@ -1912,12 +1914,13 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A/placements" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "CreatePlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-placement)) (common-lisp:progn (common-lisp:defun create-project @@ -1935,7 +1938,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iot1click-projects-request aws-sdk/generator/operation::input "POST" "/projects" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun delete-placement @@ -1952,16 +1955,18 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A/placements/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'placement-name)))) + 'placement-name) + common-lisp:t))) "DeletePlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-placement)) (common-lisp:progn (common-lisp:defun delete-project @@ -1978,12 +1983,13 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun describe-placement @@ -2000,16 +2006,18 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A/placements/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'placement-name)))) + 'placement-name) + common-lisp:t))) "DescribePlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-placement)) (common-lisp:progn (common-lisp:defun describe-project @@ -2026,12 +2034,13 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "DescribeProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-project)) (common-lisp:progn (common-lisp:defun disassociate-device-from-placement @@ -2052,20 +2061,23 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A/placements/~A/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'placement-name)) - (quri.encode:url-encode + 'placement-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-template-name)))) + 'device-template-name) + common-lisp:t))) "DisassociateDeviceFromPlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-device-from-placement)) (common-lisp:progn (common-lisp:defun get-devices-in-placement @@ -2083,16 +2095,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A/placements/~A/devices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'placement-name)))) + 'placement-name) + common-lisp:t))) "GetDevicesInPlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-devices-in-placement)) (common-lisp:progn (common-lisp:defun list-placements @@ -2110,12 +2124,13 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A/placements" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "ListPlacements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-placements)) (common-lisp:progn (common-lisp:defun list-projects @@ -2131,7 +2146,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iot1click-projects-request aws-sdk/generator/operation::input "GET" "/projects" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2148,12 +2163,13 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2170,12 +2186,13 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2192,12 +2209,13 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-placement @@ -2215,16 +2233,18 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A/placements/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'placement-name)))) + 'placement-name) + common-lisp:t))) "UpdatePlacement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-placement)) (common-lisp:progn (common-lisp:defun update-project @@ -2243,10 +2263,11 @@ 'iot1click-projects-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) diff --git a/services/iotanalytics/api.lisp b/services/iotanalytics/api.lisp index 02f28c1c..c56ccb35 100644 --- a/services/iotanalytics/api.lisp +++ b/services/iotanalytics/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotanalytics/api - (:use) - (:nicknames #:aws/iotanalytics) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotanalytics/api (:use) + (:nicknames #:aws/iotanalytics) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotanalytics/api) (common-lisp:progn (common-lisp:define-condition iotanalytics-error @@ -20,7 +19,7 @@ (common-lisp:export 'iotanalytics-error)) (common-lisp:progn (common-lisp:defclass iotanalytics-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iotanalytics" :api-version "2017-11-27" :host-prefix "iotanalytics" :signing-name @@ -7932,7 +7931,7 @@ "POST" "/messages/batch" "BatchPutMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-message)) (common-lisp:progn (common-lisp:defun cancel-pipeline-reprocessing @@ -7955,16 +7954,18 @@ (common-lisp:format common-lisp:nil "/pipelines/~A/reprocessing/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)) - (quri.encode:url-encode + 'pipeline-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reprocessing-id)))) + 'reprocessing-id) + common-lisp:t))) "CancelPipelineReprocessing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-pipeline-reprocessing)) (common-lisp:progn (common-lisp:defun create-channel @@ -7983,7 +7984,7 @@ aws-sdk/generator/operation::input "POST" "/channels" "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-dataset @@ -8004,7 +8005,7 @@ aws-sdk/generator/operation::input "POST" "/datasets" "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-dataset-content @@ -8026,12 +8027,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A/content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "CreateDatasetContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset-content)) (common-lisp:progn (common-lisp:defun create-datastore @@ -8052,7 +8054,7 @@ aws-sdk/generator/operation::input "POST" "/datastores" "CreateDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-datastore)) (common-lisp:progn (common-lisp:defun create-pipeline @@ -8070,7 +8072,7 @@ aws-sdk/generator/operation::input "POST" "/pipelines" "CreatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pipeline)) (common-lisp:progn (common-lisp:defun delete-channel @@ -8092,12 +8094,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -8119,12 +8122,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun delete-dataset-content @@ -8146,12 +8150,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A/content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "DeleteDatasetContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset-content)) (common-lisp:progn (common-lisp:defun delete-datastore @@ -8173,12 +8178,13 @@ (common-lisp:format common-lisp:nil "/datastores/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-name)))) + 'datastore-name) + common-lisp:t))) "DeleteDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-datastore)) (common-lisp:progn (common-lisp:defun delete-pipeline @@ -8200,12 +8206,13 @@ (common-lisp:format common-lisp:nil "/pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "DeletePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pipeline)) (common-lisp:progn (common-lisp:defun describe-channel @@ -8228,12 +8235,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "DescribeChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -8255,12 +8263,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-datastore @@ -8283,12 +8292,13 @@ (common-lisp:format common-lisp:nil "/datastores/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-name)))) + 'datastore-name) + common-lisp:t))) "DescribeDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-datastore)) (common-lisp:progn (common-lisp:defun describe-logging-options () @@ -8319,12 +8329,13 @@ (common-lisp:format common-lisp:nil "/pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "DescribePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pipeline)) (common-lisp:progn (common-lisp:defun get-dataset-content @@ -8346,12 +8357,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A/content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "GetDatasetContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dataset-content)) (common-lisp:progn (common-lisp:defun list-channels @@ -8368,7 +8380,7 @@ aws-sdk/generator/operation::input "GET" "/channels" "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-dataset-contents @@ -8393,12 +8405,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A/contents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "ListDatasetContents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-contents)) (common-lisp:progn (common-lisp:defun list-datasets @@ -8415,7 +8428,7 @@ aws-sdk/generator/operation::input "GET" "/datasets" "ListDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasets)) (common-lisp:progn (common-lisp:defun list-datastores @@ -8432,7 +8445,7 @@ aws-sdk/generator/operation::input "GET" "/datastores" "ListDatastores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datastores)) (common-lisp:progn (common-lisp:defun list-pipelines @@ -8449,7 +8462,7 @@ aws-sdk/generator/operation::input "GET" "/pipelines" "ListPipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipelines)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8466,7 +8479,7 @@ aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-logging-options @@ -8483,7 +8496,7 @@ aws-sdk/generator/operation::input "PUT" "/logging" "PutLoggingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-logging-options)) (common-lisp:progn (common-lisp:defun run-pipeline-activity @@ -8501,7 +8514,7 @@ "POST" "/pipelineactivities/run" "RunPipelineActivity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'run-pipeline-activity)) (common-lisp:progn (common-lisp:defun sample-channel-data @@ -8525,12 +8538,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/sample" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "SampleChannelData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'sample-channel-data)) (common-lisp:progn (common-lisp:defun start-pipeline-reprocessing @@ -8555,12 +8569,13 @@ (common-lisp:format common-lisp:nil "/pipelines/~A/reprocessing" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "StartPipelineReprocessing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-pipeline-reprocessing)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8577,7 +8592,7 @@ aws-sdk/generator/operation::input "POST" "/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8594,7 +8609,7 @@ aws-sdk/generator/operation::input "DELETE" "/tags" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-channel @@ -8618,12 +8633,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-dataset @@ -8649,12 +8665,13 @@ (common-lisp:format common-lisp:nil "/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-name)))) + 'dataset-name) + common-lisp:t))) "UpdateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dataset)) (common-lisp:progn (common-lisp:defun update-datastore @@ -8679,12 +8696,13 @@ (common-lisp:format common-lisp:nil "/datastores/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-name)))) + 'datastore-name) + common-lisp:t))) "UpdateDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-datastore)) (common-lisp:progn (common-lisp:defun update-pipeline @@ -8707,10 +8725,11 @@ (common-lisp:format common-lisp:nil "/pipelines/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "UpdatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipeline)) diff --git a/services/iotdeviceadvisor/api.lisp b/services/iotdeviceadvisor/api.lisp index 72d81443..fcab7f9c 100644 --- a/services/iotdeviceadvisor/api.lisp +++ b/services/iotdeviceadvisor/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotdeviceadvisor/api - (:use) - (:nicknames #:aws/iotdeviceadvisor) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotdeviceadvisor/api (:use) + (:nicknames #:aws/iotdeviceadvisor) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotdeviceadvisor/api) (common-lisp:progn (common-lisp:define-condition iotdeviceadvisor-error @@ -20,7 +19,7 @@ (common-lisp:export 'iotdeviceadvisor-error)) (common-lisp:progn (common-lisp:defclass iotdeviceadvisor-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iotdeviceadvisor" :api-version "2020-09-18" :host-prefix @@ -2584,7 +2583,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotdeviceadvisor-request aws-sdk/generator/operation::input "POST" "/suiteDefinitions" "CreateSuiteDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-suite-definition)) (common-lisp:progn (common-lisp:defun delete-suite-definition @@ -2601,12 +2600,13 @@ 'iotdeviceadvisor-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/suiteDefinitions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-definition-id)))) + 'suite-definition-id) + common-lisp:t))) "DeleteSuiteDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-suite-definition)) (common-lisp:progn (common-lisp:defun get-endpoint @@ -2625,7 +2625,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotdeviceadvisor-request aws-sdk/generator/operation::input "GET" "/endpoint" "GetEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-endpoint)) (common-lisp:progn (common-lisp:defun get-suite-definition @@ -2644,12 +2644,13 @@ 'iotdeviceadvisor-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/suiteDefinitions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-definition-id)))) + 'suite-definition-id) + common-lisp:t))) "GetSuiteDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-suite-definition)) (common-lisp:progn (common-lisp:defun get-suite-run @@ -2668,16 +2669,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/suiteDefinitions/~A/suiteRuns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-definition-id)) - (quri.encode:url-encode + 'suite-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-run-id)))) + 'suite-run-id) + common-lisp:t))) "GetSuiteRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-suite-run)) (common-lisp:progn (common-lisp:defun get-suite-run-report @@ -2696,16 +2699,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/suiteDefinitions/~A/suiteRuns/~A/report" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-definition-id)) - (quri.encode:url-encode + 'suite-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-run-id)))) + 'suite-run-id) + common-lisp:t))) "GetSuiteRunReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-suite-run-report)) (common-lisp:progn (common-lisp:defun list-suite-definitions @@ -2721,7 +2726,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotdeviceadvisor-request aws-sdk/generator/operation::input "GET" "/suiteDefinitions" "ListSuiteDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-suite-definitions)) (common-lisp:progn (common-lisp:defun list-suite-runs @@ -2740,7 +2745,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotdeviceadvisor-request aws-sdk/generator/operation::input "GET" "/suiteRuns" "ListSuiteRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-suite-runs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2757,12 +2762,13 @@ 'iotdeviceadvisor-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-suite-run @@ -2782,12 +2788,13 @@ 'iotdeviceadvisor-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/suiteDefinitions/~A/suiteRuns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-definition-id)))) + 'suite-definition-id) + common-lisp:t))) "StartSuiteRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-suite-run)) (common-lisp:progn (common-lisp:defun stop-suite-run @@ -2806,16 +2813,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/suiteDefinitions/~A/suiteRuns/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-definition-id)) - (quri.encode:url-encode + 'suite-definition-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-run-id)))) + 'suite-run-id) + common-lisp:t))) "StopSuiteRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-suite-run)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2832,12 +2841,13 @@ 'iotdeviceadvisor-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2854,12 +2864,13 @@ 'iotdeviceadvisor-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-suite-definition @@ -2878,10 +2889,11 @@ 'iotdeviceadvisor-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/suiteDefinitions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'suite-definition-id)))) + 'suite-definition-id) + common-lisp:t))) "UpdateSuiteDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-suite-definition)) diff --git a/services/iotevents-data/api.lisp b/services/iotevents-data/api.lisp index 4c3b5163..337c4055 100644 --- a/services/iotevents-data/api.lisp +++ b/services/iotevents-data/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotevents-data/api - (:use) - (:nicknames #:aws/iotevents-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotevents-data/api (:use) + (:nicknames #:aws/iotevents-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotevents-data/api) (common-lisp:progn (common-lisp:define-condition iotevents-data-error @@ -20,7 +19,7 @@ (common-lisp:export 'iotevents-data-error)) (common-lisp:progn (common-lisp:defclass iotevents-data-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iotevents-data" :api-version "2018-10-23" :host-prefix "data.iotevents" @@ -3496,7 +3495,7 @@ "POST" "/alarms/acknowledge" "BatchAcknowledgeAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-acknowledge-alarm)) (common-lisp:progn (common-lisp:defun batch-delete-detector @@ -3514,7 +3513,7 @@ "POST" "/detectors/delete" "BatchDeleteDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-detector)) (common-lisp:progn (common-lisp:defun batch-disable-alarm @@ -3532,7 +3531,7 @@ "POST" "/alarms/disable" "BatchDisableAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disable-alarm)) (common-lisp:progn (common-lisp:defun batch-enable-alarm @@ -3549,7 +3548,7 @@ aws-sdk/generator/operation::input "POST" "/alarms/enable" "BatchEnableAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-enable-alarm)) (common-lisp:progn (common-lisp:defun batch-put-message @@ -3567,7 +3566,7 @@ "POST" "/inputs/messages" "BatchPutMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-message)) (common-lisp:progn (common-lisp:defun batch-reset-alarm @@ -3584,7 +3583,7 @@ aws-sdk/generator/operation::input "POST" "/alarms/reset" "BatchResetAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-reset-alarm)) (common-lisp:progn (common-lisp:defun batch-snooze-alarm @@ -3601,7 +3600,7 @@ aws-sdk/generator/operation::input "POST" "/alarms/snooze" "BatchSnoozeAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-snooze-alarm)) (common-lisp:progn (common-lisp:defun batch-update-detector @@ -3618,7 +3617,7 @@ aws-sdk/generator/operation::input "POST" "/detectors" "BatchUpdateDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-detector)) (common-lisp:progn (common-lisp:defun describe-alarm @@ -3640,12 +3639,13 @@ (common-lisp:format common-lisp:nil "/alarms/~A/keyValues/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alarm-model-name)))) + 'alarm-model-name) + common-lisp:t))) "DescribeAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-alarm)) (common-lisp:progn (common-lisp:defun describe-detector @@ -3667,12 +3667,13 @@ (common-lisp:format common-lisp:nil "/detectors/~A/keyValues/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-model-name)))) + 'detector-model-name) + common-lisp:t))) "DescribeDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-detector)) (common-lisp:progn (common-lisp:defun list-alarms @@ -3695,12 +3696,13 @@ (common-lisp:format common-lisp:nil "/alarms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alarm-model-name)))) + 'alarm-model-name) + common-lisp:t))) "ListAlarms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-alarms)) (common-lisp:progn (common-lisp:defun list-detectors @@ -3725,10 +3727,11 @@ (common-lisp:format common-lisp:nil "/detectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-model-name)))) + 'detector-model-name) + common-lisp:t))) "ListDetectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-detectors)) diff --git a/services/iotevents/api.lisp b/services/iotevents/api.lisp index bd0de12b..6b26a74d 100644 --- a/services/iotevents/api.lisp +++ b/services/iotevents/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotevents/api - (:use) - (:nicknames #:aws/iotevents) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotevents/api (:use) + (:nicknames #:aws/iotevents) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotevents/api) (common-lisp:progn (common-lisp:define-condition iotevents-error @@ -20,7 +19,7 @@ (common-lisp:export 'iotevents-error)) (common-lisp:progn (common-lisp:defclass iotevents-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iotevents" :api-version "2018-07-27" :host-prefix "iotevents" :signing-name @@ -6835,7 +6834,7 @@ aws-sdk/generator/operation::input "POST" "/alarm-models" "CreateAlarmModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alarm-model)) (common-lisp:progn (common-lisp:defun create-detector-model @@ -6857,7 +6856,7 @@ "POST" "/detector-models" "CreateDetectorModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-detector-model)) (common-lisp:progn (common-lisp:defun create-input @@ -6876,7 +6875,7 @@ aws-sdk/generator/operation::input "POST" "/inputs" "CreateInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-input)) (common-lisp:progn (common-lisp:defun delete-alarm-model @@ -6898,12 +6897,13 @@ (common-lisp:format common-lisp:nil "/alarm-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alarm-model-name)))) + 'alarm-model-name) + common-lisp:t))) "DeleteAlarmModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alarm-model)) (common-lisp:progn (common-lisp:defun delete-detector-model @@ -6925,12 +6925,13 @@ (common-lisp:format common-lisp:nil "/detector-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-model-name)))) + 'detector-model-name) + common-lisp:t))) "DeleteDetectorModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-detector-model)) (common-lisp:progn (common-lisp:defun delete-input @@ -6952,12 +6953,13 @@ (common-lisp:format common-lisp:nil "/inputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-name)))) + 'input-name) + common-lisp:t))) "DeleteInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-input)) (common-lisp:progn (common-lisp:defun describe-alarm-model @@ -6980,12 +6982,13 @@ (common-lisp:format common-lisp:nil "/alarm-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alarm-model-name)))) + 'alarm-model-name) + common-lisp:t))) "DescribeAlarmModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-alarm-model)) (common-lisp:progn (common-lisp:defun describe-detector-model @@ -7009,12 +7012,13 @@ (common-lisp:format common-lisp:nil "/detector-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-model-name)))) + 'detector-model-name) + common-lisp:t))) "DescribeDetectorModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-detector-model)) (common-lisp:progn (common-lisp:defun describe-detector-model-analysis @@ -7037,12 +7041,13 @@ (common-lisp:format common-lisp:nil "/analysis/detector-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "DescribeDetectorModelAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-detector-model-analysis)) (common-lisp:progn (common-lisp:defun describe-input @@ -7064,12 +7069,13 @@ (common-lisp:format common-lisp:nil "/inputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-name)))) + 'input-name) + common-lisp:t))) "DescribeInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-input)) (common-lisp:progn (common-lisp:defun describe-logging-options () @@ -7102,12 +7108,13 @@ (common-lisp:format common-lisp:nil "/analysis/detector-models/~A/results" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "GetDetectorModelAnalysisResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-detector-model-analysis-results)) (common-lisp:progn (common-lisp:defun list-alarm-model-versions @@ -7131,12 +7138,13 @@ (common-lisp:format common-lisp:nil "/alarm-models/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alarm-model-name)))) + 'alarm-model-name) + common-lisp:t))) "ListAlarmModelVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-alarm-model-versions)) (common-lisp:progn (common-lisp:defun list-alarm-models @@ -7153,7 +7161,7 @@ aws-sdk/generator/operation::input "GET" "/alarm-models" "ListAlarmModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-alarm-models)) (common-lisp:progn (common-lisp:defun list-detector-model-versions @@ -7178,12 +7186,13 @@ (common-lisp:format common-lisp:nil "/detector-models/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-model-name)))) + 'detector-model-name) + common-lisp:t))) "ListDetectorModelVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-detector-model-versions)) (common-lisp:progn (common-lisp:defun list-detector-models @@ -7201,7 +7210,7 @@ "GET" "/detector-models" "ListDetectorModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-detector-models)) (common-lisp:progn (common-lisp:defun list-input-routings @@ -7220,7 +7229,7 @@ "POST" "/input-routings" "ListInputRoutings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-input-routings)) (common-lisp:progn (common-lisp:defun list-inputs @@ -7237,7 +7246,7 @@ aws-sdk/generator/operation::input "GET" "/inputs" "ListInputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inputs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7254,7 +7263,7 @@ aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-logging-options @@ -7271,7 +7280,7 @@ aws-sdk/generator/operation::input "PUT" "/logging" "PutLoggingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-logging-options)) (common-lisp:progn (common-lisp:defun start-detector-model-analysis @@ -7290,7 +7299,7 @@ "POST" "/analysis/detector-models/" "StartDetectorModelAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-detector-model-analysis)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7307,7 +7316,7 @@ aws-sdk/generator/operation::input "POST" "/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7324,7 +7333,7 @@ aws-sdk/generator/operation::input "DELETE" "/tags" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-alarm-model @@ -7351,12 +7360,13 @@ (common-lisp:format common-lisp:nil "/alarm-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alarm-model-name)))) + 'alarm-model-name) + common-lisp:t))) "UpdateAlarmModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-alarm-model)) (common-lisp:progn (common-lisp:defun update-detector-model @@ -7382,12 +7392,13 @@ (common-lisp:format common-lisp:nil "/detector-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'detector-model-name)))) + 'detector-model-name) + common-lisp:t))) "UpdateDetectorModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-detector-model)) (common-lisp:progn (common-lisp:defun update-input @@ -7411,10 +7422,11 @@ (common-lisp:format common-lisp:nil "/inputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-name)))) + 'input-name) + common-lisp:t))) "UpdateInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-input)) diff --git a/services/iotfleethub/api.lisp b/services/iotfleethub/api.lisp index 0a2b1fe5..14409ee7 100644 --- a/services/iotfleethub/api.lisp +++ b/services/iotfleethub/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotfleethub/api - (:use) - (:nicknames #:aws/iotfleethub) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotfleethub/api (:use) + (:nicknames #:aws/iotfleethub) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotfleethub/api) (common-lisp:progn (common-lisp:define-condition iotfleethub-error @@ -20,7 +19,7 @@ (common-lisp:export 'iotfleethub-error)) (common-lisp:progn (common-lisp:defclass iotfleethub-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iotfleethub" :api-version "2020-11-03" :host-prefix "api.fleethub.iot" @@ -1063,7 +1062,7 @@ aws-sdk/generator/operation::input "POST" "/applications" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun delete-application @@ -1085,12 +1084,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun describe-application @@ -1112,12 +1112,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DescribeApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application)) (common-lisp:progn (common-lisp:defun list-applications @@ -1134,7 +1135,7 @@ aws-sdk/generator/operation::input "GET" "/applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1156,12 +1157,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1183,12 +1185,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -1210,12 +1213,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -1240,10 +1244,11 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) diff --git a/services/iotfleetwise/api.lisp b/services/iotfleetwise/api.lisp index 22b55ace..9c8e36bb 100644 --- a/services/iotfleetwise/api.lisp +++ b/services/iotfleetwise/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotfleetwise/api - (:use) - (:nicknames #:aws/iotfleetwise) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotfleetwise/api (:use) + (:nicknames #:aws/iotfleetwise) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotfleetwise/api) (common-lisp:progn (common-lisp:define-condition iotfleetwise-error @@ -11435,7 +11434,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AssociateVehicleFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-vehicle-fleet)) (common-lisp:progn (common-lisp:defun batch-create-vehicle @@ -11452,7 +11451,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchCreateVehicle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-vehicle)) (common-lisp:progn (common-lisp:defun batch-update-vehicle @@ -11469,7 +11468,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "BatchUpdateVehicle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-vehicle)) (common-lisp:progn (common-lisp:defun create-campaign @@ -11495,7 +11494,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-campaign)) (common-lisp:progn (common-lisp:defun create-decoder-manifest @@ -11515,7 +11514,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateDecoderManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-decoder-manifest)) (common-lisp:progn (common-lisp:defun create-fleet @@ -11534,7 +11533,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet)) (common-lisp:progn (common-lisp:defun create-model-manifest @@ -11553,7 +11552,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateModelManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-manifest)) (common-lisp:progn (common-lisp:defun create-signal-catalog @@ -11570,7 +11569,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateSignalCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-signal-catalog)) (common-lisp:progn (common-lisp:defun create-vehicle @@ -11590,7 +11589,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateVehicle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vehicle)) (common-lisp:progn (common-lisp:defun delete-campaign @@ -11607,7 +11606,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-campaign)) (common-lisp:progn (common-lisp:defun delete-decoder-manifest @@ -11624,7 +11623,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteDecoderManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-decoder-manifest)) (common-lisp:progn (common-lisp:defun delete-fleet @@ -11641,7 +11640,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet)) (common-lisp:progn (common-lisp:defun delete-model-manifest @@ -11658,7 +11657,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteModelManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-manifest)) (common-lisp:progn (common-lisp:defun delete-signal-catalog @@ -11675,7 +11674,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteSignalCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-signal-catalog)) (common-lisp:progn (common-lisp:defun delete-vehicle @@ -11692,7 +11691,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteVehicle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vehicle)) (common-lisp:progn (common-lisp:defun disassociate-vehicle-fleet @@ -11710,7 +11709,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DisassociateVehicleFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-vehicle-fleet)) (common-lisp:progn (common-lisp:defun get-campaign @@ -11727,7 +11726,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaign)) (common-lisp:progn (common-lisp:defun get-decoder-manifest @@ -11744,7 +11743,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDecoderManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-decoder-manifest)) (common-lisp:progn (common-lisp:defun get-encryption-configuration () @@ -11768,7 +11767,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'iotfleetwise-request aws-sdk/generator/operation::input "POST" "/" "GetFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-fleet)) (common-lisp:progn (common-lisp:defun get-logging-options () @@ -11793,7 +11792,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetModelManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-model-manifest)) (common-lisp:progn (common-lisp:defun get-register-account-status () @@ -11818,7 +11817,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetSignalCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-signal-catalog)) (common-lisp:progn (common-lisp:defun get-vehicle @@ -11835,7 +11834,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetVehicle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vehicle)) (common-lisp:progn (common-lisp:defun get-vehicle-status @@ -11853,7 +11852,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetVehicleStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vehicle-status)) (common-lisp:progn (common-lisp:defun import-decoder-manifest @@ -11870,7 +11869,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ImportDecoderManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-decoder-manifest)) (common-lisp:progn (common-lisp:defun import-signal-catalog @@ -11887,7 +11886,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ImportSignalCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-signal-catalog)) (common-lisp:progn (common-lisp:defun list-campaigns @@ -11904,7 +11903,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListCampaigns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-campaigns)) (common-lisp:progn (common-lisp:defun list-decoder-manifest-network-interfaces @@ -11922,7 +11921,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListDecoderManifestNetworkInterfaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-decoder-manifest-network-interfaces)) (common-lisp:progn (common-lisp:defun list-decoder-manifest-signals @@ -11940,7 +11939,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListDecoderManifestSignals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-decoder-manifest-signals)) (common-lisp:progn (common-lisp:defun list-decoder-manifests @@ -11959,7 +11958,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListDecoderManifests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-decoder-manifests)) (common-lisp:progn (common-lisp:defun list-fleets @@ -11976,7 +11975,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fleets)) (common-lisp:progn (common-lisp:defun list-fleets-for-vehicle @@ -11994,7 +11993,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListFleetsForVehicle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fleets-for-vehicle)) (common-lisp:progn (common-lisp:defun list-model-manifest-nodes @@ -12012,7 +12011,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListModelManifestNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-manifest-nodes)) (common-lisp:progn (common-lisp:defun list-model-manifests @@ -12031,7 +12030,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListModelManifests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-manifests)) (common-lisp:progn (common-lisp:defun list-signal-catalog-nodes @@ -12051,7 +12050,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListSignalCatalogNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-signal-catalog-nodes)) (common-lisp:progn (common-lisp:defun list-signal-catalogs @@ -12068,7 +12067,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListSignalCatalogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-signal-catalogs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12085,7 +12084,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-vehicles @@ -12104,7 +12103,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListVehicles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vehicles)) (common-lisp:progn (common-lisp:defun list-vehicles-in-fleet @@ -12122,7 +12121,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListVehiclesInFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vehicles-in-fleet)) (common-lisp:progn (common-lisp:defun put-encryption-configuration @@ -12140,7 +12139,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutEncryptionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-encryption-configuration)) (common-lisp:progn (common-lisp:defun put-logging-options @@ -12157,7 +12156,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutLoggingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-logging-options)) (common-lisp:progn (common-lisp:defun register-account @@ -12175,7 +12174,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RegisterAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-account)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12192,7 +12191,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12209,7 +12208,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-campaign @@ -12228,7 +12227,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-campaign)) (common-lisp:progn (common-lisp:defun update-decoder-manifest @@ -12252,7 +12251,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDecoderManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-decoder-manifest)) (common-lisp:progn (common-lisp:defun update-fleet @@ -12269,7 +12268,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fleet)) (common-lisp:progn (common-lisp:defun update-model-manifest @@ -12289,7 +12288,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateModelManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model-manifest)) (common-lisp:progn (common-lisp:defun update-signal-catalog @@ -12309,7 +12308,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateSignalCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-signal-catalog)) (common-lisp:progn (common-lisp:defun update-vehicle @@ -12329,5 +12328,5 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateVehicle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vehicle)) diff --git a/services/iotsecuretunneling/api.lisp b/services/iotsecuretunneling/api.lisp index d8d53d71..8208b8ff 100644 --- a/services/iotsecuretunneling/api.lisp +++ b/services/iotsecuretunneling/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotsecuretunneling/api - (:use) - (:nicknames #:aws/iotsecuretunneling) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotsecuretunneling/api (:use) + (:nicknames #:aws/iotsecuretunneling) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotsecuretunneling/api) (common-lisp:progn (common-lisp:define-condition iotsecuretunneling-error @@ -1276,7 +1275,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotsecuretunneling-request aws-sdk/generator/operation::input "POST" "/" "CloseTunnel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'close-tunnel)) (common-lisp:progn (common-lisp:defun describe-tunnel @@ -1292,7 +1291,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotsecuretunneling-request aws-sdk/generator/operation::input "POST" "/" "DescribeTunnel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tunnel)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1308,7 +1307,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotsecuretunneling-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-tunnels @@ -1325,7 +1324,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotsecuretunneling-request aws-sdk/generator/operation::input "POST" "/" "ListTunnels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tunnels)) (common-lisp:progn (common-lisp:defun open-tunnel @@ -1343,7 +1342,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotsecuretunneling-request aws-sdk/generator/operation::input "POST" "/" "OpenTunnel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'open-tunnel)) (common-lisp:progn (common-lisp:defun rotate-tunnel-access-token @@ -1361,7 +1360,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotsecuretunneling-request aws-sdk/generator/operation::input "POST" "/" "RotateTunnelAccessToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'rotate-tunnel-access-token)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1377,7 +1376,7 @@ (aws-sdk/generator/shape:make-request-with-input 'iotsecuretunneling-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -1393,5 +1392,5 @@ (aws-sdk/generator/shape:make-request-with-input 'iotsecuretunneling-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/iotsitewise/api.lisp b/services/iotsitewise/api.lisp index 5d1ea227..9f6bab18 100644 --- a/services/iotsitewise/api.lisp +++ b/services/iotsitewise/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotsitewise/api - (:use) - (:nicknames #:aws/iotsitewise) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotsitewise/api (:use) + (:nicknames #:aws/iotsitewise) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotsitewise/api) (common-lisp:progn (common-lisp:define-condition iotsitewise-error @@ -20,7 +19,7 @@ (common-lisp:export 'iotsitewise-error)) (common-lisp:progn (common-lisp:defclass iotsitewise-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iotsitewise" :api-version "2019-12-02" :host-prefix "iotsitewise" :signing-name @@ -19098,12 +19097,13 @@ (common-lisp:format common-lisp:nil "/assets/~A/associate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "AssociateAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-assets)) (common-lisp:progn (common-lisp:defun associate-time-series-to-asset-property @@ -19123,7 +19123,7 @@ "POST" "/timeseries/associate/" "AssociateTimeSeriesToAssetProperty")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-time-series-to-asset-property)) (common-lisp:progn (common-lisp:defun batch-associate-project-assets @@ -19147,12 +19147,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/assets/associate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-id)))) + 'project-id) + common-lisp:t))) "BatchAssociateProjectAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-project-assets)) (common-lisp:progn (common-lisp:defun batch-disassociate-project-assets @@ -19176,12 +19177,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/assets/disassociate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-id)))) + 'project-id) + common-lisp:t))) "BatchDisassociateProjectAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-project-assets)) (common-lisp:progn (common-lisp:defun batch-get-asset-property-aggregates @@ -19200,7 +19202,7 @@ "POST" "/properties/batch/aggregates" "BatchGetAssetPropertyAggregates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-asset-property-aggregates)) (common-lisp:progn (common-lisp:defun batch-get-asset-property-value @@ -19219,7 +19221,7 @@ "POST" "/properties/batch/latest" "BatchGetAssetPropertyValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-asset-property-value)) (common-lisp:progn (common-lisp:defun batch-get-asset-property-value-history @@ -19238,7 +19240,7 @@ "POST" "/properties/batch/history" "BatchGetAssetPropertyValueHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-asset-property-value-history)) (common-lisp:progn (common-lisp:defun batch-put-asset-property-value @@ -19256,7 +19258,7 @@ aws-sdk/generator/operation::input "POST" "/properties" "BatchPutAssetPropertyValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-asset-property-value)) (common-lisp:progn (common-lisp:defun create-access-policy @@ -19278,7 +19280,7 @@ "POST" "/access-policies" "CreateAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-access-policy)) (common-lisp:progn (common-lisp:defun create-asset @@ -19298,7 +19300,7 @@ aws-sdk/generator/operation::input "POST" "/assets" "CreateAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-asset)) (common-lisp:progn (common-lisp:defun create-asset-model @@ -19322,7 +19324,7 @@ aws-sdk/generator/operation::input "POST" "/asset-models" "CreateAssetModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-asset-model)) (common-lisp:progn (common-lisp:defun create-asset-model-composite-model @@ -19358,12 +19360,13 @@ (common-lisp:format common-lisp:nil "/asset-models/~A/composite-models" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)))) + 'asset-model-id) + common-lisp:t))) "CreateAssetModelCompositeModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-asset-model-composite-model)) (common-lisp:progn (common-lisp:defun create-bulk-import-job @@ -19384,7 +19387,7 @@ aws-sdk/generator/operation::input "POST" "/jobs" "CreateBulkImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bulk-import-job)) (common-lisp:progn (common-lisp:defun create-dashboard @@ -19405,7 +19408,7 @@ aws-sdk/generator/operation::input "POST" "/dashboards" "CreateDashboard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dashboard)) (common-lisp:progn (common-lisp:defun create-gateway @@ -19424,7 +19427,7 @@ "POST" "/20200301/gateways" "CreateGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-gateway)) (common-lisp:progn (common-lisp:defun create-portal @@ -19447,7 +19450,7 @@ aws-sdk/generator/operation::input "POST" "/portals" "CreatePortal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-portal)) (common-lisp:progn (common-lisp:defun create-project @@ -19467,7 +19470,7 @@ aws-sdk/generator/operation::input "POST" "/projects" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun delete-access-policy @@ -19489,12 +19492,13 @@ (common-lisp:format common-lisp:nil "/access-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-policy-id)))) + 'access-policy-id) + common-lisp:t))) "DeleteAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access-policy)) (common-lisp:progn (common-lisp:defun delete-asset @@ -19516,12 +19520,13 @@ (common-lisp:format common-lisp:nil "/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "DeleteAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-asset)) (common-lisp:progn (common-lisp:defun delete-asset-model @@ -19543,12 +19548,13 @@ (common-lisp:format common-lisp:nil "/asset-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)))) + 'asset-model-id) + common-lisp:t))) "DeleteAssetModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-asset-model)) (common-lisp:progn (common-lisp:defun delete-asset-model-composite-model @@ -19574,16 +19580,18 @@ (common-lisp:format common-lisp:nil "/asset-models/~A/composite-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)) - (quri.encode:url-encode + 'asset-model-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-composite-model-id)))) + 'asset-model-composite-model-id) + common-lisp:t))) "DeleteAssetModelCompositeModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-asset-model-composite-model)) (common-lisp:progn (common-lisp:defun delete-dashboard @@ -19605,12 +19613,13 @@ (common-lisp:format common-lisp:nil "/dashboards/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "DeleteDashboard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dashboard)) (common-lisp:progn (common-lisp:defun delete-gateway @@ -19632,12 +19641,13 @@ (common-lisp:format common-lisp:nil "/20200301/gateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-id)))) + 'gateway-id) + common-lisp:t))) "DeleteGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-gateway)) (common-lisp:progn (common-lisp:defun delete-portal @@ -19659,12 +19669,13 @@ (common-lisp:format common-lisp:nil "/portals/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'portal-id)))) + 'portal-id) + common-lisp:t))) "DeletePortal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-portal)) (common-lisp:progn (common-lisp:defun delete-project @@ -19686,12 +19697,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-id)))) + 'project-id) + common-lisp:t))) "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-time-series @@ -19710,7 +19722,7 @@ "POST" "/timeseries/delete/" "DeleteTimeSeries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-time-series)) (common-lisp:progn (common-lisp:defun describe-access-policy @@ -19732,12 +19744,13 @@ (common-lisp:format common-lisp:nil "/access-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-policy-id)))) + 'access-policy-id) + common-lisp:t))) "DescribeAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-access-policy)) (common-lisp:progn (common-lisp:defun describe-action @@ -19759,12 +19772,13 @@ (common-lisp:format common-lisp:nil "/actions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'action-id)))) + 'action-id) + common-lisp:t))) "DescribeAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-action)) (common-lisp:progn (common-lisp:defun describe-asset @@ -19786,12 +19800,13 @@ (common-lisp:format common-lisp:nil "/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "DescribeAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-asset)) (common-lisp:progn (common-lisp:defun describe-asset-composite-model @@ -19815,16 +19830,18 @@ (common-lisp:format common-lisp:nil "/assets/~A/composite-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)) - (quri.encode:url-encode + 'asset-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-composite-model-id)))) + 'asset-composite-model-id) + common-lisp:t))) "DescribeAssetCompositeModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-asset-composite-model)) (common-lisp:progn (common-lisp:defun describe-asset-model @@ -19847,12 +19864,13 @@ (common-lisp:format common-lisp:nil "/asset-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)))) + 'asset-model-id) + common-lisp:t))) "DescribeAssetModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-asset-model)) (common-lisp:progn (common-lisp:defun describe-asset-model-composite-model @@ -19877,16 +19895,18 @@ (common-lisp:format common-lisp:nil "/asset-models/~A/composite-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)) - (quri.encode:url-encode + 'asset-model-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-composite-model-id)))) + 'asset-model-composite-model-id) + common-lisp:t))) "DescribeAssetModelCompositeModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-asset-model-composite-model)) (common-lisp:progn (common-lisp:defun describe-asset-property @@ -19908,16 +19928,18 @@ (common-lisp:format common-lisp:nil "/assets/~A/properties/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)) - (quri.encode:url-encode + 'asset-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'property-id)))) + 'property-id) + common-lisp:t))) "DescribeAssetProperty")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-asset-property)) (common-lisp:progn (common-lisp:defun describe-bulk-import-job @@ -19939,12 +19961,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeBulkImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bulk-import-job)) (common-lisp:progn (common-lisp:defun describe-dashboard @@ -19966,12 +19989,13 @@ (common-lisp:format common-lisp:nil "/dashboards/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "DescribeDashboard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dashboard)) (common-lisp:progn (common-lisp:defun describe-default-encryption-configuration () @@ -20002,12 +20026,13 @@ (common-lisp:format common-lisp:nil "/20200301/gateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-id)))) + 'gateway-id) + common-lisp:t))) "DescribeGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-gateway)) (common-lisp:progn (common-lisp:defun describe-gateway-capability-configuration @@ -20031,16 +20056,18 @@ (common-lisp:format common-lisp:nil "/20200301/gateways/~A/capability/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-id)) - (quri.encode:url-encode + 'gateway-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'capability-namespace)))) + 'capability-namespace) + common-lisp:t))) "DescribeGatewayCapabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-gateway-capability-configuration)) (common-lisp:progn (common-lisp:defun describe-logging-options () @@ -20071,12 +20098,13 @@ (common-lisp:format common-lisp:nil "/portals/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'portal-id)))) + 'portal-id) + common-lisp:t))) "DescribePortal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-portal)) (common-lisp:progn (common-lisp:defun describe-project @@ -20098,12 +20126,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-id)))) + 'project-id) + common-lisp:t))) "DescribeProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-project)) (common-lisp:progn (common-lisp:defun describe-storage-configuration () @@ -20130,7 +20159,7 @@ "GET" "/timeseries/describe/" "DescribeTimeSeries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-time-series)) (common-lisp:progn (common-lisp:defun disassociate-assets @@ -20154,12 +20183,13 @@ (common-lisp:format common-lisp:nil "/assets/~A/disassociate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "DisassociateAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-assets)) (common-lisp:progn (common-lisp:defun disassociate-time-series-from-asset-property @@ -20179,7 +20209,7 @@ "POST" "/timeseries/disassociate/" "DisassociateTimeSeriesFromAssetProperty")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-time-series-from-asset-property)) (common-lisp:progn (common-lisp:defun execute-action @@ -20199,7 +20229,7 @@ aws-sdk/generator/operation::input "POST" "/actions" "ExecuteAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-action)) (common-lisp:progn (common-lisp:defun execute-query @@ -20218,7 +20248,7 @@ "POST" "/queries/execution" "ExecuteQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-query)) (common-lisp:progn (common-lisp:defun get-asset-property-aggregates @@ -20242,7 +20272,7 @@ "GET" "/properties/aggregates" "GetAssetPropertyAggregates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-asset-property-aggregates)) (common-lisp:progn (common-lisp:defun get-asset-property-value @@ -20261,7 +20291,7 @@ "GET" "/properties/latest" "GetAssetPropertyValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-asset-property-value)) (common-lisp:progn (common-lisp:defun get-asset-property-value-history @@ -20284,7 +20314,7 @@ "GET" "/properties/history" "GetAssetPropertyValueHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-asset-property-value-history)) (common-lisp:progn (common-lisp:defun get-interpolated-asset-property-values @@ -20311,7 +20341,7 @@ "GET" "/properties/interpolated" "GetInterpolatedAssetPropertyValues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-interpolated-asset-property-values)) (common-lisp:progn (common-lisp:defun list-access-policies @@ -20332,7 +20362,7 @@ "GET" "/access-policies" "ListAccessPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-policies)) (common-lisp:progn (common-lisp:defun list-actions @@ -20352,7 +20382,7 @@ aws-sdk/generator/operation::input "GET" "/actions" "ListActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-actions)) (common-lisp:progn (common-lisp:defun list-asset-model-composite-models @@ -20376,12 +20406,13 @@ (common-lisp:format common-lisp:nil "/asset-models/~A/composite-models" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)))) + 'asset-model-id) + common-lisp:t))) "ListAssetModelCompositeModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-model-composite-models)) (common-lisp:progn (common-lisp:defun list-asset-model-properties @@ -20406,12 +20437,13 @@ (common-lisp:format common-lisp:nil "/asset-models/~A/properties" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)))) + 'asset-model-id) + common-lisp:t))) "ListAssetModelProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-model-properties)) (common-lisp:progn (common-lisp:defun list-asset-models @@ -20429,7 +20461,7 @@ aws-sdk/generator/operation::input "GET" "/asset-models" "ListAssetModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-models)) (common-lisp:progn (common-lisp:defun list-asset-properties @@ -20452,12 +20484,13 @@ (common-lisp:format common-lisp:nil "/assets/~A/properties" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "ListAssetProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-properties)) (common-lisp:progn (common-lisp:defun list-asset-relationships @@ -20481,12 +20514,13 @@ (common-lisp:format common-lisp:nil "/assets/~A/assetRelationships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "ListAssetRelationships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-relationships)) (common-lisp:progn (common-lisp:defun list-assets @@ -20505,7 +20539,7 @@ aws-sdk/generator/operation::input "GET" "/assets" "ListAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assets)) (common-lisp:progn (common-lisp:defun list-associated-assets @@ -20530,12 +20564,13 @@ (common-lisp:format common-lisp:nil "/assets/~A/hierarchies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "ListAssociatedAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-assets)) (common-lisp:progn (common-lisp:defun list-bulk-import-jobs @@ -20552,7 +20587,7 @@ aws-sdk/generator/operation::input "GET" "/jobs" "ListBulkImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bulk-import-jobs)) (common-lisp:progn (common-lisp:defun list-composition-relationships @@ -20576,12 +20611,13 @@ (common-lisp:format common-lisp:nil "/asset-models/~A/composition-relationships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)))) + 'asset-model-id) + common-lisp:t))) "ListCompositionRelationships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-composition-relationships)) (common-lisp:progn (common-lisp:defun list-dashboards @@ -20599,7 +20635,7 @@ aws-sdk/generator/operation::input "GET" "/dashboards" "ListDashboards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dashboards)) (common-lisp:progn (common-lisp:defun list-gateways @@ -20617,7 +20653,7 @@ "GET" "/20200301/gateways" "ListGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gateways)) (common-lisp:progn (common-lisp:defun list-portals @@ -20634,7 +20670,7 @@ aws-sdk/generator/operation::input "GET" "/portals" "ListPortals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-portals)) (common-lisp:progn (common-lisp:defun list-project-assets @@ -20657,12 +20693,13 @@ (common-lisp:format common-lisp:nil "/projects/~A/assets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-id)))) + 'project-id) + common-lisp:t))) "ListProjectAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-project-assets)) (common-lisp:progn (common-lisp:defun list-projects @@ -20680,7 +20717,7 @@ aws-sdk/generator/operation::input "GET" "/projects" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -20697,7 +20734,7 @@ aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-time-series @@ -20717,7 +20754,7 @@ aws-sdk/generator/operation::input "GET" "/timeseries/" "ListTimeSeries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-time-series)) (common-lisp:progn (common-lisp:defun put-default-encryption-configuration @@ -20736,7 +20773,7 @@ "POST" "/configuration/account/encryption" "PutDefaultEncryptionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-default-encryption-configuration)) (common-lisp:progn (common-lisp:defun put-logging-options @@ -20753,7 +20790,7 @@ aws-sdk/generator/operation::input "PUT" "/logging" "PutLoggingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-logging-options)) (common-lisp:progn (common-lisp:defun put-storage-configuration @@ -20777,7 +20814,7 @@ "POST" "/configuration/account/storage" "PutStorageConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-storage-configuration)) (common-lisp:progn (common-lisp:defun tag-resource @@ -20794,7 +20831,7 @@ aws-sdk/generator/operation::input "POST" "/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -20811,7 +20848,7 @@ aws-sdk/generator/operation::input "DELETE" "/tags" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-access-policy @@ -20837,12 +20874,13 @@ (common-lisp:format common-lisp:nil "/access-policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-policy-id)))) + 'access-policy-id) + common-lisp:t))) "UpdateAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-access-policy)) (common-lisp:progn (common-lisp:defun update-asset @@ -20867,12 +20905,13 @@ (common-lisp:format common-lisp:nil "/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)))) + 'asset-id) + common-lisp:t))) "UpdateAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-asset)) (common-lisp:progn (common-lisp:defun update-asset-model @@ -20900,12 +20939,13 @@ (common-lisp:format common-lisp:nil "/asset-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)))) + 'asset-model-id) + common-lisp:t))) "UpdateAssetModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-asset-model)) (common-lisp:progn (common-lisp:defun update-asset-model-composite-model @@ -20937,16 +20977,18 @@ (common-lisp:format common-lisp:nil "/asset-models/~A/composite-models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-id)) - (quri.encode:url-encode + 'asset-model-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-model-composite-model-id)))) + 'asset-model-composite-model-id) + common-lisp:t))) "UpdateAssetModelCompositeModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-asset-model-composite-model)) (common-lisp:progn (common-lisp:defun update-asset-property @@ -20971,16 +21013,18 @@ (common-lisp:format common-lisp:nil "/assets/~A/properties/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-id)) - (quri.encode:url-encode + 'asset-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'property-id)))) + 'property-id) + common-lisp:t))) "UpdateAssetProperty")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-asset-property)) (common-lisp:progn (common-lisp:defun update-dashboard @@ -21005,12 +21049,13 @@ (common-lisp:format common-lisp:nil "/dashboards/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "UpdateDashboard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dashboard)) (common-lisp:progn (common-lisp:defun update-gateway @@ -21032,12 +21077,13 @@ (common-lisp:format common-lisp:nil "/20200301/gateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-id)))) + 'gateway-id) + common-lisp:t))) "UpdateGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway)) (common-lisp:progn (common-lisp:defun update-gateway-capability-configuration @@ -21063,12 +21109,13 @@ (common-lisp:format common-lisp:nil "/20200301/gateways/~A/capability" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-id)))) + 'gateway-id) + common-lisp:t))) "UpdateGatewayCapabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-capability-configuration)) (common-lisp:progn (common-lisp:defun update-portal @@ -21095,12 +21142,13 @@ (common-lisp:format common-lisp:nil "/portals/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'portal-id)))) + 'portal-id) + common-lisp:t))) "UpdatePortal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-portal)) (common-lisp:progn (common-lisp:defun update-project @@ -21125,10 +21173,11 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-id)))) + 'project-id) + common-lisp:t))) "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) diff --git a/services/iotthingsgraph/api.lisp b/services/iotthingsgraph/api.lisp index d37681a7..69a2eb29 100644 --- a/services/iotthingsgraph/api.lisp +++ b/services/iotthingsgraph/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotthingsgraph/api - (:use) - (:nicknames #:aws/iotthingsgraph) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotthingsgraph/api (:use) + (:nicknames #:aws/iotthingsgraph) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotthingsgraph/api) (common-lisp:progn (common-lisp:define-condition iotthingsgraph-error @@ -5167,7 +5166,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateEntityToThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-entity-to-thing)) (common-lisp:progn (common-lisp:defun create-flow-template @@ -5185,7 +5184,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFlowTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-flow-template)) (common-lisp:progn (common-lisp:defun create-system-instance @@ -5206,7 +5205,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSystemInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-system-instance)) (common-lisp:progn (common-lisp:defun create-system-template @@ -5224,7 +5223,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSystemTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-system-template)) (common-lisp:progn (common-lisp:defun delete-flow-template @@ -5241,7 +5240,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFlowTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-flow-template)) (common-lisp:progn (common-lisp:defun delete-namespace () @@ -5266,7 +5265,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSystemInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-system-instance)) (common-lisp:progn (common-lisp:defun delete-system-template @@ -5283,7 +5282,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSystemTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-system-template)) (common-lisp:progn (common-lisp:defun deploy-system-instance @@ -5300,7 +5299,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeploySystemInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deploy-system-instance)) (common-lisp:progn (common-lisp:defun deprecate-flow-template @@ -5317,7 +5316,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprecateFlowTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deprecate-flow-template)) (common-lisp:progn (common-lisp:defun deprecate-system-template @@ -5335,7 +5334,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprecateSystemTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deprecate-system-template)) (common-lisp:progn (common-lisp:defun describe-namespace @@ -5352,7 +5351,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-namespace)) (common-lisp:progn (common-lisp:defun dissociate-entity-from-thing @@ -5370,7 +5369,7 @@ aws-sdk/generator/operation::input "POST" "/" "DissociateEntityFromThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'dissociate-entity-from-thing)) (common-lisp:progn (common-lisp:defun get-entities @@ -5387,7 +5386,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-entities)) (common-lisp:progn (common-lisp:defun get-flow-template @@ -5404,7 +5403,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetFlowTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-flow-template)) (common-lisp:progn (common-lisp:defun get-flow-template-revisions @@ -5422,7 +5421,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetFlowTemplateRevisions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-flow-template-revisions)) (common-lisp:progn (common-lisp:defun get-namespace-deletion-status () @@ -5447,7 +5446,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSystemInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-system-instance)) (common-lisp:progn (common-lisp:defun get-system-template @@ -5464,7 +5463,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSystemTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-system-template)) (common-lisp:progn (common-lisp:defun get-system-template-revisions @@ -5482,7 +5481,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSystemTemplateRevisions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-system-template-revisions)) (common-lisp:progn (common-lisp:defun get-upload-status @@ -5499,7 +5498,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetUploadStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-upload-status)) (common-lisp:progn (common-lisp:defun list-flow-execution-messages @@ -5518,7 +5517,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFlowExecutionMessages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-flow-execution-messages)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5536,7 +5535,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun search-entities @@ -5556,7 +5555,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-entities)) (common-lisp:progn (common-lisp:defun search-flow-executions @@ -5576,7 +5575,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchFlowExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-flow-executions)) (common-lisp:progn (common-lisp:defun search-flow-templates @@ -5593,7 +5592,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchFlowTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-flow-templates)) (common-lisp:progn (common-lisp:defun search-system-instances @@ -5610,7 +5609,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchSystemInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-system-instances)) (common-lisp:progn (common-lisp:defun search-system-templates @@ -5627,7 +5626,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchSystemTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-system-templates)) (common-lisp:progn (common-lisp:defun search-things @@ -5646,7 +5645,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchThings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-things)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5663,7 +5662,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun undeploy-system-instance @@ -5680,7 +5679,7 @@ aws-sdk/generator/operation::input "POST" "/" "UndeploySystemInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'undeploy-system-instance)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5697,7 +5696,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-flow-template @@ -5716,7 +5715,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFlowTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-flow-template)) (common-lisp:progn (common-lisp:defun update-system-template @@ -5735,7 +5734,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSystemTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-system-template)) (common-lisp:progn (common-lisp:defun upload-entity-definitions @@ -5756,5 +5755,5 @@ aws-sdk/generator/operation::input "POST" "/" "UploadEntityDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upload-entity-definitions)) diff --git a/services/iottwinmaker/api.lisp b/services/iottwinmaker/api.lisp index 86d9c72b..872594a0 100644 --- a/services/iottwinmaker/api.lisp +++ b/services/iottwinmaker/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iottwinmaker/api - (:use) - (:nicknames #:aws/iottwinmaker) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iottwinmaker/api (:use) + (:nicknames #:aws/iottwinmaker) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iottwinmaker/api) (common-lisp:progn (common-lisp:define-condition iottwinmaker-error @@ -20,7 +19,7 @@ (common-lisp:export 'iottwinmaker-error)) (common-lisp:progn (common-lisp:defclass iottwinmaker-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iottwinmaker" :api-version "2021-11-29" :host-prefix "iottwinmaker" :signing-name @@ -11327,12 +11326,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entity-properties" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "BatchPutPropertyValues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-property-values)) (common-lisp:progn (common-lisp:defun cancel-metadata-transfer-job @@ -11355,12 +11355,13 @@ (common-lisp:format common-lisp:nil "/metadata-transfer-jobs/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metadata-transfer-job-id)))) + 'metadata-transfer-job-id) + common-lisp:t))) "CancelMetadataTransferJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-metadata-transfer-job)) (common-lisp:progn (common-lisp:defun create-component-type @@ -11388,16 +11389,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/component-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'component-type-id)))) + 'component-type-id) + common-lisp:t))) "CreateComponentType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-component-type)) (common-lisp:progn (common-lisp:defun create-entity @@ -11423,12 +11426,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entities" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "CreateEntity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-entity)) (common-lisp:progn (common-lisp:defun create-metadata-transfer-job @@ -11450,7 +11454,7 @@ "POST" "/metadata-transfer-jobs" "CreateMetadataTransferJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-metadata-transfer-job)) (common-lisp:progn (common-lisp:defun create-scene @@ -11475,12 +11479,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/scenes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "CreateScene")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-scene)) (common-lisp:progn (common-lisp:defun create-sync-job @@ -11503,16 +11508,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/sync-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sync-source)))) + 'sync-source) + common-lisp:t))) "CreateSyncJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sync-job)) (common-lisp:progn (common-lisp:defun create-workspace @@ -11536,12 +11543,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "CreateWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workspace)) (common-lisp:progn (common-lisp:defun delete-component-type @@ -11563,16 +11571,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/component-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'component-type-id)))) + 'component-type-id) + common-lisp:t))) "DeleteComponentType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-component-type)) (common-lisp:progn (common-lisp:defun delete-entity @@ -11595,16 +11605,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'entity-id)))) + 'entity-id) + common-lisp:t))) "DeleteEntity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-entity)) (common-lisp:progn (common-lisp:defun delete-scene @@ -11626,16 +11638,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/scenes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scene-id)))) + 'scene-id) + common-lisp:t))) "DeleteScene")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scene)) (common-lisp:progn (common-lisp:defun delete-sync-job @@ -11657,16 +11671,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/sync-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sync-source)))) + 'sync-source) + common-lisp:t))) "DeleteSyncJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sync-job)) (common-lisp:progn (common-lisp:defun delete-workspace @@ -11688,12 +11704,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "DeleteWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workspace)) (common-lisp:progn (common-lisp:defun execute-query @@ -11714,7 +11731,7 @@ "POST" "/queries/execution" "ExecuteQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-query)) (common-lisp:progn (common-lisp:defun get-component-type @@ -11736,16 +11753,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/component-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'component-type-id)))) + 'component-type-id) + common-lisp:t))) "GetComponentType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-component-type)) (common-lisp:progn (common-lisp:defun get-entity @@ -11767,16 +11786,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'entity-id)))) + 'entity-id) + common-lisp:t))) "GetEntity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-entity)) (common-lisp:progn (common-lisp:defun get-metadata-transfer-job @@ -11799,12 +11820,13 @@ (common-lisp:format common-lisp:nil "/metadata-transfer-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'metadata-transfer-job-id)))) + 'metadata-transfer-job-id) + common-lisp:t))) "GetMetadataTransferJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-metadata-transfer-job)) (common-lisp:progn (common-lisp:defun get-pricing-plan () @@ -11840,12 +11862,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entity-properties/value" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "GetPropertyValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-property-value)) (common-lisp:progn (common-lisp:defun get-property-value-history @@ -11876,12 +11899,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entity-properties/history" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "GetPropertyValueHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-property-value-history)) (common-lisp:progn (common-lisp:defun get-scene @@ -11903,16 +11927,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/scenes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scene-id)))) + 'scene-id) + common-lisp:t))) "GetScene")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-scene)) (common-lisp:progn (common-lisp:defun get-sync-job @@ -11934,12 +11960,13 @@ (common-lisp:format common-lisp:nil "/sync-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sync-source)))) + 'sync-source) + common-lisp:t))) "GetSyncJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sync-job)) (common-lisp:progn (common-lisp:defun get-workspace @@ -11961,12 +11988,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "GetWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workspace)) (common-lisp:progn (common-lisp:defun list-component-types @@ -11990,12 +12018,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/component-types-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "ListComponentTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-component-types)) (common-lisp:progn (common-lisp:defun list-components @@ -12020,16 +12049,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entities/~A/components-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'entity-id)))) + 'entity-id) + common-lisp:t))) "ListComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-components)) (common-lisp:progn (common-lisp:defun list-entities @@ -12053,12 +12084,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entities-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "ListEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entities)) (common-lisp:progn (common-lisp:defun list-metadata-transfer-jobs @@ -12080,7 +12112,7 @@ "POST" "/metadata-transfer-jobs-list" "ListMetadataTransferJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-metadata-transfer-jobs)) (common-lisp:progn (common-lisp:defun list-properties @@ -12105,12 +12137,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/properties-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "ListProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-properties)) (common-lisp:progn (common-lisp:defun list-scenes @@ -12133,12 +12166,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/scenes-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "ListScenes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scenes)) (common-lisp:progn (common-lisp:defun list-sync-jobs @@ -12161,12 +12195,13 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/sync-jobs-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "ListSyncJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sync-jobs)) (common-lisp:progn (common-lisp:defun list-sync-resources @@ -12191,16 +12226,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/sync-jobs/~A/resources-list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sync-source)))) + 'sync-source) + common-lisp:t))) "ListSyncResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sync-resources)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12218,7 +12255,7 @@ aws-sdk/generator/operation::input "POST" "/tags-list" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-workspaces @@ -12236,7 +12273,7 @@ "POST" "/workspaces-list" "ListWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workspaces)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12253,7 +12290,7 @@ aws-sdk/generator/operation::input "POST" "/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12270,7 +12307,7 @@ aws-sdk/generator/operation::input "DELETE" "/tags" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-component-type @@ -12298,16 +12335,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/component-types/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'component-type-id)))) + 'component-type-id) + common-lisp:t))) "UpdateComponentType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-component-type)) (common-lisp:progn (common-lisp:defun update-entity @@ -12333,16 +12372,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/entities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'entity-id)))) + 'entity-id) + common-lisp:t))) "UpdateEntity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-entity)) (common-lisp:progn (common-lisp:defun update-pricing-plan @@ -12359,7 +12400,7 @@ aws-sdk/generator/operation::input "POST" "/pricingplan" "UpdatePricingPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pricing-plan)) (common-lisp:progn (common-lisp:defun update-scene @@ -12384,16 +12425,18 @@ (common-lisp:format common-lisp:nil "/workspaces/~A/scenes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)) - (quri.encode:url-encode + 'workspace-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'scene-id)))) + 'scene-id) + common-lisp:t))) "UpdateScene")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-scene)) (common-lisp:progn (common-lisp:defun update-workspace @@ -12416,10 +12459,11 @@ (common-lisp:format common-lisp:nil "/workspaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workspace-id)))) + 'workspace-id) + common-lisp:t))) "UpdateWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workspace)) diff --git a/services/iotwireless/api.lisp b/services/iotwireless/api.lisp index 02216300..39e3b070 100644 --- a/services/iotwireless/api.lisp +++ b/services/iotwireless/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/iotwireless/api - (:use) - (:nicknames #:aws/iotwireless) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/iotwireless/api (:use) + (:nicknames #:aws/iotwireless) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/iotwireless/api) (common-lisp:progn (common-lisp:define-condition iotwireless-error @@ -20,7 +19,7 @@ (common-lisp:export 'iotwireless-error)) (common-lisp:progn (common-lisp:defclass iotwireless-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "iotwireless" :api-version "2020-11-22" :host-prefix "api.iotwireless" @@ -6760,7 +6759,13 @@ ( (aws-sdk/generator/shape::input get-position-estimate-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'geo-json-payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'geo-json-payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-position-estimate-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-position-request common-lisp:nil ((resource-identifier :initarg :resource-identifier @@ -7224,7 +7229,13 @@ ( (aws-sdk/generator/shape::input get-resource-position-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'geo-json-payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'geo-json-payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-resource-position-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-service-endpoint-request common-lisp:nil ((service-type :initarg :service-type :initform @@ -8769,13 +8780,6 @@ (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input gnss)) (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'capture-time)) @@ -18672,7 +18676,13 @@ ( (aws-sdk/generator/shape::input update-resource-position-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'geo-json-payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'geo-json-payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-resource-position-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-resource-position-response common-lisp:nil common-lisp:nil @@ -20377,7 +20387,7 @@ "POST" "/partner-accounts" "AssociateAwsAccountWithPartnerAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-aws-account-with-partner-account)) (common-lisp:progn (common-lisp:defun associate-multicast-group-with-fuota-task @@ -20400,12 +20410,13 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A/multicast-group" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "AssociateMulticastGroupWithFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-multicast-group-with-fuota-task)) (common-lisp:progn (common-lisp:defun associate-wireless-device-with-fuota-task @@ -20428,12 +20439,13 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A/wireless-device" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "AssociateWirelessDeviceWithFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-wireless-device-with-fuota-task)) (common-lisp:progn (common-lisp:defun associate-wireless-device-with-multicast-group @@ -20456,12 +20468,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A/wireless-device" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "AssociateWirelessDeviceWithMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-wireless-device-with-multicast-group)) (common-lisp:progn (common-lisp:defun associate-wireless-device-with-thing @@ -20484,12 +20497,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A/thing" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "AssociateWirelessDeviceWithThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-wireless-device-with-thing)) (common-lisp:progn (common-lisp:defun associate-wireless-gateway-with-certificate @@ -20512,12 +20526,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/certificate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "AssociateWirelessGatewayWithCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-wireless-gateway-with-certificate)) (common-lisp:progn (common-lisp:defun associate-wireless-gateway-with-thing @@ -20540,12 +20555,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/thing" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "AssociateWirelessGatewayWithThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-wireless-gateway-with-thing)) (common-lisp:progn (common-lisp:defun cancel-multicast-group-session @@ -20568,12 +20584,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A/session" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CancelMulticastGroupSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-multicast-group-session)) (common-lisp:progn (common-lisp:defun create-destination @@ -20593,7 +20610,7 @@ aws-sdk/generator/operation::input "POST" "/destinations" "CreateDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-destination)) (common-lisp:progn (common-lisp:defun create-device-profile @@ -20613,7 +20630,7 @@ "POST" "/device-profiles" "CreateDeviceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-device-profile)) (common-lisp:progn (common-lisp:defun create-fuota-task @@ -20636,7 +20653,7 @@ aws-sdk/generator/operation::input "POST" "/fuota-tasks" "CreateFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fuota-task)) (common-lisp:progn (common-lisp:defun create-multicast-group @@ -20657,7 +20674,7 @@ "POST" "/multicast-groups" "CreateMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-multicast-group)) (common-lisp:progn (common-lisp:defun create-network-analyzer-configuration @@ -20680,7 +20697,7 @@ "POST" "/network-analyzer-configurations" "CreateNetworkAnalyzerConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-network-analyzer-configuration)) (common-lisp:progn (common-lisp:defun create-service-profile @@ -20699,7 +20716,7 @@ "POST" "/service-profiles" "CreateServiceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-profile)) (common-lisp:progn (common-lisp:defun create-wireless-device @@ -20720,7 +20737,7 @@ "POST" "/wireless-devices" "CreateWirelessDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-wireless-device)) (common-lisp:progn (common-lisp:defun create-wireless-gateway @@ -20741,7 +20758,7 @@ "POST" "/wireless-gateways" "CreateWirelessGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-wireless-gateway)) (common-lisp:progn (common-lisp:defun create-wireless-gateway-task @@ -20765,12 +20782,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/tasks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CreateWirelessGatewayTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-wireless-gateway-task)) (common-lisp:progn (common-lisp:defun create-wireless-gateway-task-definition @@ -20792,7 +20810,7 @@ "POST" "/wireless-gateway-task-definitions" "CreateWirelessGatewayTaskDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-wireless-gateway-task-definition)) (common-lisp:progn (common-lisp:defun delete-destination @@ -20814,12 +20832,13 @@ (common-lisp:format common-lisp:nil "/destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-destination)) (common-lisp:progn (common-lisp:defun delete-device-profile @@ -20841,12 +20860,13 @@ (common-lisp:format common-lisp:nil "/device-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteDeviceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device-profile)) (common-lisp:progn (common-lisp:defun delete-fuota-task @@ -20868,12 +20888,13 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fuota-task)) (common-lisp:progn (common-lisp:defun delete-multicast-group @@ -20895,12 +20916,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-multicast-group)) (common-lisp:progn (common-lisp:defun delete-network-analyzer-configuration @@ -20923,12 +20945,13 @@ (common-lisp:format common-lisp:nil "/network-analyzer-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-name)))) + 'configuration-name) + common-lisp:t))) "DeleteNetworkAnalyzerConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-network-analyzer-configuration)) (common-lisp:progn (common-lisp:defun delete-queued-messages @@ -20951,12 +20974,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A/data" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteQueuedMessages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-queued-messages)) (common-lisp:progn (common-lisp:defun delete-service-profile @@ -20978,12 +21002,13 @@ (common-lisp:format common-lisp:nil "/service-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteServiceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-profile)) (common-lisp:progn (common-lisp:defun delete-wireless-device @@ -21005,12 +21030,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteWirelessDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-wireless-device)) (common-lisp:progn (common-lisp:defun delete-wireless-device-import-task @@ -21033,12 +21059,13 @@ (common-lisp:format common-lisp:nil "/wireless_device_import_task/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteWirelessDeviceImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-wireless-device-import-task)) (common-lisp:progn (common-lisp:defun delete-wireless-gateway @@ -21060,12 +21087,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteWirelessGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-wireless-gateway)) (common-lisp:progn (common-lisp:defun delete-wireless-gateway-task @@ -21088,12 +21116,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/tasks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteWirelessGatewayTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-wireless-gateway-task)) (common-lisp:progn (common-lisp:defun delete-wireless-gateway-task-definition @@ -21116,12 +21145,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateway-task-definitions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteWirelessGatewayTaskDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-wireless-gateway-task-definition)) (common-lisp:progn (common-lisp:defun deregister-wireless-device @@ -21145,12 +21175,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A/deregister" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeregisterWirelessDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-wireless-device)) (common-lisp:progn (common-lisp:defun disassociate-aws-account-from-partner-account @@ -21174,12 +21205,13 @@ (common-lisp:format common-lisp:nil "/partner-accounts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'partner-account-id)))) + 'partner-account-id) + common-lisp:t))) "DisassociateAwsAccountFromPartnerAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-aws-account-from-partner-account)) (common-lisp:progn (common-lisp:defun disassociate-multicast-group-from-fuota-task @@ -21202,16 +21234,18 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A/multicast-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multicast-group-id)))) + 'multicast-group-id) + common-lisp:t))) "DisassociateMulticastGroupFromFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-multicast-group-from-fuota-task)) (common-lisp:progn (common-lisp:defun disassociate-wireless-device-from-fuota-task @@ -21234,16 +21268,18 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A/wireless-devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'wireless-device-id)))) + 'wireless-device-id) + common-lisp:t))) "DisassociateWirelessDeviceFromFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-wireless-device-from-fuota-task)) (common-lisp:progn (common-lisp:defun disassociate-wireless-device-from-multicast-group @@ -21266,16 +21302,18 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A/wireless-devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'wireless-device-id)))) + 'wireless-device-id) + common-lisp:t))) "DisassociateWirelessDeviceFromMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-wireless-device-from-multicast-group)) (common-lisp:progn (common-lisp:defun disassociate-wireless-device-from-thing @@ -21298,12 +21336,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A/thing" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DisassociateWirelessDeviceFromThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-wireless-device-from-thing)) (common-lisp:progn (common-lisp:defun disassociate-wireless-gateway-from-certificate @@ -21326,12 +21365,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/certificate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DisassociateWirelessGatewayFromCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-wireless-gateway-from-certificate)) (common-lisp:progn (common-lisp:defun disassociate-wireless-gateway-from-thing @@ -21354,12 +21394,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/thing" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DisassociateWirelessGatewayFromThing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-wireless-gateway-from-thing)) (common-lisp:progn (common-lisp:defun get-destination @@ -21381,12 +21422,13 @@ (common-lisp:format common-lisp:nil "/destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-destination)) (common-lisp:progn (common-lisp:defun get-device-profile @@ -21408,12 +21450,13 @@ (common-lisp:format common-lisp:nil "/device-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetDeviceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-profile)) (common-lisp:progn (common-lisp:defun get-event-configuration-by-resource-types () @@ -21445,12 +21488,13 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-fuota-task)) (common-lisp:progn (common-lisp:defun get-log-levels-by-resource-types () @@ -21481,12 +21525,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-multicast-group)) (common-lisp:progn (common-lisp:defun get-multicast-group-session @@ -21509,12 +21554,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A/session" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetMulticastGroupSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-multicast-group-session)) (common-lisp:progn (common-lisp:defun get-network-analyzer-configuration @@ -21537,12 +21583,13 @@ (common-lisp:format common-lisp:nil "/network-analyzer-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-name)))) + 'configuration-name) + common-lisp:t))) "GetNetworkAnalyzerConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-analyzer-configuration)) (common-lisp:progn (common-lisp:defun get-partner-account @@ -21565,12 +21612,13 @@ (common-lisp:format common-lisp:nil "/partner-accounts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'partner-account-id)))) + 'partner-account-id) + common-lisp:t))) "GetPartnerAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-partner-account)) (common-lisp:progn (common-lisp:defun get-position @@ -21593,12 +21641,13 @@ (common-lisp:format common-lisp:nil "/positions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "GetPosition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-position)) (common-lisp:progn (common-lisp:defun get-position-configuration @@ -21622,12 +21671,13 @@ (common-lisp:format common-lisp:nil "/position-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "GetPositionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-position-configuration)) (common-lisp:progn (common-lisp:defun get-position-estimate @@ -21648,7 +21698,7 @@ "/position-estimate" "GetPositionEstimate") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-position-estimate)) (common-lisp:progn (common-lisp:defun get-resource-event-configuration @@ -21672,12 +21722,13 @@ (common-lisp:format common-lisp:nil "/event-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetResourceEventConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-event-configuration)) (common-lisp:progn (common-lisp:defun get-resource-log-level @@ -21700,12 +21751,13 @@ (common-lisp:format common-lisp:nil "/log-levels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "GetResourceLogLevel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-log-level)) (common-lisp:progn (common-lisp:defun get-resource-position @@ -21728,13 +21780,14 @@ (common-lisp:format common-lisp:nil "/resource-positions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "GetResourcePosition") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-position)) (common-lisp:progn (common-lisp:defun get-service-endpoint @@ -21752,7 +21805,7 @@ "GET" "/service-endpoint" "GetServiceEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-endpoint)) (common-lisp:progn (common-lisp:defun get-service-profile @@ -21774,12 +21827,13 @@ (common-lisp:format common-lisp:nil "/service-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetServiceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-profile)) (common-lisp:progn (common-lisp:defun get-wireless-device @@ -21801,12 +21855,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetWirelessDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-device)) (common-lisp:progn (common-lisp:defun get-wireless-device-import-task @@ -21829,12 +21884,13 @@ (common-lisp:format common-lisp:nil "/wireless_device_import_task/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetWirelessDeviceImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-device-import-task)) (common-lisp:progn (common-lisp:defun get-wireless-device-statistics @@ -21857,12 +21913,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A/statistics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetWirelessDeviceStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-device-statistics)) (common-lisp:progn (common-lisp:defun get-wireless-gateway @@ -21884,12 +21941,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetWirelessGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-gateway)) (common-lisp:progn (common-lisp:defun get-wireless-gateway-certificate @@ -21912,12 +21970,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/certificate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetWirelessGatewayCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-gateway-certificate)) (common-lisp:progn (common-lisp:defun get-wireless-gateway-firmware-information @@ -21940,12 +21999,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/firmware-information" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetWirelessGatewayFirmwareInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-gateway-firmware-information)) (common-lisp:progn (common-lisp:defun get-wireless-gateway-statistics @@ -21968,12 +22028,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/statistics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetWirelessGatewayStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-gateway-statistics)) (common-lisp:progn (common-lisp:defun get-wireless-gateway-task @@ -21996,12 +22057,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A/tasks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetWirelessGatewayTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-gateway-task)) (common-lisp:progn (common-lisp:defun get-wireless-gateway-task-definition @@ -22024,12 +22086,13 @@ (common-lisp:format common-lisp:nil "/wireless-gateway-task-definitions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetWirelessGatewayTaskDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-wireless-gateway-task-definition)) (common-lisp:progn (common-lisp:defun list-destinations @@ -22046,7 +22109,7 @@ aws-sdk/generator/operation::input "GET" "/destinations" "ListDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-destinations)) (common-lisp:progn (common-lisp:defun list-device-profiles @@ -22066,7 +22129,7 @@ "GET" "/device-profiles" "ListDeviceProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-profiles)) (common-lisp:progn (common-lisp:defun list-devices-for-wireless-device-import-task @@ -22086,7 +22149,7 @@ "GET" "/wireless_device_import_task" "ListDevicesForWirelessDeviceImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices-for-wireless-device-import-task)) (common-lisp:progn (common-lisp:defun list-event-configurations @@ -22106,7 +22169,7 @@ "GET" "/event-configurations" "ListEventConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-configurations)) (common-lisp:progn (common-lisp:defun list-fuota-tasks @@ -22123,7 +22186,7 @@ aws-sdk/generator/operation::input "GET" "/fuota-tasks" "ListFuotaTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fuota-tasks)) (common-lisp:progn (common-lisp:defun list-multicast-groups @@ -22141,7 +22204,7 @@ "GET" "/multicast-groups" "ListMulticastGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-multicast-groups)) (common-lisp:progn (common-lisp:defun list-multicast-groups-by-fuota-task @@ -22164,12 +22227,13 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A/multicast-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListMulticastGroupsByFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-multicast-groups-by-fuota-task)) (common-lisp:progn (common-lisp:defun list-network-analyzer-configurations @@ -22188,7 +22252,7 @@ "GET" "/network-analyzer-configurations" "ListNetworkAnalyzerConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-network-analyzer-configurations)) (common-lisp:progn (common-lisp:defun list-partner-accounts @@ -22206,7 +22270,7 @@ "GET" "/partner-accounts" "ListPartnerAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-partner-accounts)) (common-lisp:progn (common-lisp:defun list-position-configurations @@ -22226,7 +22290,7 @@ "GET" "/position-configurations" "ListPositionConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-position-configurations)) (common-lisp:progn (common-lisp:defun list-queued-messages @@ -22250,12 +22314,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A/data" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListQueuedMessages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-queued-messages)) (common-lisp:progn (common-lisp:defun list-service-profiles @@ -22273,7 +22338,7 @@ "GET" "/service-profiles" "ListServiceProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-profiles)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -22290,7 +22355,7 @@ aws-sdk/generator/operation::input "GET" "/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-wireless-device-import-tasks @@ -22309,7 +22374,7 @@ "GET" "/wireless_device_import_tasks" "ListWirelessDeviceImportTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-wireless-device-import-tasks)) (common-lisp:progn (common-lisp:defun list-wireless-devices @@ -22332,7 +22397,7 @@ "GET" "/wireless-devices" "ListWirelessDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-wireless-devices)) (common-lisp:progn (common-lisp:defun list-wireless-gateway-task-definitions @@ -22353,7 +22418,7 @@ "GET" "/wireless-gateway-task-definitions" "ListWirelessGatewayTaskDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-wireless-gateway-task-definitions)) (common-lisp:progn (common-lisp:defun list-wireless-gateways @@ -22371,7 +22436,7 @@ "GET" "/wireless-gateways" "ListWirelessGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-wireless-gateways)) (common-lisp:progn (common-lisp:defun put-position-configuration @@ -22397,12 +22462,13 @@ (common-lisp:format common-lisp:nil "/position-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "PutPositionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-position-configuration)) (common-lisp:progn (common-lisp:defun put-resource-log-level @@ -22426,12 +22492,13 @@ (common-lisp:format common-lisp:nil "/log-levels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "PutResourceLogLevel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-log-level)) (common-lisp:progn (common-lisp:defun reset-all-resource-log-levels () @@ -22463,12 +22530,13 @@ (common-lisp:format common-lisp:nil "/log-levels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "ResetResourceLogLevel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-resource-log-level)) (common-lisp:progn (common-lisp:defun send-data-to-multicast-group @@ -22492,12 +22560,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A/data" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "SendDataToMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-data-to-multicast-group)) (common-lisp:progn (common-lisp:defun send-data-to-wireless-device @@ -22522,12 +22591,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A/data" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "SendDataToWirelessDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-data-to-wireless-device)) (common-lisp:progn (common-lisp:defun start-bulk-associate-wireless-device-with-multicast-group @@ -22550,12 +22620,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A/bulk" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "StartBulkAssociateWirelessDeviceWithMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-bulk-associate-wireless-device-with-multicast-group)) (common-lisp:progn @@ -22579,12 +22650,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A/bulk" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "StartBulkDisassociateWirelessDeviceFromMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-bulk-disassociate-wireless-device-from-multicast-group)) (common-lisp:progn @@ -22607,12 +22679,13 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "StartFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-fuota-task)) (common-lisp:progn (common-lisp:defun start-multicast-group-session @@ -22635,12 +22708,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A/session" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "StartMulticastGroupSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-multicast-group-session)) (common-lisp:progn (common-lisp:defun start-single-wireless-device-import-task @@ -22662,7 +22736,7 @@ "POST" "/wireless_single_device_import_task" "StartSingleWirelessDeviceImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-single-wireless-device-import-task)) (common-lisp:progn (common-lisp:defun start-wireless-device-import-task @@ -22684,7 +22758,7 @@ "POST" "/wireless_device_import_task" "StartWirelessDeviceImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-wireless-device-import-task)) (common-lisp:progn (common-lisp:defun tag-resource @@ -22701,7 +22775,7 @@ aws-sdk/generator/operation::input "POST" "/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-wireless-device @@ -22723,12 +22797,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A/test" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "TestWirelessDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-wireless-device)) (common-lisp:progn (common-lisp:defun untag-resource @@ -22745,7 +22820,7 @@ aws-sdk/generator/operation::input "DELETE" "/tags" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-destination @@ -22770,12 +22845,13 @@ (common-lisp:format common-lisp:nil "/destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-destination)) (common-lisp:progn (common-lisp:defun update-event-configuration-by-resource-types @@ -22797,7 +22873,7 @@ "PATCH" "/event-configurations-resource-types" "UpdateEventConfigurationByResourceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-configuration-by-resource-types)) (common-lisp:progn (common-lisp:defun update-fuota-task @@ -22825,12 +22901,13 @@ (common-lisp:format common-lisp:nil "/fuota-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateFuotaTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fuota-task)) (common-lisp:progn (common-lisp:defun update-log-levels-by-resource-types @@ -22851,7 +22928,7 @@ aws-sdk/generator/operation::input "POST" "/log-levels" "UpdateLogLevelsByResourceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-log-levels-by-resource-types)) (common-lisp:progn (common-lisp:defun update-multicast-group @@ -22873,12 +22950,13 @@ (common-lisp:format common-lisp:nil "/multicast-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateMulticastGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-multicast-group)) (common-lisp:progn (common-lisp:defun update-network-analyzer-configuration @@ -22909,12 +22987,13 @@ (common-lisp:format common-lisp:nil "/network-analyzer-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-name)))) + 'configuration-name) + common-lisp:t))) "UpdateNetworkAnalyzerConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-network-analyzer-configuration)) (common-lisp:progn (common-lisp:defun update-partner-account @@ -22937,12 +23016,13 @@ (common-lisp:format common-lisp:nil "/partner-accounts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'partner-account-id)))) + 'partner-account-id) + common-lisp:t))) "UpdatePartnerAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-partner-account)) (common-lisp:progn (common-lisp:defun update-position @@ -22966,12 +23046,13 @@ (common-lisp:format common-lisp:nil "/positions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "UpdatePosition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-position)) (common-lisp:progn (common-lisp:defun update-resource-event-configuration @@ -22999,12 +23080,13 @@ (common-lisp:format common-lisp:nil "/event-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateResourceEventConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-event-configuration)) (common-lisp:progn (common-lisp:defun update-resource-position @@ -23028,12 +23110,13 @@ (common-lisp:format common-lisp:nil "/resource-positions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "UpdateResourcePosition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-position)) (common-lisp:progn (common-lisp:defun update-wireless-device @@ -23058,12 +23141,13 @@ (common-lisp:format common-lisp:nil "/wireless-devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateWirelessDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-wireless-device)) (common-lisp:progn (common-lisp:defun update-wireless-device-import-task @@ -23086,12 +23170,13 @@ (common-lisp:format common-lisp:nil "/wireless_device_import_task/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateWirelessDeviceImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-wireless-device-import-task)) (common-lisp:progn (common-lisp:defun update-wireless-gateway @@ -23116,10 +23201,11 @@ (common-lisp:format common-lisp:nil "/wireless-gateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateWirelessGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-wireless-gateway)) diff --git a/services/ivs-realtime/api.lisp b/services/ivs-realtime/api.lisp index 746692fd..dfef2c55 100644 --- a/services/ivs-realtime/api.lisp +++ b/services/ivs-realtime/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ivs-realtime/api - (:use) - (:nicknames #:aws/ivs-realtime) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ivs-realtime/api (:use) + (:nicknames #:aws/ivs-realtime) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ivs-realtime/api) (common-lisp:progn (common-lisp:define-condition ivs-realtime-error @@ -20,7 +19,7 @@ (common-lisp:export 'ivs-realtime-error)) (common-lisp:progn (common-lisp:defclass ivs-realtime-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "ivs-realtime" :api-version "2020-07-14" :host-prefix "ivsrealtime" :signing-name @@ -4862,7 +4861,7 @@ "POST" "/CreateEncoderConfiguration" "CreateEncoderConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-encoder-configuration)) (common-lisp:progn (common-lisp:defun create-participant-token @@ -4882,7 +4881,7 @@ "POST" "/CreateParticipantToken" "CreateParticipantToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-participant-token)) (common-lisp:progn (common-lisp:defun create-stage @@ -4901,7 +4900,7 @@ aws-sdk/generator/operation::input "POST" "/CreateStage" "CreateStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stage)) (common-lisp:progn (common-lisp:defun create-storage-configuration @@ -4920,7 +4919,7 @@ "POST" "/CreateStorageConfiguration" "CreateStorageConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-storage-configuration)) (common-lisp:progn (common-lisp:defun delete-encoder-configuration @@ -4939,7 +4938,7 @@ "POST" "/DeleteEncoderConfiguration" "DeleteEncoderConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-encoder-configuration)) (common-lisp:progn (common-lisp:defun delete-stage @@ -4956,7 +4955,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteStage" "DeleteStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stage)) (common-lisp:progn (common-lisp:defun delete-storage-configuration @@ -4975,7 +4974,7 @@ "POST" "/DeleteStorageConfiguration" "DeleteStorageConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-storage-configuration)) (common-lisp:progn (common-lisp:defun disconnect-participant @@ -4994,7 +4993,7 @@ "POST" "/DisconnectParticipant" "DisconnectParticipant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disconnect-participant)) (common-lisp:progn (common-lisp:defun get-composition @@ -5012,7 +5011,7 @@ "POST" "/GetComposition" "GetComposition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-composition)) (common-lisp:progn (common-lisp:defun get-encoder-configuration @@ -5031,7 +5030,7 @@ "POST" "/GetEncoderConfiguration" "GetEncoderConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-encoder-configuration)) (common-lisp:progn (common-lisp:defun get-participant @@ -5050,7 +5049,7 @@ "POST" "/GetParticipant" "GetParticipant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-participant)) (common-lisp:progn (common-lisp:defun get-stage @@ -5067,7 +5066,7 @@ aws-sdk/generator/operation::input "POST" "/GetStage" "GetStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stage)) (common-lisp:progn (common-lisp:defun get-stage-session @@ -5085,7 +5084,7 @@ "POST" "/GetStageSession" "GetStageSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stage-session)) (common-lisp:progn (common-lisp:defun get-storage-configuration @@ -5104,7 +5103,7 @@ "POST" "/GetStorageConfiguration" "GetStorageConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-storage-configuration)) (common-lisp:progn (common-lisp:defun list-compositions @@ -5125,7 +5124,7 @@ "POST" "/ListCompositions" "ListCompositions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-compositions)) (common-lisp:progn (common-lisp:defun list-encoder-configurations @@ -5144,7 +5143,7 @@ "POST" "/ListEncoderConfigurations" "ListEncoderConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-encoder-configurations)) (common-lisp:progn (common-lisp:defun list-participant-events @@ -5165,7 +5164,7 @@ "POST" "/ListParticipantEvents" "ListParticipantEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-participant-events)) (common-lisp:progn (common-lisp:defun list-participants @@ -5187,7 +5186,7 @@ "POST" "/ListParticipants" "ListParticipants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-participants)) (common-lisp:progn (common-lisp:defun list-stage-sessions @@ -5206,7 +5205,7 @@ "POST" "/ListStageSessions" "ListStageSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stage-sessions)) (common-lisp:progn (common-lisp:defun list-stages @@ -5223,7 +5222,7 @@ aws-sdk/generator/operation::input "POST" "/ListStages" "ListStages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stages)) (common-lisp:progn (common-lisp:defun list-storage-configurations @@ -5242,7 +5241,7 @@ "POST" "/ListStorageConfigurations" "ListStorageConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-storage-configurations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5264,12 +5263,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-composition @@ -5290,7 +5290,7 @@ "POST" "/StartComposition" "StartComposition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-composition)) (common-lisp:progn (common-lisp:defun stop-composition @@ -5308,7 +5308,7 @@ "POST" "/StopComposition" "StopComposition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-composition)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5330,12 +5330,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5357,12 +5358,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-stage @@ -5379,5 +5381,5 @@ aws-sdk/generator/operation::input "POST" "/UpdateStage" "UpdateStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stage)) diff --git a/services/ivs/api.lisp b/services/ivs/api.lisp index 7a24aa1f..132ea7b3 100644 --- a/services/ivs/api.lisp +++ b/services/ivs/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ivs/api - (:use) - (:nicknames #:aws/ivs) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ivs/api (:use) + (:nicknames #:aws/ivs) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ivs/api) (common-lisp:progn (common-lisp:define-condition ivs-error @@ -20,7 +19,7 @@ (common-lisp:export 'ivs-error)) (common-lisp:progn (common-lisp:defclass ivs-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "ivs" :api-version "2020-07-14" :host-prefix "ivs" :signing-name "ivs" @@ -5880,7 +5879,7 @@ "POST" "/BatchGetChannel" "BatchGetChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-channel)) (common-lisp:progn (common-lisp:defun batch-get-stream-key @@ -5898,7 +5897,7 @@ "POST" "/BatchGetStreamKey" "BatchGetStreamKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-stream-key)) (common-lisp:progn (common-lisp:defun batch-start-viewer-session-revocation @@ -5917,7 +5916,7 @@ "POST" "/BatchStartViewerSessionRevocation" "BatchStartViewerSessionRevocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-start-viewer-session-revocation)) (common-lisp:progn (common-lisp:defun create-channel @@ -5939,7 +5938,7 @@ aws-sdk/generator/operation::input "POST" "/CreateChannel" "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-playback-restriction-policy @@ -5961,7 +5960,7 @@ "POST" "/CreatePlaybackRestrictionPolicy" "CreatePlaybackRestrictionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-playback-restriction-policy)) (common-lisp:progn (common-lisp:defun create-recording-configuration @@ -5985,7 +5984,7 @@ "POST" "/CreateRecordingConfiguration" "CreateRecordingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-recording-configuration)) (common-lisp:progn (common-lisp:defun create-stream-key @@ -6003,7 +6002,7 @@ "POST" "/CreateStreamKey" "CreateStreamKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stream-key)) (common-lisp:progn (common-lisp:defun delete-channel @@ -6020,7 +6019,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteChannel" "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-playback-key-pair @@ -6038,7 +6037,7 @@ "POST" "/DeletePlaybackKeyPair" "DeletePlaybackKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-playback-key-pair)) (common-lisp:progn (common-lisp:defun delete-playback-restriction-policy @@ -6057,7 +6056,7 @@ "POST" "/DeletePlaybackRestrictionPolicy" "DeletePlaybackRestrictionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-playback-restriction-policy)) (common-lisp:progn (common-lisp:defun delete-recording-configuration @@ -6076,7 +6075,7 @@ "POST" "/DeleteRecordingConfiguration" "DeleteRecordingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recording-configuration)) (common-lisp:progn (common-lisp:defun delete-stream-key @@ -6094,7 +6093,7 @@ "POST" "/DeleteStreamKey" "DeleteStreamKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stream-key)) (common-lisp:progn (common-lisp:defun get-channel @@ -6111,7 +6110,7 @@ aws-sdk/generator/operation::input "POST" "/GetChannel" "GetChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel)) (common-lisp:progn (common-lisp:defun get-playback-key-pair @@ -6129,7 +6128,7 @@ "POST" "/GetPlaybackKeyPair" "GetPlaybackKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-playback-key-pair)) (common-lisp:progn (common-lisp:defun get-playback-restriction-policy @@ -6148,7 +6147,7 @@ "POST" "/GetPlaybackRestrictionPolicy" "GetPlaybackRestrictionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-playback-restriction-policy)) (common-lisp:progn (common-lisp:defun get-recording-configuration @@ -6167,7 +6166,7 @@ "POST" "/GetRecordingConfiguration" "GetRecordingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recording-configuration)) (common-lisp:progn (common-lisp:defun get-stream @@ -6184,7 +6183,7 @@ aws-sdk/generator/operation::input "POST" "/GetStream" "GetStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stream)) (common-lisp:progn (common-lisp:defun get-stream-key @@ -6201,7 +6200,7 @@ aws-sdk/generator/operation::input "POST" "/GetStreamKey" "GetStreamKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stream-key)) (common-lisp:progn (common-lisp:defun get-stream-session @@ -6219,7 +6218,7 @@ "POST" "/GetStreamSession" "GetStreamSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-stream-session)) (common-lisp:progn (common-lisp:defun import-playback-key-pair @@ -6237,7 +6236,7 @@ "POST" "/ImportPlaybackKeyPair" "ImportPlaybackKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-playback-key-pair)) (common-lisp:progn (common-lisp:defun list-channels @@ -6260,7 +6259,7 @@ aws-sdk/generator/operation::input "POST" "/ListChannels" "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-playback-key-pairs @@ -6278,7 +6277,7 @@ "POST" "/ListPlaybackKeyPairs" "ListPlaybackKeyPairs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-playback-key-pairs)) (common-lisp:progn (common-lisp:defun list-playback-restriction-policies @@ -6297,7 +6296,7 @@ "POST" "/ListPlaybackRestrictionPolicies" "ListPlaybackRestrictionPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-playback-restriction-policies)) (common-lisp:progn (common-lisp:defun list-recording-configurations @@ -6316,7 +6315,7 @@ "POST" "/ListRecordingConfigurations" "ListRecordingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recording-configurations)) (common-lisp:progn (common-lisp:defun list-stream-keys @@ -6335,7 +6334,7 @@ "POST" "/ListStreamKeys" "ListStreamKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stream-keys)) (common-lisp:progn (common-lisp:defun list-stream-sessions @@ -6354,7 +6353,7 @@ "POST" "/ListStreamSessions" "ListStreamSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stream-sessions)) (common-lisp:progn (common-lisp:defun list-streams @@ -6372,7 +6371,7 @@ aws-sdk/generator/operation::input "POST" "/ListStreams" "ListStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-streams)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6394,12 +6393,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-metadata @@ -6416,7 +6416,7 @@ aws-sdk/generator/operation::input "POST" "/PutMetadata" "PutMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-metadata)) (common-lisp:progn (common-lisp:defun start-viewer-session-revocation @@ -6438,7 +6438,7 @@ "POST" "/StartViewerSessionRevocation" "StartViewerSessionRevocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-viewer-session-revocation)) (common-lisp:progn (common-lisp:defun stop-stream @@ -6455,7 +6455,7 @@ aws-sdk/generator/operation::input "POST" "/StopStream" "StopStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-stream)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6477,12 +6477,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6504,12 +6505,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-channel @@ -6530,7 +6532,7 @@ aws-sdk/generator/operation::input "POST" "/UpdateChannel" "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-playback-restriction-policy @@ -6552,5 +6554,5 @@ "POST" "/UpdatePlaybackRestrictionPolicy" "UpdatePlaybackRestrictionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-playback-restriction-policy)) diff --git a/services/ivschat/api.lisp b/services/ivschat/api.lisp index cc42cf06..fbafb8e0 100644 --- a/services/ivschat/api.lisp +++ b/services/ivschat/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ivschat/api - (:use) - (:nicknames #:aws/ivschat) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ivschat/api (:use) + (:nicknames #:aws/ivschat) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ivschat/api) (common-lisp:progn (common-lisp:define-condition ivschat-error @@ -20,7 +19,7 @@ (common-lisp:export 'ivschat-error)) (common-lisp:progn (common-lisp:defclass ivschat-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "ivschat" :api-version "2020-07-14" :host-prefix "ivschat" :signing-name @@ -3097,7 +3096,7 @@ "POST" "/CreateChatToken" "CreateChatToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-chat-token)) (common-lisp:progn (common-lisp:defun create-logging-configuration @@ -3117,7 +3116,7 @@ "POST" "/CreateLoggingConfiguration" "CreateLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-logging-configuration)) (common-lisp:progn (common-lisp:defun create-room @@ -3139,7 +3138,7 @@ aws-sdk/generator/operation::input "POST" "/CreateRoom" "CreateRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-room)) (common-lisp:progn (common-lisp:defun delete-logging-configuration @@ -3158,7 +3157,7 @@ "POST" "/DeleteLoggingConfiguration" "DeleteLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-logging-configuration)) (common-lisp:progn (common-lisp:defun delete-message @@ -3175,7 +3174,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteMessage" "DeleteMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-message)) (common-lisp:progn (common-lisp:defun delete-room @@ -3192,7 +3191,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteRoom" "DeleteRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-room)) (common-lisp:progn (common-lisp:defun disconnect-user @@ -3210,7 +3209,7 @@ "POST" "/DisconnectUser" "DisconnectUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disconnect-user)) (common-lisp:progn (common-lisp:defun get-logging-configuration @@ -3229,7 +3228,7 @@ "POST" "/GetLoggingConfiguration" "GetLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-logging-configuration)) (common-lisp:progn (common-lisp:defun get-room @@ -3246,7 +3245,7 @@ aws-sdk/generator/operation::input "POST" "/GetRoom" "GetRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-room)) (common-lisp:progn (common-lisp:defun list-logging-configurations @@ -3265,7 +3264,7 @@ "POST" "/ListLoggingConfigurations" "ListLoggingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-logging-configurations)) (common-lisp:progn (common-lisp:defun list-rooms @@ -3285,7 +3284,7 @@ aws-sdk/generator/operation::input "POST" "/ListRooms" "ListRooms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rooms)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3307,12 +3306,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun send-event @@ -3330,7 +3330,7 @@ aws-sdk/generator/operation::input "POST" "/SendEvent" "SendEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-event)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3352,12 +3352,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3379,12 +3380,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-logging-configuration @@ -3405,7 +3407,7 @@ "POST" "/UpdateLoggingConfiguration" "UpdateLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-logging-configuration)) (common-lisp:progn (common-lisp:defun update-room @@ -3428,5 +3430,5 @@ aws-sdk/generator/operation::input "POST" "/UpdateRoom" "UpdateRoom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-room)) diff --git a/services/kafka/api.lisp b/services/kafka/api.lisp index e36fae6f..f2d27e04 100644 --- a/services/kafka/api.lisp +++ b/services/kafka/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kafka/api - (:use) - (:nicknames #:aws/kafka) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kafka/api (:use) + (:nicknames #:aws/kafka) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kafka/api) (common-lisp:progn (common-lisp:define-condition kafka-error @@ -20,7 +19,7 @@ (common-lisp:export 'kafka-error)) (common-lisp:progn (common-lisp:defclass kafka-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "kafka" :api-version "2018-11-14" :host-prefix "kafka" :signing-name "kafka" @@ -12012,12 +12011,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/scram-secrets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "BatchAssociateScramSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-scram-secret)) (common-lisp:progn (common-lisp:defun create-cluster @@ -12042,7 +12042,7 @@ aws-sdk/generator/operation::input "POST" "/v1/clusters" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-cluster-v2 @@ -12061,7 +12061,7 @@ "POST" "/api/v2/clusters" "CreateClusterV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster-v2)) (common-lisp:progn (common-lisp:defun create-configuration @@ -12081,7 +12081,7 @@ "POST" "/v1/configurations" "CreateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration)) (common-lisp:progn (common-lisp:defun create-replicator @@ -12103,7 +12103,7 @@ "POST" "/replication/v1/replicators" "CreateReplicator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replicator)) (common-lisp:progn (common-lisp:defun create-vpc-connection @@ -12124,7 +12124,7 @@ "POST" "/v1/vpc-connection" "CreateVpcConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-connection)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -12146,12 +12146,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-configuration @@ -12173,12 +12174,13 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "DeleteConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration)) (common-lisp:progn (common-lisp:defun delete-replicator @@ -12200,12 +12202,13 @@ (common-lisp:format common-lisp:nil "/replication/v1/replicators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'replicator-arn)))) + 'replicator-arn) + common-lisp:t))) "DeleteReplicator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replicator)) (common-lisp:progn (common-lisp:defun delete-vpc-connection @@ -12227,12 +12230,13 @@ (common-lisp:format common-lisp:nil "/v1/vpc-connection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "DeleteVpcConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-connection)) (common-lisp:progn (common-lisp:defun describe-cluster @@ -12254,12 +12258,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "DescribeCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster)) (common-lisp:progn (common-lisp:defun describe-cluster-v2 @@ -12281,12 +12286,13 @@ (common-lisp:format common-lisp:nil "/api/v2/clusters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "DescribeClusterV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster-v2)) (common-lisp:progn (common-lisp:defun describe-cluster-operation @@ -12309,12 +12315,13 @@ (common-lisp:format common-lisp:nil "/v1/operations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-operation-arn)))) + 'cluster-operation-arn) + common-lisp:t))) "DescribeClusterOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster-operation)) (common-lisp:progn (common-lisp:defun describe-cluster-operation-v2 @@ -12337,12 +12344,13 @@ (common-lisp:format common-lisp:nil "/api/v2/operations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-operation-arn)))) + 'cluster-operation-arn) + common-lisp:t))) "DescribeClusterOperationV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster-operation-v2)) (common-lisp:progn (common-lisp:defun describe-configuration @@ -12364,12 +12372,13 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "DescribeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration)) (common-lisp:progn (common-lisp:defun describe-configuration-revision @@ -12392,16 +12401,18 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A/revisions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)) - (quri.encode:url-encode + 'arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'revision)))) + 'revision) + common-lisp:t))) "DescribeConfigurationRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration-revision)) (common-lisp:progn (common-lisp:defun describe-replicator @@ -12423,12 +12434,13 @@ (common-lisp:format common-lisp:nil "/replication/v1/replicators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'replicator-arn)))) + 'replicator-arn) + common-lisp:t))) "DescribeReplicator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replicator)) (common-lisp:progn (common-lisp:defun describe-vpc-connection @@ -12450,12 +12462,13 @@ (common-lisp:format common-lisp:nil "/v1/vpc-connection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "DescribeVpcConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vpc-connection)) (common-lisp:progn (common-lisp:defun batch-disassociate-scram-secret @@ -12478,12 +12491,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/scram-secrets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "BatchDisassociateScramSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-scram-secret)) (common-lisp:progn (common-lisp:defun get-bootstrap-brokers @@ -12505,12 +12519,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/bootstrap-brokers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "GetBootstrapBrokers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bootstrap-brokers)) (common-lisp:progn (common-lisp:defun get-compatible-kafka-versions @@ -12529,7 +12544,7 @@ "GET" "/v1/compatible-kafka-versions" "GetCompatibleKafkaVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compatible-kafka-versions)) (common-lisp:progn (common-lisp:defun list-cluster-operations @@ -12552,12 +12567,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/operations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "ListClusterOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cluster-operations)) (common-lisp:progn (common-lisp:defun list-cluster-operations-v2 @@ -12581,12 +12597,13 @@ (common-lisp:format common-lisp:nil "/api/v2/clusters/~A/operations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "ListClusterOperationsV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cluster-operations-v2)) (common-lisp:progn (common-lisp:defun list-clusters @@ -12605,7 +12622,7 @@ aws-sdk/generator/operation::input "GET" "/v1/clusters" "ListClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters)) (common-lisp:progn (common-lisp:defun list-clusters-v2 @@ -12626,7 +12643,7 @@ "GET" "/api/v2/clusters" "ListClustersV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters-v2)) (common-lisp:progn (common-lisp:defun list-configuration-revisions @@ -12649,12 +12666,13 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A/revisions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "ListConfigurationRevisions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-revisions)) (common-lisp:progn (common-lisp:defun list-configurations @@ -12672,7 +12690,7 @@ "GET" "/v1/configurations" "ListConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configurations)) (common-lisp:progn (common-lisp:defun list-kafka-versions @@ -12690,7 +12708,7 @@ "GET" "/v1/kafka-versions" "ListKafkaVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-kafka-versions)) (common-lisp:progn (common-lisp:defun list-nodes @@ -12713,12 +12731,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/nodes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "ListNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-nodes)) (common-lisp:progn (common-lisp:defun list-replicators @@ -12738,7 +12757,7 @@ "GET" "/replication/v1/replicators" "ListReplicators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-replicators)) (common-lisp:progn (common-lisp:defun list-scram-secrets @@ -12761,12 +12780,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/scram-secrets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "ListScramSecrets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scram-secrets)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12788,12 +12808,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-client-vpc-connections @@ -12817,12 +12838,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/client-vpc-connections" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "ListClientVpcConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-client-vpc-connections)) (common-lisp:progn (common-lisp:defun list-vpc-connections @@ -12840,7 +12862,7 @@ "GET" "/v1/vpc-connections" "ListVpcConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-connections)) (common-lisp:progn (common-lisp:defun reject-client-vpc-connection @@ -12863,12 +12885,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/client-vpc-connection" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "RejectClientVpcConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-client-vpc-connection)) (common-lisp:progn (common-lisp:defun delete-cluster-policy @@ -12890,12 +12913,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "DeleteClusterPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster-policy)) (common-lisp:progn (common-lisp:defun get-cluster-policy @@ -12917,12 +12941,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "GetClusterPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cluster-policy)) (common-lisp:progn (common-lisp:defun put-cluster-policy @@ -12945,12 +12970,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "PutClusterPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-cluster-policy)) (common-lisp:progn (common-lisp:defun reboot-broker @@ -12972,12 +12998,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/reboot-broker" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "RebootBroker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-broker)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12999,12 +13026,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13026,12 +13054,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-broker-count @@ -13056,12 +13085,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/nodes/count" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateBrokerCount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-broker-count)) (common-lisp:progn (common-lisp:defun update-broker-type @@ -13085,12 +13115,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/nodes/type" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateBrokerType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-broker-type)) (common-lisp:progn (common-lisp:defun update-broker-storage @@ -13115,12 +13146,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/nodes/storage" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateBrokerStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-broker-storage)) (common-lisp:progn (common-lisp:defun update-configuration @@ -13143,12 +13175,13 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "UpdateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configuration)) (common-lisp:progn (common-lisp:defun update-cluster-configuration @@ -13173,12 +13206,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateClusterConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster-configuration)) (common-lisp:progn (common-lisp:defun update-cluster-kafka-version @@ -13204,12 +13238,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/version" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateClusterKafkaVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster-kafka-version)) (common-lisp:progn (common-lisp:defun update-connectivity @@ -13233,12 +13268,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/connectivity" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateConnectivity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connectivity)) (common-lisp:progn (common-lisp:defun update-monitoring @@ -13263,12 +13299,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/monitoring" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateMonitoring")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-monitoring)) (common-lisp:progn (common-lisp:defun update-replication-info @@ -13295,12 +13332,13 @@ (common-lisp:format common-lisp:nil "/replication/v1/replicators/~A/replication-info" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'replicator-arn)))) + 'replicator-arn) + common-lisp:t))) "UpdateReplicationInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-replication-info)) (common-lisp:progn (common-lisp:defun update-security @@ -13325,12 +13363,13 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/security" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateSecurity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-security)) (common-lisp:progn (common-lisp:defun update-storage @@ -13355,10 +13394,11 @@ (common-lisp:format common-lisp:nil "/v1/clusters/~A/storage" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "UpdateStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-storage)) diff --git a/services/kafkaconnect/api.lisp b/services/kafkaconnect/api.lisp index f748eb4e..0c26a295 100644 --- a/services/kafkaconnect/api.lisp +++ b/services/kafkaconnect/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kafkaconnect/api - (:use) - (:nicknames #:aws/kafkaconnect) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kafkaconnect/api (:use) + (:nicknames #:aws/kafkaconnect) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kafkaconnect/api) (common-lisp:progn (common-lisp:define-condition kafkaconnect-error @@ -20,7 +19,7 @@ (common-lisp:export 'kafkaconnect-error)) (common-lisp:progn (common-lisp:defclass kafkaconnect-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "kafkaconnect" :api-version "2021-09-14" :host-prefix "kafkaconnect" :signing-name @@ -5351,7 +5350,7 @@ aws-sdk/generator/operation::input "POST" "/v1/connectors" "CreateConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connector)) (common-lisp:progn (common-lisp:defun create-custom-plugin @@ -5371,7 +5370,7 @@ "POST" "/v1/custom-plugins" "CreateCustomPlugin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-plugin)) (common-lisp:progn (common-lisp:defun create-worker-configuration @@ -5392,7 +5391,7 @@ "POST" "/v1/worker-configurations" "CreateWorkerConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-worker-configuration)) (common-lisp:progn (common-lisp:defun delete-connector @@ -5414,12 +5413,13 @@ (common-lisp:format common-lisp:nil "/v1/connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-arn)))) + 'connector-arn) + common-lisp:t))) "DeleteConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connector)) (common-lisp:progn (common-lisp:defun delete-custom-plugin @@ -5441,12 +5441,13 @@ (common-lisp:format common-lisp:nil "/v1/custom-plugins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'custom-plugin-arn)))) + 'custom-plugin-arn) + common-lisp:t))) "DeleteCustomPlugin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-plugin)) (common-lisp:progn (common-lisp:defun delete-worker-configuration @@ -5469,12 +5470,13 @@ (common-lisp:format common-lisp:nil "/v1/worker-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'worker-configuration-arn)))) + 'worker-configuration-arn) + common-lisp:t))) "DeleteWorkerConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-worker-configuration)) (common-lisp:progn (common-lisp:defun describe-connector @@ -5496,12 +5498,13 @@ (common-lisp:format common-lisp:nil "/v1/connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-arn)))) + 'connector-arn) + common-lisp:t))) "DescribeConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connector)) (common-lisp:progn (common-lisp:defun describe-custom-plugin @@ -5523,12 +5526,13 @@ (common-lisp:format common-lisp:nil "/v1/custom-plugins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'custom-plugin-arn)))) + 'custom-plugin-arn) + common-lisp:t))) "DescribeCustomPlugin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-plugin)) (common-lisp:progn (common-lisp:defun describe-worker-configuration @@ -5551,12 +5555,13 @@ (common-lisp:format common-lisp:nil "/v1/worker-configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'worker-configuration-arn)))) + 'worker-configuration-arn) + common-lisp:t))) "DescribeWorkerConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-worker-configuration)) (common-lisp:progn (common-lisp:defun list-connectors @@ -5575,7 +5580,7 @@ aws-sdk/generator/operation::input "GET" "/v1/connectors" "ListConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connectors)) (common-lisp:progn (common-lisp:defun list-custom-plugins @@ -5594,7 +5599,7 @@ "GET" "/v1/custom-plugins" "ListCustomPlugins")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-plugins)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5616,12 +5621,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-worker-configurations @@ -5641,7 +5647,7 @@ "GET" "/v1/worker-configurations" "ListWorkerConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-worker-configurations)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5663,12 +5669,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5690,12 +5697,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-connector @@ -5718,10 +5726,11 @@ (common-lisp:format common-lisp:nil "/v1/connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-arn)))) + 'connector-arn) + common-lisp:t))) "UpdateConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connector)) diff --git a/services/kendra-ranking/api.lisp b/services/kendra-ranking/api.lisp index cdf47320..bf230607 100644 --- a/services/kendra-ranking/api.lisp +++ b/services/kendra-ranking/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kendra-ranking/api - (:use) - (:nicknames #:aws/kendra-ranking) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kendra-ranking/api (:use) + (:nicknames #:aws/kendra-ranking) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kendra-ranking/api) (common-lisp:progn (common-lisp:define-condition kendra-ranking-error @@ -1427,7 +1426,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRescoreExecutionPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rescore-execution-plan)) (common-lisp:progn (common-lisp:defun delete-rescore-execution-plan @@ -1445,7 +1444,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRescoreExecutionPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rescore-execution-plan)) (common-lisp:progn (common-lisp:defun describe-rescore-execution-plan @@ -1463,7 +1462,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRescoreExecutionPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rescore-execution-plan)) (common-lisp:progn (common-lisp:defun list-rescore-execution-plans @@ -1481,7 +1480,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRescoreExecutionPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rescore-execution-plans)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1498,7 +1497,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun rescore @@ -1516,7 +1515,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kendra-ranking-request aws-sdk/generator/operation::input "POST" "/" "Rescore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'rescore)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1533,7 +1532,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -1550,7 +1549,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-rescore-execution-plan @@ -1569,5 +1568,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRescoreExecutionPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rescore-execution-plan)) diff --git a/services/kendra/api.lisp b/services/kendra/api.lisp index b1b1c9a0..b35ef5f5 100644 --- a/services/kendra/api.lisp +++ b/services/kendra/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kendra/api - (:use) - (:nicknames #:aws/kendra) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kendra/api (:use) + (:nicknames #:aws/kendra) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kendra/api) (common-lisp:progn (common-lisp:define-condition kendra-error @@ -22911,7 +22910,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateEntitiesToExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-entities-to-experience)) (common-lisp:progn (common-lisp:defun associate-personas-to-entities @@ -22929,7 +22928,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociatePersonasToEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-personas-to-entities)) (common-lisp:progn (common-lisp:defun batch-delete-document @@ -22949,7 +22948,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-document)) (common-lisp:progn (common-lisp:defun batch-delete-featured-results-set @@ -22968,7 +22967,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteFeaturedResultsSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-featured-results-set)) (common-lisp:progn (common-lisp:defun batch-get-document-status @@ -22986,7 +22985,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetDocumentStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-document-status)) (common-lisp:progn (common-lisp:defun batch-put-document @@ -23006,7 +23005,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchPutDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-document)) (common-lisp:progn (common-lisp:defun clear-query-suggestions @@ -23023,7 +23022,7 @@ aws-sdk/generator/operation::input "POST" "/" "ClearQuerySuggestions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'clear-query-suggestions)) (common-lisp:progn (common-lisp:defun create-access-control-configuration @@ -23045,7 +23044,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAccessControlConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-access-control-configuration)) (common-lisp:progn (common-lisp:defun create-data-source @@ -23068,7 +23067,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-source)) (common-lisp:progn (common-lisp:defun create-experience @@ -23088,7 +23087,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-experience)) (common-lisp:progn (common-lisp:defun create-faq @@ -23108,7 +23107,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFaq")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-faq)) (common-lisp:progn (common-lisp:defun create-featured-results-set @@ -23130,7 +23129,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFeaturedResultsSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-featured-results-set)) (common-lisp:progn (common-lisp:defun create-index @@ -23153,7 +23152,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-index)) (common-lisp:progn (common-lisp:defun create-query-suggestions-block-list @@ -23174,7 +23173,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateQuerySuggestionsBlockList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-query-suggestions-block-list)) (common-lisp:progn (common-lisp:defun create-thesaurus @@ -23194,7 +23193,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateThesaurus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-thesaurus)) (common-lisp:progn (common-lisp:defun delete-access-control-configuration @@ -23212,7 +23211,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAccessControlConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access-control-configuration)) (common-lisp:progn (common-lisp:defun delete-data-source @@ -23229,7 +23228,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-source)) (common-lisp:progn (common-lisp:defun delete-experience @@ -23246,7 +23245,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-experience)) (common-lisp:progn (common-lisp:defun delete-faq @@ -23263,7 +23262,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFaq")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-faq)) (common-lisp:progn (common-lisp:defun delete-index @@ -23280,7 +23279,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-index)) (common-lisp:progn (common-lisp:defun delete-principal-mapping @@ -23299,7 +23298,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePrincipalMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-principal-mapping)) (common-lisp:progn (common-lisp:defun delete-query-suggestions-block-list @@ -23317,7 +23316,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteQuerySuggestionsBlockList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-query-suggestions-block-list)) (common-lisp:progn (common-lisp:defun delete-thesaurus @@ -23334,7 +23333,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteThesaurus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-thesaurus)) (common-lisp:progn (common-lisp:defun describe-access-control-configuration @@ -23352,7 +23351,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccessControlConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-access-control-configuration)) (common-lisp:progn (common-lisp:defun describe-data-source @@ -23369,7 +23368,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-source)) (common-lisp:progn (common-lisp:defun describe-experience @@ -23386,7 +23385,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-experience)) (common-lisp:progn (common-lisp:defun describe-faq @@ -23403,7 +23402,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFaq")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-faq)) (common-lisp:progn (common-lisp:defun describe-featured-results-set @@ -23422,7 +23421,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFeaturedResultsSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-featured-results-set)) (common-lisp:progn (common-lisp:defun describe-index @@ -23439,7 +23438,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-index)) (common-lisp:progn (common-lisp:defun describe-principal-mapping @@ -23458,7 +23457,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePrincipalMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-principal-mapping)) (common-lisp:progn (common-lisp:defun describe-query-suggestions-block-list @@ -23476,7 +23475,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeQuerySuggestionsBlockList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-query-suggestions-block-list)) (common-lisp:progn (common-lisp:defun describe-query-suggestions-config @@ -23494,7 +23493,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeQuerySuggestionsConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-query-suggestions-config)) (common-lisp:progn (common-lisp:defun describe-thesaurus @@ -23511,7 +23510,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeThesaurus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-thesaurus)) (common-lisp:progn (common-lisp:defun disassociate-entities-from-experience @@ -23529,7 +23528,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateEntitiesFromExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-entities-from-experience)) (common-lisp:progn (common-lisp:defun disassociate-personas-from-entities @@ -23547,7 +23546,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociatePersonasFromEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-personas-from-entities)) (common-lisp:progn (common-lisp:defun get-query-suggestions @@ -23567,7 +23566,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetQuerySuggestions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-suggestions)) (common-lisp:progn (common-lisp:defun get-snapshots @@ -23587,7 +23586,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-snapshots)) (common-lisp:progn (common-lisp:defun list-access-control-configurations @@ -23606,7 +23605,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccessControlConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-control-configurations)) (common-lisp:progn (common-lisp:defun list-data-source-sync-jobs @@ -23627,7 +23626,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDataSourceSyncJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-source-sync-jobs)) (common-lisp:progn (common-lisp:defun list-data-sources @@ -23645,7 +23644,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sources)) (common-lisp:progn (common-lisp:defun list-entity-personas @@ -23663,7 +23662,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEntityPersonas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entity-personas)) (common-lisp:progn (common-lisp:defun list-experience-entities @@ -23680,7 +23679,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExperienceEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-experience-entities)) (common-lisp:progn (common-lisp:defun list-experiences @@ -23698,7 +23697,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExperiences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-experiences)) (common-lisp:progn (common-lisp:defun list-faqs @@ -23715,7 +23714,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kendra-request aws-sdk/generator/operation::input "POST" "/" "ListFaqs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-faqs)) (common-lisp:progn (common-lisp:defun list-featured-results-sets @@ -23734,7 +23733,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFeaturedResultsSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-featured-results-sets)) (common-lisp:progn (common-lisp:defun list-groups-older-than-ordering-id @@ -23755,7 +23754,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroupsOlderThanOrderingId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups-older-than-ordering-id)) (common-lisp:progn (common-lisp:defun list-indices @@ -23772,7 +23771,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListIndices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-indices)) (common-lisp:progn (common-lisp:defun list-query-suggestions-block-lists @@ -23791,7 +23790,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListQuerySuggestionsBlockLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-query-suggestions-block-lists)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -23808,7 +23807,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-thesauri @@ -23826,7 +23825,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListThesauri")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-thesauri)) (common-lisp:progn (common-lisp:defun put-principal-mapping @@ -23846,7 +23845,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPrincipalMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-principal-mapping)) (common-lisp:progn (common-lisp:defun query @@ -23872,7 +23871,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kendra-request aws-sdk/generator/operation::input "POST" "/" "Query")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query)) (common-lisp:progn (common-lisp:defun retrieve @@ -23894,7 +23893,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kendra-request aws-sdk/generator/operation::input "POST" "/" "Retrieve")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retrieve)) (common-lisp:progn (common-lisp:defun start-data-source-sync-job @@ -23912,7 +23911,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDataSourceSyncJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-data-source-sync-job)) (common-lisp:progn (common-lisp:defun stop-data-source-sync-job @@ -23930,7 +23929,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopDataSourceSyncJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-data-source-sync-job)) (common-lisp:progn (common-lisp:defun submit-feedback @@ -23950,7 +23949,7 @@ aws-sdk/generator/operation::input "POST" "/" "SubmitFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'submit-feedback)) (common-lisp:progn (common-lisp:defun tag-resource @@ -23967,7 +23966,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -23984,7 +23983,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-access-control-configuration @@ -24005,7 +24004,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAccessControlConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-access-control-configuration)) (common-lisp:progn (common-lisp:defun update-data-source @@ -24028,7 +24027,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source)) (common-lisp:progn (common-lisp:defun update-experience @@ -24048,7 +24047,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-experience)) (common-lisp:progn (common-lisp:defun update-featured-results-set @@ -24071,7 +24070,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFeaturedResultsSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-featured-results-set)) (common-lisp:progn (common-lisp:defun update-index @@ -24095,7 +24094,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-index)) (common-lisp:progn (common-lisp:defun update-query-suggestions-block-list @@ -24116,7 +24115,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateQuerySuggestionsBlockList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-query-suggestions-block-list)) (common-lisp:progn (common-lisp:defun update-query-suggestions-config @@ -24141,7 +24140,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateQuerySuggestionsConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-query-suggestions-config)) (common-lisp:progn (common-lisp:defun update-thesaurus @@ -24161,5 +24160,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateThesaurus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-thesaurus)) diff --git a/services/keyspaces/api.lisp b/services/keyspaces/api.lisp index 86b9b6f1..dbbc5f1d 100644 --- a/services/keyspaces/api.lisp +++ b/services/keyspaces/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/keyspaces/api - (:use) - (:nicknames #:aws/keyspaces) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/keyspaces/api (:use) + (:nicknames #:aws/keyspaces) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/keyspaces/api) (common-lisp:progn (common-lisp:define-condition keyspaces-error @@ -3445,7 +3444,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateKeyspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-keyspace)) (common-lisp:progn (common-lisp:defun create-table @@ -3470,7 +3469,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-table)) (common-lisp:progn (common-lisp:defun delete-keyspace @@ -3487,7 +3486,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteKeyspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-keyspace)) (common-lisp:progn (common-lisp:defun delete-table @@ -3504,7 +3503,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-table)) (common-lisp:progn (common-lisp:defun get-keyspace @@ -3521,7 +3520,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetKeyspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-keyspace)) (common-lisp:progn (common-lisp:defun get-table @@ -3537,7 +3536,7 @@ (aws-sdk/generator/shape:make-request-with-input 'keyspaces-request aws-sdk/generator/operation::input "POST" "/" "GetTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table)) (common-lisp:progn (common-lisp:defun get-table-auto-scaling-settings @@ -3555,7 +3554,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTableAutoScalingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table-auto-scaling-settings)) (common-lisp:progn (common-lisp:defun list-keyspaces @@ -3572,7 +3571,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListKeyspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-keyspaces)) (common-lisp:progn (common-lisp:defun list-tables @@ -3590,7 +3589,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tables)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3608,7 +3607,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun restore-table @@ -3635,7 +3634,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-table)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3652,7 +3651,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3669,7 +3668,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-table @@ -3694,5 +3693,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-table)) diff --git a/services/kinesis-video-archived-media/api.lisp b/services/kinesis-video-archived-media/api.lisp index e3f65a7a..340d8666 100644 --- a/services/kinesis-video-archived-media/api.lisp +++ b/services/kinesis-video-archived-media/api.lisp @@ -1,17 +1,14 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kinesis-video-archived-media/api - (:use) - (:nicknames #:aws/kinesis-video-archived-media) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package + #:aws-sdk/services/kinesis-video-archived-media/api (:use) + (:nicknames #:aws/kinesis-video-archived-media) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kinesis-video-archived-media/api) (common-lisp:progn (common-lisp:define-condition kinesis-video-archived-media-error @@ -20,7 +17,7 @@ (common-lisp:export 'kinesis-video-archived-media-error)) (common-lisp:progn (common-lisp:defclass kinesis-video-archived-media-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "kinesis-video-archived-media" :api-version @@ -511,20 +508,19 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-clip-output)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-clip-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-clip-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-dashstreaming-session-urlinput common-lisp:nil ((stream-name :initarg :stream-name :initform @@ -1240,24 +1236,25 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input get-media-for-fragment-list-output)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ( (aws-sdk/generator/shape::input get-media-for-fragment-list-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-media-for-fragment-list-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype hlsdiscontinuity-mode () 'common-lisp:string) (common-lisp:deftype hlsdisplay-fragment-timestamp () 'common-lisp:string) (common-lisp:progn @@ -1694,7 +1691,7 @@ 'kinesis-video-archived-media-request aws-sdk/generator/operation::input "POST" "/getClip" "GetClip") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-clip)) (common-lisp:progn (common-lisp:defun get-dashstreaming-session-url @@ -1718,7 +1715,7 @@ 'kinesis-video-archived-media-request aws-sdk/generator/operation::input "POST" "/getDASHStreamingSessionURL" "GetDASHStreamingSessionURL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dashstreaming-session-url)) (common-lisp:progn (common-lisp:defun get-hlsstreaming-session-url @@ -1742,7 +1739,7 @@ 'kinesis-video-archived-media-request aws-sdk/generator/operation::input "POST" "/getHLSStreamingSessionURL" "GetHLSStreamingSessionURL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-hlsstreaming-session-url)) (common-lisp:progn (common-lisp:defun get-images @@ -1764,7 +1761,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesis-video-archived-media-request aws-sdk/generator/operation::input "POST" "/getImages" "GetImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-images)) (common-lisp:progn (common-lisp:defun get-media-for-fragment-list @@ -1784,7 +1781,7 @@ aws-sdk/generator/operation::input "POST" "/getMediaForFragmentList" "GetMediaForFragmentList") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-media-for-fragment-list)) (common-lisp:progn (common-lisp:defun list-fragments @@ -1804,5 +1801,5 @@ 'kinesis-video-archived-media-request aws-sdk/generator/operation::input "POST" "/listFragments" "ListFragments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fragments)) diff --git a/services/kinesis-video-media/api.lisp b/services/kinesis-video-media/api.lisp index 8d881062..7922b2b0 100644 --- a/services/kinesis-video-media/api.lisp +++ b/services/kinesis-video-media/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kinesis-video-media/api - (:use) - (:nicknames #:aws/kinesis-video-media) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kinesis-video-media/api (:use) + (:nicknames #:aws/kinesis-video-media) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kinesis-video-media/api) (common-lisp:progn (common-lisp:define-condition kinesis-video-media-error @@ -20,7 +19,7 @@ (common-lisp:export 'kinesis-video-media-error)) (common-lisp:progn (common-lisp:defclass kinesis-video-media-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "kinesis-video-media" :api-version "2017-09-30" :host-prefix "kinesisvideo" @@ -136,20 +135,19 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-media-output)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-media-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-media-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:define-condition invalid-argument-exception (kinesis-video-media-error) @@ -280,5 +278,5 @@ 'kinesis-video-media-request aws-sdk/generator/operation::input "POST" "/getMedia" "GetMedia") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-media)) diff --git a/services/kinesis-video-signaling/api.lisp b/services/kinesis-video-signaling/api.lisp index 54ab788c..9eda6497 100644 --- a/services/kinesis-video-signaling/api.lisp +++ b/services/kinesis-video-signaling/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kinesis-video-signaling/api - (:use) - (:nicknames #:aws/kinesis-video-signaling) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kinesis-video-signaling/api + (:use) (:nicknames #:aws/kinesis-video-signaling) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kinesis-video-signaling/api) (common-lisp:progn (common-lisp:define-condition kinesis-video-signaling-error @@ -20,7 +19,7 @@ (common-lisp:export 'kinesis-video-signaling-error)) (common-lisp:progn (common-lisp:defclass kinesis-video-signaling-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "kinesis-video-signaling" :api-version "2019-12-04" :host-prefix "kinesisvideo" @@ -413,7 +412,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesis-video-signaling-request aws-sdk/generator/operation::input "POST" "/v1/get-ice-server-config" "GetIceServerConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ice-server-config)) (common-lisp:progn (common-lisp:defun send-alexa-offer-to-master @@ -432,5 +431,5 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesis-video-signaling-request aws-sdk/generator/operation::input "POST" "/v1/send-alexa-offer-to-master" "SendAlexaOfferToMaster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-alexa-offer-to-master)) diff --git a/services/kinesis-video-webrtc-storage/api.lisp b/services/kinesis-video-webrtc-storage/api.lisp index 4dae8301..ab40cb35 100644 --- a/services/kinesis-video-webrtc-storage/api.lisp +++ b/services/kinesis-video-webrtc-storage/api.lisp @@ -1,17 +1,14 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kinesis-video-webrtc-storage/api - (:use) - (:nicknames #:aws/kinesis-video-webrtc-storage) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package + #:aws-sdk/services/kinesis-video-webrtc-storage/api (:use) + (:nicknames #:aws/kinesis-video-webrtc-storage) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kinesis-video-webrtc-storage/api) (common-lisp:progn (common-lisp:define-condition kinesis-video-webrtc-storage-error @@ -20,7 +17,7 @@ (common-lisp:export 'kinesis-video-webrtc-storage-error)) (common-lisp:progn (common-lisp:defclass kinesis-video-webrtc-storage-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "kinesis-video-webrtc-storage" :api-version @@ -119,5 +116,5 @@ 'kinesis-video-webrtc-storage-request aws-sdk/generator/operation::input "POST" "/joinStorageSession" "JoinStorageSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'join-storage-session)) diff --git a/services/kinesis/api.lisp b/services/kinesis/api.lisp index 256a7537..2d5da9ca 100644 --- a/services/kinesis/api.lisp +++ b/services/kinesis/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kinesis/api - (:use) - (:nicknames #:aws/kinesis) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kinesis/api (:use) + (:nicknames #:aws/kinesis) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kinesis/api) (common-lisp:progn (common-lisp:define-condition kinesis-error @@ -5051,7 +5050,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-stream)) (common-lisp:progn (common-lisp:defun create-stream @@ -5070,7 +5069,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stream)) (common-lisp:progn (common-lisp:defun decrease-stream-retention-period @@ -5090,7 +5089,7 @@ aws-sdk/generator/operation::input "POST" "/" "DecreaseStreamRetentionPeriod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'decrease-stream-retention-period)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -5107,7 +5106,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-stream @@ -5126,7 +5125,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stream)) (common-lisp:progn (common-lisp:defun deregister-stream-consumer @@ -5144,7 +5143,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterStreamConsumer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-stream-consumer)) (common-lisp:progn (common-lisp:defun describe-limits () @@ -5172,7 +5171,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stream)) (common-lisp:progn (common-lisp:defun describe-stream-consumer @@ -5190,7 +5189,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStreamConsumer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stream-consumer)) (common-lisp:progn (common-lisp:defun describe-stream-summary @@ -5207,7 +5206,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStreamSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stream-summary)) (common-lisp:progn (common-lisp:defun disable-enhanced-monitoring @@ -5227,7 +5226,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableEnhancedMonitoring")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-enhanced-monitoring)) (common-lisp:progn (common-lisp:defun enable-enhanced-monitoring @@ -5246,7 +5245,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableEnhancedMonitoring")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-enhanced-monitoring)) (common-lisp:progn (common-lisp:defun get-records @@ -5264,7 +5263,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-records)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -5281,7 +5280,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun get-shard-iterator @@ -5301,7 +5300,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetShardIterator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-shard-iterator)) (common-lisp:progn (common-lisp:defun increase-stream-retention-period @@ -5321,7 +5320,7 @@ aws-sdk/generator/operation::input "POST" "/" "IncreaseStreamRetentionPeriod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'increase-stream-retention-period)) (common-lisp:progn (common-lisp:defun list-shards @@ -5342,7 +5341,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListShards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-shards)) (common-lisp:progn (common-lisp:defun list-stream-consumers @@ -5362,7 +5361,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStreamConsumers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stream-consumers)) (common-lisp:progn (common-lisp:defun list-streams @@ -5381,7 +5380,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-streams)) (common-lisp:progn (common-lisp:defun list-tags-for-stream @@ -5401,7 +5400,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-stream)) (common-lisp:progn (common-lisp:defun merge-shards @@ -5421,7 +5420,7 @@ aws-sdk/generator/operation::input "POST" "/" "MergeShards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'merge-shards)) (common-lisp:progn (common-lisp:defun put-record @@ -5441,7 +5440,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-record)) (common-lisp:progn (common-lisp:defun put-records @@ -5458,7 +5457,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-records)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -5475,7 +5474,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun register-stream-consumer @@ -5492,7 +5491,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterStreamConsumer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-stream-consumer)) (common-lisp:progn (common-lisp:defun remove-tags-from-stream @@ -5510,7 +5509,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-stream)) (common-lisp:progn (common-lisp:defun split-shard @@ -5530,7 +5529,7 @@ aws-sdk/generator/operation::input "POST" "/" "SplitShard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'split-shard)) (common-lisp:progn (common-lisp:defun start-stream-encryption @@ -5549,7 +5548,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartStreamEncryption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-stream-encryption)) (common-lisp:progn (common-lisp:defun stop-stream-encryption @@ -5568,7 +5567,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopStreamEncryption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-stream-encryption)) (common-lisp:progn (common-lisp:defun subscribe-to-shard @@ -5586,7 +5585,7 @@ aws-sdk/generator/operation::input "POST" "/" "SubscribeToShard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'subscribe-to-shard)) (common-lisp:progn (common-lisp:defun update-shard-count @@ -5606,7 +5605,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateShardCount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-shard-count)) (common-lisp:progn (common-lisp:defun update-stream-mode @@ -5623,5 +5622,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStreamMode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stream-mode)) diff --git a/services/kinesisanalytics/api.lisp b/services/kinesisanalytics/api.lisp index e9de18fb..919af58f 100644 --- a/services/kinesisanalytics/api.lisp +++ b/services/kinesisanalytics/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kinesisanalytics/api - (:use) - (:nicknames #:aws/kinesisanalytics) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kinesisanalytics/api (:use) + (:nicknames #:aws/kinesisanalytics) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kinesisanalytics/api) (common-lisp:progn (common-lisp:define-condition kinesisanalytics-error @@ -5808,7 +5807,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationCloudWatchLoggingOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-cloud-watch-logging-option)) (common-lisp:progn (common-lisp:defun add-application-input @@ -5827,7 +5826,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-input)) (common-lisp:progn (common-lisp:defun add-application-input-processing-configuration @@ -5848,7 +5847,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationInputProcessingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-input-processing-configuration)) (common-lisp:progn (common-lisp:defun add-application-output @@ -5867,7 +5866,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-output)) (common-lisp:progn (common-lisp:defun add-application-reference-data-source @@ -5887,7 +5886,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationReferenceDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-reference-data-source)) (common-lisp:progn (common-lisp:defun create-application @@ -5907,7 +5906,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun delete-application @@ -5924,7 +5923,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-application-cloud-watch-logging-option @@ -5945,7 +5944,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationCloudWatchLoggingOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-cloud-watch-logging-option)) (common-lisp:progn (common-lisp:defun delete-application-input-processing-configuration @@ -5965,7 +5964,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationInputProcessingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-input-processing-configuration)) (common-lisp:progn (common-lisp:defun delete-application-output @@ -5985,7 +5984,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-output)) (common-lisp:progn (common-lisp:defun delete-application-reference-data-source @@ -6005,7 +6004,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationReferenceDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-reference-data-source)) (common-lisp:progn (common-lisp:defun describe-application @@ -6021,7 +6020,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "DescribeApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application)) (common-lisp:progn (common-lisp:defun discover-input-schema @@ -6042,7 +6041,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "DiscoverInputSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'discover-input-schema)) (common-lisp:progn (common-lisp:defun list-applications @@ -6059,7 +6058,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6075,7 +6074,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-application @@ -6092,7 +6091,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "StartApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-application)) (common-lisp:progn (common-lisp:defun stop-application @@ -6108,7 +6107,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "StopApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-application)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6124,7 +6123,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6140,7 +6139,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -6159,5 +6158,5 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalytics-request aws-sdk/generator/operation::input "POST" "/" "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) diff --git a/services/kinesisanalyticsv2/api.lisp b/services/kinesisanalyticsv2/api.lisp index 98c9e02f..06cc4788 100644 --- a/services/kinesisanalyticsv2/api.lisp +++ b/services/kinesisanalyticsv2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kinesisanalyticsv2/api - (:use) - (:nicknames #:aws/kinesisanalyticsv2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kinesisanalyticsv2/api (:use) + (:nicknames #:aws/kinesisanalyticsv2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kinesisanalyticsv2/api) (common-lisp:progn (common-lisp:define-condition kinesisanalyticsv2-error @@ -12005,7 +12004,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationCloudWatchLoggingOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-cloud-watch-logging-option)) (common-lisp:progn (common-lisp:defun add-application-input @@ -12024,7 +12023,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-input)) (common-lisp:progn (common-lisp:defun add-application-input-processing-configuration @@ -12045,7 +12044,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationInputProcessingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-input-processing-configuration)) (common-lisp:progn (common-lisp:defun add-application-output @@ -12064,7 +12063,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-output)) (common-lisp:progn (common-lisp:defun add-application-reference-data-source @@ -12084,7 +12083,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationReferenceDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-reference-data-source)) (common-lisp:progn (common-lisp:defun add-application-vpc-configuration @@ -12105,7 +12104,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "AddApplicationVpcConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-application-vpc-configuration)) (common-lisp:progn (common-lisp:defun create-application @@ -12127,7 +12126,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-application-presigned-url @@ -12147,7 +12146,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "CreateApplicationPresignedUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application-presigned-url)) (common-lisp:progn (common-lisp:defun create-application-snapshot @@ -12164,7 +12163,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "CreateApplicationSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application-snapshot)) (common-lisp:progn (common-lisp:defun delete-application @@ -12181,7 +12180,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-application-cloud-watch-logging-option @@ -12202,7 +12201,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationCloudWatchLoggingOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-cloud-watch-logging-option)) (common-lisp:progn (common-lisp:defun delete-application-input-processing-configuration @@ -12222,7 +12221,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationInputProcessingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-input-processing-configuration)) (common-lisp:progn (common-lisp:defun delete-application-output @@ -12242,7 +12241,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-output)) (common-lisp:progn (common-lisp:defun delete-application-reference-data-source @@ -12262,7 +12261,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationReferenceDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-reference-data-source)) (common-lisp:progn (common-lisp:defun delete-application-snapshot @@ -12282,7 +12281,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-snapshot)) (common-lisp:progn (common-lisp:defun delete-application-vpc-configuration @@ -12303,7 +12302,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationVpcConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-vpc-configuration)) (common-lisp:progn (common-lisp:defun describe-application @@ -12321,7 +12320,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application)) (common-lisp:progn (common-lisp:defun describe-application-snapshot @@ -12338,7 +12337,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeApplicationSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-snapshot)) (common-lisp:progn (common-lisp:defun describe-application-version @@ -12356,7 +12355,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DescribeApplicationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-version)) (common-lisp:progn (common-lisp:defun discover-input-schema @@ -12377,7 +12376,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "DiscoverInputSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'discover-input-schema)) (common-lisp:progn (common-lisp:defun list-application-snapshots @@ -12395,7 +12394,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "ListApplicationSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-snapshots)) (common-lisp:progn (common-lisp:defun list-application-versions @@ -12413,7 +12412,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "ListApplicationVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-versions)) (common-lisp:progn (common-lisp:defun list-applications @@ -12429,7 +12428,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12445,7 +12444,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun rollback-application @@ -12463,7 +12462,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "RollbackApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'rollback-application)) (common-lisp:progn (common-lisp:defun start-application @@ -12480,7 +12479,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "StartApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-application)) (common-lisp:progn (common-lisp:defun stop-application @@ -12496,7 +12495,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "StopApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-application)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12512,7 +12511,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12528,7 +12527,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -12552,7 +12551,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-application-maintenance-configuration @@ -12572,5 +12571,5 @@ (aws-sdk/generator/shape:make-request-with-input 'kinesisanalyticsv2-request aws-sdk/generator/operation::input "POST" "/" "UpdateApplicationMaintenanceConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application-maintenance-configuration)) diff --git a/services/kinesisvideo/api.lisp b/services/kinesisvideo/api.lisp index 3804fae6..495b3f74 100644 --- a/services/kinesisvideo/api.lisp +++ b/services/kinesisvideo/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kinesisvideo/api - (:use) - (:nicknames #:aws/kinesisvideo) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kinesisvideo/api (:use) + (:nicknames #:aws/kinesisvideo) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kinesisvideo/api) (common-lisp:progn (common-lisp:define-condition kinesisvideo-error @@ -20,7 +19,7 @@ (common-lisp:export 'kinesisvideo-error)) (common-lisp:progn (common-lisp:defclass kinesisvideo-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "kinesisvideo" :api-version "2017-09-30" :host-prefix "kinesisvideo" :signing-name @@ -5098,7 +5097,7 @@ "POST" "/createSignalingChannel" "CreateSignalingChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-signaling-channel)) (common-lisp:progn (common-lisp:defun create-stream @@ -5118,7 +5117,7 @@ aws-sdk/generator/operation::input "POST" "/createStream" "CreateStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stream)) (common-lisp:progn (common-lisp:defun delete-edge-configuration @@ -5136,7 +5135,7 @@ "POST" "/deleteEdgeConfiguration" "DeleteEdgeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-edge-configuration)) (common-lisp:progn (common-lisp:defun delete-signaling-channel @@ -5154,7 +5153,7 @@ "POST" "/deleteSignalingChannel" "DeleteSignalingChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-signaling-channel)) (common-lisp:progn (common-lisp:defun delete-stream @@ -5171,7 +5170,7 @@ aws-sdk/generator/operation::input "POST" "/deleteStream" "DeleteStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stream)) (common-lisp:progn (common-lisp:defun describe-edge-configuration @@ -5190,7 +5189,7 @@ "POST" "/describeEdgeConfiguration" "DescribeEdgeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-edge-configuration)) (common-lisp:progn (common-lisp:defun describe-image-generation-configuration @@ -5209,7 +5208,7 @@ "POST" "/describeImageGenerationConfiguration" "DescribeImageGenerationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image-generation-configuration)) (common-lisp:progn (common-lisp:defun describe-mapped-resource-configuration @@ -5230,7 +5229,7 @@ "POST" "/describeMappedResourceConfiguration" "DescribeMappedResourceConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-mapped-resource-configuration)) (common-lisp:progn (common-lisp:defun describe-media-storage-configuration @@ -5249,7 +5248,7 @@ "POST" "/describeMediaStorageConfiguration" "DescribeMediaStorageConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-media-storage-configuration)) (common-lisp:progn (common-lisp:defun describe-notification-configuration @@ -5268,7 +5267,7 @@ "POST" "/describeNotificationConfiguration" "DescribeNotificationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-notification-configuration)) (common-lisp:progn (common-lisp:defun describe-signaling-channel @@ -5286,7 +5285,7 @@ "POST" "/describeSignalingChannel" "DescribeSignalingChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-signaling-channel)) (common-lisp:progn (common-lisp:defun describe-stream @@ -5304,7 +5303,7 @@ "POST" "/describeStream" "DescribeStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stream)) (common-lisp:progn (common-lisp:defun get-data-endpoint @@ -5322,7 +5321,7 @@ "POST" "/getDataEndpoint" "GetDataEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-endpoint)) (common-lisp:progn (common-lisp:defun get-signaling-channel-endpoint @@ -5344,7 +5343,7 @@ "POST" "/getSignalingChannelEndpoint" "GetSignalingChannelEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-signaling-channel-endpoint)) (common-lisp:progn (common-lisp:defun list-edge-agent-configurations @@ -5364,7 +5363,7 @@ "POST" "/listEdgeAgentConfigurations" "ListEdgeAgentConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-edge-agent-configurations)) (common-lisp:progn (common-lisp:defun list-signaling-channels @@ -5384,7 +5383,7 @@ "POST" "/listSignalingChannels" "ListSignalingChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-signaling-channels)) (common-lisp:progn (common-lisp:defun list-streams @@ -5403,7 +5402,7 @@ aws-sdk/generator/operation::input "POST" "/listStreams" "ListStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-streams)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5421,7 +5420,7 @@ "POST" "/ListTagsForResource" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-tags-for-stream @@ -5440,7 +5439,7 @@ "POST" "/listTagsForStream" "ListTagsForStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-stream)) (common-lisp:progn (common-lisp:defun start-edge-configuration-update @@ -5460,7 +5459,7 @@ "POST" "/startEdgeConfigurationUpdate" "StartEdgeConfigurationUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-edge-configuration-update)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5477,7 +5476,7 @@ aws-sdk/generator/operation::input "POST" "/TagResource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun tag-stream @@ -5494,7 +5493,7 @@ aws-sdk/generator/operation::input "POST" "/tagStream" "TagStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-stream)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5511,7 +5510,7 @@ aws-sdk/generator/operation::input "POST" "/UntagResource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun untag-stream @@ -5529,7 +5528,7 @@ aws-sdk/generator/operation::input "POST" "/untagStream" "UntagStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-stream)) (common-lisp:progn (common-lisp:defun update-data-retention @@ -5550,7 +5549,7 @@ "POST" "/updateDataRetention" "UpdateDataRetention")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-retention)) (common-lisp:progn (common-lisp:defun update-image-generation-configuration @@ -5572,7 +5571,7 @@ "POST" "/updateImageGenerationConfiguration" "UpdateImageGenerationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-image-generation-configuration)) (common-lisp:progn (common-lisp:defun update-media-storage-configuration @@ -5592,7 +5591,7 @@ "POST" "/updateMediaStorageConfiguration" "UpdateMediaStorageConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-media-storage-configuration)) (common-lisp:progn (common-lisp:defun update-notification-configuration @@ -5613,7 +5612,7 @@ "POST" "/updateNotificationConfiguration" "UpdateNotificationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-notification-configuration)) (common-lisp:progn (common-lisp:defun update-signaling-channel @@ -5634,7 +5633,7 @@ "POST" "/updateSignalingChannel" "UpdateSignalingChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-signaling-channel)) (common-lisp:progn (common-lisp:defun update-stream @@ -5654,5 +5653,5 @@ aws-sdk/generator/operation::input "POST" "/updateStream" "UpdateStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stream)) diff --git a/services/kms/api.lisp b/services/kms/api.lisp index 345fd326..ed87aa3a 100644 --- a/services/kms/api.lisp +++ b/services/kms/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/kms/api - (:use) - (:nicknames #:aws/kms) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/kms/api (:use) + (:nicknames #:aws/kms) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/kms/api) (common-lisp:progn (common-lisp:define-condition kms-error @@ -7678,7 +7677,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelKeyDeletion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-key-deletion)) (common-lisp:progn (common-lisp:defun connect-custom-key-store @@ -7695,7 +7694,7 @@ aws-sdk/generator/operation::input "POST" "/" "ConnectCustomKeyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'connect-custom-key-store)) (common-lisp:progn (common-lisp:defun create-alias @@ -7712,7 +7711,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alias)) (common-lisp:progn (common-lisp:defun create-custom-key-store @@ -7740,7 +7739,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCustomKeyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-key-store)) (common-lisp:progn (common-lisp:defun create-grant @@ -7761,7 +7760,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-grant)) (common-lisp:progn (common-lisp:defun create-key @@ -7784,7 +7783,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-key)) (common-lisp:progn (common-lisp:defun decrypt @@ -7804,7 +7803,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kms-request aws-sdk/generator/operation::input "POST" "/" "Decrypt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'decrypt)) (common-lisp:progn (common-lisp:defun delete-alias @@ -7821,7 +7820,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alias)) (common-lisp:progn (common-lisp:defun delete-custom-key-store @@ -7838,7 +7837,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCustomKeyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-key-store)) (common-lisp:progn (common-lisp:defun delete-imported-key-material @@ -7856,7 +7855,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteImportedKeyMaterial")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-imported-key-material)) (common-lisp:progn (common-lisp:defun describe-custom-key-stores @@ -7877,7 +7876,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCustomKeyStores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-key-stores)) (common-lisp:progn (common-lisp:defun describe-key @@ -7894,7 +7893,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-key)) (common-lisp:progn (common-lisp:defun disable-key @@ -7911,7 +7910,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-key)) (common-lisp:progn (common-lisp:defun disable-key-rotation @@ -7928,7 +7927,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableKeyRotation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-key-rotation)) (common-lisp:progn (common-lisp:defun disconnect-custom-key-store @@ -7946,7 +7945,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisconnectCustomKeyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disconnect-custom-key-store)) (common-lisp:progn (common-lisp:defun enable-key @@ -7963,7 +7962,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-key)) (common-lisp:progn (common-lisp:defun enable-key-rotation @@ -7980,7 +7979,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableKeyRotation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-key-rotation)) (common-lisp:progn (common-lisp:defun encrypt @@ -7999,7 +7998,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kms-request aws-sdk/generator/operation::input "POST" "/" "Encrypt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'encrypt)) (common-lisp:progn (common-lisp:defun generate-data-key @@ -8019,7 +8018,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateDataKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-data-key)) (common-lisp:progn (common-lisp:defun generate-data-key-pair @@ -8039,7 +8038,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateDataKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-data-key-pair)) (common-lisp:progn (common-lisp:defun generate-data-key-pair-without-plaintext @@ -8060,7 +8059,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateDataKeyPairWithoutPlaintext")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-data-key-pair-without-plaintext)) (common-lisp:progn (common-lisp:defun generate-data-key-without-plaintext @@ -8081,7 +8080,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateDataKeyWithoutPlaintext")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-data-key-without-plaintext)) (common-lisp:progn (common-lisp:defun generate-mac @@ -8100,7 +8099,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateMac")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-mac)) (common-lisp:progn (common-lisp:defun generate-random @@ -8119,7 +8118,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateRandom")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-random)) (common-lisp:progn (common-lisp:defun get-key-policy @@ -8136,7 +8135,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetKeyPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-key-policy)) (common-lisp:progn (common-lisp:defun get-key-rotation-status @@ -8153,7 +8152,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetKeyRotationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-key-rotation-status)) (common-lisp:progn (common-lisp:defun get-parameters-for-import @@ -8173,7 +8172,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetParametersForImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-parameters-for-import)) (common-lisp:progn (common-lisp:defun get-public-key @@ -8190,7 +8189,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPublicKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-public-key)) (common-lisp:progn (common-lisp:defun import-key-material @@ -8210,7 +8209,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportKeyMaterial")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-key-material)) (common-lisp:progn (common-lisp:defun list-aliases @@ -8227,7 +8226,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-aliases)) (common-lisp:progn (common-lisp:defun list-grants @@ -8246,7 +8245,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGrants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-grants)) (common-lisp:progn (common-lisp:defun list-key-policies @@ -8263,7 +8262,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListKeyPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-key-policies)) (common-lisp:progn (common-lisp:defun list-keys @@ -8279,7 +8278,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kms-request aws-sdk/generator/operation::input "POST" "/" "ListKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-keys)) (common-lisp:progn (common-lisp:defun list-resource-tags @@ -8296,7 +8295,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-tags)) (common-lisp:progn (common-lisp:defun list-retirable-grants @@ -8314,7 +8313,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRetirableGrants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-retirable-grants)) (common-lisp:progn (common-lisp:defun put-key-policy @@ -8334,7 +8333,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutKeyPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-key-policy)) (common-lisp:progn (common-lisp:defun re-encrypt @@ -8358,7 +8357,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReEncrypt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 're-encrypt)) (common-lisp:progn (common-lisp:defun replicate-key @@ -8378,7 +8377,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplicateKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'replicate-key)) (common-lisp:progn (common-lisp:defun retire-grant @@ -8396,7 +8395,7 @@ aws-sdk/generator/operation::input "POST" "/" "RetireGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retire-grant)) (common-lisp:progn (common-lisp:defun revoke-grant @@ -8413,7 +8412,7 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-grant)) (common-lisp:progn (common-lisp:defun schedule-key-deletion @@ -8430,7 +8429,7 @@ aws-sdk/generator/operation::input "POST" "/" "ScheduleKeyDeletion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'schedule-key-deletion)) (common-lisp:progn (common-lisp:defun sign @@ -8449,7 +8448,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kms-request aws-sdk/generator/operation::input "POST" "/" "Sign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'sign)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8466,7 +8465,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8483,7 +8482,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-alias @@ -8500,7 +8499,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-alias)) (common-lisp:progn (common-lisp:defun update-custom-key-store @@ -8526,7 +8525,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCustomKeyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-custom-key-store)) (common-lisp:progn (common-lisp:defun update-key-description @@ -8543,7 +8542,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateKeyDescription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-key-description)) (common-lisp:progn (common-lisp:defun update-primary-region @@ -8560,7 +8559,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePrimaryRegion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-primary-region)) (common-lisp:progn (common-lisp:defun verify @@ -8579,7 +8578,7 @@ (aws-sdk/generator/shape:make-request-with-input 'kms-request aws-sdk/generator/operation::input "POST" "/" "Verify")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify)) (common-lisp:progn (common-lisp:defun verify-mac @@ -8599,5 +8598,5 @@ aws-sdk/generator/operation::input "POST" "/" "VerifyMac")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-mac)) diff --git a/services/lakeformation/api.lisp b/services/lakeformation/api.lisp index fece0902..9bb89738 100644 --- a/services/lakeformation/api.lisp +++ b/services/lakeformation/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/lakeformation/api - (:use) - (:nicknames #:aws/lakeformation) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/lakeformation/api (:use) + (:nicknames #:aws/lakeformation) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/lakeformation/api) (common-lisp:progn (common-lisp:define-condition lakeformation-error @@ -20,7 +19,7 @@ (common-lisp:export 'lakeformation-error)) (common-lisp:progn (common-lisp:defclass lakeformation-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "lakeformation" :api-version "2017-03-31" :host-prefix "lakeformation" :signing-name @@ -4703,7 +4702,13 @@ ( (aws-sdk/generator/shape::input get-work-unit-results-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'result-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'result-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-work-unit-results-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-work-units-request common-lisp:nil ((next-token :initarg :next-token :initform @@ -9588,7 +9593,7 @@ "POST" "/AddLFTagsToResource" "AddLFTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-lftags-to-resource)) (common-lisp:progn (common-lisp:defun assume-decorated-role-with-saml @@ -9610,7 +9615,7 @@ "POST" "/AssumeDecoratedRoleWithSAML" "AssumeDecoratedRoleWithSAML")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'assume-decorated-role-with-saml)) (common-lisp:progn (common-lisp:defun batch-grant-permissions @@ -9628,7 +9633,7 @@ "POST" "/BatchGrantPermissions" "BatchGrantPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-grant-permissions)) (common-lisp:progn (common-lisp:defun batch-revoke-permissions @@ -9646,7 +9651,7 @@ "POST" "/BatchRevokePermissions" "BatchRevokePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-revoke-permissions)) (common-lisp:progn (common-lisp:defun cancel-transaction @@ -9664,7 +9669,7 @@ "POST" "/CancelTransaction" "CancelTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-transaction)) (common-lisp:progn (common-lisp:defun commit-transaction @@ -9682,7 +9687,7 @@ "POST" "/CommitTransaction" "CommitTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'commit-transaction)) (common-lisp:progn (common-lisp:defun create-data-cells-filter @@ -9700,7 +9705,7 @@ "POST" "/CreateDataCellsFilter" "CreateDataCellsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-cells-filter)) (common-lisp:progn (common-lisp:defun create-lftag @@ -9717,7 +9722,7 @@ aws-sdk/generator/operation::input "POST" "/CreateLFTag" "CreateLFTag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lftag)) (common-lisp:progn (common-lisp:defun create-lake-formation-identity-center-configuration @@ -9738,7 +9743,7 @@ "POST" "/CreateLakeFormationIdentityCenterConfiguration" "CreateLakeFormationIdentityCenterConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lake-formation-identity-center-configuration)) (common-lisp:progn (common-lisp:defun create-lake-formation-opt-in @@ -9757,7 +9762,7 @@ "POST" "/CreateLakeFormationOptIn" "CreateLakeFormationOptIn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lake-formation-opt-in)) (common-lisp:progn (common-lisp:defun delete-data-cells-filter @@ -9777,7 +9782,7 @@ "POST" "/DeleteDataCellsFilter" "DeleteDataCellsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-cells-filter)) (common-lisp:progn (common-lisp:defun delete-lftag @@ -9794,7 +9799,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteLFTag" "DeleteLFTag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lftag)) (common-lisp:progn (common-lisp:defun delete-lake-formation-identity-center-configuration @@ -9813,7 +9818,7 @@ "POST" "/DeleteLakeFormationIdentityCenterConfiguration" "DeleteLakeFormationIdentityCenterConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lake-formation-identity-center-configuration)) (common-lisp:progn (common-lisp:defun delete-lake-formation-opt-in @@ -9832,7 +9837,7 @@ "POST" "/DeleteLakeFormationOptIn" "DeleteLakeFormationOptIn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lake-formation-opt-in)) (common-lisp:progn (common-lisp:defun delete-objects-on-cancel @@ -9853,7 +9858,7 @@ "POST" "/DeleteObjectsOnCancel" "DeleteObjectsOnCancel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-objects-on-cancel)) (common-lisp:progn (common-lisp:defun deregister-resource @@ -9871,7 +9876,7 @@ "POST" "/DeregisterResource" "DeregisterResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-resource)) (common-lisp:progn (common-lisp:defun describe-lake-formation-identity-center-configuration @@ -9890,7 +9895,7 @@ "POST" "/DescribeLakeFormationIdentityCenterConfiguration" "DescribeLakeFormationIdentityCenterConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-lake-formation-identity-center-configuration)) (common-lisp:progn (common-lisp:defun describe-resource @@ -9908,7 +9913,7 @@ "POST" "/DescribeResource" "DescribeResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource)) (common-lisp:progn (common-lisp:defun describe-transaction @@ -9926,7 +9931,7 @@ "POST" "/DescribeTransaction" "DescribeTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-transaction)) (common-lisp:progn (common-lisp:defun extend-transaction @@ -9944,7 +9949,7 @@ "POST" "/ExtendTransaction" "ExtendTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'extend-transaction)) (common-lisp:progn (common-lisp:defun get-data-cells-filter @@ -9964,7 +9969,7 @@ "POST" "/GetDataCellsFilter" "GetDataCellsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-cells-filter)) (common-lisp:progn (common-lisp:defun get-data-lake-settings @@ -9982,7 +9987,7 @@ "POST" "/GetDataLakeSettings" "GetDataLakeSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-lake-settings)) (common-lisp:progn (common-lisp:defun get-effective-permissions-for-path @@ -10003,7 +10008,7 @@ "POST" "/GetEffectivePermissionsForPath" "GetEffectivePermissionsForPath")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-effective-permissions-for-path)) (common-lisp:progn (common-lisp:defun get-lftag @@ -10020,7 +10025,7 @@ aws-sdk/generator/operation::input "POST" "/GetLFTag" "GetLFTag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lftag)) (common-lisp:progn (common-lisp:defun get-query-state @@ -10037,7 +10042,7 @@ aws-sdk/generator/operation::input "POST" "/GetQueryState" "GetQueryState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-state)) (common-lisp:progn (common-lisp:defun get-query-statistics @@ -10055,7 +10060,7 @@ "POST" "/GetQueryStatistics" "GetQueryStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-statistics)) (common-lisp:progn (common-lisp:defun get-resource-lftags @@ -10074,7 +10079,7 @@ "POST" "/GetResourceLFTags" "GetResourceLFTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-lftags)) (common-lisp:progn (common-lisp:defun get-table-objects @@ -10096,7 +10101,7 @@ "POST" "/GetTableObjects" "GetTableObjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table-objects)) (common-lisp:progn (common-lisp:defun get-temporary-glue-partition-credentials @@ -10118,7 +10123,7 @@ "POST" "/GetTemporaryGluePartitionCredentials" "GetTemporaryGluePartitionCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-temporary-glue-partition-credentials)) (common-lisp:progn (common-lisp:defun get-temporary-glue-table-credentials @@ -10141,7 +10146,7 @@ "POST" "/GetTemporaryGlueTableCredentials" "GetTemporaryGlueTableCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-temporary-glue-table-credentials)) (common-lisp:progn (common-lisp:defun get-work-unit-results @@ -10161,7 +10166,7 @@ "/GetWorkUnitResults" "GetWorkUnitResults") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-work-unit-results)) (common-lisp:progn (common-lisp:defun get-work-units @@ -10178,7 +10183,7 @@ aws-sdk/generator/operation::input "POST" "/GetWorkUnits" "GetWorkUnits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-work-units)) (common-lisp:progn (common-lisp:defun grant-permissions @@ -10199,7 +10204,7 @@ "POST" "/GrantPermissions" "GrantPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'grant-permissions)) (common-lisp:progn (common-lisp:defun list-data-cells-filter @@ -10217,7 +10222,7 @@ "POST" "/ListDataCellsFilter" "ListDataCellsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-cells-filter)) (common-lisp:progn (common-lisp:defun list-lftags @@ -10237,7 +10242,7 @@ aws-sdk/generator/operation::input "POST" "/ListLFTags" "ListLFTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lftags)) (common-lisp:progn (common-lisp:defun list-lake-formation-opt-ins @@ -10258,7 +10263,7 @@ "POST" "/ListLakeFormationOptIns" "ListLakeFormationOptIns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lake-formation-opt-ins)) (common-lisp:progn (common-lisp:defun list-permissions @@ -10279,7 +10284,7 @@ "POST" "/ListPermissions" "ListPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permissions)) (common-lisp:progn (common-lisp:defun list-resources @@ -10298,7 +10303,7 @@ aws-sdk/generator/operation::input "POST" "/ListResources" "ListResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources)) (common-lisp:progn (common-lisp:defun list-table-storage-optimizers @@ -10320,7 +10325,7 @@ "POST" "/ListTableStorageOptimizers" "ListTableStorageOptimizers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-table-storage-optimizers)) (common-lisp:progn (common-lisp:defun list-transactions @@ -10340,7 +10345,7 @@ "POST" "/ListTransactions" "ListTransactions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-transactions)) (common-lisp:progn (common-lisp:defun put-data-lake-settings @@ -10358,7 +10363,7 @@ "POST" "/PutDataLakeSettings" "PutDataLakeSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-data-lake-settings)) (common-lisp:progn (common-lisp:defun register-resource @@ -10379,7 +10384,7 @@ "POST" "/RegisterResource" "RegisterResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-resource)) (common-lisp:progn (common-lisp:defun remove-lftags-from-resource @@ -10398,7 +10403,7 @@ "POST" "/RemoveLFTagsFromResource" "RemoveLFTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-lftags-from-resource)) (common-lisp:progn (common-lisp:defun revoke-permissions @@ -10419,7 +10424,7 @@ "POST" "/RevokePermissions" "RevokePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-permissions)) (common-lisp:progn (common-lisp:defun search-databases-by-lftags @@ -10440,7 +10445,7 @@ "POST" "/SearchDatabasesByLFTags" "SearchDatabasesByLFTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-databases-by-lftags)) (common-lisp:progn (common-lisp:defun search-tables-by-lftags @@ -10460,7 +10465,7 @@ "POST" "/SearchTablesByLFTags" "SearchTablesByLFTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-tables-by-lftags)) (common-lisp:progn (common-lisp:defun start-query-planning @@ -10479,7 +10484,7 @@ "POST" "/StartQueryPlanning" "StartQueryPlanning")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-query-planning)) (common-lisp:progn (common-lisp:defun start-transaction @@ -10497,7 +10502,7 @@ "POST" "/StartTransaction" "StartTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-transaction)) (common-lisp:progn (common-lisp:defun update-data-cells-filter @@ -10515,7 +10520,7 @@ "POST" "/UpdateDataCellsFilter" "UpdateDataCellsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-cells-filter)) (common-lisp:progn (common-lisp:defun update-lftag @@ -10535,7 +10540,7 @@ aws-sdk/generator/operation::input "POST" "/UpdateLFTag" "UpdateLFTag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-lftag)) (common-lisp:progn (common-lisp:defun update-lake-formation-identity-center-configuration @@ -10556,7 +10561,7 @@ "POST" "/UpdateLakeFormationIdentityCenterConfiguration" "UpdateLakeFormationIdentityCenterConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-lake-formation-identity-center-configuration)) (common-lisp:progn (common-lisp:defun update-resource @@ -10577,7 +10582,7 @@ "POST" "/UpdateResource" "UpdateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource)) (common-lisp:progn (common-lisp:defun update-table-objects @@ -10598,7 +10603,7 @@ "POST" "/UpdateTableObjects" "UpdateTableObjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-table-objects)) (common-lisp:progn (common-lisp:defun update-table-storage-optimizer @@ -10620,5 +10625,5 @@ "POST" "/UpdateTableStorageOptimizer" "UpdateTableStorageOptimizer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-table-storage-optimizer)) diff --git a/services/lambda/api.lisp b/services/lambda/api.lisp index f6268fbb..d2010b36 100644 --- a/services/lambda/api.lisp +++ b/services/lambda/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/lambda/api - (:use) - (:nicknames #:aws/lambda) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/lambda/api (:use) + (:nicknames #:aws/lambda) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/lambda/api) (common-lisp:progn (common-lisp:define-condition lambda-error @@ -20,7 +19,7 @@ (common-lisp:export 'lambda-error)) (common-lisp:progn (common-lisp:defclass lambda-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "lambda" :api-version "2015-03-31" :host-prefix "lambda" :signing-name @@ -6282,30 +6281,32 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'invocation-type)) - (common-lisp:cons "X-Amz-Invocation-Type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amz-Invocation-Type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'log-type)) - (common-lisp:cons "X-Amz-Log-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amz-Log-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-context)) - (common-lisp:cons "X-Amz-Client-Context" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Context" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input invocation-request)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input invocation-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input invocation-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invocation-response common-lisp:nil ((status-code :initarg :status-code :initform @@ -6350,29 +6351,32 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'function-error)) - (common-lisp:cons "X-Amz-Function-Error" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amz-Function-Error" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'log-result)) - (common-lisp:cons "X-Amz-Log-Result" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amz-Log-Result" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'executed-version)) - (common-lisp:cons "X-Amz-Executed-Version" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Executed-Version" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input invocation-response)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input invocation-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input invocation-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype invocation-type () 'common-lisp:string) (common-lisp:progn (common-lisp:defclass invoke-async-request common-lisp:nil @@ -6413,7 +6417,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input invoke-async-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'invoke-args))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'invoke-args)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input invoke-async-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-async-response common-lisp:nil ((status :initarg :status :initform common-lisp:nil @@ -6469,14 +6477,7 @@ ( (aws-sdk/generator/shape::input invoke-response-stream-update)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ( (aws-sdk/generator/shape::input @@ -6606,34 +6607,38 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'invocation-type)) - (common-lisp:cons "X-Amz-Invocation-Type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amz-Invocation-Type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'log-type)) - (common-lisp:cons "X-Amz-Log-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amz-Log-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-context)) - (common-lisp:cons "X-Amz-Client-Context" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Context" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input invoke-with-response-stream-request)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ( (aws-sdk/generator/shape::input invoke-with-response-stream-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-with-response-stream-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-with-response-stream-response common-lisp:nil ((status-code :initarg :status-code :initform @@ -6682,13 +6687,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'executed-version)) - (common-lisp:cons "X-Amz-Executed-Version" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amz-Executed-Version" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'response-stream-content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6705,7 +6714,13 @@ ( (aws-sdk/generator/shape::input invoke-with-response-stream-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'event-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'event-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-with-response-stream-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-with-response-stream-response-event common-lisp:nil @@ -11847,16 +11862,18 @@ (common-lisp:format common-lisp:nil "/2018-10-31/layers/~A/versions/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layer-name)) - (quri.encode:url-encode + 'layer-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-number)))) + 'version-number) + common-lisp:t))) "AddLayerVersionPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-layer-version-permission)) (common-lisp:progn (common-lisp:defun add-permission @@ -11884,12 +11901,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "AddPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-permission)) (common-lisp:progn (common-lisp:defun create-alias @@ -11914,12 +11932,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/aliases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "CreateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alias)) (common-lisp:progn (common-lisp:defun create-code-signing-config @@ -11941,7 +11960,7 @@ "POST" "/2020-04-22/code-signing-configs/" "CreateCodeSigningConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-code-signing-config)) (common-lisp:progn (common-lisp:defun create-event-source-mapping @@ -11980,7 +11999,7 @@ "POST" "/2015-03-31/event-source-mappings/" "CreateEventSourceMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-source-mapping)) (common-lisp:progn (common-lisp:defun create-function @@ -12008,7 +12027,7 @@ "POST" "/2015-03-31/functions" "CreateFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-function)) (common-lisp:progn (common-lisp:defun create-function-url-config @@ -12033,12 +12052,13 @@ (common-lisp:format common-lisp:nil "/2021-10-31/functions/~A/url" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "CreateFunctionUrlConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-function-url-config)) (common-lisp:progn (common-lisp:defun delete-alias @@ -12060,16 +12080,18 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)) - (quri.encode:url-encode + 'function-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alias)) (common-lisp:progn (common-lisp:defun delete-code-signing-config @@ -12092,12 +12114,13 @@ (common-lisp:format common-lisp:nil "/2020-04-22/code-signing-configs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'code-signing-config-arn)))) + 'code-signing-config-arn) + common-lisp:t))) "DeleteCodeSigningConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-code-signing-config)) (common-lisp:progn (common-lisp:defun delete-event-source-mapping @@ -12120,12 +12143,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/event-source-mappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'uuid)))) + 'uuid) + common-lisp:t))) "DeleteEventSourceMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-source-mapping)) (common-lisp:progn (common-lisp:defun delete-function @@ -12147,12 +12171,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "DeleteFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-function)) (common-lisp:progn (common-lisp:defun delete-function-code-signing-config @@ -12175,12 +12200,13 @@ (common-lisp:format common-lisp:nil "/2020-06-30/functions/~A/code-signing-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "DeleteFunctionCodeSigningConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-function-code-signing-config)) (common-lisp:progn (common-lisp:defun delete-function-concurrency @@ -12203,12 +12229,13 @@ (common-lisp:format common-lisp:nil "/2017-10-31/functions/~A/concurrency" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "DeleteFunctionConcurrency")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-function-concurrency)) (common-lisp:progn (common-lisp:defun delete-function-event-invoke-config @@ -12231,12 +12258,13 @@ (common-lisp:format common-lisp:nil "/2019-09-25/functions/~A/event-invoke-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "DeleteFunctionEventInvokeConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-function-event-invoke-config)) (common-lisp:progn (common-lisp:defun delete-function-url-config @@ -12259,12 +12287,13 @@ (common-lisp:format common-lisp:nil "/2021-10-31/functions/~A/url" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "DeleteFunctionUrlConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-function-url-config)) (common-lisp:progn (common-lisp:defun delete-layer-version @@ -12286,16 +12315,18 @@ (common-lisp:format common-lisp:nil "/2018-10-31/layers/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layer-name)) - (quri.encode:url-encode + 'layer-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-number)))) + 'version-number) + common-lisp:t))) "DeleteLayerVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-layer-version)) (common-lisp:progn (common-lisp:defun delete-provisioned-concurrency-config @@ -12318,12 +12349,13 @@ (common-lisp:format common-lisp:nil "/2019-09-30/functions/~A/provisioned-concurrency" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "DeleteProvisionedConcurrencyConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-provisioned-concurrency-config)) (common-lisp:progn (common-lisp:defun get-account-settings () @@ -12354,16 +12386,18 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)) - (quri.encode:url-encode + 'function-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-alias)) (common-lisp:progn (common-lisp:defun get-code-signing-config @@ -12385,12 +12419,13 @@ (common-lisp:format common-lisp:nil "/2020-04-22/code-signing-configs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'code-signing-config-arn)))) + 'code-signing-config-arn) + common-lisp:t))) "GetCodeSigningConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-code-signing-config)) (common-lisp:progn (common-lisp:defun get-event-source-mapping @@ -12412,12 +12447,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/event-source-mappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'uuid)))) + 'uuid) + common-lisp:t))) "GetEventSourceMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-source-mapping)) (common-lisp:progn (common-lisp:defun get-function @@ -12439,12 +12475,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function)) (common-lisp:progn (common-lisp:defun get-function-code-signing-config @@ -12467,12 +12504,13 @@ (common-lisp:format common-lisp:nil "/2020-06-30/functions/~A/code-signing-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetFunctionCodeSigningConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function-code-signing-config)) (common-lisp:progn (common-lisp:defun get-function-concurrency @@ -12494,12 +12532,13 @@ (common-lisp:format common-lisp:nil "/2019-09-30/functions/~A/concurrency" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetFunctionConcurrency")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function-concurrency)) (common-lisp:progn (common-lisp:defun get-function-configuration @@ -12522,12 +12561,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetFunctionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function-configuration)) (common-lisp:progn (common-lisp:defun get-function-event-invoke-config @@ -12550,12 +12590,13 @@ (common-lisp:format common-lisp:nil "/2019-09-25/functions/~A/event-invoke-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetFunctionEventInvokeConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function-event-invoke-config)) (common-lisp:progn (common-lisp:defun get-function-url-config @@ -12577,12 +12618,13 @@ (common-lisp:format common-lisp:nil "/2021-10-31/functions/~A/url" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetFunctionUrlConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-function-url-config)) (common-lisp:progn (common-lisp:defun get-layer-version @@ -12604,16 +12646,18 @@ (common-lisp:format common-lisp:nil "/2018-10-31/layers/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layer-name)) - (quri.encode:url-encode + 'layer-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-number)))) + 'version-number) + common-lisp:t))) "GetLayerVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-layer-version)) (common-lisp:progn (common-lisp:defun get-layer-version-by-arn @@ -12631,7 +12675,7 @@ "GET" "/2018-10-31/layers?find=LayerVersion" "GetLayerVersionByArn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-layer-version-by-arn)) (common-lisp:progn (common-lisp:defun get-layer-version-policy @@ -12653,16 +12697,18 @@ (common-lisp:format common-lisp:nil "/2018-10-31/layers/~A/versions/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layer-name)) - (quri.encode:url-encode + 'layer-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-number)))) + 'version-number) + common-lisp:t))) "GetLayerVersionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-layer-version-policy)) (common-lisp:progn (common-lisp:defun get-policy @@ -12684,12 +12730,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy)) (common-lisp:progn (common-lisp:defun get-provisioned-concurrency-config @@ -12712,12 +12759,13 @@ (common-lisp:format common-lisp:nil "/2019-09-30/functions/~A/provisioned-concurrency" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetProvisionedConcurrencyConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-provisioned-concurrency-config)) (common-lisp:progn (common-lisp:defun get-runtime-management-config @@ -12740,12 +12788,13 @@ (common-lisp:format common-lisp:nil "/2021-07-20/functions/~A/runtime-management-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "GetRuntimeManagementConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-runtime-management-config)) (common-lisp:progn (common-lisp:defun invoke @@ -12770,13 +12819,14 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/invocations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "Invoke") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke)) (common-lisp:progn (common-lisp:defun invoke-async @@ -12798,12 +12848,13 @@ (common-lisp:format common-lisp:nil "/2014-11-13/functions/~A/invoke-async/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "InvokeAsync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-async)) (common-lisp:progn (common-lisp:defun invoke-with-response-stream @@ -12829,12 +12880,13 @@ (common-lisp:format common-lisp:nil "/2021-11-15/functions/~A/response-streaming-invocations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "InvokeWithResponseStream")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-with-response-stream)) (common-lisp:progn (common-lisp:defun list-aliases @@ -12858,12 +12910,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/aliases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "ListAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-aliases)) (common-lisp:progn (common-lisp:defun list-code-signing-configs @@ -12882,7 +12935,7 @@ "GET" "/2020-04-22/code-signing-configs/" "ListCodeSigningConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-code-signing-configs)) (common-lisp:progn (common-lisp:defun list-event-source-mappings @@ -12903,7 +12956,7 @@ "GET" "/2015-03-31/event-source-mappings/" "ListEventSourceMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-source-mappings)) (common-lisp:progn (common-lisp:defun list-function-event-invoke-configs @@ -12926,12 +12979,13 @@ (common-lisp:format common-lisp:nil "/2019-09-25/functions/~A/event-invoke-config/list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "ListFunctionEventInvokeConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-function-event-invoke-configs)) (common-lisp:progn (common-lisp:defun list-function-url-configs @@ -12954,12 +13008,13 @@ (common-lisp:format common-lisp:nil "/2021-10-31/functions/~A/urls" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "ListFunctionUrlConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-function-url-configs)) (common-lisp:progn (common-lisp:defun list-functions @@ -12979,7 +13034,7 @@ "GET" "/2015-03-31/functions/" "ListFunctions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-functions)) (common-lisp:progn (common-lisp:defun list-functions-by-code-signing-config @@ -13003,12 +13058,13 @@ (common-lisp:format common-lisp:nil "/2020-04-22/code-signing-configs/~A/functions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'code-signing-config-arn)))) + 'code-signing-config-arn) + common-lisp:t))) "ListFunctionsByCodeSigningConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-functions-by-code-signing-config)) (common-lisp:progn (common-lisp:defun list-layer-versions @@ -13033,12 +13089,13 @@ (common-lisp:format common-lisp:nil "/2018-10-31/layers/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layer-name)))) + 'layer-name) + common-lisp:t))) "ListLayerVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-layer-versions)) (common-lisp:progn (common-lisp:defun list-layers @@ -13059,7 +13116,7 @@ "GET" "/2018-10-31/layers" "ListLayers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-layers)) (common-lisp:progn (common-lisp:defun list-provisioned-concurrency-configs @@ -13082,12 +13139,13 @@ (common-lisp:format common-lisp:nil "/2019-09-30/functions/~A/provisioned-concurrency?List=ALL" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "ListProvisionedConcurrencyConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provisioned-concurrency-configs)) (common-lisp:progn (common-lisp:defun list-tags @@ -13109,12 +13167,13 @@ (common-lisp:format common-lisp:nil "/2017-03-31/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun list-versions-by-function @@ -13137,12 +13196,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "ListVersionsByFunction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-versions-by-function)) (common-lisp:progn (common-lisp:defun publish-layer-version @@ -13167,12 +13227,13 @@ (common-lisp:format common-lisp:nil "/2018-10-31/layers/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layer-name)))) + 'layer-name) + common-lisp:t))) "PublishLayerVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish-layer-version)) (common-lisp:progn (common-lisp:defun publish-version @@ -13196,12 +13257,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "PublishVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish-version)) (common-lisp:progn (common-lisp:defun put-function-code-signing-config @@ -13225,12 +13287,13 @@ (common-lisp:format common-lisp:nil "/2020-06-30/functions/~A/code-signing-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "PutFunctionCodeSigningConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-function-code-signing-config)) (common-lisp:progn (common-lisp:defun put-function-concurrency @@ -13254,12 +13317,13 @@ (common-lisp:format common-lisp:nil "/2017-10-31/functions/~A/concurrency" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "PutFunctionConcurrency")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-function-concurrency)) (common-lisp:progn (common-lisp:defun put-function-event-invoke-config @@ -13286,12 +13350,13 @@ (common-lisp:format common-lisp:nil "/2019-09-25/functions/~A/event-invoke-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "PutFunctionEventInvokeConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-function-event-invoke-config)) (common-lisp:progn (common-lisp:defun put-provisioned-concurrency-config @@ -13317,12 +13382,13 @@ (common-lisp:format common-lisp:nil "/2019-09-30/functions/~A/provisioned-concurrency" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "PutProvisionedConcurrencyConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-provisioned-concurrency-config)) (common-lisp:progn (common-lisp:defun put-runtime-management-config @@ -13348,12 +13414,13 @@ (common-lisp:format common-lisp:nil "/2021-07-20/functions/~A/runtime-management-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "PutRuntimeManagementConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-runtime-management-config)) (common-lisp:progn (common-lisp:defun remove-layer-version-permission @@ -13378,20 +13445,23 @@ (common-lisp:format common-lisp:nil "/2018-10-31/layers/~A/versions/~A/policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'layer-name)) - (quri.encode:url-encode + 'layer-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-number)) - (quri.encode:url-encode + 'version-number) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'statement-id)))) + 'statement-id) + common-lisp:t))) "RemoveLayerVersionPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-layer-version-permission)) (common-lisp:progn (common-lisp:defun remove-permission @@ -13415,16 +13485,18 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)) - (quri.encode:url-encode + 'function-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'statement-id)))) + 'statement-id) + common-lisp:t))) "RemovePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-permission)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13446,12 +13518,13 @@ (common-lisp:format common-lisp:nil "/2017-03-31/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13473,12 +13546,13 @@ (common-lisp:format common-lisp:nil "/2017-03-31/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-alias @@ -13503,16 +13577,18 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)) - (quri.encode:url-encode + 'function-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-alias)) (common-lisp:progn (common-lisp:defun update-code-signing-config @@ -13538,12 +13614,13 @@ (common-lisp:format common-lisp:nil "/2020-04-22/code-signing-configs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'code-signing-config-arn)))) + 'code-signing-config-arn) + common-lisp:t))) "UpdateCodeSigningConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-code-signing-config)) (common-lisp:progn (common-lisp:defun update-event-source-mapping @@ -13578,12 +13655,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/event-source-mappings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'uuid)))) + 'uuid) + common-lisp:t))) "UpdateEventSourceMapping")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-source-mapping)) (common-lisp:progn (common-lisp:defun update-function-code @@ -13609,12 +13687,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/code" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "UpdateFunctionCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-function-code)) (common-lisp:progn (common-lisp:defun update-function-configuration @@ -13645,12 +13724,13 @@ (common-lisp:format common-lisp:nil "/2015-03-31/functions/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "UpdateFunctionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-function-configuration)) (common-lisp:progn (common-lisp:defun update-function-event-invoke-config @@ -13677,12 +13757,13 @@ (common-lisp:format common-lisp:nil "/2019-09-25/functions/~A/event-invoke-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "UpdateFunctionEventInvokeConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-function-event-invoke-config)) (common-lisp:progn (common-lisp:defun update-function-url-config @@ -13707,10 +13788,11 @@ (common-lisp:format common-lisp:nil "/2021-10-31/functions/~A/url" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'function-name)))) + 'function-name) + common-lisp:t))) "UpdateFunctionUrlConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-function-url-config)) diff --git a/services/launch-wizard/api.lisp b/services/launch-wizard/api.lisp index 5f5ef83b..784f52de 100644 --- a/services/launch-wizard/api.lisp +++ b/services/launch-wizard/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/launch-wizard/api - (:use) - (:nicknames #:aws/launch-wizard) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/launch-wizard/api (:use) + (:nicknames #:aws/launch-wizard) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/launch-wizard/api) (common-lisp:progn (common-lisp:define-condition launch-wizard-error @@ -20,7 +19,7 @@ (common-lisp:export 'launch-wizard-error)) (common-lisp:progn (common-lisp:defclass launch-wizard-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "launch-wizard" :api-version "2018-05-10" :host-prefix "launchwizard" :signing-name @@ -1638,7 +1637,7 @@ "POST" "/createDeployment" "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun delete-deployment @@ -1656,7 +1655,7 @@ "POST" "/deleteDeployment" "DeleteDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-deployment)) (common-lisp:progn (common-lisp:defun get-deployment @@ -1673,7 +1672,7 @@ aws-sdk/generator/operation::input "POST" "/getDeployment" "GetDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment)) (common-lisp:progn (common-lisp:defun get-workload @@ -1690,7 +1689,7 @@ aws-sdk/generator/operation::input "POST" "/getWorkload" "GetWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workload)) (common-lisp:progn (common-lisp:defun list-deployment-events @@ -1709,7 +1708,7 @@ "POST" "/listDeploymentEvents" "ListDeploymentEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployment-events)) (common-lisp:progn (common-lisp:defun list-deployments @@ -1727,7 +1726,7 @@ "POST" "/listDeployments" "ListDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployments)) (common-lisp:progn (common-lisp:defun list-workload-deployment-patterns @@ -1747,7 +1746,7 @@ "POST" "/listWorkloadDeploymentPatterns" "ListWorkloadDeploymentPatterns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workload-deployment-patterns)) (common-lisp:progn (common-lisp:defun list-workloads @@ -1764,5 +1763,5 @@ aws-sdk/generator/operation::input "POST" "/listWorkloads" "ListWorkloads")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workloads)) diff --git a/services/lex-models/api.lisp b/services/lex-models/api.lisp index b04b799e..cfb06a9f 100644 --- a/services/lex-models/api.lisp +++ b/services/lex-models/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/lex-models/api - (:use) - (:nicknames #:aws/lex-models) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/lex-models/api (:use) + (:nicknames #:aws/lex-models) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/lex-models/api) (common-lisp:progn (common-lisp:define-condition lex-models-error @@ -20,7 +19,7 @@ (common-lisp:export 'lex-models-error)) (common-lisp:progn (common-lisp:defclass lex-models-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "lex-models" :api-version "2017-04-19" :host-prefix "models.lex" :signing-name @@ -8824,12 +8823,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateBotVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bot-version)) (common-lisp:progn (common-lisp:defun create-intent-version @@ -8851,12 +8851,13 @@ (common-lisp:format common-lisp:nil "/intents/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateIntentVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-intent-version)) (common-lisp:progn (common-lisp:defun create-slot-type-version @@ -8878,12 +8879,13 @@ (common-lisp:format common-lisp:nil "/slottypes/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateSlotTypeVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-slot-type-version)) (common-lisp:progn (common-lisp:defun delete-bot @@ -8905,12 +8907,13 @@ (common-lisp:format common-lisp:nil "/bots/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot)) (common-lisp:progn (common-lisp:defun delete-bot-alias @@ -8932,16 +8935,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteBotAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot-alias)) (common-lisp:progn (common-lisp:defun delete-bot-channel-association @@ -8964,20 +8969,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/aliases/~A/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)) - (quri.encode:url-encode + 'alias-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteBotChannelAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot-channel-association)) (common-lisp:progn (common-lisp:defun delete-bot-version @@ -8999,16 +9007,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "DeleteBotVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot-version)) (common-lisp:progn (common-lisp:defun delete-intent @@ -9030,12 +9040,13 @@ (common-lisp:format common-lisp:nil "/intents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteIntent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-intent)) (common-lisp:progn (common-lisp:defun delete-intent-version @@ -9057,16 +9068,18 @@ (common-lisp:format common-lisp:nil "/intents/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "DeleteIntentVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-intent-version)) (common-lisp:progn (common-lisp:defun delete-slot-type @@ -9088,12 +9101,13 @@ (common-lisp:format common-lisp:nil "/slottypes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteSlotType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slot-type)) (common-lisp:progn (common-lisp:defun delete-slot-type-version @@ -9115,16 +9129,18 @@ (common-lisp:format common-lisp:nil "/slottypes/~A/version/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "DeleteSlotTypeVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slot-type-version)) (common-lisp:progn (common-lisp:defun delete-utterances @@ -9146,16 +9162,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/utterances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DeleteUtterances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-utterances)) (common-lisp:progn (common-lisp:defun get-bot @@ -9177,16 +9195,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'versionoralias)))) + 'versionoralias) + common-lisp:t))) "GetBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bot)) (common-lisp:progn (common-lisp:defun get-bot-alias @@ -9208,16 +9228,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBotAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bot-alias)) (common-lisp:progn (common-lisp:defun get-bot-aliases @@ -9241,12 +9263,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/aliases/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)))) + 'bot-name) + common-lisp:t))) "GetBotAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bot-aliases)) (common-lisp:progn (common-lisp:defun get-bot-channel-association @@ -9269,20 +9292,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/aliases/~A/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)) - (quri.encode:url-encode + 'alias-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBotChannelAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bot-channel-association)) (common-lisp:progn (common-lisp:defun get-bot-channel-associations @@ -9308,16 +9334,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/aliases/~A/channels/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "GetBotChannelAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bot-channel-associations)) (common-lisp:progn (common-lisp:defun get-bot-versions @@ -9339,12 +9367,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/versions/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBotVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bot-versions)) (common-lisp:progn (common-lisp:defun get-bots @@ -9362,7 +9391,7 @@ aws-sdk/generator/operation::input "GET" "/bots/" "GetBots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bots)) (common-lisp:progn (common-lisp:defun get-builtin-intent @@ -9384,12 +9413,13 @@ (common-lisp:format common-lisp:nil "/builtins/intents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'signature)))) + 'signature) + common-lisp:t))) "GetBuiltinIntent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-builtin-intent)) (common-lisp:progn (common-lisp:defun get-builtin-intents @@ -9409,7 +9439,7 @@ "GET" "/builtins/intents/" "GetBuiltinIntents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-builtin-intents)) (common-lisp:progn (common-lisp:defun get-builtin-slot-types @@ -9429,7 +9459,7 @@ "GET" "/builtins/slottypes/" "GetBuiltinSlotTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-builtin-slot-types)) (common-lisp:progn (common-lisp:defun get-export @@ -9447,7 +9477,7 @@ aws-sdk/generator/operation::input "GET" "/exports/" "GetExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-export)) (common-lisp:progn (common-lisp:defun get-import @@ -9469,12 +9499,13 @@ (common-lisp:format common-lisp:nil "/imports/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'import-id)))) + 'import-id) + common-lisp:t))) "GetImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-import)) (common-lisp:progn (common-lisp:defun get-intent @@ -9496,16 +9527,18 @@ (common-lisp:format common-lisp:nil "/intents/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "GetIntent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-intent)) (common-lisp:progn (common-lisp:defun get-intent-versions @@ -9527,12 +9560,13 @@ (common-lisp:format common-lisp:nil "/intents/~A/versions/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetIntentVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-intent-versions)) (common-lisp:progn (common-lisp:defun get-intents @@ -9550,7 +9584,7 @@ aws-sdk/generator/operation::input "GET" "/intents/" "GetIntents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-intents)) (common-lisp:progn (common-lisp:defun get-migration @@ -9572,12 +9606,13 @@ (common-lisp:format common-lisp:nil "/migrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'migration-id)))) + 'migration-id) + common-lisp:t))) "GetMigration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-migration)) (common-lisp:progn (common-lisp:defun get-migrations @@ -9598,7 +9633,7 @@ aws-sdk/generator/operation::input "GET" "/migrations" "GetMigrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-migrations)) (common-lisp:progn (common-lisp:defun get-slot-type @@ -9620,16 +9655,18 @@ (common-lisp:format common-lisp:nil "/slottypes/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "GetSlotType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-slot-type)) (common-lisp:progn (common-lisp:defun get-slot-type-versions @@ -9651,12 +9688,13 @@ (common-lisp:format common-lisp:nil "/slottypes/~A/versions/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetSlotTypeVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-slot-type-versions)) (common-lisp:progn (common-lisp:defun get-slot-types @@ -9674,7 +9712,7 @@ aws-sdk/generator/operation::input "GET" "/slottypes/" "GetSlotTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-slot-types)) (common-lisp:progn (common-lisp:defun get-utterances-view @@ -9697,12 +9735,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/utterances?view=aggregation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'botname)))) + 'botname) + common-lisp:t))) "GetUtterancesView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-utterances-view)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9724,12 +9763,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-bot @@ -9760,12 +9800,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/versions/$LATEST" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-bot)) (common-lisp:progn (common-lisp:defun put-bot-alias @@ -9790,16 +9831,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutBotAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-bot-alias)) (common-lisp:progn (common-lisp:defun put-intent @@ -9830,12 +9873,13 @@ (common-lisp:format common-lisp:nil "/intents/~A/versions/$LATEST" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutIntent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-intent)) (common-lisp:progn (common-lisp:defun put-slot-type @@ -9862,12 +9906,13 @@ (common-lisp:format common-lisp:nil "/slottypes/~A/versions/$LATEST" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutSlotType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-slot-type)) (common-lisp:progn (common-lisp:defun start-import @@ -9886,7 +9931,7 @@ aws-sdk/generator/operation::input "POST" "/imports/" "StartImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import)) (common-lisp:progn (common-lisp:defun start-migration @@ -9906,7 +9951,7 @@ aws-sdk/generator/operation::input "POST" "/migrations" "StartMigration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-migration)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9928,12 +9973,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9955,10 +10001,11 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/license-manager-linux-subscriptions/api.lisp b/services/license-manager-linux-subscriptions/api.lisp index dc14e4e8..68b72fd8 100644 --- a/services/license-manager-linux-subscriptions/api.lisp +++ b/services/license-manager-linux-subscriptions/api.lisp @@ -1,18 +1,14 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage - #:aws-sdk/services/license-manager-linux-subscriptions/api - (:use) - (:nicknames #:aws/license-manager-linux-subscriptions) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package + #:aws-sdk/services/license-manager-linux-subscriptions/api (:use) + (:nicknames #:aws/license-manager-linux-subscriptions) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/license-manager-linux-subscriptions/api) (common-lisp:progn @@ -22,7 +18,7 @@ (common-lisp:export 'license-manager-linux-subscriptions-error)) (common-lisp:progn (common-lisp:defclass license-manager-linux-subscriptions-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "license-manager-linux-subscriptions" :api-version @@ -1004,7 +1000,7 @@ aws-sdk/generator/operation::input "POST" "/subscription/ListLinuxSubscriptionInstances" "ListLinuxSubscriptionInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-linux-subscription-instances)) (common-lisp:progn (common-lisp:defun list-linux-subscriptions @@ -1021,7 +1017,7 @@ 'license-manager-linux-subscriptions-request aws-sdk/generator/operation::input "POST" "/subscription/ListLinuxSubscriptions" "ListLinuxSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-linux-subscriptions)) (common-lisp:progn (common-lisp:defun update-service-settings @@ -1042,5 +1038,5 @@ 'license-manager-linux-subscriptions-request aws-sdk/generator/operation::input "POST" "/subscription/UpdateServiceSettings" "UpdateServiceSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-settings)) diff --git a/services/license-manager-user-subscriptions/api.lisp b/services/license-manager-user-subscriptions/api.lisp index 897fc05a..d1caa005 100644 --- a/services/license-manager-user-subscriptions/api.lisp +++ b/services/license-manager-user-subscriptions/api.lisp @@ -1,18 +1,14 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage - #:aws-sdk/services/license-manager-user-subscriptions/api - (:use) - (:nicknames #:aws/license-manager-user-subscriptions) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package + #:aws-sdk/services/license-manager-user-subscriptions/api (:use) + (:nicknames #:aws/license-manager-user-subscriptions) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/license-manager-user-subscriptions/api) (common-lisp:progn @@ -22,7 +18,7 @@ (common-lisp:export 'license-manager-user-subscriptions-error)) (common-lisp:progn (common-lisp:defclass license-manager-user-subscriptions-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "license-manager-user-subscriptions" :api-version @@ -2192,7 +2188,7 @@ 'license-manager-user-subscriptions-request aws-sdk/generator/operation::input "POST" "/user/AssociateUser" "AssociateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-user)) (common-lisp:progn (common-lisp:defun deregister-identity-provider @@ -2211,7 +2207,7 @@ aws-sdk/generator/operation::input "POST" "/identity-provider/DeregisterIdentityProvider" "DeregisterIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-identity-provider)) (common-lisp:progn (common-lisp:defun disassociate-user @@ -2230,7 +2226,7 @@ 'license-manager-user-subscriptions-request aws-sdk/generator/operation::input "POST" "/user/DisassociateUser" "DisassociateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-user)) (common-lisp:progn (common-lisp:defun list-identity-providers @@ -2247,7 +2243,7 @@ 'license-manager-user-subscriptions-request aws-sdk/generator/operation::input "POST" "/identity-provider/ListIdentityProviders" "ListIdentityProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-providers)) (common-lisp:progn (common-lisp:defun list-instances @@ -2264,7 +2260,7 @@ 'license-manager-user-subscriptions-request aws-sdk/generator/operation::input "POST" "/instance/ListInstances" "ListInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instances)) (common-lisp:progn (common-lisp:defun list-product-subscriptions @@ -2285,7 +2281,7 @@ 'license-manager-user-subscriptions-request aws-sdk/generator/operation::input "POST" "/user/ListProductSubscriptions" "ListProductSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-product-subscriptions)) (common-lisp:progn (common-lisp:defun list-user-associations @@ -2305,7 +2301,7 @@ 'license-manager-user-subscriptions-request aws-sdk/generator/operation::input "POST" "/user/ListUserAssociations" "ListUserAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-associations)) (common-lisp:progn (common-lisp:defun register-identity-provider @@ -2325,7 +2321,7 @@ aws-sdk/generator/operation::input "POST" "/identity-provider/RegisterIdentityProvider" "RegisterIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-identity-provider)) (common-lisp:progn (common-lisp:defun start-product-subscription @@ -2345,7 +2341,7 @@ 'license-manager-user-subscriptions-request aws-sdk/generator/operation::input "POST" "/user/StartProductSubscription" "StartProductSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-product-subscription)) (common-lisp:progn (common-lisp:defun stop-product-subscription @@ -2365,7 +2361,7 @@ 'license-manager-user-subscriptions-request aws-sdk/generator/operation::input "POST" "/user/StopProductSubscription" "StopProductSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-product-subscription)) (common-lisp:progn (common-lisp:defun update-identity-provider-settings @@ -2386,5 +2382,5 @@ aws-sdk/generator/operation::input "POST" "/identity-provider/UpdateIdentityProviderSettings" "UpdateIdentityProviderSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-identity-provider-settings)) diff --git a/services/license-manager/api.lisp b/services/license-manager/api.lisp index 851e8dde..a1fc3da5 100644 --- a/services/license-manager/api.lisp +++ b/services/license-manager/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/license-manager/api - (:use) - (:nicknames #:aws/license-manager) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/license-manager/api (:use) + (:nicknames #:aws/license-manager) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/license-manager/api) (common-lisp:progn (common-lisp:define-condition license-manager-error @@ -10191,7 +10190,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "AcceptGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-grant)) (common-lisp:progn (common-lisp:defun check-in-license @@ -10208,7 +10207,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CheckInLicense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'check-in-license)) (common-lisp:progn (common-lisp:defun checkout-borrow-license @@ -10228,7 +10227,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CheckoutBorrowLicense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'checkout-borrow-license)) (common-lisp:progn (common-lisp:defun checkout-license @@ -10247,7 +10246,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CheckoutLicense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'checkout-license)) (common-lisp:progn (common-lisp:defun create-grant @@ -10266,7 +10265,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CreateGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-grant)) (common-lisp:progn (common-lisp:defun create-grant-version @@ -10286,7 +10285,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CreateGrantVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-grant-version)) (common-lisp:progn (common-lisp:defun create-license @@ -10307,7 +10306,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CreateLicense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-license)) (common-lisp:progn (common-lisp:defun create-license-configuration @@ -10329,7 +10328,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CreateLicenseConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-license-configuration)) (common-lisp:progn (common-lisp:defun create-license-conversion-task-for-resource @@ -10349,7 +10348,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CreateLicenseConversionTaskForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-license-conversion-task-for-resource)) (common-lisp:progn (common-lisp:defun create-license-manager-report-generator @@ -10369,7 +10368,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CreateLicenseManagerReportGenerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-license-manager-report-generator)) (common-lisp:progn (common-lisp:defun create-license-version @@ -10391,7 +10390,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CreateLicenseVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-license-version)) (common-lisp:progn (common-lisp:defun create-token @@ -10410,7 +10409,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "CreateToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-token)) (common-lisp:progn (common-lisp:defun delete-grant @@ -10427,7 +10426,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "DeleteGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-grant)) (common-lisp:progn (common-lisp:defun delete-license @@ -10443,7 +10442,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "DeleteLicense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-license)) (common-lisp:progn (common-lisp:defun delete-license-configuration @@ -10460,7 +10459,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "DeleteLicenseConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-license-configuration)) (common-lisp:progn (common-lisp:defun delete-license-manager-report-generator @@ -10478,7 +10477,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "DeleteLicenseManagerReportGenerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-license-manager-report-generator)) (common-lisp:progn (common-lisp:defun delete-token @@ -10494,7 +10493,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "DeleteToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-token)) (common-lisp:progn (common-lisp:defun extend-license-consumption @@ -10512,7 +10511,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ExtendLicenseConsumption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'extend-license-consumption)) (common-lisp:progn (common-lisp:defun get-access-token @@ -10528,7 +10527,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "GetAccessToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-access-token)) (common-lisp:progn (common-lisp:defun get-grant @@ -10544,7 +10543,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "GetGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-grant)) (common-lisp:progn (common-lisp:defun get-license @@ -10560,7 +10559,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "GetLicense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-license)) (common-lisp:progn (common-lisp:defun get-license-configuration @@ -10577,7 +10576,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "GetLicenseConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-license-configuration)) (common-lisp:progn (common-lisp:defun get-license-conversion-task @@ -10594,7 +10593,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "GetLicenseConversionTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-license-conversion-task)) (common-lisp:progn (common-lisp:defun get-license-manager-report-generator @@ -10612,7 +10611,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "GetLicenseManagerReportGenerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-license-manager-report-generator)) (common-lisp:progn (common-lisp:defun get-license-usage @@ -10628,7 +10627,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "GetLicenseUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-license-usage)) (common-lisp:progn (common-lisp:defun get-service-settings () @@ -10655,7 +10654,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListAssociationsForLicenseConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associations-for-license-configuration)) (common-lisp:progn (common-lisp:defun list-distributed-grants @@ -10673,7 +10672,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListDistributedGrants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-distributed-grants)) (common-lisp:progn (common-lisp:defun list-failures-for-license-configuration-operations @@ -10692,7 +10691,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListFailuresForLicenseConfigurationOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-failures-for-license-configuration-operations)) (common-lisp:progn (common-lisp:defun list-license-configurations @@ -10712,7 +10711,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListLicenseConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-license-configurations)) (common-lisp:progn (common-lisp:defun list-license-conversion-tasks @@ -10729,7 +10728,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListLicenseConversionTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-license-conversion-tasks)) (common-lisp:progn (common-lisp:defun list-license-manager-report-generators @@ -10746,7 +10745,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListLicenseManagerReportGenerators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-license-manager-report-generators)) (common-lisp:progn (common-lisp:defun list-license-specifications-for-resource @@ -10764,7 +10763,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListLicenseSpecificationsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-license-specifications-for-resource)) (common-lisp:progn (common-lisp:defun list-license-versions @@ -10781,7 +10780,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListLicenseVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-license-versions)) (common-lisp:progn (common-lisp:defun list-licenses @@ -10799,7 +10798,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListLicenses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-licenses)) (common-lisp:progn (common-lisp:defun list-received-grants @@ -10817,7 +10816,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListReceivedGrants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-received-grants)) (common-lisp:progn (common-lisp:defun list-received-grants-for-organization @@ -10836,7 +10835,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListReceivedGrantsForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-received-grants-for-organization)) (common-lisp:progn (common-lisp:defun list-received-licenses @@ -10854,7 +10853,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListReceivedLicenses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-received-licenses)) (common-lisp:progn (common-lisp:defun list-received-licenses-for-organization @@ -10871,7 +10870,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListReceivedLicensesForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-received-licenses-for-organization)) (common-lisp:progn (common-lisp:defun list-resource-inventory @@ -10887,7 +10886,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListResourceInventory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-inventory)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10903,7 +10902,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-tokens @@ -10920,7 +10919,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListTokens")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tokens)) (common-lisp:progn (common-lisp:defun list-usage-for-license-configuration @@ -10940,7 +10939,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "ListUsageForLicenseConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-usage-for-license-configuration)) (common-lisp:progn (common-lisp:defun reject-grant @@ -10956,7 +10955,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "RejectGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-grant)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10972,7 +10971,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10988,7 +10987,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-license-configuration @@ -11012,7 +11011,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "UpdateLicenseConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-license-configuration)) (common-lisp:progn (common-lisp:defun update-license-manager-report-generator @@ -11034,7 +11033,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "UpdateLicenseManagerReportGenerator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-license-manager-report-generator)) (common-lisp:progn (common-lisp:defun update-license-specifications-for-resource @@ -11054,7 +11053,7 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "UpdateLicenseSpecificationsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-license-specifications-for-resource)) (common-lisp:progn (common-lisp:defun update-service-settings @@ -11074,5 +11073,5 @@ (aws-sdk/generator/shape:make-request-with-input 'license-manager-request aws-sdk/generator/operation::input "POST" "/" "UpdateServiceSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-settings)) diff --git a/services/lightsail/api.lisp b/services/lightsail/api.lisp index 2e1e3d09..4403e8e3 100644 --- a/services/lightsail/api.lisp +++ b/services/lightsail/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/lightsail/api - (:use) - (:nicknames #:aws/lightsail) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/lightsail/api (:use) + (:nicknames #:aws/lightsail) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/lightsail/api) (common-lisp:progn (common-lisp:define-condition lightsail-error @@ -29623,7 +29622,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AllocateStaticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'allocate-static-ip)) (common-lisp:progn (common-lisp:defun attach-certificate-to-distribution @@ -29642,7 +29641,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AttachCertificateToDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-certificate-to-distribution)) (common-lisp:progn (common-lisp:defun attach-disk @@ -29661,7 +29660,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AttachDisk")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-disk)) (common-lisp:progn (common-lisp:defun attach-instances-to-load-balancer @@ -29680,7 +29679,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AttachInstancesToLoadBalancer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-instances-to-load-balancer)) (common-lisp:progn (common-lisp:defun attach-load-balancer-tls-certificate @@ -29699,7 +29698,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AttachLoadBalancerTlsCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-load-balancer-tls-certificate)) (common-lisp:progn (common-lisp:defun attach-static-ip @@ -29716,7 +29715,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AttachStaticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-static-ip)) (common-lisp:progn (common-lisp:defun close-instance-public-ports @@ -29734,7 +29733,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CloseInstancePublicPorts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'close-instance-public-ports)) (common-lisp:progn (common-lisp:defun copy-snapshot @@ -29756,7 +29755,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CopySnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-snapshot)) (common-lisp:progn (common-lisp:defun create-bucket @@ -29776,7 +29775,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bucket)) (common-lisp:progn (common-lisp:defun create-bucket-access-key @@ -29793,7 +29792,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateBucketAccessKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bucket-access-key)) (common-lisp:progn (common-lisp:defun create-certificate @@ -29813,7 +29812,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-certificate)) (common-lisp:progn (common-lisp:defun create-cloud-formation-stack @@ -29831,7 +29830,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateCloudFormationStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cloud-formation-stack)) (common-lisp:progn (common-lisp:defun create-contact-method @@ -29848,7 +29847,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateContactMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-contact-method)) (common-lisp:progn (common-lisp:defun create-container-service @@ -29868,7 +29867,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateContainerService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-container-service)) (common-lisp:progn (common-lisp:defun create-container-service-deployment @@ -29887,7 +29886,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateContainerServiceDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-container-service-deployment)) (common-lisp:progn (common-lisp:defun create-container-service-registry-login () @@ -29916,7 +29915,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateDisk")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-disk)) (common-lisp:progn (common-lisp:defun create-disk-from-snapshot @@ -29939,7 +29938,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateDiskFromSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-disk-from-snapshot)) (common-lisp:progn (common-lisp:defun create-disk-snapshot @@ -29958,7 +29957,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateDiskSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-disk-snapshot)) (common-lisp:progn (common-lisp:defun create-distribution @@ -29979,7 +29978,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-distribution)) (common-lisp:progn (common-lisp:defun create-domain @@ -29996,7 +29995,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun create-domain-entry @@ -30013,7 +30012,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateDomainEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain-entry)) (common-lisp:progn (common-lisp:defun create-guisession-access-details @@ -30031,7 +30030,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateGUISessionAccessDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-guisession-access-details)) (common-lisp:progn (common-lisp:defun create-instance-snapshot @@ -30050,7 +30049,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateInstanceSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instance-snapshot)) (common-lisp:progn (common-lisp:defun create-instances @@ -30072,7 +30071,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instances)) (common-lisp:progn (common-lisp:defun create-instances-from-snapshot @@ -30098,7 +30097,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateInstancesFromSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instances-from-snapshot)) (common-lisp:progn (common-lisp:defun create-key-pair @@ -30115,7 +30114,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-key-pair)) (common-lisp:progn (common-lisp:defun create-load-balancer @@ -30138,7 +30137,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLoadBalancer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-load-balancer)) (common-lisp:progn (common-lisp:defun create-load-balancer-tls-certificate @@ -30160,7 +30159,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateLoadBalancerTlsCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-load-balancer-tls-certificate)) (common-lisp:progn (common-lisp:defun create-relational-database @@ -30188,7 +30187,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateRelationalDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-relational-database)) (common-lisp:progn (common-lisp:defun create-relational-database-from-snapshot @@ -30215,7 +30214,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateRelationalDatabaseFromSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-relational-database-from-snapshot)) (common-lisp:progn (common-lisp:defun create-relational-database-snapshot @@ -30236,7 +30235,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateRelationalDatabaseSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-relational-database-snapshot)) (common-lisp:progn (common-lisp:defun delete-alarm @@ -30253,7 +30252,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alarm)) (common-lisp:progn (common-lisp:defun delete-auto-snapshot @@ -30270,7 +30269,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteAutoSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-auto-snapshot)) (common-lisp:progn (common-lisp:defun delete-bucket @@ -30287,7 +30286,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bucket)) (common-lisp:progn (common-lisp:defun delete-bucket-access-key @@ -30304,7 +30303,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteBucketAccessKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bucket-access-key)) (common-lisp:progn (common-lisp:defun delete-certificate @@ -30321,7 +30320,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-certificate)) (common-lisp:progn (common-lisp:defun delete-contact-method @@ -30338,7 +30337,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteContactMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact-method)) (common-lisp:progn (common-lisp:defun delete-container-image @@ -30355,7 +30354,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteContainerImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-container-image)) (common-lisp:progn (common-lisp:defun delete-container-service @@ -30372,7 +30371,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteContainerService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-container-service)) (common-lisp:progn (common-lisp:defun delete-disk @@ -30389,7 +30388,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteDisk")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-disk)) (common-lisp:progn (common-lisp:defun delete-disk-snapshot @@ -30406,7 +30405,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteDiskSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-disk-snapshot)) (common-lisp:progn (common-lisp:defun delete-distribution @@ -30423,7 +30422,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-distribution)) (common-lisp:progn (common-lisp:defun delete-domain @@ -30440,7 +30439,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-domain-entry @@ -30457,7 +30456,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteDomainEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain-entry)) (common-lisp:progn (common-lisp:defun delete-instance @@ -30475,7 +30474,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance)) (common-lisp:progn (common-lisp:defun delete-instance-snapshot @@ -30492,7 +30491,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteInstanceSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance-snapshot)) (common-lisp:progn (common-lisp:defun delete-key-pair @@ -30510,7 +30509,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-key-pair)) (common-lisp:progn (common-lisp:defun delete-known-host-keys @@ -30527,7 +30526,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteKnownHostKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-known-host-keys)) (common-lisp:progn (common-lisp:defun delete-load-balancer @@ -30544,7 +30543,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteLoadBalancer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-load-balancer)) (common-lisp:progn (common-lisp:defun delete-load-balancer-tls-certificate @@ -30564,7 +30563,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteLoadBalancerTlsCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-load-balancer-tls-certificate)) (common-lisp:progn (common-lisp:defun delete-relational-database @@ -30586,7 +30585,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteRelationalDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-relational-database)) (common-lisp:progn (common-lisp:defun delete-relational-database-snapshot @@ -30605,7 +30604,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteRelationalDatabaseSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-relational-database-snapshot)) (common-lisp:progn (common-lisp:defun detach-certificate-from-distribution @@ -30623,7 +30622,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DetachCertificateFromDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-certificate-from-distribution)) (common-lisp:progn (common-lisp:defun detach-disk @@ -30640,7 +30639,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DetachDisk")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-disk)) (common-lisp:progn (common-lisp:defun detach-instances-from-load-balancer @@ -30659,7 +30658,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DetachInstancesFromLoadBalancer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-instances-from-load-balancer)) (common-lisp:progn (common-lisp:defun detach-static-ip @@ -30676,7 +30675,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DetachStaticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-static-ip)) (common-lisp:progn (common-lisp:defun disable-add-on @@ -30693,7 +30692,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DisableAddOn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-add-on)) (common-lisp:progn (common-lisp:defun download-default-key-pair () @@ -30718,7 +30717,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "EnableAddOn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-add-on)) (common-lisp:progn (common-lisp:defun export-snapshot @@ -30735,7 +30734,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ExportSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-snapshot)) (common-lisp:progn (common-lisp:defun get-active-names @@ -30752,7 +30751,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetActiveNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-active-names)) (common-lisp:progn (common-lisp:defun get-alarms @@ -30771,7 +30770,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetAlarms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-alarms)) (common-lisp:progn (common-lisp:defun get-auto-snapshots @@ -30788,7 +30787,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetAutoSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-auto-snapshots)) (common-lisp:progn (common-lisp:defun get-blueprints @@ -30806,7 +30805,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBlueprints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-blueprints)) (common-lisp:progn (common-lisp:defun get-bucket-access-keys @@ -30823,7 +30822,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBucketAccessKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bucket-access-keys)) (common-lisp:progn (common-lisp:defun get-bucket-bundles @@ -30840,7 +30839,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBucketBundles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bucket-bundles)) (common-lisp:progn (common-lisp:defun get-bucket-metric-data @@ -30860,7 +30859,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBucketMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bucket-metric-data)) (common-lisp:progn (common-lisp:defun get-buckets @@ -30879,7 +30878,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBuckets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-buckets)) (common-lisp:progn (common-lisp:defun get-bundles @@ -30897,7 +30896,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetBundles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bundles)) (common-lisp:progn (common-lisp:defun get-certificates @@ -30917,7 +30916,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-certificates)) (common-lisp:progn (common-lisp:defun get-cloud-formation-stack-records @@ -30935,7 +30934,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetCloudFormationStackRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cloud-formation-stack-records)) (common-lisp:progn (common-lisp:defun get-contact-methods @@ -30952,7 +30951,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetContactMethods")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact-methods)) (common-lisp:progn (common-lisp:defun get-container-apimetadata () @@ -30977,7 +30976,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetContainerImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-container-images)) (common-lisp:progn (common-lisp:defun get-container-log @@ -30997,7 +30996,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetContainerLog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-container-log)) (common-lisp:progn (common-lisp:defun get-container-service-deployments @@ -31015,7 +31014,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetContainerServiceDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-container-service-deployments)) (common-lisp:progn (common-lisp:defun get-container-service-metric-data @@ -31036,7 +31035,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetContainerServiceMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-container-service-metric-data)) (common-lisp:progn (common-lisp:defun get-container-service-powers () @@ -31061,7 +31060,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetContainerServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-container-services)) (common-lisp:progn (common-lisp:defun get-cost-estimate @@ -31079,7 +31078,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetCostEstimate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cost-estimate)) (common-lisp:progn (common-lisp:defun get-disk @@ -31095,7 +31094,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'lightsail-request aws-sdk/generator/operation::input "POST" "/" "GetDisk")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-disk)) (common-lisp:progn (common-lisp:defun get-disk-snapshot @@ -31112,7 +31111,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDiskSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-disk-snapshot)) (common-lisp:progn (common-lisp:defun get-disk-snapshots @@ -31129,7 +31128,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDiskSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-disk-snapshots)) (common-lisp:progn (common-lisp:defun get-disks @@ -31145,7 +31144,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'lightsail-request aws-sdk/generator/operation::input "POST" "/" "GetDisks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-disks)) (common-lisp:progn (common-lisp:defun get-distribution-bundles () @@ -31171,7 +31170,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDistributionLatestCacheReset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-distribution-latest-cache-reset)) (common-lisp:progn (common-lisp:defun get-distribution-metric-data @@ -31192,7 +31191,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDistributionMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-distribution-metric-data)) (common-lisp:progn (common-lisp:defun get-distributions @@ -31209,7 +31208,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDistributions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-distributions)) (common-lisp:progn (common-lisp:defun get-domain @@ -31226,7 +31225,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain)) (common-lisp:progn (common-lisp:defun get-domains @@ -31243,7 +31242,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domains)) (common-lisp:progn (common-lisp:defun get-export-snapshot-records @@ -31261,7 +31260,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetExportSnapshotRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-export-snapshot-records)) (common-lisp:progn (common-lisp:defun get-instance @@ -31278,7 +31277,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance)) (common-lisp:progn (common-lisp:defun get-instance-access-details @@ -31296,7 +31295,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetInstanceAccessDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-access-details)) (common-lisp:progn (common-lisp:defun get-instance-metric-data @@ -31316,7 +31315,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetInstanceMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-metric-data)) (common-lisp:progn (common-lisp:defun get-instance-port-states @@ -31333,7 +31332,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetInstancePortStates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-port-states)) (common-lisp:progn (common-lisp:defun get-instance-snapshot @@ -31350,7 +31349,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetInstanceSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-snapshot)) (common-lisp:progn (common-lisp:defun get-instance-snapshots @@ -31367,7 +31366,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetInstanceSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-snapshots)) (common-lisp:progn (common-lisp:defun get-instance-state @@ -31384,7 +31383,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetInstanceState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance-state)) (common-lisp:progn (common-lisp:defun get-instances @@ -31401,7 +31400,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instances)) (common-lisp:progn (common-lisp:defun get-key-pair @@ -31418,7 +31417,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-key-pair)) (common-lisp:progn (common-lisp:defun get-key-pairs @@ -31436,7 +31435,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetKeyPairs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-key-pairs)) (common-lisp:progn (common-lisp:defun get-load-balancer @@ -31453,7 +31452,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetLoadBalancer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-load-balancer)) (common-lisp:progn (common-lisp:defun get-load-balancer-metric-data @@ -31474,7 +31473,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetLoadBalancerMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-load-balancer-metric-data)) (common-lisp:progn (common-lisp:defun get-load-balancer-tls-certificates @@ -31492,7 +31491,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetLoadBalancerTlsCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-load-balancer-tls-certificates)) (common-lisp:progn (common-lisp:defun get-load-balancer-tls-policies @@ -31510,7 +31509,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetLoadBalancerTlsPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-load-balancer-tls-policies)) (common-lisp:progn (common-lisp:defun get-load-balancers @@ -31527,7 +31526,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetLoadBalancers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-load-balancers)) (common-lisp:progn (common-lisp:defun get-operation @@ -31544,7 +31543,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-operation)) (common-lisp:progn (common-lisp:defun get-operations @@ -31561,7 +31560,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-operations)) (common-lisp:progn (common-lisp:defun get-operations-for-resource @@ -31579,7 +31578,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetOperationsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-operations-for-resource)) (common-lisp:progn (common-lisp:defun get-regions @@ -31599,7 +31598,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRegions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-regions)) (common-lisp:progn (common-lisp:defun get-relational-database @@ -31616,7 +31615,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database)) (common-lisp:progn (common-lisp:defun get-relational-database-blueprints @@ -31634,7 +31633,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseBlueprints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-blueprints)) (common-lisp:progn (common-lisp:defun get-relational-database-bundles @@ -31652,7 +31651,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseBundles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-bundles)) (common-lisp:progn (common-lisp:defun get-relational-database-events @@ -31673,7 +31672,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-events)) (common-lisp:progn (common-lisp:defun get-relational-database-log-events @@ -31694,7 +31693,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseLogEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-log-events)) (common-lisp:progn (common-lisp:defun get-relational-database-log-streams @@ -31712,7 +31711,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseLogStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-log-streams)) (common-lisp:progn (common-lisp:defun get-relational-database-master-user-password @@ -31732,7 +31731,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseMasterUserPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-master-user-password)) (common-lisp:progn (common-lisp:defun get-relational-database-metric-data @@ -31753,7 +31752,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-metric-data)) (common-lisp:progn (common-lisp:defun get-relational-database-parameters @@ -31772,7 +31771,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-parameters)) (common-lisp:progn (common-lisp:defun get-relational-database-snapshot @@ -31791,7 +31790,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-snapshot)) (common-lisp:progn (common-lisp:defun get-relational-database-snapshots @@ -31809,7 +31808,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabaseSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-database-snapshots)) (common-lisp:progn (common-lisp:defun get-relational-databases @@ -31826,7 +31825,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetRelationalDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-relational-databases)) (common-lisp:progn (common-lisp:defun get-setup-history @@ -31843,7 +31842,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetSetupHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-setup-history)) (common-lisp:progn (common-lisp:defun get-static-ip @@ -31860,7 +31859,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetStaticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-static-ip)) (common-lisp:progn (common-lisp:defun get-static-ips @@ -31877,7 +31876,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetStaticIps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-static-ips)) (common-lisp:progn (common-lisp:defun import-key-pair @@ -31895,7 +31894,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ImportKeyPair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-key-pair)) (common-lisp:progn (common-lisp:defun is-vpc-peered () @@ -31921,7 +31920,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "OpenInstancePublicPorts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'open-instance-public-ports)) (common-lisp:progn (common-lisp:defun peer-vpc () @@ -31953,7 +31952,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'lightsail-request aws-sdk/generator/operation::input "POST" "/" "PutAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-alarm)) (common-lisp:progn (common-lisp:defun put-instance-public-ports @@ -31971,7 +31970,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutInstancePublicPorts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-instance-public-ports)) (common-lisp:progn (common-lisp:defun reboot-instance @@ -31988,7 +31987,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RebootInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-instance)) (common-lisp:progn (common-lisp:defun reboot-relational-database @@ -32006,7 +32005,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RebootRelationalDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-relational-database)) (common-lisp:progn (common-lisp:defun register-container-image @@ -32023,7 +32022,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RegisterContainerImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-container-image)) (common-lisp:progn (common-lisp:defun release-static-ip @@ -32040,7 +32039,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ReleaseStaticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'release-static-ip)) (common-lisp:progn (common-lisp:defun reset-distribution-cache @@ -32057,7 +32056,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ResetDistributionCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-distribution-cache)) (common-lisp:progn (common-lisp:defun send-contact-method-verification @@ -32075,7 +32074,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SendContactMethodVerification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-contact-method-verification)) (common-lisp:progn (common-lisp:defun set-ip-address-type @@ -32094,7 +32093,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetIpAddressType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-ip-address-type)) (common-lisp:progn (common-lisp:defun set-resource-access-for-bucket @@ -32113,7 +32112,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetResourceAccessForBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-resource-access-for-bucket)) (common-lisp:progn (common-lisp:defun setup-instance-https @@ -32133,7 +32132,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetupInstanceHttps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'setup-instance-https)) (common-lisp:progn (common-lisp:defun start-guisession @@ -32150,7 +32149,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StartGUISession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-guisession)) (common-lisp:progn (common-lisp:defun start-instance @@ -32167,7 +32166,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StartInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-instance)) (common-lisp:progn (common-lisp:defun start-relational-database @@ -32185,7 +32184,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StartRelationalDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-relational-database)) (common-lisp:progn (common-lisp:defun stop-guisession @@ -32202,7 +32201,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StopGUISession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-guisession)) (common-lisp:progn (common-lisp:defun stop-instance @@ -32219,7 +32218,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StopInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-instance)) (common-lisp:progn (common-lisp:defun stop-relational-database @@ -32239,7 +32238,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StopRelationalDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-relational-database)) (common-lisp:progn (common-lisp:defun tag-resource @@ -32257,7 +32256,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-alarm @@ -32274,7 +32273,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TestAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-alarm)) (common-lisp:progn (common-lisp:defun unpeer-vpc () @@ -32300,7 +32299,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-bucket @@ -32320,7 +32319,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bucket)) (common-lisp:progn (common-lisp:defun update-bucket-bundle @@ -32337,7 +32336,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateBucketBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bucket-bundle)) (common-lisp:progn (common-lisp:defun update-container-service @@ -32357,7 +32356,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateContainerService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-container-service)) (common-lisp:progn (common-lisp:defun update-distribution @@ -32378,7 +32377,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDistribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-distribution)) (common-lisp:progn (common-lisp:defun update-distribution-bundle @@ -32396,7 +32395,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDistributionBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-distribution-bundle)) (common-lisp:progn (common-lisp:defun update-domain-entry @@ -32413,7 +32412,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateDomainEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-entry)) (common-lisp:progn (common-lisp:defun update-instance-metadata-options @@ -32434,7 +32433,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateInstanceMetadataOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-instance-metadata-options)) (common-lisp:progn (common-lisp:defun update-load-balancer-attribute @@ -32454,7 +32453,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateLoadBalancerAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-load-balancer-attribute)) (common-lisp:progn (common-lisp:defun update-relational-database @@ -32483,7 +32482,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateRelationalDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-relational-database)) (common-lisp:progn (common-lisp:defun update-relational-database-parameters @@ -32502,5 +32501,5 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateRelationalDatabaseParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-relational-database-parameters)) diff --git a/services/location/api.lisp b/services/location/api.lisp index c333aee7..fd1591bd 100644 --- a/services/location/api.lisp +++ b/services/location/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/location/api - (:use) - (:nicknames #:aws/location) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/location/api (:use) + (:nicknames #:aws/location) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/location/api) (common-lisp:progn (common-lisp:define-condition location-error @@ -20,7 +19,7 @@ (common-lisp:export 'location-error)) (common-lisp:progn (common-lisp:defclass location-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "location" :api-version "2020-11-19" :host-prefix "geo" :signing-name "geo" @@ -5749,11 +5748,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5770,7 +5773,13 @@ ( (aws-sdk/generator/shape::input get-map-glyphs-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'blob))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'blob)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-map-glyphs-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-map-sprites-request common-lisp:nil ((file-name :initarg :file-name :initform @@ -5851,11 +5860,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5872,7 +5885,13 @@ ( (aws-sdk/generator/shape::input get-map-sprites-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'blob))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'blob)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-map-sprites-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-map-style-descriptor-request common-lisp:nil ((key :initarg :key :initform common-lisp:nil :type @@ -5947,11 +5966,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5968,7 +5991,13 @@ ( (aws-sdk/generator/shape::input get-map-style-descriptor-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'blob))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'blob)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-map-style-descriptor-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-map-tile-request common-lisp:nil ((key :initarg :key :initform common-lisp:nil :type @@ -6055,11 +6084,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6076,7 +6109,13 @@ ( (aws-sdk/generator/shape::input get-map-tile-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'blob))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'blob)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-map-tile-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-place-request common-lisp:nil ((index-name :initarg :index-name :initform @@ -11592,12 +11631,13 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/consumers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "AssociateTrackerConsumer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-tracker-consumer)) (common-lisp:progn (common-lisp:defun batch-delete-device-position-history @@ -11620,12 +11660,13 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/delete-positions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "BatchDeleteDevicePositionHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-device-position-history)) (common-lisp:progn (common-lisp:defun batch-delete-geofence @@ -11647,12 +11688,13 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A/delete-geofences" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)))) + 'collection-name) + common-lisp:t))) "BatchDeleteGeofence")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-geofence)) (common-lisp:progn (common-lisp:defun batch-evaluate-geofences @@ -11675,12 +11717,13 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A/positions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)))) + 'collection-name) + common-lisp:t))) "BatchEvaluateGeofences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-evaluate-geofences)) (common-lisp:progn (common-lisp:defun batch-get-device-position @@ -11703,12 +11746,13 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/get-positions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "BatchGetDevicePosition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-device-position)) (common-lisp:progn (common-lisp:defun batch-put-geofence @@ -11730,12 +11774,13 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A/put-geofences" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)))) + 'collection-name) + common-lisp:t))) "BatchPutGeofence")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-geofence)) (common-lisp:progn (common-lisp:defun batch-update-device-position @@ -11758,12 +11803,13 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/positions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "BatchUpdateDevicePosition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-device-position)) (common-lisp:progn (common-lisp:defun calculate-route @@ -11793,12 +11839,13 @@ (common-lisp:format common-lisp:nil "/routes/v0/calculators/~A/calculate/route" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculator-name)))) + 'calculator-name) + common-lisp:t))) "CalculateRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'calculate-route)) (common-lisp:progn (common-lisp:defun calculate-route-matrix @@ -11826,12 +11873,13 @@ (common-lisp:format common-lisp:nil "/routes/v0/calculators/~A/calculate/route-matrix" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculator-name)))) + 'calculator-name) + common-lisp:t))) "CalculateRouteMatrix")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'calculate-route-matrix)) (common-lisp:progn (common-lisp:defun create-geofence-collection @@ -11853,7 +11901,7 @@ "POST" "/geofencing/v0/collections" "CreateGeofenceCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-geofence-collection)) (common-lisp:progn (common-lisp:defun create-key @@ -11874,7 +11922,7 @@ "POST" "/metadata/v0/keys" "CreateKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-key)) (common-lisp:progn (common-lisp:defun create-map @@ -11894,7 +11942,7 @@ aws-sdk/generator/operation::input "POST" "/maps/v0/maps" "CreateMap")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-map)) (common-lisp:progn (common-lisp:defun create-place-index @@ -11915,7 +11963,7 @@ "POST" "/places/v0/indexes" "CreatePlaceIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-place-index)) (common-lisp:progn (common-lisp:defun create-route-calculator @@ -11936,7 +11984,7 @@ "POST" "/routes/v0/calculators" "CreateRouteCalculator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-route-calculator)) (common-lisp:progn (common-lisp:defun create-tracker @@ -11960,7 +12008,7 @@ "POST" "/tracking/v0/trackers" "CreateTracker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tracker)) (common-lisp:progn (common-lisp:defun delete-geofence-collection @@ -11983,12 +12031,13 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)))) + 'collection-name) + common-lisp:t))) "DeleteGeofenceCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-geofence-collection)) (common-lisp:progn (common-lisp:defun delete-key @@ -12010,12 +12059,13 @@ (common-lisp:format common-lisp:nil "/metadata/v0/keys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-name)))) + 'key-name) + common-lisp:t))) "DeleteKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-key)) (common-lisp:progn (common-lisp:defun delete-map @@ -12037,12 +12087,13 @@ (common-lisp:format common-lisp:nil "/maps/v0/maps/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'map-name)))) + 'map-name) + common-lisp:t))) "DeleteMap")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-map)) (common-lisp:progn (common-lisp:defun delete-place-index @@ -12064,12 +12115,13 @@ (common-lisp:format common-lisp:nil "/places/v0/indexes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-name)))) + 'index-name) + common-lisp:t))) "DeletePlaceIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-place-index)) (common-lisp:progn (common-lisp:defun delete-route-calculator @@ -12091,12 +12143,13 @@ (common-lisp:format common-lisp:nil "/routes/v0/calculators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculator-name)))) + 'calculator-name) + common-lisp:t))) "DeleteRouteCalculator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-route-calculator)) (common-lisp:progn (common-lisp:defun delete-tracker @@ -12118,12 +12171,13 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "DeleteTracker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tracker)) (common-lisp:progn (common-lisp:defun describe-geofence-collection @@ -12146,12 +12200,13 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)))) + 'collection-name) + common-lisp:t))) "DescribeGeofenceCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-geofence-collection)) (common-lisp:progn (common-lisp:defun describe-key @@ -12173,12 +12228,13 @@ (common-lisp:format common-lisp:nil "/metadata/v0/keys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-name)))) + 'key-name) + common-lisp:t))) "DescribeKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-key)) (common-lisp:progn (common-lisp:defun describe-map @@ -12200,12 +12256,13 @@ (common-lisp:format common-lisp:nil "/maps/v0/maps/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'map-name)))) + 'map-name) + common-lisp:t))) "DescribeMap")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-map)) (common-lisp:progn (common-lisp:defun describe-place-index @@ -12227,12 +12284,13 @@ (common-lisp:format common-lisp:nil "/places/v0/indexes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-name)))) + 'index-name) + common-lisp:t))) "DescribePlaceIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-place-index)) (common-lisp:progn (common-lisp:defun describe-route-calculator @@ -12255,12 +12313,13 @@ (common-lisp:format common-lisp:nil "/routes/v0/calculators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculator-name)))) + 'calculator-name) + common-lisp:t))) "DescribeRouteCalculator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-route-calculator)) (common-lisp:progn (common-lisp:defun describe-tracker @@ -12282,12 +12341,13 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "DescribeTracker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tracker)) (common-lisp:progn (common-lisp:defun disassociate-tracker-consumer @@ -12310,16 +12370,18 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/consumers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)) - (quri.encode:url-encode + 'tracker-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'consumer-arn)))) + 'consumer-arn) + common-lisp:t))) "DisassociateTrackerConsumer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-tracker-consumer)) (common-lisp:progn (common-lisp:defun get-device-position @@ -12341,16 +12403,18 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/devices/~A/positions/latest" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)) - (quri.encode:url-encode + 'tracker-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "GetDevicePosition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-position)) (common-lisp:progn (common-lisp:defun get-device-position-history @@ -12376,16 +12440,18 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/devices/~A/list-positions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)) - (quri.encode:url-encode + 'tracker-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "GetDevicePositionHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-position-history)) (common-lisp:progn (common-lisp:defun get-geofence @@ -12407,16 +12473,18 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A/geofences/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)) - (quri.encode:url-encode + 'collection-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'geofence-id)))) + 'geofence-id) + common-lisp:t))) "GetGeofence")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-geofence)) (common-lisp:progn (common-lisp:defun get-map-glyphs @@ -12440,21 +12508,24 @@ (common-lisp:format common-lisp:nil "/maps/v0/maps/~A/glyphs/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'map-name)) - (quri.encode:url-encode + 'map-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'font-stack)) - (quri.encode:url-encode + 'font-stack) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'font-unicode-range)))) + 'font-unicode-range) + common-lisp:t))) "GetMapGlyphs") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-map-glyphs)) (common-lisp:progn (common-lisp:defun get-map-sprites @@ -12476,17 +12547,19 @@ (common-lisp:format common-lisp:nil "/maps/v0/maps/~A/sprites/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'map-name)) - (quri.encode:url-encode + 'map-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'file-name)))) + 'file-name) + common-lisp:t))) "GetMapSprites") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-map-sprites)) (common-lisp:progn (common-lisp:defun get-map-style-descriptor @@ -12508,13 +12581,14 @@ (common-lisp:format common-lisp:nil "/maps/v0/maps/~A/style-descriptor" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'map-name)))) + 'map-name) + common-lisp:t))) "GetMapStyleDescriptor") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-map-style-descriptor)) (common-lisp:progn (common-lisp:defun get-map-tile @@ -12536,25 +12610,29 @@ (common-lisp:format common-lisp:nil "/maps/v0/maps/~A/tiles/~A/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'map-name)) - (quri.encode:url-encode + 'map-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'z)) - (quri.encode:url-encode + 'z) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'x)) - (quri.encode:url-encode + 'x) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'y)))) + 'y) + common-lisp:t))) "GetMapTile") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-map-tile)) (common-lisp:progn (common-lisp:defun get-place @@ -12577,16 +12655,18 @@ (common-lisp:format common-lisp:nil "/places/v0/indexes/~A/places/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-name)) - (quri.encode:url-encode + 'index-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'place-id)))) + 'place-id) + common-lisp:t))) "GetPlace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-place)) (common-lisp:progn (common-lisp:defun list-device-positions @@ -12611,12 +12691,13 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/list-positions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "ListDevicePositions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-positions)) (common-lisp:progn (common-lisp:defun list-geofence-collections @@ -12635,7 +12716,7 @@ "POST" "/geofencing/v0/list-collections" "ListGeofenceCollections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-geofence-collections)) (common-lisp:progn (common-lisp:defun list-geofences @@ -12658,12 +12739,13 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A/list-geofences" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)))) + 'collection-name) + common-lisp:t))) "ListGeofences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-geofences)) (common-lisp:progn (common-lisp:defun list-keys @@ -12681,7 +12763,7 @@ "POST" "/metadata/v0/list-keys" "ListKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-keys)) (common-lisp:progn (common-lisp:defun list-maps @@ -12699,7 +12781,7 @@ "POST" "/maps/v0/list-maps" "ListMaps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-maps)) (common-lisp:progn (common-lisp:defun list-place-indexes @@ -12717,7 +12799,7 @@ "POST" "/places/v0/list-indexes" "ListPlaceIndexes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-place-indexes)) (common-lisp:progn (common-lisp:defun list-route-calculators @@ -12735,7 +12817,7 @@ "POST" "/routes/v0/list-calculators" "ListRouteCalculators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-route-calculators)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12757,12 +12839,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-tracker-consumers @@ -12785,12 +12868,13 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A/list-consumers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "ListTrackerConsumers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tracker-consumers)) (common-lisp:progn (common-lisp:defun list-trackers @@ -12808,7 +12892,7 @@ "POST" "/tracking/v0/list-trackers" "ListTrackers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-trackers)) (common-lisp:progn (common-lisp:defun put-geofence @@ -12833,16 +12917,18 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A/geofences/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)) - (quri.encode:url-encode + 'collection-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'geofence-id)))) + 'geofence-id) + common-lisp:t))) "PutGeofence")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-geofence)) (common-lisp:progn (common-lisp:defun search-place-index-for-position @@ -12867,12 +12953,13 @@ (common-lisp:format common-lisp:nil "/places/v0/indexes/~A/search/position" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-name)))) + 'index-name) + common-lisp:t))) "SearchPlaceIndexForPosition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-place-index-for-position)) (common-lisp:progn (common-lisp:defun search-place-index-for-suggestions @@ -12899,12 +12986,13 @@ (common-lisp:format common-lisp:nil "/places/v0/indexes/~A/search/suggestions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-name)))) + 'index-name) + common-lisp:t))) "SearchPlaceIndexForSuggestions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-place-index-for-suggestions)) (common-lisp:progn (common-lisp:defun search-place-index-for-text @@ -12931,12 +13019,13 @@ (common-lisp:format common-lisp:nil "/places/v0/indexes/~A/search/text" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-name)))) + 'index-name) + common-lisp:t))) "SearchPlaceIndexForText")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-place-index-for-text)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12958,12 +13047,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12985,12 +13075,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-geofence-collection @@ -13016,12 +13107,13 @@ (common-lisp:format common-lisp:nil "/geofencing/v0/collections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'collection-name)))) + 'collection-name) + common-lisp:t))) "UpdateGeofenceCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-geofence-collection)) (common-lisp:progn (common-lisp:defun update-key @@ -13046,12 +13138,13 @@ (common-lisp:format common-lisp:nil "/metadata/v0/keys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-name)))) + 'key-name) + common-lisp:t))) "UpdateKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-key)) (common-lisp:progn (common-lisp:defun update-map @@ -13076,12 +13169,13 @@ (common-lisp:format common-lisp:nil "/maps/v0/maps/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'map-name)))) + 'map-name) + common-lisp:t))) "UpdateMap")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-map)) (common-lisp:progn (common-lisp:defun update-place-index @@ -13106,12 +13200,13 @@ (common-lisp:format common-lisp:nil "/places/v0/indexes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-name)))) + 'index-name) + common-lisp:t))) "UpdatePlaceIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-place-index)) (common-lisp:progn (common-lisp:defun update-route-calculator @@ -13134,12 +13229,13 @@ (common-lisp:format common-lisp:nil "/routes/v0/calculators/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'calculator-name)))) + 'calculator-name) + common-lisp:t))) "UpdateRouteCalculator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-route-calculator)) (common-lisp:progn (common-lisp:defun update-tracker @@ -13166,10 +13262,11 @@ (common-lisp:format common-lisp:nil "/tracking/v0/trackers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'tracker-name)))) + 'tracker-name) + common-lisp:t))) "UpdateTracker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-tracker)) diff --git a/services/logs/api.lisp b/services/logs/api.lisp index a84a6f8b..9c9f39ad 100644 --- a/services/logs/api.lisp +++ b/services/logs/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/logs/api - (:use) - (:nicknames #:aws/logs) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/logs/api (:use) + (:nicknames #:aws/logs) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/logs/api) (common-lisp:progn (common-lisp:define-condition logs-error @@ -10911,7 +10910,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateKmsKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-kms-key)) (common-lisp:progn (common-lisp:defun cancel-export-task @@ -10928,7 +10927,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelExportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-export-task)) (common-lisp:progn (common-lisp:defun create-delivery @@ -10947,7 +10946,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDelivery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-delivery)) (common-lisp:progn (common-lisp:defun create-export-task @@ -10968,7 +10967,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateExportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-export-task)) (common-lisp:progn (common-lisp:defun create-log-anomaly-detector @@ -10991,7 +10990,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLogAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-log-anomaly-detector)) (common-lisp:progn (common-lisp:defun create-log-group @@ -11010,7 +11009,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLogGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-log-group)) (common-lisp:progn (common-lisp:defun create-log-stream @@ -11027,7 +11026,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLogStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-log-stream)) (common-lisp:progn (common-lisp:defun delete-account-policy @@ -11044,7 +11043,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAccountPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-account-policy)) (common-lisp:progn (common-lisp:defun delete-data-protection-policy @@ -11062,7 +11061,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataProtectionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-protection-policy)) (common-lisp:progn (common-lisp:defun delete-delivery @@ -11079,7 +11078,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDelivery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-delivery)) (common-lisp:progn (common-lisp:defun delete-delivery-destination @@ -11097,7 +11096,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeliveryDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-delivery-destination)) (common-lisp:progn (common-lisp:defun delete-delivery-destination-policy @@ -11115,7 +11114,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeliveryDestinationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-delivery-destination-policy)) (common-lisp:progn (common-lisp:defun delete-delivery-source @@ -11132,7 +11131,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeliverySource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-delivery-source)) (common-lisp:progn (common-lisp:defun delete-destination @@ -11149,7 +11148,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-destination)) (common-lisp:progn (common-lisp:defun delete-log-anomaly-detector @@ -11167,7 +11166,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLogAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-log-anomaly-detector)) (common-lisp:progn (common-lisp:defun delete-log-group @@ -11184,7 +11183,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLogGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-log-group)) (common-lisp:progn (common-lisp:defun delete-log-stream @@ -11201,7 +11200,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLogStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-log-stream)) (common-lisp:progn (common-lisp:defun delete-metric-filter @@ -11218,7 +11217,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMetricFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-metric-filter)) (common-lisp:progn (common-lisp:defun delete-query-definition @@ -11235,7 +11234,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteQueryDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-query-definition)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -11252,7 +11251,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-retention-policy @@ -11269,7 +11268,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRetentionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-retention-policy)) (common-lisp:progn (common-lisp:defun delete-subscription-filter @@ -11287,7 +11286,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSubscriptionFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subscription-filter)) (common-lisp:progn (common-lisp:defun describe-account-policies @@ -11307,7 +11306,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccountPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-policies)) (common-lisp:progn (common-lisp:defun describe-deliveries @@ -11324,7 +11323,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDeliveries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-deliveries)) (common-lisp:progn (common-lisp:defun describe-delivery-destinations @@ -11342,7 +11341,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDeliveryDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-delivery-destinations)) (common-lisp:progn (common-lisp:defun describe-delivery-sources @@ -11360,7 +11359,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDeliverySources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-delivery-sources)) (common-lisp:progn (common-lisp:defun describe-destinations @@ -11378,7 +11377,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-destinations)) (common-lisp:progn (common-lisp:defun describe-export-tasks @@ -11396,7 +11395,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExportTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-export-tasks)) (common-lisp:progn (common-lisp:defun describe-log-groups @@ -11418,7 +11417,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLogGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-log-groups)) (common-lisp:progn (common-lisp:defun describe-log-streams @@ -11439,7 +11438,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLogStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-log-streams)) (common-lisp:progn (common-lisp:defun describe-metric-filters @@ -11459,7 +11458,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMetricFilters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-metric-filters)) (common-lisp:progn (common-lisp:defun describe-queries @@ -11478,7 +11477,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeQueries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-queries)) (common-lisp:progn (common-lisp:defun describe-query-definitions @@ -11499,7 +11498,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeQueryDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-query-definitions)) (common-lisp:progn (common-lisp:defun describe-resource-policies @@ -11517,7 +11516,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeResourcePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-policies)) (common-lisp:progn (common-lisp:defun describe-subscription-filters @@ -11537,7 +11536,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSubscriptionFilters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-subscription-filters)) (common-lisp:progn (common-lisp:defun disassociate-kms-key @@ -11555,7 +11554,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateKmsKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-kms-key)) (common-lisp:progn (common-lisp:defun filter-log-events @@ -11578,7 +11577,7 @@ aws-sdk/generator/operation::input "POST" "/" "FilterLogEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'filter-log-events)) (common-lisp:progn (common-lisp:defun get-data-protection-policy @@ -11596,7 +11595,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDataProtectionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-protection-policy)) (common-lisp:progn (common-lisp:defun get-delivery @@ -11613,7 +11612,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDelivery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-delivery)) (common-lisp:progn (common-lisp:defun get-delivery-destination @@ -11630,7 +11629,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeliveryDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-delivery-destination)) (common-lisp:progn (common-lisp:defun get-delivery-destination-policy @@ -11648,7 +11647,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeliveryDestinationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-delivery-destination-policy)) (common-lisp:progn (common-lisp:defun get-delivery-source @@ -11665,7 +11664,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeliverySource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-delivery-source)) (common-lisp:progn (common-lisp:defun get-log-anomaly-detector @@ -11682,7 +11681,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLogAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-log-anomaly-detector)) (common-lisp:progn (common-lisp:defun get-log-events @@ -11703,7 +11702,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLogEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-log-events)) (common-lisp:progn (common-lisp:defun get-log-group-fields @@ -11721,7 +11720,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLogGroupFields")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-log-group-fields)) (common-lisp:progn (common-lisp:defun get-log-record @@ -11738,7 +11737,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLogRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-log-record)) (common-lisp:progn (common-lisp:defun get-query-results @@ -11755,7 +11754,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetQueryResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-query-results)) (common-lisp:progn (common-lisp:defun list-anomalies @@ -11775,7 +11774,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAnomalies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-anomalies)) (common-lisp:progn (common-lisp:defun list-log-anomaly-detectors @@ -11794,7 +11793,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLogAnomalyDetectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-log-anomaly-detectors)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11811,7 +11810,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-tags-log-group @@ -11828,7 +11827,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsLogGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-log-group)) (common-lisp:progn (common-lisp:defun put-account-policy @@ -11848,7 +11847,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAccountPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-policy)) (common-lisp:progn (common-lisp:defun put-data-protection-policy @@ -11867,7 +11866,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDataProtectionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-data-protection-policy)) (common-lisp:progn (common-lisp:defun put-delivery-destination @@ -11887,7 +11886,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDeliveryDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-delivery-destination)) (common-lisp:progn (common-lisp:defun put-delivery-destination-policy @@ -11908,7 +11907,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDeliveryDestinationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-delivery-destination-policy)) (common-lisp:progn (common-lisp:defun put-delivery-source @@ -11926,7 +11925,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDeliverySource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-delivery-source)) (common-lisp:progn (common-lisp:defun put-destination @@ -11945,7 +11944,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-destination)) (common-lisp:progn (common-lisp:defun put-destination-policy @@ -11964,7 +11963,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDestinationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-destination-policy)) (common-lisp:progn (common-lisp:defun put-log-events @@ -11984,7 +11983,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutLogEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-log-events)) (common-lisp:progn (common-lisp:defun put-metric-filter @@ -12004,7 +12003,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutMetricFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-metric-filter)) (common-lisp:progn (common-lisp:defun put-query-definition @@ -12024,7 +12023,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutQueryDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-query-definition)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -12041,7 +12040,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun put-retention-policy @@ -12059,7 +12058,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRetentionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-retention-policy)) (common-lisp:progn (common-lisp:defun put-subscription-filter @@ -12079,7 +12078,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutSubscriptionFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-subscription-filter)) (common-lisp:progn (common-lisp:defun start-live-tail @@ -12099,7 +12098,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartLiveTail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-live-tail)) (common-lisp:progn (common-lisp:defun start-query @@ -12120,7 +12119,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-query)) (common-lisp:progn (common-lisp:defun stop-query @@ -12137,7 +12136,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-query)) (common-lisp:progn (common-lisp:defun tag-log-group @@ -12154,7 +12153,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagLogGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-log-group)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12171,7 +12170,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-metric-filter @@ -12189,7 +12188,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestMetricFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-metric-filter)) (common-lisp:progn (common-lisp:defun untag-log-group @@ -12206,7 +12205,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagLogGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-log-group)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12223,7 +12222,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-anomaly @@ -12243,7 +12242,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAnomaly")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-anomaly)) (common-lisp:progn (common-lisp:defun update-log-anomaly-detector @@ -12264,5 +12263,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateLogAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-log-anomaly-detector)) diff --git a/services/lookoutequipment/api.lisp b/services/lookoutequipment/api.lisp index 0d53631f..3a3dc7e0 100644 --- a/services/lookoutequipment/api.lisp +++ b/services/lookoutequipment/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/lookoutequipment/api - (:use) - (:nicknames #:aws/lookoutequipment) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/lookoutequipment/api (:use) + (:nicknames #:aws/lookoutequipment) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/lookoutequipment/api) (common-lisp:progn (common-lisp:define-condition lookoutequipment-error @@ -11145,7 +11144,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-inference-scheduler @@ -11169,7 +11168,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "CreateInferenceScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-inference-scheduler)) (common-lisp:progn (common-lisp:defun create-label @@ -11188,7 +11187,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "CreateLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-label)) (common-lisp:progn (common-lisp:defun create-label-group @@ -11206,7 +11205,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "CreateLabelGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-label-group)) (common-lisp:progn (common-lisp:defun create-model @@ -11233,7 +11232,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "CreateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model)) (common-lisp:progn (common-lisp:defun create-retraining-scheduler @@ -11254,7 +11253,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "CreateRetrainingScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-retraining-scheduler)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -11270,7 +11269,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun delete-inference-scheduler @@ -11287,7 +11286,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DeleteInferenceScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-inference-scheduler)) (common-lisp:progn (common-lisp:defun delete-label @@ -11303,7 +11302,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DeleteLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-label)) (common-lisp:progn (common-lisp:defun delete-label-group @@ -11319,7 +11318,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DeleteLabelGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-label-group)) (common-lisp:progn (common-lisp:defun delete-model @@ -11335,7 +11334,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DeleteModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -11351,7 +11350,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-retraining-scheduler @@ -11368,7 +11367,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DeleteRetrainingScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-retraining-scheduler)) (common-lisp:progn (common-lisp:defun describe-data-ingestion-job @@ -11385,7 +11384,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeDataIngestionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-ingestion-job)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -11401,7 +11400,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-inference-scheduler @@ -11418,7 +11417,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeInferenceScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-inference-scheduler)) (common-lisp:progn (common-lisp:defun describe-label @@ -11434,7 +11433,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-label)) (common-lisp:progn (common-lisp:defun describe-label-group @@ -11450,7 +11449,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeLabelGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-label-group)) (common-lisp:progn (common-lisp:defun describe-model @@ -11466,7 +11465,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model)) (common-lisp:progn (common-lisp:defun describe-model-version @@ -11482,7 +11481,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeModelVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-version)) (common-lisp:progn (common-lisp:defun describe-resource-policy @@ -11498,7 +11497,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-policy)) (common-lisp:progn (common-lisp:defun describe-retraining-scheduler @@ -11515,7 +11514,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "DescribeRetrainingScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-retraining-scheduler)) (common-lisp:progn (common-lisp:defun import-dataset @@ -11534,7 +11533,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ImportDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-dataset)) (common-lisp:progn (common-lisp:defun import-model-version @@ -11556,7 +11555,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ImportModelVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-model-version)) (common-lisp:progn (common-lisp:defun list-data-ingestion-jobs @@ -11574,7 +11573,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListDataIngestionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-ingestion-jobs)) (common-lisp:progn (common-lisp:defun list-datasets @@ -11592,7 +11591,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasets)) (common-lisp:progn (common-lisp:defun list-inference-events @@ -11612,7 +11611,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListInferenceEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inference-events)) (common-lisp:progn (common-lisp:defun list-inference-executions @@ -11633,7 +11632,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListInferenceExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inference-executions)) (common-lisp:progn (common-lisp:defun list-inference-schedulers @@ -11653,7 +11652,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListInferenceSchedulers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inference-schedulers)) (common-lisp:progn (common-lisp:defun list-label-groups @@ -11672,7 +11671,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListLabelGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-label-groups)) (common-lisp:progn (common-lisp:defun list-labels @@ -11692,7 +11691,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-labels)) (common-lisp:progn (common-lisp:defun list-model-versions @@ -11713,7 +11712,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListModelVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-versions)) (common-lisp:progn (common-lisp:defun list-models @@ -11732,7 +11731,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-models)) (common-lisp:progn (common-lisp:defun list-retraining-schedulers @@ -11752,7 +11751,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListRetrainingSchedulers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-retraining-schedulers)) (common-lisp:progn (common-lisp:defun list-sensor-statistics @@ -11771,7 +11770,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListSensorStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sensor-statistics)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11787,7 +11786,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -11806,7 +11805,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun start-data-ingestion-job @@ -11825,7 +11824,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "StartDataIngestionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-data-ingestion-job)) (common-lisp:progn (common-lisp:defun start-inference-scheduler @@ -11842,7 +11841,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "StartInferenceScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-inference-scheduler)) (common-lisp:progn (common-lisp:defun start-retraining-scheduler @@ -11859,7 +11858,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "StartRetrainingScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-retraining-scheduler)) (common-lisp:progn (common-lisp:defun stop-inference-scheduler @@ -11875,7 +11874,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "StopInferenceScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-inference-scheduler)) (common-lisp:progn (common-lisp:defun stop-retraining-scheduler @@ -11892,7 +11891,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "StopRetrainingScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-retraining-scheduler)) (common-lisp:progn (common-lisp:defun tag-resource @@ -11908,7 +11907,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -11924,7 +11923,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-active-model-version @@ -11941,7 +11940,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "UpdateActiveModelVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-active-model-version)) (common-lisp:progn (common-lisp:defun update-inference-scheduler @@ -11964,7 +11963,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "UpdateInferenceScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-inference-scheduler)) (common-lisp:progn (common-lisp:defun update-label-group @@ -11980,7 +11979,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "UpdateLabelGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-label-group)) (common-lisp:progn (common-lisp:defun update-model @@ -11999,7 +11998,7 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "UpdateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model)) (common-lisp:progn (common-lisp:defun update-retraining-scheduler @@ -12019,5 +12018,5 @@ (aws-sdk/generator/shape:make-request-with-input 'lookoutequipment-request aws-sdk/generator/operation::input "POST" "/" "UpdateRetrainingScheduler")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-retraining-scheduler)) diff --git a/services/lookoutmetrics/api.lisp b/services/lookoutmetrics/api.lisp index e90bea02..5fb7d79b 100644 --- a/services/lookoutmetrics/api.lisp +++ b/services/lookoutmetrics/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/lookoutmetrics/api - (:use) - (:nicknames #:aws/lookoutmetrics) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/lookoutmetrics/api (:use) + (:nicknames #:aws/lookoutmetrics) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/lookoutmetrics/api) (common-lisp:progn (common-lisp:define-condition lookoutmetrics-error @@ -20,7 +19,7 @@ (common-lisp:export 'lookoutmetrics-error)) (common-lisp:progn (common-lisp:defclass lookoutmetrics-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "lookoutmetrics" :api-version "2017-07-25" :host-prefix "lookoutmetrics" @@ -8033,7 +8032,7 @@ "POST" "/ActivateAnomalyDetector" "ActivateAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-anomaly-detector)) (common-lisp:progn (common-lisp:defun back-test-anomaly-detector @@ -8052,7 +8051,7 @@ "POST" "/BackTestAnomalyDetector" "BackTestAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'back-test-anomaly-detector)) (common-lisp:progn (common-lisp:defun create-alert @@ -8073,7 +8072,7 @@ aws-sdk/generator/operation::input "POST" "/CreateAlert" "CreateAlert")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alert)) (common-lisp:progn (common-lisp:defun create-anomaly-detector @@ -8095,7 +8094,7 @@ "POST" "/CreateAnomalyDetector" "CreateAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-anomaly-detector)) (common-lisp:progn (common-lisp:defun create-metric-set @@ -8119,7 +8118,7 @@ "POST" "/CreateMetricSet" "CreateMetricSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-metric-set)) (common-lisp:progn (common-lisp:defun deactivate-anomaly-detector @@ -8138,7 +8137,7 @@ "POST" "/DeactivateAnomalyDetector" "DeactivateAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deactivate-anomaly-detector)) (common-lisp:progn (common-lisp:defun delete-alert @@ -8155,7 +8154,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteAlert" "DeleteAlert")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alert)) (common-lisp:progn (common-lisp:defun delete-anomaly-detector @@ -8173,7 +8172,7 @@ "POST" "/DeleteAnomalyDetector" "DeleteAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-anomaly-detector)) (common-lisp:progn (common-lisp:defun describe-alert @@ -8190,7 +8189,7 @@ aws-sdk/generator/operation::input "POST" "/DescribeAlert" "DescribeAlert")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-alert)) (common-lisp:progn (common-lisp:defun describe-anomaly-detection-executions @@ -8212,7 +8211,7 @@ "POST" "/DescribeAnomalyDetectionExecutions" "DescribeAnomalyDetectionExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-anomaly-detection-executions)) (common-lisp:progn (common-lisp:defun describe-anomaly-detector @@ -8231,7 +8230,7 @@ "POST" "/DescribeAnomalyDetector" "DescribeAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-anomaly-detector)) (common-lisp:progn (common-lisp:defun describe-metric-set @@ -8249,7 +8248,7 @@ "POST" "/DescribeMetricSet" "DescribeMetricSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-metric-set)) (common-lisp:progn (common-lisp:defun detect-metric-set-config @@ -8269,7 +8268,7 @@ "POST" "/DetectMetricSetConfig" "DetectMetricSetConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-metric-set-config)) (common-lisp:progn (common-lisp:defun get-anomaly-group @@ -8288,7 +8287,7 @@ "POST" "/GetAnomalyGroup" "GetAnomalyGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-anomaly-group)) (common-lisp:progn (common-lisp:defun get-data-quality-metrics @@ -8307,7 +8306,7 @@ "POST" "/GetDataQualityMetrics" "GetDataQualityMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-quality-metrics)) (common-lisp:progn (common-lisp:defun get-feedback @@ -8327,7 +8326,7 @@ aws-sdk/generator/operation::input "POST" "/GetFeedback" "GetFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-feedback)) (common-lisp:progn (common-lisp:defun get-sample-data @@ -8344,7 +8343,7 @@ aws-sdk/generator/operation::input "POST" "/GetSampleData" "GetSampleData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sample-data)) (common-lisp:progn (common-lisp:defun list-alerts @@ -8363,7 +8362,7 @@ aws-sdk/generator/operation::input "POST" "/ListAlerts" "ListAlerts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-alerts)) (common-lisp:progn (common-lisp:defun list-anomaly-detectors @@ -8381,7 +8380,7 @@ "POST" "/ListAnomalyDetectors" "ListAnomalyDetectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-anomaly-detectors)) (common-lisp:progn (common-lisp:defun list-anomaly-group-related-metrics @@ -8403,7 +8402,7 @@ "POST" "/ListAnomalyGroupRelatedMetrics" "ListAnomalyGroupRelatedMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-anomaly-group-related-metrics)) (common-lisp:progn (common-lisp:defun list-anomaly-group-summaries @@ -8425,7 +8424,7 @@ "POST" "/ListAnomalyGroupSummaries" "ListAnomalyGroupSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-anomaly-group-summaries)) (common-lisp:progn (common-lisp:defun list-anomaly-group-time-series @@ -8447,7 +8446,7 @@ "POST" "/ListAnomalyGroupTimeSeries" "ListAnomalyGroupTimeSeries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-anomaly-group-time-series)) (common-lisp:progn (common-lisp:defun list-metric-sets @@ -8467,7 +8466,7 @@ "POST" "/ListMetricSets" "ListMetricSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-metric-sets)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8489,12 +8488,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-feedback @@ -8514,7 +8514,7 @@ aws-sdk/generator/operation::input "POST" "/PutFeedback" "PutFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-feedback)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8536,12 +8536,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8563,12 +8564,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-alert @@ -8588,7 +8590,7 @@ aws-sdk/generator/operation::input "POST" "/UpdateAlert" "UpdateAlert")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-alert)) (common-lisp:progn (common-lisp:defun update-anomaly-detector @@ -8609,7 +8611,7 @@ "POST" "/UpdateAnomalyDetector" "UpdateAnomalyDetector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-anomaly-detector)) (common-lisp:progn (common-lisp:defun update-metric-set @@ -8632,5 +8634,5 @@ "POST" "/UpdateMetricSet" "UpdateMetricSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-metric-set)) diff --git a/services/lookoutvision/api.lisp b/services/lookoutvision/api.lisp index 42aa36d8..bcb1890f 100644 --- a/services/lookoutvision/api.lisp +++ b/services/lookoutvision/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/lookoutvision/api - (:use) - (:nicknames #:aws/lookoutvision) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/lookoutvision/api (:use) + (:nicknames #:aws/lookoutvision) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/lookoutvision/api) (common-lisp:progn (common-lisp:define-condition lookoutvision-error @@ -20,7 +19,7 @@ (common-lisp:export 'lookoutvision-error)) (common-lisp:progn (common-lisp:defclass lookoutvision-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "lookoutvision" :api-version "2020-11-20" :host-prefix "lookoutvision" :signing-name @@ -161,8 +160,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -280,8 +280,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-model-request)) (common-lisp:append @@ -385,8 +386,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -825,8 +827,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -898,8 +901,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input delete-model-request)) (common-lisp:append)) @@ -974,8 +978,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1375,7 +1380,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1392,7 +1399,13 @@ ( (aws-sdk/generator/shape::input detect-anomalies-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + detect-anomalies-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass detect-anomalies-response common-lisp:nil ((detect-anomaly-result :initarg :detect-anomaly-result @@ -3551,8 +3564,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3684,8 +3698,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input start-model-request)) (common-lisp:append @@ -3771,8 +3786,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input stop-model-request)) (common-lisp:append)) @@ -4113,8 +4129,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amzn-Client-Token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4201,12 +4218,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/datasets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-model @@ -4231,12 +4249,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/models" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "CreateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model)) (common-lisp:progn (common-lisp:defun create-project @@ -4254,7 +4273,7 @@ "POST" "/2020-11-20/projects" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -4277,16 +4296,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-type)))) + 'dataset-type) + common-lisp:t))) "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun delete-model @@ -4309,16 +4330,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-version)))) + 'model-version) + common-lisp:t))) "DeleteModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model)) (common-lisp:progn (common-lisp:defun delete-project @@ -4340,12 +4363,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -4367,16 +4391,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-type)))) + 'dataset-type) + common-lisp:t))) "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-model @@ -4398,16 +4424,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/models/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-version)))) + 'model-version) + common-lisp:t))) "DescribeModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model)) (common-lisp:progn (common-lisp:defun describe-model-packaging-job @@ -4430,16 +4458,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/modelpackagingjobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-name)))) + 'job-name) + common-lisp:t))) "DescribeModelPackagingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-packaging-job)) (common-lisp:progn (common-lisp:defun describe-project @@ -4461,12 +4491,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "DescribeProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-project)) (common-lisp:progn (common-lisp:defun detect-anomalies @@ -4490,16 +4521,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/models/~A/detect" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-version)))) + 'model-version) + common-lisp:t))) "DetectAnomalies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-anomalies)) (common-lisp:progn (common-lisp:defun list-dataset-entries @@ -4526,16 +4559,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/datasets/~A/entries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-type)))) + 'dataset-type) + common-lisp:t))) "ListDatasetEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-entries)) (common-lisp:progn (common-lisp:defun list-model-packaging-jobs @@ -4559,12 +4594,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/modelpackagingjobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "ListModelPackagingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-packaging-jobs)) (common-lisp:progn (common-lisp:defun list-models @@ -4587,12 +4623,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/models" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "ListModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-models)) (common-lisp:progn (common-lisp:defun list-projects @@ -4610,7 +4647,7 @@ "GET" "/2020-11-20/projects" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4632,12 +4669,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-model @@ -4662,16 +4700,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/models/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-version)))) + 'model-version) + common-lisp:t))) "StartModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-model)) (common-lisp:progn (common-lisp:defun start-model-packaging-job @@ -4697,12 +4737,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/modelpackagingjobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)))) + 'project-name) + common-lisp:t))) "StartModelPackagingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-model-packaging-job)) (common-lisp:progn (common-lisp:defun stop-model @@ -4725,16 +4766,18 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/models/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'model-version)))) + 'model-version) + common-lisp:t))) "StopModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-model)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4756,12 +4799,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4783,12 +4827,13 @@ (common-lisp:format common-lisp:nil "/2020-11-20/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-dataset-entries @@ -4812,14 +4857,16 @@ (common-lisp:format common-lisp:nil "/2020-11-20/projects/~A/datasets/~A/entries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-name)) - (quri.encode:url-encode + 'project-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-type)))) + 'dataset-type) + common-lisp:t))) "UpdateDatasetEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dataset-entries)) diff --git a/services/m2/api.lisp b/services/m2/api.lisp index 3defc8f1..8ae4e943 100644 --- a/services/m2/api.lisp +++ b/services/m2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/m2/api - (:use) - (:nicknames #:aws/m2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/m2/api (:use) + (:nicknames #:aws/m2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/m2/api) (common-lisp:progn (common-lisp:define-condition m2-error @@ -19,8 +18,7 @@ common-lisp:nil) (common-lisp:export 'm2-error)) (common-lisp:progn - (common-lisp:defclass m2-request - (aws-sdk/generator/service::rest-json-request) + (common-lisp:defclass m2-request (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "m2" :api-version "2021-04-28" :host-prefix "m2" :signing-name "m2" @@ -7336,16 +7334,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/batch-job-executions/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'execution-id)))) + 'execution-id) + common-lisp:t))) "CancelBatchJobExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-batch-job-execution)) (common-lisp:progn (common-lisp:defun create-application @@ -7365,7 +7365,7 @@ aws-sdk/generator/operation::input "POST" "/applications" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-data-set-import-task @@ -7390,12 +7390,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/dataset-import-task" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateDataSetImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-set-import-task)) (common-lisp:progn (common-lisp:defun create-deployment @@ -7420,12 +7421,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun create-environment @@ -7450,7 +7452,7 @@ aws-sdk/generator/operation::input "POST" "/environments" "CreateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun delete-application @@ -7472,12 +7474,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-application-from-environment @@ -7500,16 +7503,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/environment/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "DeleteApplicationFromEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-from-environment)) (common-lisp:progn (common-lisp:defun delete-environment @@ -7531,12 +7536,13 @@ (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun get-application @@ -7558,12 +7564,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-application-version @@ -7586,16 +7593,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-version)))) + 'application-version) + common-lisp:t))) "GetApplicationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-version)) (common-lisp:progn (common-lisp:defun get-batch-job-execution @@ -7617,16 +7626,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/batch-job-executions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'execution-id)))) + 'execution-id) + common-lisp:t))) "GetBatchJobExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-batch-job-execution)) (common-lisp:progn (common-lisp:defun get-data-set-details @@ -7648,16 +7659,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/datasets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-name)))) + 'data-set-name) + common-lisp:t))) "GetDataSetDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-set-details)) (common-lisp:progn (common-lisp:defun get-data-set-import-task @@ -7679,16 +7692,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/dataset-import-tasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "GetDataSetImportTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-set-import-task)) (common-lisp:progn (common-lisp:defun get-deployment @@ -7710,16 +7725,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/deployments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'deployment-id)))) + 'deployment-id) + common-lisp:t))) "GetDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment)) (common-lisp:progn (common-lisp:defun get-environment @@ -7741,12 +7758,13 @@ (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "GetEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment)) (common-lisp:progn (common-lisp:defun get-signed-bluinsights-url () @@ -7779,12 +7797,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListApplicationVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-versions)) (common-lisp:progn (common-lisp:defun list-applications @@ -7803,7 +7822,7 @@ aws-sdk/generator/operation::input "GET" "/applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-batch-job-definitions @@ -7828,12 +7847,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/batch-job-definitions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListBatchJobDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-batch-job-definitions)) (common-lisp:progn (common-lisp:defun list-batch-job-executions @@ -7860,12 +7880,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/batch-job-executions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListBatchJobExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-batch-job-executions)) (common-lisp:progn (common-lisp:defun list-data-set-import-history @@ -7889,12 +7910,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/dataset-import-tasks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListDataSetImportHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-set-import-history)) (common-lisp:progn (common-lisp:defun list-data-sets @@ -7919,12 +7941,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/datasets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListDataSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sets)) (common-lisp:progn (common-lisp:defun list-deployments @@ -7947,12 +7970,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/deployments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployments)) (common-lisp:progn (common-lisp:defun list-engine-versions @@ -7971,7 +7995,7 @@ "GET" "/engine-versions" "ListEngineVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-engine-versions)) (common-lisp:progn (common-lisp:defun list-environments @@ -7989,7 +8013,7 @@ aws-sdk/generator/operation::input "GET" "/environments" "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8011,12 +8035,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-application @@ -8038,12 +8063,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "StartApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-application)) (common-lisp:progn (common-lisp:defun start-batch-job @@ -8067,12 +8093,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/batch-job" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "StartBatchJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-batch-job)) (common-lisp:progn (common-lisp:defun stop-application @@ -8094,12 +8121,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "StopApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-application)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8121,12 +8149,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8148,12 +8177,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -8178,12 +8208,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-environment @@ -8210,10 +8241,11 @@ (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-id)))) + 'environment-id) + common-lisp:t))) "UpdateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment)) diff --git a/services/machinelearning/api.lisp b/services/machinelearning/api.lisp index 61c11c32..542a3b7f 100644 --- a/services/machinelearning/api.lisp +++ b/services/machinelearning/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/machinelearning/api - (:use) - (:nicknames #:aws/machinelearning) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/machinelearning/api (:use) + (:nicknames #:aws/machinelearning) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/machinelearning/api) (common-lisp:progn (common-lisp:define-condition machinelearning-error @@ -6314,7 +6313,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "AddTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun create-batch-prediction @@ -6333,7 +6332,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "CreateBatchPrediction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-batch-prediction)) (common-lisp:progn (common-lisp:defun create-data-source-from-rds @@ -6352,7 +6351,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "CreateDataSourceFromRDS")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-source-from-rds)) (common-lisp:progn (common-lisp:defun create-data-source-from-redshift @@ -6372,7 +6371,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "CreateDataSourceFromRedshift")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-source-from-redshift)) (common-lisp:progn (common-lisp:defun create-data-source-from-s3 @@ -6391,7 +6390,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "CreateDataSourceFromS3")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-source-from-s3)) (common-lisp:progn (common-lisp:defun create-evaluation @@ -6410,7 +6409,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "CreateEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-evaluation)) (common-lisp:progn (common-lisp:defun create-mlmodel @@ -6429,7 +6428,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "CreateMLModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-mlmodel)) (common-lisp:progn (common-lisp:defun create-realtime-endpoint @@ -6445,7 +6444,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "CreateRealtimeEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-realtime-endpoint)) (common-lisp:progn (common-lisp:defun delete-batch-prediction @@ -6461,7 +6460,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DeleteBatchPrediction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-batch-prediction)) (common-lisp:progn (common-lisp:defun delete-data-source @@ -6477,7 +6476,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DeleteDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-source)) (common-lisp:progn (common-lisp:defun delete-evaluation @@ -6493,7 +6492,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DeleteEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-evaluation)) (common-lisp:progn (common-lisp:defun delete-mlmodel @@ -6509,7 +6508,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DeleteMLModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mlmodel)) (common-lisp:progn (common-lisp:defun delete-realtime-endpoint @@ -6525,7 +6524,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DeleteRealtimeEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-realtime-endpoint)) (common-lisp:progn (common-lisp:defun delete-tags @@ -6542,7 +6541,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun describe-batch-predictions @@ -6561,7 +6560,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DescribeBatchPredictions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-batch-predictions)) (common-lisp:progn (common-lisp:defun describe-data-sources @@ -6580,7 +6579,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DescribeDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-sources)) (common-lisp:progn (common-lisp:defun describe-evaluations @@ -6599,7 +6598,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DescribeEvaluations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-evaluations)) (common-lisp:progn (common-lisp:defun describe-mlmodels @@ -6618,7 +6617,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DescribeMLModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-mlmodels)) (common-lisp:progn (common-lisp:defun describe-tags @@ -6634,7 +6633,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun get-batch-prediction @@ -6650,7 +6649,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "GetBatchPrediction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-batch-prediction)) (common-lisp:progn (common-lisp:defun get-data-source @@ -6666,7 +6665,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "GetDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-source)) (common-lisp:progn (common-lisp:defun get-evaluation @@ -6682,7 +6681,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "GetEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-evaluation)) (common-lisp:progn (common-lisp:defun get-mlmodel @@ -6698,7 +6697,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "GetMLModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mlmodel)) (common-lisp:progn (common-lisp:defun predict @@ -6715,7 +6714,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "Predict")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'predict)) (common-lisp:progn (common-lisp:defun update-batch-prediction @@ -6733,7 +6732,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "UpdateBatchPrediction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-batch-prediction)) (common-lisp:progn (common-lisp:defun update-data-source @@ -6750,7 +6749,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "UpdateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source)) (common-lisp:progn (common-lisp:defun update-evaluation @@ -6766,7 +6765,7 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "UpdateEvaluation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-evaluation)) (common-lisp:progn (common-lisp:defun update-mlmodel @@ -6783,5 +6782,5 @@ (aws-sdk/generator/shape:make-request-with-input 'machinelearning-request aws-sdk/generator/operation::input "POST" "/" "UpdateMLModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-mlmodel)) diff --git a/services/macie2/api.lisp b/services/macie2/api.lisp index 69c10f1b..72ff01e0 100644 --- a/services/macie2/api.lisp +++ b/services/macie2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/macie2/api - (:use) - (:nicknames #:aws/macie2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/macie2/api (:use) + (:nicknames #:aws/macie2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/macie2/api) (common-lisp:progn (common-lisp:define-condition macie2-error @@ -20,7 +19,7 @@ (common-lisp:export 'macie2-error)) (common-lisp:progn (common-lisp:defclass macie2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "macie2" :api-version "2020-01-01" :host-prefix "macie2" :signing-name @@ -17943,7 +17942,7 @@ "POST" "/invitations/accept" "AcceptInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-invitation)) (common-lisp:progn (common-lisp:defun batch-get-custom-data-identifiers @@ -17962,7 +17961,7 @@ "POST" "/custom-data-identifiers/get" "BatchGetCustomDataIdentifiers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-custom-data-identifiers)) (common-lisp:progn (common-lisp:defun create-allow-list @@ -17981,7 +17980,7 @@ aws-sdk/generator/operation::input "POST" "/allow-lists" "CreateAllowList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-allow-list)) (common-lisp:progn (common-lisp:defun create-classification-job @@ -18007,7 +18006,7 @@ aws-sdk/generator/operation::input "POST" "/jobs" "CreateClassificationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-classification-job)) (common-lisp:progn (common-lisp:defun create-custom-data-identifier @@ -18030,7 +18029,7 @@ "POST" "/custom-data-identifiers" "CreateCustomDataIdentifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-data-identifier)) (common-lisp:progn (common-lisp:defun create-findings-filter @@ -18051,7 +18050,7 @@ "POST" "/findingsfilters" "CreateFindingsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-findings-filter)) (common-lisp:progn (common-lisp:defun create-invitations @@ -18070,7 +18069,7 @@ aws-sdk/generator/operation::input "POST" "/invitations" "CreateInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-invitations)) (common-lisp:progn (common-lisp:defun create-member @@ -18087,7 +18086,7 @@ aws-sdk/generator/operation::input "POST" "/members" "CreateMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-member)) (common-lisp:progn (common-lisp:defun create-sample-findings @@ -18105,7 +18104,7 @@ "POST" "/findings/sample" "CreateSampleFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sample-findings)) (common-lisp:progn (common-lisp:defun decline-invitations @@ -18123,7 +18122,7 @@ "POST" "/invitations/decline" "DeclineInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'decline-invitations)) (common-lisp:progn (common-lisp:defun delete-allow-list @@ -18145,12 +18144,13 @@ (common-lisp:format common-lisp:nil "/allow-lists/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteAllowList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-allow-list)) (common-lisp:progn (common-lisp:defun delete-custom-data-identifier @@ -18173,12 +18173,13 @@ (common-lisp:format common-lisp:nil "/custom-data-identifiers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteCustomDataIdentifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-data-identifier)) (common-lisp:progn (common-lisp:defun delete-findings-filter @@ -18200,12 +18201,13 @@ (common-lisp:format common-lisp:nil "/findingsfilters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteFindingsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-findings-filter)) (common-lisp:progn (common-lisp:defun delete-invitations @@ -18223,7 +18225,7 @@ "POST" "/invitations/delete" "DeleteInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-invitations)) (common-lisp:progn (common-lisp:defun delete-member @@ -18245,12 +18247,13 @@ (common-lisp:format common-lisp:nil "/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-member)) (common-lisp:progn (common-lisp:defun describe-buckets @@ -18270,7 +18273,7 @@ "POST" "/datasources/s3" "DescribeBuckets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-buckets)) (common-lisp:progn (common-lisp:defun describe-classification-job @@ -18293,12 +18296,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeClassificationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-classification-job)) (common-lisp:progn (common-lisp:defun describe-organization-configuration () @@ -18333,7 +18337,7 @@ aws-sdk/generator/operation::input "DELETE" "/admin" "DisableOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-organization-admin-account)) (common-lisp:progn (common-lisp:defun disassociate-from-administrator-account () @@ -18373,12 +18377,13 @@ (common-lisp:format common-lisp:nil "/members/disassociate/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DisassociateMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-member)) (common-lisp:progn (common-lisp:defun enable-macie @@ -18397,7 +18402,7 @@ aws-sdk/generator/operation::input "POST" "/macie" "EnableMacie")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-macie)) (common-lisp:progn (common-lisp:defun enable-organization-admin-account @@ -18415,7 +18420,7 @@ aws-sdk/generator/operation::input "POST" "/admin" "EnableOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-organization-admin-account)) (common-lisp:progn (common-lisp:defun get-administrator-account () @@ -18446,12 +18451,13 @@ (common-lisp:format common-lisp:nil "/allow-lists/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetAllowList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-allow-list)) (common-lisp:progn (common-lisp:defun get-automated-discovery-configuration () @@ -18478,7 +18484,7 @@ "POST" "/datasources/s3/statistics" "GetBucketStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bucket-statistics)) (common-lisp:progn (common-lisp:defun get-classification-export-configuration () @@ -18510,12 +18516,13 @@ (common-lisp:format common-lisp:nil "/classification-scopes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetClassificationScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-classification-scope)) (common-lisp:progn (common-lisp:defun get-custom-data-identifier @@ -18538,12 +18545,13 @@ (common-lisp:format common-lisp:nil "/custom-data-identifiers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetCustomDataIdentifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-custom-data-identifier)) (common-lisp:progn (common-lisp:defun get-finding-statistics @@ -18563,7 +18571,7 @@ "POST" "/findings/statistics" "GetFindingStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-finding-statistics)) (common-lisp:progn (common-lisp:defun get-findings @@ -18581,7 +18589,7 @@ "POST" "/findings/describe" "GetFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-findings)) (common-lisp:progn (common-lisp:defun get-findings-filter @@ -18603,12 +18611,13 @@ (common-lisp:format common-lisp:nil "/findingsfilters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetFindingsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-findings-filter)) (common-lisp:progn (common-lisp:defun get-findings-publication-configuration () @@ -18665,12 +18674,13 @@ (common-lisp:format common-lisp:nil "/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-member)) (common-lisp:progn (common-lisp:defun get-resource-profile @@ -18688,7 +18698,7 @@ "GET" "/resource-profiles" "GetResourceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-profile)) (common-lisp:progn (common-lisp:defun get-reveal-configuration () @@ -18720,12 +18730,13 @@ (common-lisp:format common-lisp:nil "/findings/~A/reveal" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'finding-id)))) + 'finding-id) + common-lisp:t))) "GetSensitiveDataOccurrences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sensitive-data-occurrences)) (common-lisp:progn (common-lisp:defun get-sensitive-data-occurrences-availability @@ -18748,12 +18759,13 @@ (common-lisp:format common-lisp:nil "/findings/~A/reveal/availability" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'finding-id)))) + 'finding-id) + common-lisp:t))) "GetSensitiveDataOccurrencesAvailability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sensitive-data-occurrences-availability)) (common-lisp:progn (common-lisp:defun get-sensitivity-inspection-template @@ -18776,12 +18788,13 @@ (common-lisp:format common-lisp:nil "/templates/sensitivity-inspections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetSensitivityInspectionTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sensitivity-inspection-template)) (common-lisp:progn (common-lisp:defun get-usage-statistics @@ -18802,7 +18815,7 @@ "POST" "/usage/statistics" "GetUsageStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-statistics)) (common-lisp:progn (common-lisp:defun get-usage-totals @@ -18819,7 +18832,7 @@ aws-sdk/generator/operation::input "GET" "/usage" "GetUsageTotals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-totals)) (common-lisp:progn (common-lisp:defun list-allow-lists @@ -18836,7 +18849,7 @@ aws-sdk/generator/operation::input "GET" "/allow-lists" "ListAllowLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-allow-lists)) (common-lisp:progn (common-lisp:defun list-classification-jobs @@ -18856,7 +18869,7 @@ aws-sdk/generator/operation::input "POST" "/jobs/list" "ListClassificationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-classification-jobs)) (common-lisp:progn (common-lisp:defun list-classification-scopes @@ -18875,7 +18888,7 @@ "GET" "/classification-scopes" "ListClassificationScopes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-classification-scopes)) (common-lisp:progn (common-lisp:defun list-custom-data-identifiers @@ -18894,7 +18907,7 @@ "POST" "/custom-data-identifiers/list" "ListCustomDataIdentifiers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-data-identifiers)) (common-lisp:progn (common-lisp:defun list-findings @@ -18914,7 +18927,7 @@ aws-sdk/generator/operation::input "POST" "/findings" "ListFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings)) (common-lisp:progn (common-lisp:defun list-findings-filters @@ -18932,7 +18945,7 @@ "GET" "/findingsfilters" "ListFindingsFilters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-findings-filters)) (common-lisp:progn (common-lisp:defun list-invitations @@ -18949,7 +18962,7 @@ aws-sdk/generator/operation::input "GET" "/invitations" "ListInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-invitations)) (common-lisp:progn (common-lisp:defun list-managed-data-identifiers @@ -18968,7 +18981,7 @@ "POST" "/managed-data-identifiers/list" "ListManagedDataIdentifiers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-managed-data-identifiers)) (common-lisp:progn (common-lisp:defun list-members @@ -18986,7 +18999,7 @@ aws-sdk/generator/operation::input "GET" "/members" "ListMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-members)) (common-lisp:progn (common-lisp:defun list-organization-admin-accounts @@ -19004,7 +19017,7 @@ aws-sdk/generator/operation::input "GET" "/admin" "ListOrganizationAdminAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-admin-accounts)) (common-lisp:progn (common-lisp:defun list-resource-profile-artifacts @@ -19023,7 +19036,7 @@ "GET" "/resource-profiles/artifacts" "ListResourceProfileArtifacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-profile-artifacts)) (common-lisp:progn (common-lisp:defun list-resource-profile-detections @@ -19043,7 +19056,7 @@ "GET" "/resource-profiles/detections" "ListResourceProfileDetections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-profile-detections)) (common-lisp:progn (common-lisp:defun list-sensitivity-inspection-templates @@ -19062,7 +19075,7 @@ "GET" "/templates/sensitivity-inspections" "ListSensitivityInspectionTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sensitivity-inspection-templates)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -19084,12 +19097,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-classification-export-configuration @@ -19108,7 +19122,7 @@ "PUT" "/classification-export-configuration" "PutClassificationExportConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-classification-export-configuration)) (common-lisp:progn (common-lisp:defun put-findings-publication-configuration @@ -19128,7 +19142,7 @@ "PUT" "/findings-publication-configuration" "PutFindingsPublicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-findings-publication-configuration)) (common-lisp:progn (common-lisp:defun search-resources @@ -19149,7 +19163,7 @@ "POST" "/datasources/search-resources" "SearchResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-resources)) (common-lisp:progn (common-lisp:defun tag-resource @@ -19171,12 +19185,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-custom-data-identifier @@ -19198,7 +19213,7 @@ "POST" "/custom-data-identifiers/test" "TestCustomDataIdentifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-custom-data-identifier)) (common-lisp:progn (common-lisp:defun untag-resource @@ -19220,12 +19235,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-allow-list @@ -19247,12 +19263,13 @@ (common-lisp:format common-lisp:nil "/allow-lists/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateAllowList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-allow-list)) (common-lisp:progn (common-lisp:defun update-automated-discovery-configuration @@ -19271,7 +19288,7 @@ "PUT" "/automated-discovery/configuration" "UpdateAutomatedDiscoveryConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-automated-discovery-configuration)) (common-lisp:progn (common-lisp:defun update-classification-job @@ -19294,12 +19311,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "UpdateClassificationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-classification-job)) (common-lisp:progn (common-lisp:defun update-classification-scope @@ -19322,12 +19340,13 @@ (common-lisp:format common-lisp:nil "/classification-scopes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateClassificationScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-classification-scope)) (common-lisp:progn (common-lisp:defun update-findings-filter @@ -19352,12 +19371,13 @@ (common-lisp:format common-lisp:nil "/findingsfilters/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateFindingsFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-findings-filter)) (common-lisp:progn (common-lisp:defun update-macie-session @@ -19375,7 +19395,7 @@ aws-sdk/generator/operation::input "PATCH" "/macie" "UpdateMacieSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-macie-session)) (common-lisp:progn (common-lisp:defun update-member-session @@ -19397,12 +19417,13 @@ (common-lisp:format common-lisp:nil "/macie/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateMemberSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-member-session)) (common-lisp:progn (common-lisp:defun update-organization-configuration @@ -19421,7 +19442,7 @@ "PATCH" "/admin/configuration" "UpdateOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-organization-configuration)) (common-lisp:progn (common-lisp:defun update-resource-profile @@ -19440,7 +19461,7 @@ "PATCH" "/resource-profiles" "UpdateResourceProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-profile)) (common-lisp:progn (common-lisp:defun update-resource-profile-detections @@ -19460,7 +19481,7 @@ "PATCH" "/resource-profiles/detections" "UpdateResourceProfileDetections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-profile-detections)) (common-lisp:progn (common-lisp:defun update-reveal-configuration @@ -19480,7 +19501,7 @@ "PUT" "/reveal-configuration" "UpdateRevealConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-reveal-configuration)) (common-lisp:progn (common-lisp:defun update-sensitivity-inspection-template @@ -19504,10 +19525,11 @@ (common-lisp:format common-lisp:nil "/templates/sensitivity-inspections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateSensitivityInspectionTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sensitivity-inspection-template)) diff --git a/services/managedblockchain-query/api.lisp b/services/managedblockchain-query/api.lisp index f190fdf4..d5900b3c 100644 --- a/services/managedblockchain-query/api.lisp +++ b/services/managedblockchain-query/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/managedblockchain-query/api - (:use) - (:nicknames #:aws/managedblockchain-query) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/managedblockchain-query/api + (:use) (:nicknames #:aws/managedblockchain-query) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/managedblockchain-query/api) (common-lisp:progn (common-lisp:define-condition managedblockchain-query-error @@ -20,7 +19,7 @@ (common-lisp:export 'managedblockchain-query-error)) (common-lisp:progn (common-lisp:defclass managedblockchain-query-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "managedblockchain-query" :api-version "2023-05-04" :host-prefix @@ -2746,7 +2745,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-query-request aws-sdk/generator/operation::input "POST" "/batch-get-token-balance" "BatchGetTokenBalance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-token-balance)) (common-lisp:progn (common-lisp:defun get-asset-contract @@ -2762,7 +2761,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-query-request aws-sdk/generator/operation::input "POST" "/get-asset-contract" "GetAssetContract")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-asset-contract)) (common-lisp:progn (common-lisp:defun get-token-balance @@ -2781,7 +2780,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-query-request aws-sdk/generator/operation::input "POST" "/get-token-balance" "GetTokenBalance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-token-balance)) (common-lisp:progn (common-lisp:defun get-transaction @@ -2797,7 +2796,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-query-request aws-sdk/generator/operation::input "POST" "/get-transaction" "GetTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transaction)) (common-lisp:progn (common-lisp:defun list-asset-contracts @@ -2814,7 +2813,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-query-request aws-sdk/generator/operation::input "POST" "/list-asset-contracts" "ListAssetContracts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-contracts)) (common-lisp:progn (common-lisp:defun list-token-balances @@ -2832,7 +2831,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-query-request aws-sdk/generator/operation::input "POST" "/list-token-balances" "ListTokenBalances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-token-balances)) (common-lisp:progn (common-lisp:defun list-transaction-events @@ -2850,7 +2849,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-query-request aws-sdk/generator/operation::input "POST" "/list-transaction-events" "ListTransactionEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-transaction-events)) (common-lisp:progn (common-lisp:defun list-transactions @@ -2871,5 +2870,5 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-query-request aws-sdk/generator/operation::input "POST" "/list-transactions" "ListTransactions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-transactions)) diff --git a/services/managedblockchain/api.lisp b/services/managedblockchain/api.lisp index cc58a413..db0405b5 100644 --- a/services/managedblockchain/api.lisp +++ b/services/managedblockchain/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/managedblockchain/api - (:use) - (:nicknames #:aws/managedblockchain) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/managedblockchain/api (:use) + (:nicknames #:aws/managedblockchain) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/managedblockchain/api) (common-lisp:progn (common-lisp:define-condition managedblockchain-error @@ -20,7 +19,7 @@ (common-lisp:export 'managedblockchain-error)) (common-lisp:progn (common-lisp:defclass managedblockchain-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "managedblockchain" :api-version "2018-09-24" :host-prefix @@ -5301,7 +5300,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-request aws-sdk/generator/operation::input "POST" "/accessors" "CreateAccessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-accessor)) (common-lisp:progn (common-lisp:defun create-member @@ -5321,12 +5320,12 @@ 'managedblockchain-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/members" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)))) + aws-sdk/generator/operation::input 'network-id) + common-lisp:t))) "CreateMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-member)) (common-lisp:progn (common-lisp:defun create-network @@ -5347,7 +5346,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-request aws-sdk/generator/operation::input "POST" "/networks" "CreateNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-network)) (common-lisp:progn (common-lisp:defun create-node @@ -5367,12 +5366,12 @@ 'managedblockchain-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/nodes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)))) + aws-sdk/generator/operation::input 'network-id) + common-lisp:t))) "CreateNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-node)) (common-lisp:progn (common-lisp:defun create-proposal @@ -5392,12 +5391,12 @@ 'managedblockchain-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/proposals" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)))) + aws-sdk/generator/operation::input 'network-id) + common-lisp:t))) "CreateProposal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-proposal)) (common-lisp:progn (common-lisp:defun delete-accessor @@ -5414,12 +5413,13 @@ 'managedblockchain-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/accessors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'accessor-id)))) + 'accessor-id) + common-lisp:t))) "DeleteAccessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-accessor)) (common-lisp:progn (common-lisp:defun delete-member @@ -5436,16 +5436,16 @@ 'managedblockchain-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-id)))) + aws-sdk/generator/operation::input 'member-id) + common-lisp:t))) "DeleteMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-member)) (common-lisp:progn (common-lisp:defun delete-node @@ -5462,15 +5462,16 @@ 'managedblockchain-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/nodes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'node-id)))) + aws-sdk/generator/operation::input 'node-id) + common-lisp:t))) "DeleteNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-node)) (common-lisp:progn (common-lisp:defun get-accessor @@ -5487,12 +5488,13 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/accessors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'accessor-id)))) + 'accessor-id) + common-lisp:t))) "GetAccessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-accessor)) (common-lisp:progn (common-lisp:defun get-member @@ -5509,16 +5511,16 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-id)))) + aws-sdk/generator/operation::input 'member-id) + common-lisp:t))) "GetMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-member)) (common-lisp:progn (common-lisp:defun get-network @@ -5535,12 +5537,12 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)))) + aws-sdk/generator/operation::input 'network-id) + common-lisp:t))) "GetNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network)) (common-lisp:progn (common-lisp:defun get-node @@ -5557,15 +5559,16 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/nodes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'node-id)))) + aws-sdk/generator/operation::input 'node-id) + common-lisp:t))) "GetNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-node)) (common-lisp:progn (common-lisp:defun get-proposal @@ -5582,16 +5585,17 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/proposals/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proposal-id)))) + 'proposal-id) + common-lisp:t))) "GetProposal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-proposal)) (common-lisp:progn (common-lisp:defun list-accessors @@ -5608,7 +5612,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-request aws-sdk/generator/operation::input "GET" "/accessors" "ListAccessors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accessors)) (common-lisp:progn (common-lisp:defun list-invitations @@ -5624,7 +5628,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-request aws-sdk/generator/operation::input "GET" "/invitations" "ListInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-invitations)) (common-lisp:progn (common-lisp:defun list-members @@ -5644,12 +5648,12 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/members" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)))) + aws-sdk/generator/operation::input 'network-id) + common-lisp:t))) "ListMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-members)) (common-lisp:progn (common-lisp:defun list-networks @@ -5667,7 +5671,7 @@ (aws-sdk/generator/shape:make-request-with-input 'managedblockchain-request aws-sdk/generator/operation::input "GET" "/networks" "ListNetworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-networks)) (common-lisp:progn (common-lisp:defun list-nodes @@ -5686,12 +5690,12 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/nodes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)))) + aws-sdk/generator/operation::input 'network-id) + common-lisp:t))) "ListNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-nodes)) (common-lisp:progn (common-lisp:defun list-proposal-votes @@ -5710,16 +5714,17 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/proposals/~A/votes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proposal-id)))) + 'proposal-id) + common-lisp:t))) "ListProposalVotes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-proposal-votes)) (common-lisp:progn (common-lisp:defun list-proposals @@ -5737,12 +5742,12 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/proposals" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)))) + aws-sdk/generator/operation::input 'network-id) + common-lisp:t))) "ListProposals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-proposals)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5759,12 +5764,13 @@ 'managedblockchain-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun reject-invitation @@ -5781,12 +5787,13 @@ 'managedblockchain-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/invitations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'invitation-id)))) + 'invitation-id) + common-lisp:t))) "RejectInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-invitation)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5803,12 +5810,13 @@ 'managedblockchain-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5825,12 +5833,13 @@ 'managedblockchain-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-member @@ -5849,16 +5858,16 @@ 'managedblockchain-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'member-id)))) + aws-sdk/generator/operation::input 'member-id) + common-lisp:t))) "UpdateMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-member)) (common-lisp:progn (common-lisp:defun update-node @@ -5878,15 +5887,16 @@ 'managedblockchain-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/nodes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'node-id)))) + aws-sdk/generator/operation::input 'node-id) + common-lisp:t))) "UpdateNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-node)) (common-lisp:progn (common-lisp:defun vote-on-proposal @@ -5905,14 +5915,15 @@ 'managedblockchain-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/networks/~A/proposals/~A/votes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'network-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'proposal-id)))) + 'proposal-id) + common-lisp:t))) "VoteOnProposal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'vote-on-proposal)) diff --git a/services/marketplace-agreement/api.lisp b/services/marketplace-agreement/api.lisp index f9d60d7a..06c335b0 100644 --- a/services/marketplace-agreement/api.lisp +++ b/services/marketplace-agreement/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/marketplace-agreement/api - (:use) - (:nicknames #:aws/marketplace-agreement) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/marketplace-agreement/api + (:use) (:nicknames #:aws/marketplace-agreement) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/marketplace-agreement/api) (common-lisp:progn (common-lisp:define-condition marketplace-agreement-error @@ -2538,7 +2537,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-agreement-request aws-sdk/generator/operation::input "POST" "/" "DescribeAgreement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-agreement)) (common-lisp:progn (common-lisp:defun get-agreement-terms @@ -2555,7 +2554,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-agreement-request aws-sdk/generator/operation::input "POST" "/" "GetAgreementTerms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-agreement-terms)) (common-lisp:progn (common-lisp:defun search-agreements @@ -2573,5 +2572,5 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-agreement-request aws-sdk/generator/operation::input "POST" "/" "SearchAgreements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-agreements)) diff --git a/services/marketplace-catalog/api.lisp b/services/marketplace-catalog/api.lisp index 90cc4037..d99c34ac 100644 --- a/services/marketplace-catalog/api.lisp +++ b/services/marketplace-catalog/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/marketplace-catalog/api - (:use) - (:nicknames #:aws/marketplace-catalog) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/marketplace-catalog/api (:use) + (:nicknames #:aws/marketplace-catalog) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/marketplace-catalog/api) (common-lisp:progn (common-lisp:define-condition marketplace-catalog-error @@ -20,7 +19,7 @@ (common-lisp:export 'marketplace-catalog-error)) (common-lisp:progn (common-lisp:defclass marketplace-catalog-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "marketplace-catalog" :api-version "2018-09-17" :host-prefix @@ -6988,7 +6987,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "POST" "/BatchDescribeEntities" "BatchDescribeEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-describe-entities)) (common-lisp:progn (common-lisp:defun cancel-change-set @@ -7004,7 +7003,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "PATCH" "/CancelChangeSet" "CancelChangeSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-change-set)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -7020,7 +7019,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "DELETE" "/DeleteResourcePolicy" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun describe-change-set @@ -7036,7 +7035,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "GET" "/DescribeChangeSet" "DescribeChangeSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-change-set)) (common-lisp:progn (common-lisp:defun describe-entity @@ -7052,7 +7051,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "GET" "/DescribeEntity" "DescribeEntity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-entity)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -7068,7 +7067,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "GET" "/GetResourcePolicy" "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun list-change-sets @@ -7086,7 +7085,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "POST" "/ListChangeSets" "ListChangeSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-change-sets)) (common-lisp:progn (common-lisp:defun list-entities @@ -7106,7 +7105,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "POST" "/ListEntities" "ListEntities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entities)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7122,7 +7121,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "POST" "/ListTagsForResource" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -7138,7 +7137,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "POST" "/PutResourcePolicy" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun start-change-set @@ -7157,7 +7156,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "POST" "/StartChangeSet" "StartChangeSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-change-set)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7173,7 +7172,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "POST" "/TagResource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7189,5 +7188,5 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplace-catalog-request aws-sdk/generator/operation::input "POST" "/UntagResource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/marketplace-deployment/api.lisp b/services/marketplace-deployment/api.lisp index d0620a01..39038192 100644 --- a/services/marketplace-deployment/api.lisp +++ b/services/marketplace-deployment/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/marketplace-deployment/api - (:use) - (:nicknames #:aws/marketplace-deployment) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/marketplace-deployment/api + (:use) (:nicknames #:aws/marketplace-deployment) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/marketplace-deployment/api) (common-lisp:progn (common-lisp:define-condition marketplace-deployment-error @@ -20,7 +19,7 @@ (common-lisp:export 'marketplace-deployment-error)) (common-lisp:progn (common-lisp:defclass marketplace-deployment-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "marketplace-deployment" :api-version "2023-01-25" :host-prefix @@ -583,12 +582,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-deployment-parameter @@ -610,15 +610,16 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/catalogs/~A/products/~A/deployment-parameters" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'catalog)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'catalog) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'product-id)))) + aws-sdk/generator/operation::input 'product-id) + common-lisp:t))) "PutDeploymentParameter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-deployment-parameter)) (common-lisp:progn (common-lisp:defun tag-resource @@ -636,12 +637,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -659,10 +661,11 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/marketplacecommerceanalytics/api.lisp b/services/marketplacecommerceanalytics/api.lisp index ac3a6f34..597e5dd1 100644 --- a/services/marketplacecommerceanalytics/api.lisp +++ b/services/marketplacecommerceanalytics/api.lisp @@ -1,17 +1,14 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/marketplacecommerceanalytics/api - (:use) - (:nicknames #:aws/marketplacecommerceanalytics) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package + #:aws-sdk/services/marketplacecommerceanalytics/api (:use) + (:nicknames #:aws/marketplacecommerceanalytics) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/marketplacecommerceanalytics/api) (common-lisp:progn (common-lisp:define-condition marketplacecommerceanalytics-error @@ -429,7 +426,7 @@ (aws-sdk/generator/shape:make-request-with-input 'marketplacecommerceanalytics-request aws-sdk/generator/operation::input "POST" "/" "GenerateDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-data-set)) (common-lisp:progn (common-lisp:defun start-support-data-export @@ -452,5 +449,5 @@ 'marketplacecommerceanalytics-request aws-sdk/generator/operation::input "POST" "/" "StartSupportDataExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-support-data-export)) diff --git a/services/mediaconnect/api.lisp b/services/mediaconnect/api.lisp index 52b64dd5..b1b74091 100644 --- a/services/mediaconnect/api.lisp +++ b/services/mediaconnect/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mediaconnect/api - (:use) - (:nicknames #:aws/mediaconnect) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mediaconnect/api (:use) + (:nicknames #:aws/mediaconnect) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mediaconnect/api) (common-lisp:progn (common-lisp:define-condition mediaconnect-error @@ -20,7 +19,7 @@ (common-lisp:export 'mediaconnect-error)) (common-lisp:progn (common-lisp:defclass mediaconnect-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mediaconnect" :api-version "2018-11-14" :host-prefix "mediaconnect" :signing-name @@ -12425,12 +12424,13 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A/outputs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)))) + 'bridge-arn) + common-lisp:t))) "AddBridgeOutputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-bridge-outputs)) (common-lisp:progn (common-lisp:defun add-bridge-sources @@ -12452,12 +12452,13 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A/sources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)))) + 'bridge-arn) + common-lisp:t))) "AddBridgeSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-bridge-sources)) (common-lisp:progn (common-lisp:defun add-flow-media-streams @@ -12479,12 +12480,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/mediaStreams" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "AddFlowMediaStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-flow-media-streams)) (common-lisp:progn (common-lisp:defun add-flow-outputs @@ -12506,12 +12508,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/outputs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "AddFlowOutputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-flow-outputs)) (common-lisp:progn (common-lisp:defun add-flow-sources @@ -12533,12 +12536,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/source" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "AddFlowSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-flow-sources)) (common-lisp:progn (common-lisp:defun add-flow-vpc-interfaces @@ -12560,12 +12564,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/vpcInterfaces" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "AddFlowVpcInterfaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-flow-vpc-interfaces)) (common-lisp:progn (common-lisp:defun create-bridge @@ -12586,7 +12591,7 @@ aws-sdk/generator/operation::input "POST" "/v1/bridges" "CreateBridge")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bridge)) (common-lisp:progn (common-lisp:defun create-flow @@ -12607,7 +12612,7 @@ aws-sdk/generator/operation::input "POST" "/v1/flows" "CreateFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-flow)) (common-lisp:progn (common-lisp:defun create-gateway @@ -12625,7 +12630,7 @@ aws-sdk/generator/operation::input "POST" "/v1/gateways" "CreateGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-gateway)) (common-lisp:progn (common-lisp:defun delete-bridge @@ -12647,12 +12652,13 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)))) + 'bridge-arn) + common-lisp:t))) "DeleteBridge")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bridge)) (common-lisp:progn (common-lisp:defun delete-flow @@ -12674,12 +12680,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "DeleteFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-flow)) (common-lisp:progn (common-lisp:defun delete-gateway @@ -12701,12 +12708,13 @@ (common-lisp:format common-lisp:nil "/v1/gateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-arn)))) + 'gateway-arn) + common-lisp:t))) "DeleteGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-gateway)) (common-lisp:progn (common-lisp:defun deregister-gateway-instance @@ -12729,12 +12737,13 @@ (common-lisp:format common-lisp:nil "/v1/gateway-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-instance-arn)))) + 'gateway-instance-arn) + common-lisp:t))) "DeregisterGatewayInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-gateway-instance)) (common-lisp:progn (common-lisp:defun describe-bridge @@ -12756,12 +12765,13 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)))) + 'bridge-arn) + common-lisp:t))) "DescribeBridge")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bridge)) (common-lisp:progn (common-lisp:defun describe-flow @@ -12783,12 +12793,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "DescribeFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-flow)) (common-lisp:progn (common-lisp:defun describe-flow-source-metadata @@ -12811,12 +12822,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/source-metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "DescribeFlowSourceMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-flow-source-metadata)) (common-lisp:progn (common-lisp:defun describe-gateway @@ -12838,12 +12850,13 @@ (common-lisp:format common-lisp:nil "/v1/gateways/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-arn)))) + 'gateway-arn) + common-lisp:t))) "DescribeGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-gateway)) (common-lisp:progn (common-lisp:defun describe-gateway-instance @@ -12866,12 +12879,13 @@ (common-lisp:format common-lisp:nil "/v1/gateway-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-instance-arn)))) + 'gateway-instance-arn) + common-lisp:t))) "DescribeGatewayInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-gateway-instance)) (common-lisp:progn (common-lisp:defun describe-offering @@ -12893,12 +12907,13 @@ (common-lisp:format common-lisp:nil "/v1/offerings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'offering-arn)))) + 'offering-arn) + common-lisp:t))) "DescribeOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-offering)) (common-lisp:progn (common-lisp:defun describe-reservation @@ -12920,12 +12935,13 @@ (common-lisp:format common-lisp:nil "/v1/reservations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reservation-arn)))) + 'reservation-arn) + common-lisp:t))) "DescribeReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-reservation)) (common-lisp:progn (common-lisp:defun grant-flow-entitlements @@ -12947,12 +12963,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/entitlements" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "GrantFlowEntitlements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'grant-flow-entitlements)) (common-lisp:progn (common-lisp:defun list-bridges @@ -12970,7 +12987,7 @@ aws-sdk/generator/operation::input "GET" "/v1/bridges" "ListBridges")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bridges)) (common-lisp:progn (common-lisp:defun list-entitlements @@ -12988,7 +13005,7 @@ "GET" "/v1/entitlements" "ListEntitlements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-entitlements)) (common-lisp:progn (common-lisp:defun list-flows @@ -13005,7 +13022,7 @@ aws-sdk/generator/operation::input "GET" "/v1/flows" "ListFlows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-flows)) (common-lisp:progn (common-lisp:defun list-gateway-instances @@ -13024,7 +13041,7 @@ "GET" "/v1/gateway-instances" "ListGatewayInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gateway-instances)) (common-lisp:progn (common-lisp:defun list-gateways @@ -13041,7 +13058,7 @@ aws-sdk/generator/operation::input "GET" "/v1/gateways" "ListGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gateways)) (common-lisp:progn (common-lisp:defun list-offerings @@ -13058,7 +13075,7 @@ aws-sdk/generator/operation::input "GET" "/v1/offerings" "ListOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-offerings)) (common-lisp:progn (common-lisp:defun list-reservations @@ -13076,7 +13093,7 @@ "GET" "/v1/reservations" "ListReservations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-reservations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -13098,12 +13115,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun purchase-offering @@ -13126,12 +13144,13 @@ (common-lisp:format common-lisp:nil "/v1/offerings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'offering-arn)))) + 'offering-arn) + common-lisp:t))) "PurchaseOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'purchase-offering)) (common-lisp:progn (common-lisp:defun remove-bridge-output @@ -13153,16 +13172,18 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A/outputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)) - (quri.encode:url-encode + 'bridge-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'output-name)))) + 'output-name) + common-lisp:t))) "RemoveBridgeOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-bridge-output)) (common-lisp:progn (common-lisp:defun remove-bridge-source @@ -13184,16 +13205,18 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A/sources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)) - (quri.encode:url-encode + 'bridge-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-name)))) + 'source-name) + common-lisp:t))) "RemoveBridgeSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-bridge-source)) (common-lisp:progn (common-lisp:defun remove-flow-media-stream @@ -13215,16 +13238,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/mediaStreams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'media-stream-name)))) + 'media-stream-name) + common-lisp:t))) "RemoveFlowMediaStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-flow-media-stream)) (common-lisp:progn (common-lisp:defun remove-flow-output @@ -13246,16 +13271,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/outputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'output-arn)))) + 'output-arn) + common-lisp:t))) "RemoveFlowOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-flow-output)) (common-lisp:progn (common-lisp:defun remove-flow-source @@ -13277,16 +13304,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/source/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-arn)))) + 'source-arn) + common-lisp:t))) "RemoveFlowSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-flow-source)) (common-lisp:progn (common-lisp:defun remove-flow-vpc-interface @@ -13309,16 +13338,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/vpcInterfaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpc-interface-name)))) + 'vpc-interface-name) + common-lisp:t))) "RemoveFlowVpcInterface")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-flow-vpc-interface)) (common-lisp:progn (common-lisp:defun revoke-flow-entitlement @@ -13340,16 +13371,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/entitlements/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'entitlement-arn)))) + 'entitlement-arn) + common-lisp:t))) "RevokeFlowEntitlement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-flow-entitlement)) (common-lisp:progn (common-lisp:defun start-flow @@ -13371,12 +13404,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/start/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "StartFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-flow)) (common-lisp:progn (common-lisp:defun stop-flow @@ -13398,12 +13432,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/stop/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "StopFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-flow)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13425,12 +13460,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13452,12 +13488,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-bridge @@ -13482,12 +13519,13 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)))) + 'bridge-arn) + common-lisp:t))) "UpdateBridge")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bridge)) (common-lisp:progn (common-lisp:defun update-bridge-output @@ -13510,16 +13548,18 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A/outputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)) - (quri.encode:url-encode + 'bridge-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'output-name)))) + 'output-name) + common-lisp:t))) "UpdateBridgeOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bridge-output)) (common-lisp:progn (common-lisp:defun update-bridge-source @@ -13543,16 +13583,18 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A/sources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)) - (quri.encode:url-encode + 'bridge-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-name)))) + 'source-name) + common-lisp:t))) "UpdateBridgeSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bridge-source)) (common-lisp:progn (common-lisp:defun update-bridge-state @@ -13574,12 +13616,13 @@ (common-lisp:format common-lisp:nil "/v1/bridges/~A/state" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bridge-arn)))) + 'bridge-arn) + common-lisp:t))) "UpdateBridgeState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bridge-state)) (common-lisp:progn (common-lisp:defun update-flow @@ -13603,12 +13646,13 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)))) + 'flow-arn) + common-lisp:t))) "UpdateFlow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-flow)) (common-lisp:progn (common-lisp:defun update-flow-entitlement @@ -13633,16 +13677,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/entitlements/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'entitlement-arn)))) + 'entitlement-arn) + common-lisp:t))) "UpdateFlowEntitlement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-flow-entitlement)) (common-lisp:progn (common-lisp:defun update-flow-media-stream @@ -13667,16 +13713,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/mediaStreams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'media-stream-name)))) + 'media-stream-name) + common-lisp:t))) "UpdateFlowMediaStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-flow-media-stream)) (common-lisp:progn (common-lisp:defun update-flow-output @@ -13707,16 +13755,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/outputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'output-arn)))) + 'output-arn) + common-lisp:t))) "UpdateFlowOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-flow-output)) (common-lisp:progn (common-lisp:defun update-flow-source @@ -13750,16 +13800,18 @@ (common-lisp:format common-lisp:nil "/v1/flows/~A/source/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'flow-arn)) - (quri.encode:url-encode + 'flow-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-arn)))) + 'source-arn) + common-lisp:t))) "UpdateFlowSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-flow-source)) (common-lisp:progn (common-lisp:defun update-gateway-instance @@ -13782,10 +13834,11 @@ (common-lisp:format common-lisp:nil "/v1/gateway-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'gateway-instance-arn)))) + 'gateway-instance-arn) + common-lisp:t))) "UpdateGatewayInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-instance)) diff --git a/services/mediaconvert/api.lisp b/services/mediaconvert/api.lisp index 67b16d90..f44f4cae 100644 --- a/services/mediaconvert/api.lisp +++ b/services/mediaconvert/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mediaconvert/api - (:use) - (:nicknames #:aws/mediaconvert) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mediaconvert/api (:use) + (:nicknames #:aws/mediaconvert) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mediaconvert/api) (common-lisp:progn (common-lisp:define-condition mediaconvert-error @@ -20,7 +19,7 @@ (common-lisp:export 'mediaconvert-error)) (common-lisp:progn (common-lisp:defclass mediaconvert-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mediaconvert" :api-version "2017-08-29" :host-prefix "mediaconvert" :signing-name @@ -17770,13 +17769,6 @@ (common-lisp:cons "License" (aws-sdk/generator/shape::input-params aws-sdk/generator/shape::value)))) - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'preset)) @@ -24823,7 +24815,7 @@ "POST" "/2017-08-29/certificates" "AssociateCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-certificate)) (common-lisp:progn (common-lisp:defun cancel-job @@ -24845,12 +24837,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CancelJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job)) (common-lisp:progn (common-lisp:defun create-job @@ -24875,7 +24868,7 @@ "POST" "/2017-08-29/jobs" "CreateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun create-job-template @@ -24898,7 +24891,7 @@ "POST" "/2017-08-29/jobTemplates" "CreateJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job-template)) (common-lisp:progn (common-lisp:defun create-preset @@ -24917,7 +24910,7 @@ "POST" "/2017-08-29/presets" "CreatePreset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-preset)) (common-lisp:progn (common-lisp:defun create-queue @@ -24938,7 +24931,7 @@ "POST" "/2017-08-29/queues" "CreateQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-queue)) (common-lisp:progn (common-lisp:defun delete-job-template @@ -24960,12 +24953,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/jobTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job-template)) (common-lisp:progn (common-lisp:defun delete-policy () @@ -24996,12 +24990,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/presets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeletePreset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-preset)) (common-lisp:progn (common-lisp:defun delete-queue @@ -25023,12 +25018,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/queues/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-queue)) (common-lisp:progn (common-lisp:defun describe-endpoints @@ -25046,7 +25042,7 @@ "POST" "/2017-08-29/endpoints" "DescribeEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoints)) (common-lisp:progn (common-lisp:defun disassociate-certificate @@ -25068,12 +25064,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/certificates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "DisassociateCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-certificate)) (common-lisp:progn (common-lisp:defun get-job @@ -25095,12 +25092,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job)) (common-lisp:progn (common-lisp:defun get-job-template @@ -25122,12 +25120,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/jobTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-template)) (common-lisp:progn (common-lisp:defun get-policy () @@ -25157,12 +25156,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/presets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetPreset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-preset)) (common-lisp:progn (common-lisp:defun get-queue @@ -25184,12 +25184,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/queues/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-queue)) (common-lisp:progn (common-lisp:defun list-job-templates @@ -25209,7 +25210,7 @@ "GET" "/2017-08-29/jobTemplates" "ListJobTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-job-templates)) (common-lisp:progn (common-lisp:defun list-jobs @@ -25229,7 +25230,7 @@ "GET" "/2017-08-29/jobs" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-presets @@ -25249,7 +25250,7 @@ "GET" "/2017-08-29/presets" "ListPresets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-presets)) (common-lisp:progn (common-lisp:defun list-queues @@ -25268,7 +25269,7 @@ "GET" "/2017-08-29/queues" "ListQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-queues)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -25290,12 +25291,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-policy @@ -25313,7 +25315,7 @@ "PUT" "/2017-08-29/policy" "PutPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -25331,7 +25333,7 @@ "POST" "/2017-08-29/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -25353,12 +25355,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'arn)))) + 'arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-job-template @@ -25384,12 +25387,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/jobTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateJobTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-job-template)) (common-lisp:progn (common-lisp:defun update-preset @@ -25412,12 +25416,13 @@ (common-lisp:format common-lisp:nil "/2017-08-29/presets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdatePreset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-preset)) (common-lisp:progn (common-lisp:defun update-queue @@ -25441,10 +25446,11 @@ (common-lisp:format common-lisp:nil "/2017-08-29/queues/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-queue)) diff --git a/services/medialive/api.lisp b/services/medialive/api.lisp index c4c0f7d3..f5a8c854 100644 --- a/services/medialive/api.lisp +++ b/services/medialive/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/medialive/api - (:use) - (:nicknames #:aws/medialive) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/medialive/api (:use) + (:nicknames #:aws/medialive) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/medialive/api) (common-lisp:progn (common-lisp:define-condition medialive-error @@ -20,7 +19,7 @@ (common-lisp:export 'medialive-error)) (common-lisp:progn (common-lisp:defclass medialive-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "medialive" :api-version "2017-10-14" :host-prefix "medialive" :signing-name @@ -8630,7 +8629,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8692,19 +8693,27 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-length)) - (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'last-modified)) - (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8721,7 +8730,13 @@ ( (aws-sdk/generator/shape::input describe-input-device-thumbnail-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + describe-input-device-thumbnail-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "body"))) (common-lisp:progn (common-lisp:defclass describe-input-request common-lisp:nil ((input-id :initarg :input-id :initform @@ -34440,12 +34455,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/accept" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "AcceptInputDeviceTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-input-device-transfer)) (common-lisp:progn (common-lisp:defun batch-delete @@ -34466,7 +34482,7 @@ "POST" "/prod/batch/delete" "BatchDelete")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete)) (common-lisp:progn (common-lisp:defun batch-start @@ -34484,7 +34500,7 @@ "POST" "/prod/batch/start" "BatchStart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-start)) (common-lisp:progn (common-lisp:defun batch-stop @@ -34502,7 +34518,7 @@ "POST" "/prod/batch/stop" "BatchStop")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-stop)) (common-lisp:progn (common-lisp:defun batch-update-schedule @@ -34524,12 +34540,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A/schedule" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "BatchUpdateSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-schedule)) (common-lisp:progn (common-lisp:defun cancel-input-device-transfer @@ -34552,12 +34569,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "CancelInputDeviceTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-input-device-transfer)) (common-lisp:progn (common-lisp:defun claim-device @@ -34575,7 +34593,7 @@ "POST" "/prod/claimDevice" "ClaimDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'claim-device)) (common-lisp:progn (common-lisp:defun create-channel @@ -34598,7 +34616,7 @@ aws-sdk/generator/operation::input "POST" "/prod/channels" "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-input @@ -34619,7 +34637,7 @@ aws-sdk/generator/operation::input "POST" "/prod/inputs" "CreateInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-input)) (common-lisp:progn (common-lisp:defun create-input-security-group @@ -34638,7 +34656,7 @@ "POST" "/prod/inputSecurityGroups" "CreateInputSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-input-security-group)) (common-lisp:progn (common-lisp:defun create-multiplex @@ -34659,7 +34677,7 @@ "POST" "/prod/multiplexes" "CreateMultiplex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-multiplex)) (common-lisp:progn (common-lisp:defun create-multiplex-program @@ -34684,12 +34702,13 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A/programs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)))) + 'multiplex-id) + common-lisp:t))) "CreateMultiplexProgram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-multiplex-program)) (common-lisp:progn (common-lisp:defun create-partner-input @@ -34711,12 +34730,13 @@ (common-lisp:format common-lisp:nil "/prod/inputs/~A/partners" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-id)))) + 'input-id) + common-lisp:t))) "CreatePartnerInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-partner-input)) (common-lisp:progn (common-lisp:defun create-tags @@ -34738,12 +34758,13 @@ (common-lisp:format common-lisp:nil "/prod/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "CreateTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tags)) (common-lisp:progn (common-lisp:defun delete-channel @@ -34765,12 +34786,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-input @@ -34792,12 +34814,13 @@ (common-lisp:format common-lisp:nil "/prod/inputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-id)))) + 'input-id) + common-lisp:t))) "DeleteInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-input)) (common-lisp:progn (common-lisp:defun delete-input-security-group @@ -34820,12 +34843,13 @@ (common-lisp:format common-lisp:nil "/prod/inputSecurityGroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-security-group-id)))) + 'input-security-group-id) + common-lisp:t))) "DeleteInputSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-input-security-group)) (common-lisp:progn (common-lisp:defun delete-multiplex @@ -34847,12 +34871,13 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)))) + 'multiplex-id) + common-lisp:t))) "DeleteMultiplex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-multiplex)) (common-lisp:progn (common-lisp:defun delete-multiplex-program @@ -34874,16 +34899,18 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A/programs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)) - (quri.encode:url-encode + 'multiplex-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'program-name)))) + 'program-name) + common-lisp:t))) "DeleteMultiplexProgram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-multiplex-program)) (common-lisp:progn (common-lisp:defun delete-reservation @@ -34905,12 +34932,13 @@ (common-lisp:format common-lisp:nil "/prod/reservations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reservation-id)))) + 'reservation-id) + common-lisp:t))) "DeleteReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-reservation)) (common-lisp:progn (common-lisp:defun delete-schedule @@ -34932,12 +34960,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A/schedule" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "DeleteSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schedule)) (common-lisp:progn (common-lisp:defun delete-tags @@ -34959,12 +34988,13 @@ (common-lisp:format common-lisp:nil "/prod/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun describe-account-configuration () @@ -34995,12 +35025,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "DescribeChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel)) (common-lisp:progn (common-lisp:defun describe-input @@ -35022,12 +35053,13 @@ (common-lisp:format common-lisp:nil "/prod/inputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-id)))) + 'input-id) + common-lisp:t))) "DescribeInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-input)) (common-lisp:progn (common-lisp:defun describe-input-device @@ -35049,12 +35081,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "DescribeInputDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-input-device)) (common-lisp:progn (common-lisp:defun describe-input-device-thumbnail @@ -35077,13 +35110,14 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/thumbnailData" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "DescribeInputDeviceThumbnail") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-input-device-thumbnail)) (common-lisp:progn (common-lisp:defun describe-input-security-group @@ -35106,12 +35140,13 @@ (common-lisp:format common-lisp:nil "/prod/inputSecurityGroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-security-group-id)))) + 'input-security-group-id) + common-lisp:t))) "DescribeInputSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-input-security-group)) (common-lisp:progn (common-lisp:defun describe-multiplex @@ -35133,12 +35168,13 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)))) + 'multiplex-id) + common-lisp:t))) "DescribeMultiplex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-multiplex)) (common-lisp:progn (common-lisp:defun describe-multiplex-program @@ -35161,16 +35197,18 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A/programs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)) - (quri.encode:url-encode + 'multiplex-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'program-name)))) + 'program-name) + common-lisp:t))) "DescribeMultiplexProgram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-multiplex-program)) (common-lisp:progn (common-lisp:defun describe-offering @@ -35192,12 +35230,13 @@ (common-lisp:format common-lisp:nil "/prod/offerings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'offering-id)))) + 'offering-id) + common-lisp:t))) "DescribeOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-offering)) (common-lisp:progn (common-lisp:defun describe-reservation @@ -35219,12 +35258,13 @@ (common-lisp:format common-lisp:nil "/prod/reservations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reservation-id)))) + 'reservation-id) + common-lisp:t))) "DescribeReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-reservation)) (common-lisp:progn (common-lisp:defun describe-schedule @@ -35247,12 +35287,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A/schedule" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "DescribeSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-schedule)) (common-lisp:progn (common-lisp:defun describe-thumbnails @@ -35275,12 +35316,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A/thumbnails" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "DescribeThumbnails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-thumbnails)) (common-lisp:progn (common-lisp:defun list-channels @@ -35297,7 +35339,7 @@ aws-sdk/generator/operation::input "GET" "/prod/channels" "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-input-device-transfers @@ -35317,7 +35359,7 @@ "GET" "/prod/inputDeviceTransfers" "ListInputDeviceTransfers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-input-device-transfers)) (common-lisp:progn (common-lisp:defun list-input-devices @@ -35335,7 +35377,7 @@ "GET" "/prod/inputDevices" "ListInputDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-input-devices)) (common-lisp:progn (common-lisp:defun list-input-security-groups @@ -35354,7 +35396,7 @@ "GET" "/prod/inputSecurityGroups" "ListInputSecurityGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-input-security-groups)) (common-lisp:progn (common-lisp:defun list-inputs @@ -35371,7 +35413,7 @@ aws-sdk/generator/operation::input "GET" "/prod/inputs" "ListInputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inputs)) (common-lisp:progn (common-lisp:defun list-multiplex-programs @@ -35394,12 +35436,13 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A/programs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)))) + 'multiplex-id) + common-lisp:t))) "ListMultiplexPrograms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-multiplex-programs)) (common-lisp:progn (common-lisp:defun list-multiplexes @@ -35417,7 +35460,7 @@ "GET" "/prod/multiplexes" "ListMultiplexes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-multiplexes)) (common-lisp:progn (common-lisp:defun list-offerings @@ -35440,7 +35483,7 @@ aws-sdk/generator/operation::input "GET" "/prod/offerings" "ListOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-offerings)) (common-lisp:progn (common-lisp:defun list-reservations @@ -35463,7 +35506,7 @@ "GET" "/prod/reservations" "ListReservations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-reservations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -35485,12 +35528,13 @@ (common-lisp:format common-lisp:nil "/prod/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun purchase-offering @@ -35515,12 +35559,13 @@ (common-lisp:format common-lisp:nil "/prod/offerings/~A/purchase" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'offering-id)))) + 'offering-id) + common-lisp:t))) "PurchaseOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'purchase-offering)) (common-lisp:progn (common-lisp:defun reboot-input-device @@ -35542,12 +35587,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/reboot" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "RebootInputDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-input-device)) (common-lisp:progn (common-lisp:defun reject-input-device-transfer @@ -35570,12 +35616,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/reject" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "RejectInputDeviceTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-input-device-transfer)) (common-lisp:progn (common-lisp:defun start-channel @@ -35597,12 +35644,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "StartChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-channel)) (common-lisp:progn (common-lisp:defun start-input-device @@ -35624,12 +35672,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "StartInputDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-input-device)) (common-lisp:progn (common-lisp:defun start-input-device-maintenance-window @@ -35652,12 +35701,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/startInputDeviceMaintenanceWindow" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "StartInputDeviceMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-input-device-maintenance-window)) (common-lisp:progn (common-lisp:defun start-multiplex @@ -35679,12 +35729,13 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)))) + 'multiplex-id) + common-lisp:t))) "StartMultiplex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-multiplex)) (common-lisp:progn (common-lisp:defun stop-channel @@ -35706,12 +35757,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "StopChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-channel)) (common-lisp:progn (common-lisp:defun stop-input-device @@ -35733,12 +35785,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "StopInputDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-input-device)) (common-lisp:progn (common-lisp:defun stop-multiplex @@ -35760,12 +35813,13 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)))) + 'multiplex-id) + common-lisp:t))) "StopMultiplex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-multiplex)) (common-lisp:progn (common-lisp:defun transfer-input-device @@ -35790,12 +35844,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A/transfer" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "TransferInputDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'transfer-input-device)) (common-lisp:progn (common-lisp:defun update-account-configuration @@ -35814,7 +35869,7 @@ "PUT" "/prod/accountConfiguration" "UpdateAccountConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-configuration)) (common-lisp:progn (common-lisp:defun update-channel @@ -35841,12 +35896,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-channel-class @@ -35869,12 +35925,13 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A/channelClass" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "UpdateChannelClass")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel-class)) (common-lisp:progn (common-lisp:defun update-input @@ -35900,12 +35957,13 @@ (common-lisp:format common-lisp:nil "/prod/inputs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-id)))) + 'input-id) + common-lisp:t))) "UpdateInput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-input)) (common-lisp:progn (common-lisp:defun update-input-device @@ -35930,12 +35988,13 @@ (common-lisp:format common-lisp:nil "/prod/inputDevices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-device-id)))) + 'input-device-id) + common-lisp:t))) "UpdateInputDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-input-device)) (common-lisp:progn (common-lisp:defun update-input-security-group @@ -35960,12 +36019,13 @@ (common-lisp:format common-lisp:nil "/prod/inputSecurityGroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'input-security-group-id)))) + 'input-security-group-id) + common-lisp:t))) "UpdateInputSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-input-security-group)) (common-lisp:progn (common-lisp:defun update-multiplex @@ -35988,12 +36048,13 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)))) + 'multiplex-id) + common-lisp:t))) "UpdateMultiplex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-multiplex)) (common-lisp:progn (common-lisp:defun update-multiplex-program @@ -36018,16 +36079,18 @@ (common-lisp:format common-lisp:nil "/prod/multiplexes/~A/programs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'multiplex-id)) - (quri.encode:url-encode + 'multiplex-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'program-name)))) + 'program-name) + common-lisp:t))) "UpdateMultiplexProgram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-multiplex-program)) (common-lisp:progn (common-lisp:defun update-reservation @@ -36050,12 +36113,13 @@ (common-lisp:format common-lisp:nil "/prod/reservations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reservation-id)))) + 'reservation-id) + common-lisp:t))) "UpdateReservation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-reservation)) (common-lisp:progn (common-lisp:defun restart-channel-pipelines @@ -36078,10 +36142,11 @@ (common-lisp:format common-lisp:nil "/prod/channels/~A/restartChannelPipelines" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-id)))) + 'channel-id) + common-lisp:t))) "RestartChannelPipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restart-channel-pipelines)) diff --git a/services/mediapackage-vod/api.lisp b/services/mediapackage-vod/api.lisp index 7b624f42..6d7dd8b5 100644 --- a/services/mediapackage-vod/api.lisp +++ b/services/mediapackage-vod/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mediapackage-vod/api - (:use) - (:nicknames #:aws/mediapackage-vod) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mediapackage-vod/api (:use) + (:nicknames #:aws/mediapackage-vod) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mediapackage-vod/api) (common-lisp:progn (common-lisp:define-condition mediapackage-vod-error @@ -20,7 +19,7 @@ (common-lisp:export 'mediapackage-vod-error)) (common-lisp:progn (common-lisp:defclass mediapackage-vod-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mediapackage-vod" :api-version "2018-11-07" :host-prefix @@ -4472,11 +4471,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/packaging_groups/~A/configure_logs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "ConfigureLogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'configure-logs)) (common-lisp:progn (common-lisp:defun create-asset @@ -4495,7 +4495,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mediapackage-vod-request aws-sdk/generator/operation::input "POST" "/assets" "CreateAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-asset)) (common-lisp:progn (common-lisp:defun create-packaging-configuration @@ -4515,7 +4515,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mediapackage-vod-request aws-sdk/generator/operation::input "POST" "/packaging_configurations" "CreatePackagingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-packaging-configuration)) (common-lisp:progn (common-lisp:defun create-packaging-group @@ -4532,7 +4532,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mediapackage-vod-request aws-sdk/generator/operation::input "POST" "/packaging_groups" "CreatePackagingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-packaging-group)) (common-lisp:progn (common-lisp:defun delete-asset @@ -4549,11 +4549,12 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-asset)) (common-lisp:progn (common-lisp:defun delete-packaging-configuration @@ -4571,11 +4572,12 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/packaging_configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeletePackagingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-packaging-configuration)) (common-lisp:progn (common-lisp:defun delete-packaging-group @@ -4592,11 +4594,12 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/packaging_groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeletePackagingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-packaging-group)) (common-lisp:progn (common-lisp:defun describe-asset @@ -4613,11 +4616,12 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/assets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DescribeAsset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-asset)) (common-lisp:progn (common-lisp:defun describe-packaging-configuration @@ -4635,11 +4639,12 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/packaging_configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DescribePackagingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-packaging-configuration)) (common-lisp:progn (common-lisp:defun describe-packaging-group @@ -4656,11 +4661,12 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/packaging_groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DescribePackagingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-packaging-group)) (common-lisp:progn (common-lisp:defun list-assets @@ -4678,7 +4684,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mediapackage-vod-request aws-sdk/generator/operation::input "GET" "/assets" "ListAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assets)) (common-lisp:progn (common-lisp:defun list-packaging-configurations @@ -4697,7 +4703,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mediapackage-vod-request aws-sdk/generator/operation::input "GET" "/packaging_configurations" "ListPackagingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-packaging-configurations)) (common-lisp:progn (common-lisp:defun list-packaging-groups @@ -4713,7 +4719,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mediapackage-vod-request aws-sdk/generator/operation::input "GET" "/packaging_groups" "ListPackagingGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-packaging-groups)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4730,12 +4736,13 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4752,12 +4759,13 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4774,12 +4782,13 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-packaging-group @@ -4796,9 +4805,10 @@ 'mediapackage-vod-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/packaging_groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdatePackagingGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-packaging-group)) diff --git a/services/mediapackage/api.lisp b/services/mediapackage/api.lisp index 9d0fe496..9abb626a 100644 --- a/services/mediapackage/api.lisp +++ b/services/mediapackage/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mediapackage/api - (:use) - (:nicknames #:aws/mediapackage) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mediapackage/api (:use) + (:nicknames #:aws/mediapackage) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mediapackage/api) (common-lisp:progn (common-lisp:define-condition mediapackage-error @@ -20,7 +19,7 @@ (common-lisp:export 'mediapackage-error)) (common-lisp:progn (common-lisp:defclass mediapackage-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mediapackage" :api-version "2017-10-12" :host-prefix "mediapackage" :signing-name @@ -6375,12 +6374,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/configure_logs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ConfigureLogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'configure-logs)) (common-lisp:progn (common-lisp:defun create-channel @@ -6397,7 +6397,7 @@ aws-sdk/generator/operation::input "POST" "/channels" "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-harvest-job @@ -6417,7 +6417,7 @@ aws-sdk/generator/operation::input "POST" "/harvest_jobs" "CreateHarvestJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-harvest-job)) (common-lisp:progn (common-lisp:defun create-origin-endpoint @@ -6441,7 +6441,7 @@ "POST" "/origin_endpoints" "CreateOriginEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-origin-endpoint)) (common-lisp:progn (common-lisp:defun delete-channel @@ -6463,12 +6463,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-origin-endpoint @@ -6490,12 +6491,13 @@ (common-lisp:format common-lisp:nil "/origin_endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteOriginEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-origin-endpoint)) (common-lisp:progn (common-lisp:defun describe-channel @@ -6517,12 +6519,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DescribeChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel)) (common-lisp:progn (common-lisp:defun describe-harvest-job @@ -6544,12 +6547,13 @@ (common-lisp:format common-lisp:nil "/harvest_jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DescribeHarvestJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-harvest-job)) (common-lisp:progn (common-lisp:defun describe-origin-endpoint @@ -6571,12 +6575,13 @@ (common-lisp:format common-lisp:nil "/origin_endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DescribeOriginEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-origin-endpoint)) (common-lisp:progn (common-lisp:defun list-channels @@ -6593,7 +6598,7 @@ aws-sdk/generator/operation::input "GET" "/channels" "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-harvest-jobs @@ -6613,7 +6618,7 @@ aws-sdk/generator/operation::input "GET" "/harvest_jobs" "ListHarvestJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-harvest-jobs)) (common-lisp:progn (common-lisp:defun list-origin-endpoints @@ -6632,7 +6637,7 @@ "GET" "/origin_endpoints" "ListOriginEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-origin-endpoints)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6654,12 +6659,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun rotate-channel-credentials @@ -6682,12 +6688,13 @@ (common-lisp:format common-lisp:nil "/channels/~A/credentials" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "RotateChannelCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'rotate-channel-credentials)) (common-lisp:progn (common-lisp:defun rotate-ingest-endpoint-credentials @@ -6710,16 +6717,18 @@ (common-lisp:format common-lisp:nil "/channels/~A/ingest_endpoints/~A/credentials" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingest-endpoint-id)))) + 'ingest-endpoint-id) + common-lisp:t))) "RotateIngestEndpointCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'rotate-ingest-endpoint-credentials)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6741,12 +6750,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6768,12 +6778,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-channel @@ -6795,12 +6806,13 @@ (common-lisp:format common-lisp:nil "/channels/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-origin-endpoint @@ -6828,10 +6840,11 @@ (common-lisp:format common-lisp:nil "/origin_endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateOriginEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-origin-endpoint)) diff --git a/services/mediapackagev2/api.lisp b/services/mediapackagev2/api.lisp index fa6e6a29..623c2b1f 100644 --- a/services/mediapackagev2/api.lisp +++ b/services/mediapackagev2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mediapackagev2/api - (:use) - (:nicknames #:aws/mediapackagev2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mediapackagev2/api (:use) + (:nicknames #:aws/mediapackagev2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mediapackagev2/api) (common-lisp:progn (common-lisp:define-condition mediapackagev2-error @@ -20,7 +19,7 @@ (common-lisp:export 'mediapackagev2-error)) (common-lisp:progn (common-lisp:defclass mediapackagev2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mediapackagev2" :api-version "2022-12-25" :host-prefix "mediapackagev2" @@ -320,8 +319,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "x-amzn-client-token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-client-token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -523,8 +523,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "x-amzn-client-token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-client-token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1065,8 +1066,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "x-amzn-client-token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-client-token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5134,12 +5136,13 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)))) + 'channel-group-name) + common-lisp:t))) "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-channel-group @@ -5158,7 +5161,7 @@ aws-sdk/generator/operation::input "POST" "/channelGroup" "CreateChannelGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel-group)) (common-lisp:progn (common-lisp:defun create-origin-endpoint @@ -5186,16 +5189,18 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/originEndpoint" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "CreateOriginEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-origin-endpoint)) (common-lisp:progn (common-lisp:defun delete-channel @@ -5218,16 +5223,18 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-channel-group @@ -5249,12 +5256,13 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)))) + 'channel-group-name) + common-lisp:t))) "DeleteChannelGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-group)) (common-lisp:progn (common-lisp:defun delete-channel-policy @@ -5277,16 +5285,18 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "DeleteChannelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-policy)) (common-lisp:progn (common-lisp:defun delete-origin-endpoint @@ -5311,20 +5321,23 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/originEndpoint/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'origin-endpoint-name)))) + 'origin-endpoint-name) + common-lisp:t))) "DeleteOriginEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-origin-endpoint)) (common-lisp:progn (common-lisp:defun delete-origin-endpoint-policy @@ -5350,20 +5363,23 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/originEndpoint/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'origin-endpoint-name)))) + 'origin-endpoint-name) + common-lisp:t))) "DeleteOriginEndpointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-origin-endpoint-policy)) (common-lisp:progn (common-lisp:defun get-channel @@ -5386,16 +5402,18 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "GetChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel)) (common-lisp:progn (common-lisp:defun get-channel-group @@ -5417,12 +5435,13 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)))) + 'channel-group-name) + common-lisp:t))) "GetChannelGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel-group)) (common-lisp:progn (common-lisp:defun get-channel-policy @@ -5445,16 +5464,18 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "GetChannelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel-policy)) (common-lisp:progn (common-lisp:defun get-origin-endpoint @@ -5479,20 +5500,23 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/originEndpoint/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'origin-endpoint-name)))) + 'origin-endpoint-name) + common-lisp:t))) "GetOriginEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-origin-endpoint)) (common-lisp:progn (common-lisp:defun get-origin-endpoint-policy @@ -5518,20 +5542,23 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/originEndpoint/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'origin-endpoint-name)))) + 'origin-endpoint-name) + common-lisp:t))) "GetOriginEndpointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-origin-endpoint-policy)) (common-lisp:progn (common-lisp:defun list-channel-groups @@ -5548,7 +5575,7 @@ aws-sdk/generator/operation::input "GET" "/channelGroup" "ListChannelGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channel-groups)) (common-lisp:progn (common-lisp:defun list-channels @@ -5572,12 +5599,13 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)))) + 'channel-group-name) + common-lisp:t))) "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-origin-endpoints @@ -5602,16 +5630,18 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/originEndpoint" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "ListOriginEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-origin-endpoints)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5633,12 +5663,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-channel-policy @@ -5661,16 +5692,18 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "PutChannelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-channel-policy)) (common-lisp:progn (common-lisp:defun put-origin-endpoint-policy @@ -5696,20 +5729,23 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/originEndpoint/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'origin-endpoint-name)))) + 'origin-endpoint-name) + common-lisp:t))) "PutOriginEndpointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-origin-endpoint-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5731,12 +5767,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5758,12 +5795,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-channel @@ -5787,16 +5825,18 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-channel-group @@ -5818,12 +5858,13 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)))) + 'channel-group-name) + common-lisp:t))) "UpdateChannelGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel-group)) (common-lisp:progn (common-lisp:defun update-origin-endpoint @@ -5851,18 +5892,21 @@ (common-lisp:format common-lisp:nil "/channelGroup/~A/channel/~A/originEndpoint/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-group-name)) - (quri.encode:url-encode + 'channel-group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'origin-endpoint-name)))) + 'origin-endpoint-name) + common-lisp:t))) "UpdateOriginEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-origin-endpoint)) diff --git a/services/mediastore-data/api.lisp b/services/mediastore-data/api.lisp index 04040bf3..29d42468 100644 --- a/services/mediastore-data/api.lisp +++ b/services/mediastore-data/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mediastore-data/api - (:use) - (:nicknames #:aws/mediastore-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mediastore-data/api (:use) + (:nicknames #:aws/mediastore-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mediastore-data/api) (common-lisp:progn (common-lisp:define-condition mediastore-data-error @@ -20,7 +19,7 @@ (common-lisp:export 'mediastore-data-error)) (common-lisp:progn (common-lisp:defclass mediastore-data-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mediastore-data" :api-version "2017-09-01" :host-prefix @@ -175,23 +174,33 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-length)) - (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'last-modified)) - (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -229,7 +238,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'range)) - (common-lisp:cons "Range" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Range" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-object-request)) (common-lisp:append)) @@ -301,27 +312,39 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-range)) - (common-lisp:cons "Content-Range" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Range" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-length)) - (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'last-modified)) - (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-object-response)) (common-lisp:append @@ -334,7 +357,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-object-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-object-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:define-condition internal-server-error (mediastore-data-error) @@ -585,20 +612,28 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-class)) - (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'upload-availability)) - (common-lisp:cons "x-amz-upload-availability" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-upload-availability" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input put-object-request)) (common-lisp:append @@ -611,7 +646,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-object-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-object-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-object-response common-lisp:nil ((content-sha256 :initarg :content-sha256 :initform @@ -702,7 +741,7 @@ (common-lisp:slot-value aws-sdk/generator/operation::input 'path))) "DeleteObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-object)) (common-lisp:progn (common-lisp:defun describe-object @@ -722,7 +761,7 @@ (common-lisp:slot-value aws-sdk/generator/operation::input 'path))) "DescribeObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-object)) (common-lisp:progn (common-lisp:defun get-object @@ -743,7 +782,7 @@ aws-sdk/generator/operation::input 'path))) "GetObject") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-object)) (common-lisp:progn (common-lisp:defun list-items @@ -759,7 +798,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mediastore-data-request aws-sdk/generator/operation::input "GET" "/" "ListItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-items)) (common-lisp:progn (common-lisp:defun put-object @@ -782,5 +821,5 @@ (common-lisp:slot-value aws-sdk/generator/operation::input 'path))) "PutObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-object)) diff --git a/services/mediastore/api.lisp b/services/mediastore/api.lisp index 8219cf9d..0cd21293 100644 --- a/services/mediastore/api.lisp +++ b/services/mediastore/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mediastore/api - (:use) - (:nicknames #:aws/mediastore) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mediastore/api (:use) + (:nicknames #:aws/mediastore) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mediastore/api) (common-lisp:progn (common-lisp:define-condition mediastore-error @@ -2046,7 +2045,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateContainer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-container)) (common-lisp:progn (common-lisp:defun delete-container @@ -2063,7 +2062,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteContainer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-container)) (common-lisp:progn (common-lisp:defun delete-container-policy @@ -2080,7 +2079,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteContainerPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-container-policy)) (common-lisp:progn (common-lisp:defun delete-cors-policy @@ -2097,7 +2096,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCorsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cors-policy)) (common-lisp:progn (common-lisp:defun delete-lifecycle-policy @@ -2114,7 +2113,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lifecycle-policy)) (common-lisp:progn (common-lisp:defun delete-metric-policy @@ -2131,7 +2130,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMetricPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-metric-policy)) (common-lisp:progn (common-lisp:defun describe-container @@ -2148,7 +2147,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeContainer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-container)) (common-lisp:progn (common-lisp:defun get-container-policy @@ -2165,7 +2164,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetContainerPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-container-policy)) (common-lisp:progn (common-lisp:defun get-cors-policy @@ -2182,7 +2181,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCorsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cors-policy)) (common-lisp:progn (common-lisp:defun get-lifecycle-policy @@ -2199,7 +2198,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lifecycle-policy)) (common-lisp:progn (common-lisp:defun get-metric-policy @@ -2216,7 +2215,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMetricPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-metric-policy)) (common-lisp:progn (common-lisp:defun list-containers @@ -2233,7 +2232,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListContainers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-containers)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2250,7 +2249,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-container-policy @@ -2267,7 +2266,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutContainerPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-container-policy)) (common-lisp:progn (common-lisp:defun put-cors-policy @@ -2284,7 +2283,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutCorsPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-cors-policy)) (common-lisp:progn (common-lisp:defun put-lifecycle-policy @@ -2302,7 +2301,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-lifecycle-policy)) (common-lisp:progn (common-lisp:defun put-metric-policy @@ -2319,7 +2318,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutMetricPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-metric-policy)) (common-lisp:progn (common-lisp:defun start-access-logging @@ -2336,7 +2335,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartAccessLogging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-access-logging)) (common-lisp:progn (common-lisp:defun stop-access-logging @@ -2353,7 +2352,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopAccessLogging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-access-logging)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2370,7 +2369,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2387,5 +2386,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/mediatailor/api.lisp b/services/mediatailor/api.lisp index 20b0fb0b..0cd47d42 100644 --- a/services/mediatailor/api.lisp +++ b/services/mediatailor/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mediatailor/api - (:use) - (:nicknames #:aws/mediatailor) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mediatailor/api (:use) + (:nicknames #:aws/mediatailor) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mediatailor/api) (common-lisp:progn (common-lisp:define-condition mediatailor-error @@ -20,7 +19,7 @@ (common-lisp:export 'mediatailor-error)) (common-lisp:progn (common-lisp:defclass mediatailor-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mediatailor" :api-version "2018-04-23" :host-prefix "api.mediatailor" @@ -9973,7 +9972,7 @@ "PUT" "/configureLogs/channel" "ConfigureLogsForChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'configure-logs-for-channel)) (common-lisp:progn (common-lisp:defun configure-logs-for-playback-configuration @@ -9994,7 +9993,7 @@ "PUT" "/configureLogs/playbackConfiguration" "ConfigureLogsForPlaybackConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'configure-logs-for-playback-configuration)) (common-lisp:progn (common-lisp:defun create-channel @@ -10019,12 +10018,13 @@ (common-lisp:format common-lisp:nil "/channel/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "CreateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-channel)) (common-lisp:progn (common-lisp:defun create-live-source @@ -10049,16 +10049,18 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/liveSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)) - (quri.encode:url-encode + 'source-location-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'live-source-name)))) + 'live-source-name) + common-lisp:t))) "CreateLiveSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-live-source)) (common-lisp:progn (common-lisp:defun create-prefetch-schedule @@ -10083,16 +10085,18 @@ (common-lisp:format common-lisp:nil "/prefetchSchedule/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'playback-configuration-name)) - (quri.encode:url-encode + 'playback-configuration-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreatePrefetchSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-prefetch-schedule)) (common-lisp:progn (common-lisp:defun create-program @@ -10118,16 +10122,18 @@ (common-lisp:format common-lisp:nil "/channel/~A/program/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'program-name)))) + 'program-name) + common-lisp:t))) "CreateProgram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-program)) (common-lisp:progn (common-lisp:defun create-source-location @@ -10154,12 +10160,13 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)))) + 'source-location-name) + common-lisp:t))) "CreateSourceLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-source-location)) (common-lisp:progn (common-lisp:defun create-vod-source @@ -10184,16 +10191,18 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/vodSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)) - (quri.encode:url-encode + 'source-location-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vod-source-name)))) + 'vod-source-name) + common-lisp:t))) "CreateVodSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vod-source)) (common-lisp:progn (common-lisp:defun delete-channel @@ -10215,12 +10224,13 @@ (common-lisp:format common-lisp:nil "/channel/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "DeleteChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel)) (common-lisp:progn (common-lisp:defun delete-channel-policy @@ -10242,12 +10252,13 @@ (common-lisp:format common-lisp:nil "/channel/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "DeleteChannelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-channel-policy)) (common-lisp:progn (common-lisp:defun delete-live-source @@ -10270,16 +10281,18 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/liveSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)) - (quri.encode:url-encode + 'source-location-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'live-source-name)))) + 'live-source-name) + common-lisp:t))) "DeleteLiveSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-live-source)) (common-lisp:progn (common-lisp:defun delete-playback-configuration @@ -10302,12 +10315,13 @@ (common-lisp:format common-lisp:nil "/playbackConfiguration/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeletePlaybackConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-playback-configuration)) (common-lisp:progn (common-lisp:defun delete-prefetch-schedule @@ -10330,16 +10344,18 @@ (common-lisp:format common-lisp:nil "/prefetchSchedule/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'playback-configuration-name)) - (quri.encode:url-encode + 'playback-configuration-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeletePrefetchSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-prefetch-schedule)) (common-lisp:progn (common-lisp:defun delete-program @@ -10361,16 +10377,18 @@ (common-lisp:format common-lisp:nil "/channel/~A/program/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'program-name)))) + 'program-name) + common-lisp:t))) "DeleteProgram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-program)) (common-lisp:progn (common-lisp:defun delete-source-location @@ -10392,12 +10410,13 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)))) + 'source-location-name) + common-lisp:t))) "DeleteSourceLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-source-location)) (common-lisp:progn (common-lisp:defun delete-vod-source @@ -10420,16 +10439,18 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/vodSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)) - (quri.encode:url-encode + 'source-location-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vod-source-name)))) + 'vod-source-name) + common-lisp:t))) "DeleteVodSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vod-source)) (common-lisp:progn (common-lisp:defun describe-channel @@ -10451,12 +10472,13 @@ (common-lisp:format common-lisp:nil "/channel/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "DescribeChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-channel)) (common-lisp:progn (common-lisp:defun describe-live-source @@ -10479,16 +10501,18 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/liveSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)) - (quri.encode:url-encode + 'source-location-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'live-source-name)))) + 'live-source-name) + common-lisp:t))) "DescribeLiveSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-live-source)) (common-lisp:progn (common-lisp:defun describe-program @@ -10510,16 +10534,18 @@ (common-lisp:format common-lisp:nil "/channel/~A/program/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'program-name)))) + 'program-name) + common-lisp:t))) "DescribeProgram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-program)) (common-lisp:progn (common-lisp:defun describe-source-location @@ -10541,12 +10567,13 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)))) + 'source-location-name) + common-lisp:t))) "DescribeSourceLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-source-location)) (common-lisp:progn (common-lisp:defun describe-vod-source @@ -10569,16 +10596,18 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/vodSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)) - (quri.encode:url-encode + 'source-location-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vod-source-name)))) + 'vod-source-name) + common-lisp:t))) "DescribeVodSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vod-source)) (common-lisp:progn (common-lisp:defun get-channel-policy @@ -10600,12 +10629,13 @@ (common-lisp:format common-lisp:nil "/channel/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "GetChannelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel-policy)) (common-lisp:progn (common-lisp:defun get-channel-schedule @@ -10630,12 +10660,13 @@ (common-lisp:format common-lisp:nil "/channel/~A/schedule" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "GetChannelSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channel-schedule)) (common-lisp:progn (common-lisp:defun get-playback-configuration @@ -10658,12 +10689,13 @@ (common-lisp:format common-lisp:nil "/playbackConfiguration/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetPlaybackConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-playback-configuration)) (common-lisp:progn (common-lisp:defun get-prefetch-schedule @@ -10686,16 +10718,18 @@ (common-lisp:format common-lisp:nil "/prefetchSchedule/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'playback-configuration-name)) - (quri.encode:url-encode + 'playback-configuration-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetPrefetchSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-prefetch-schedule)) (common-lisp:progn (common-lisp:defun list-alerts @@ -10713,7 +10747,7 @@ aws-sdk/generator/operation::input "GET" "/alerts" "ListAlerts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-alerts)) (common-lisp:progn (common-lisp:defun list-channels @@ -10730,7 +10764,7 @@ aws-sdk/generator/operation::input "GET" "/channels" "ListChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-channels)) (common-lisp:progn (common-lisp:defun list-live-sources @@ -10754,12 +10788,13 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/liveSources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)))) + 'source-location-name) + common-lisp:t))) "ListLiveSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-live-sources)) (common-lisp:progn (common-lisp:defun list-playback-configurations @@ -10778,7 +10813,7 @@ "GET" "/playbackConfigurations" "ListPlaybackConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-playback-configurations)) (common-lisp:progn (common-lisp:defun list-prefetch-schedules @@ -10803,12 +10838,13 @@ (common-lisp:format common-lisp:nil "/prefetchSchedule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'playback-configuration-name)))) + 'playback-configuration-name) + common-lisp:t))) "ListPrefetchSchedules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-prefetch-schedules)) (common-lisp:progn (common-lisp:defun list-source-locations @@ -10826,7 +10862,7 @@ "GET" "/sourceLocations" "ListSourceLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-source-locations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10848,12 +10884,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-vod-sources @@ -10877,12 +10914,13 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/vodSources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)))) + 'source-location-name) + common-lisp:t))) "ListVodSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vod-sources)) (common-lisp:progn (common-lisp:defun put-channel-policy @@ -10904,12 +10942,13 @@ (common-lisp:format common-lisp:nil "/channel/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "PutChannelPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-channel-policy)) (common-lisp:progn (common-lisp:defun put-playback-configuration @@ -10938,7 +10977,7 @@ "PUT" "/playbackConfiguration" "PutPlaybackConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-playback-configuration)) (common-lisp:progn (common-lisp:defun start-channel @@ -10960,12 +10999,13 @@ (common-lisp:format common-lisp:nil "/channel/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "StartChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-channel)) (common-lisp:progn (common-lisp:defun stop-channel @@ -10987,12 +11027,13 @@ (common-lisp:format common-lisp:nil "/channel/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "StopChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-channel)) (common-lisp:progn (common-lisp:defun tag-resource @@ -11014,12 +11055,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -11041,12 +11083,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-channel @@ -11071,12 +11114,13 @@ (common-lisp:format common-lisp:nil "/channel/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)))) + 'channel-name) + common-lisp:t))) "UpdateChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-channel)) (common-lisp:progn (common-lisp:defun update-live-source @@ -11101,16 +11145,18 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/liveSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)) - (quri.encode:url-encode + 'source-location-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'live-source-name)))) + 'live-source-name) + common-lisp:t))) "UpdateLiveSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-live-source)) (common-lisp:progn (common-lisp:defun update-program @@ -11135,16 +11181,18 @@ (common-lisp:format common-lisp:nil "/channel/~A/program/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'channel-name)) - (quri.encode:url-encode + 'channel-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'program-name)))) + 'program-name) + common-lisp:t))) "UpdateProgram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-program)) (common-lisp:progn (common-lisp:defun update-source-location @@ -11171,12 +11219,13 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)))) + 'source-location-name) + common-lisp:t))) "UpdateSourceLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-source-location)) (common-lisp:progn (common-lisp:defun update-vod-source @@ -11201,14 +11250,16 @@ (common-lisp:format common-lisp:nil "/sourceLocation/~A/vodSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-location-name)) - (quri.encode:url-encode + 'source-location-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vod-source-name)))) + 'vod-source-name) + common-lisp:t))) "UpdateVodSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vod-source)) diff --git a/services/medical-imaging/api.lisp b/services/medical-imaging/api.lisp index 1969d732..02984ec6 100644 --- a/services/medical-imaging/api.lisp +++ b/services/medical-imaging/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/medical-imaging/api - (:use) - (:nicknames #:aws/medical-imaging) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/medical-imaging/api (:use) + (:nicknames #:aws/medical-imaging) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/medical-imaging/api) (common-lisp:progn (common-lisp:define-condition medical-imaging-error @@ -20,7 +19,7 @@ (common-lisp:export 'medical-imaging-error)) (common-lisp:progn (common-lisp:defclass medical-imaging-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "medical-imaging" :api-version "2023-07-19" :host-prefix @@ -349,7 +348,13 @@ (aws-sdk/generator/shape::input copy-image-set-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'copy-image-set-information))) + 'copy-image-set-information)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + copy-image-set-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass copy-image-set-response common-lisp:nil ((datastore-id :initarg :datastore-id :initform @@ -1973,7 +1978,13 @@ (aws-sdk/generator/shape::input get-image-frame-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'image-frame-information))) + 'image-frame-information)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-image-frame-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-image-frame-response common-lisp:nil ((image-frame-blob :initarg :image-frame-blob :initform @@ -2004,7 +2015,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2021,7 +2034,13 @@ ( (aws-sdk/generator/shape::input get-image-frame-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'image-frame-blob))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'image-frame-blob)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-image-frame-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-image-set-metadata-request common-lisp:nil ((datastore-id :initarg :datastore-id :initform @@ -2112,11 +2131,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-encoding)) - (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2135,7 +2158,13 @@ (aws-sdk/generator/shape::input get-image-set-metadata-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'image-set-metadata-blob))) + 'image-set-metadata-blob)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-image-set-metadata-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-image-set-request common-lisp:nil ((datastore-id :initarg :datastore-id :initform @@ -3347,7 +3376,13 @@ ( (aws-sdk/generator/shape::input search-image-sets-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'search-criteria))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'search-criteria)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + search-image-sets-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype search-image-sets-request-max-results-integer () 'common-lisp:integer) (common-lisp:progn @@ -3808,7 +3843,13 @@ (aws-sdk/generator/shape::input update-image-set-metadata-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'update-image-set-metadata-updates))) + 'update-image-set-metadata-updates)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-image-set-metadata-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-image-set-metadata-response common-lisp:nil ((datastore-id :initarg :datastore-id :initform @@ -3976,16 +4017,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A/imageSet/~A/copyImageSet" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)) - (quri.encode:url-encode + 'datastore-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-image-set-id)))) + 'source-image-set-id) + common-lisp:t))) "CopyImageSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-image-set)) (common-lisp:progn (common-lisp:defun create-datastore @@ -4003,7 +4046,7 @@ (aws-sdk/generator/shape:make-request-with-input 'medical-imaging-request aws-sdk/generator/operation::input "POST" "/datastore" "CreateDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-datastore)) (common-lisp:progn (common-lisp:defun delete-datastore @@ -4020,12 +4063,13 @@ 'medical-imaging-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)))) + 'datastore-id) + common-lisp:t))) "DeleteDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-datastore)) (common-lisp:progn (common-lisp:defun delete-image-set @@ -4043,16 +4087,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A/imageSet/~A/deleteImageSet" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)) - (quri.encode:url-encode + 'datastore-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'image-set-id)))) + 'image-set-id) + common-lisp:t))) "DeleteImageSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image-set)) (common-lisp:progn (common-lisp:defun get-dicomimport-job @@ -4070,15 +4116,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/getDICOMImportJob/datastore/~A/job/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)) - (quri.encode:url-encode + 'datastore-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'job-id)))) + aws-sdk/generator/operation::input 'job-id) + common-lisp:t))) "GetDICOMImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dicomimport-job)) (common-lisp:progn (common-lisp:defun get-datastore @@ -4095,12 +4143,13 @@ 'medical-imaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)))) + 'datastore-id) + common-lisp:t))) "GetDatastore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-datastore)) (common-lisp:progn (common-lisp:defun get-image-frame @@ -4120,17 +4169,19 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A/imageSet/~A/getImageFrame" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)) - (quri.encode:url-encode + 'datastore-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'image-set-id)))) + 'image-set-id) + common-lisp:t))) "GetImageFrame") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-image-frame)) (common-lisp:progn (common-lisp:defun get-image-set @@ -4149,16 +4200,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A/imageSet/~A/getImageSet" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)) - (quri.encode:url-encode + 'datastore-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'image-set-id)))) + 'image-set-id) + common-lisp:t))) "GetImageSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-image-set)) (common-lisp:progn (common-lisp:defun get-image-set-metadata @@ -4177,17 +4230,19 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A/imageSet/~A/getImageSetMetadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)) - (quri.encode:url-encode + 'datastore-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'image-set-id)))) + 'image-set-id) + common-lisp:t))) "GetImageSetMetadata") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-image-set-metadata)) (common-lisp:progn (common-lisp:defun list-dicomimport-jobs @@ -4207,12 +4262,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/listDICOMImportJobs/datastore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)))) + 'datastore-id) + common-lisp:t))) "ListDICOMImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dicomimport-jobs)) (common-lisp:progn (common-lisp:defun list-datastores @@ -4229,7 +4285,7 @@ (aws-sdk/generator/shape:make-request-with-input 'medical-imaging-request aws-sdk/generator/operation::input "GET" "/datastore" "ListDatastores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datastores)) (common-lisp:progn (common-lisp:defun list-image-set-versions @@ -4249,16 +4305,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A/imageSet/~A/listImageSetVersions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)) - (quri.encode:url-encode + 'datastore-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'image-set-id)))) + 'image-set-id) + common-lisp:t))) "ListImageSetVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-set-versions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4275,12 +4333,13 @@ 'medical-imaging-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun search-image-sets @@ -4300,12 +4359,13 @@ 'medical-imaging-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A/searchImageSets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)))) + 'datastore-id) + common-lisp:t))) "SearchImageSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-image-sets)) (common-lisp:progn (common-lisp:defun start-dicomimport-job @@ -4326,12 +4386,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/startDICOMImportJob/datastore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)))) + 'datastore-id) + common-lisp:t))) "StartDICOMImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-dicomimport-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4348,12 +4409,13 @@ 'medical-imaging-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4370,12 +4432,13 @@ 'medical-imaging-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-image-set-metadata @@ -4397,14 +4460,16 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/datastore/~A/imageSet/~A/updateImageSetMetadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'datastore-id)) - (quri.encode:url-encode + 'datastore-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'image-set-id)))) + 'image-set-id) + common-lisp:t))) "UpdateImageSetMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-image-set-metadata)) diff --git a/services/memorydb/api.lisp b/services/memorydb/api.lisp index 37862e93..407e822f 100644 --- a/services/memorydb/api.lisp +++ b/services/memorydb/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/memorydb/api - (:use) - (:nicknames #:aws/memorydb) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/memorydb/api (:use) + (:nicknames #:aws/memorydb) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/memorydb/api) (common-lisp:progn (common-lisp:define-condition memorydb-error @@ -7984,7 +7983,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchUpdateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-cluster)) (common-lisp:progn (common-lisp:defun copy-snapshot @@ -8004,7 +8003,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopySnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-snapshot)) (common-lisp:progn (common-lisp:defun create-acl @@ -8021,7 +8020,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-acl)) (common-lisp:progn (common-lisp:defun create-cluster @@ -8050,7 +8049,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-parameter-group @@ -8069,7 +8068,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-parameter-group)) (common-lisp:progn (common-lisp:defun create-snapshot @@ -8088,7 +8087,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-snapshot)) (common-lisp:progn (common-lisp:defun create-subnet-group @@ -8107,7 +8106,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subnet-group)) (common-lisp:progn (common-lisp:defun create-user @@ -8126,7 +8125,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun delete-acl @@ -8143,7 +8142,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-acl)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -8161,7 +8160,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-parameter-group @@ -8178,7 +8177,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-parameter-group)) (common-lisp:progn (common-lisp:defun delete-snapshot @@ -8195,7 +8194,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-snapshot)) (common-lisp:progn (common-lisp:defun delete-subnet-group @@ -8212,7 +8211,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subnet-group)) (common-lisp:progn (common-lisp:defun delete-user @@ -8229,7 +8228,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun describe-acls @@ -8246,7 +8245,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeACLs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-acls)) (common-lisp:progn (common-lisp:defun describe-clusters @@ -8266,7 +8265,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-clusters)) (common-lisp:progn (common-lisp:defun describe-engine-versions @@ -8286,7 +8285,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEngineVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-engine-versions)) (common-lisp:progn (common-lisp:defun describe-events @@ -8306,7 +8305,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-parameter-groups @@ -8326,7 +8325,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeParameterGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-parameter-groups)) (common-lisp:progn (common-lisp:defun describe-parameters @@ -8345,7 +8344,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-parameters)) (common-lisp:progn (common-lisp:defun describe-reserved-nodes @@ -8365,7 +8364,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-reserved-nodes)) (common-lisp:progn (common-lisp:defun describe-reserved-nodes-offerings @@ -8386,7 +8385,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedNodesOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-reserved-nodes-offerings)) (common-lisp:progn (common-lisp:defun describe-service-updates @@ -8406,7 +8405,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServiceUpdates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-service-updates)) (common-lisp:progn (common-lisp:defun describe-snapshots @@ -8426,7 +8425,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-snapshots)) (common-lisp:progn (common-lisp:defun describe-subnet-groups @@ -8444,7 +8443,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSubnetGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-subnet-groups)) (common-lisp:progn (common-lisp:defun describe-users @@ -8462,7 +8461,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-users)) (common-lisp:progn (common-lisp:defun failover-shard @@ -8479,7 +8478,7 @@ aws-sdk/generator/operation::input "POST" "/" "FailoverShard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'failover-shard)) (common-lisp:progn (common-lisp:defun list-allowed-node-type-updates @@ -8497,7 +8496,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAllowedNodeTypeUpdates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-allowed-node-type-updates)) (common-lisp:progn (common-lisp:defun list-tags @@ -8513,7 +8512,7 @@ (aws-sdk/generator/shape:make-request-with-input 'memorydb-request aws-sdk/generator/operation::input "POST" "/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun purchase-reserved-nodes-offering @@ -8534,7 +8533,7 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseReservedNodesOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'purchase-reserved-nodes-offering)) (common-lisp:progn (common-lisp:defun reset-parameter-group @@ -8554,7 +8553,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-parameter-group)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8571,7 +8570,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8588,7 +8587,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-acl @@ -8607,7 +8606,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-acl)) (common-lisp:progn (common-lisp:defun update-cluster @@ -8632,7 +8631,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster)) (common-lisp:progn (common-lisp:defun update-parameter-group @@ -8651,7 +8650,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-parameter-group)) (common-lisp:progn (common-lisp:defun update-subnet-group @@ -8669,7 +8668,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subnet-group)) (common-lisp:progn (common-lisp:defun update-user @@ -8688,5 +8687,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) diff --git a/services/meteringmarketplace/api.lisp b/services/meteringmarketplace/api.lisp index b96261c0..acc03a59 100644 --- a/services/meteringmarketplace/api.lisp +++ b/services/meteringmarketplace/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/meteringmarketplace/api - (:use) - (:nicknames #:aws/meteringmarketplace) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/meteringmarketplace/api (:use) + (:nicknames #:aws/meteringmarketplace) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/meteringmarketplace/api) (common-lisp:progn (common-lisp:define-condition meteringmarketplace-error @@ -934,7 +933,7 @@ (aws-sdk/generator/shape:make-request-with-input 'meteringmarketplace-request aws-sdk/generator/operation::input "POST" "/" "BatchMeterUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-meter-usage)) (common-lisp:progn (common-lisp:defun meter-usage @@ -953,7 +952,7 @@ (aws-sdk/generator/shape:make-request-with-input 'meteringmarketplace-request aws-sdk/generator/operation::input "POST" "/" "MeterUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'meter-usage)) (common-lisp:progn (common-lisp:defun register-usage @@ -970,7 +969,7 @@ (aws-sdk/generator/shape:make-request-with-input 'meteringmarketplace-request aws-sdk/generator/operation::input "POST" "/" "RegisterUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-usage)) (common-lisp:progn (common-lisp:defun resolve-customer @@ -986,5 +985,5 @@ (aws-sdk/generator/shape:make-request-with-input 'meteringmarketplace-request aws-sdk/generator/operation::input "POST" "/" "ResolveCustomer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resolve-customer)) diff --git a/services/mgn/api.lisp b/services/mgn/api.lisp index 03268ad5..efcf0c0b 100644 --- a/services/mgn/api.lisp +++ b/services/mgn/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mgn/api - (:use) - (:nicknames #:aws/mgn) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mgn/api (:use) + (:nicknames #:aws/mgn) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mgn/api) (common-lisp:progn (common-lisp:define-condition mgn-error @@ -20,7 +19,7 @@ (common-lisp:export 'mgn-error)) (common-lisp:progn (common-lisp:defclass mgn-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mgn" :api-version "2020-02-26" :host-prefix "mgn" :signing-name "mgn" @@ -13989,7 +13988,7 @@ "POST" "/ArchiveApplication" "ArchiveApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'archive-application)) (common-lisp:progn (common-lisp:defun archive-wave @@ -14006,7 +14005,7 @@ aws-sdk/generator/operation::input "POST" "/ArchiveWave" "ArchiveWave")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'archive-wave)) (common-lisp:progn (common-lisp:defun associate-applications @@ -14025,7 +14024,7 @@ "POST" "/AssociateApplications" "AssociateApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-applications)) (common-lisp:progn (common-lisp:defun associate-source-servers @@ -14045,7 +14044,7 @@ "POST" "/AssociateSourceServers" "AssociateSourceServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-source-servers)) (common-lisp:progn (common-lisp:defun change-server-life-cycle-state @@ -14065,7 +14064,7 @@ "POST" "/ChangeServerLifeCycleState" "ChangeServerLifeCycleState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'change-server-life-cycle-state)) (common-lisp:progn (common-lisp:defun create-application @@ -14084,7 +14083,7 @@ "POST" "/CreateApplication" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-connector @@ -14104,7 +14103,7 @@ "POST" "/CreateConnector" "CreateConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connector)) (common-lisp:progn (common-lisp:defun create-launch-configuration-template @@ -14133,7 +14132,7 @@ "POST" "/CreateLaunchConfigurationTemplate" "CreateLaunchConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-launch-configuration-template)) (common-lisp:progn (common-lisp:defun create-replication-configuration-template @@ -14164,7 +14163,7 @@ "POST" "/CreateReplicationConfigurationTemplate" "CreateReplicationConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-configuration-template)) (common-lisp:progn (common-lisp:defun create-wave @@ -14182,7 +14181,7 @@ aws-sdk/generator/operation::input "POST" "/CreateWave" "CreateWave")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-wave)) (common-lisp:progn (common-lisp:defun delete-application @@ -14200,7 +14199,7 @@ "POST" "/DeleteApplication" "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-connector @@ -14218,7 +14217,7 @@ "POST" "/DeleteConnector" "DeleteConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connector)) (common-lisp:progn (common-lisp:defun delete-job @@ -14235,7 +14234,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteJob" "DeleteJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-job)) (common-lisp:progn (common-lisp:defun delete-launch-configuration-template @@ -14255,7 +14254,7 @@ "POST" "/DeleteLaunchConfigurationTemplate" "DeleteLaunchConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-launch-configuration-template)) (common-lisp:progn (common-lisp:defun delete-replication-configuration-template @@ -14275,7 +14274,7 @@ "POST" "/DeleteReplicationConfigurationTemplate" "DeleteReplicationConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-configuration-template)) (common-lisp:progn (common-lisp:defun delete-source-server @@ -14293,7 +14292,7 @@ "POST" "/DeleteSourceServer" "DeleteSourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-source-server)) (common-lisp:progn (common-lisp:defun delete-vcenter-client @@ -14311,7 +14310,7 @@ "POST" "/DeleteVcenterClient" "DeleteVcenterClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vcenter-client)) (common-lisp:progn (common-lisp:defun delete-wave @@ -14328,7 +14327,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteWave" "DeleteWave")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-wave)) (common-lisp:progn (common-lisp:defun describe-job-log-items @@ -14347,7 +14346,7 @@ "POST" "/DescribeJobLogItems" "DescribeJobLogItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job-log-items)) (common-lisp:progn (common-lisp:defun describe-jobs @@ -14366,7 +14365,7 @@ aws-sdk/generator/operation::input "POST" "/DescribeJobs" "DescribeJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-jobs)) (common-lisp:progn (common-lisp:defun describe-launch-configuration-templates @@ -14388,7 +14387,7 @@ "POST" "/DescribeLaunchConfigurationTemplates" "DescribeLaunchConfigurationTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-launch-configuration-templates)) (common-lisp:progn (common-lisp:defun describe-replication-configuration-templates @@ -14410,7 +14409,7 @@ "POST" "/DescribeReplicationConfigurationTemplates" "DescribeReplicationConfigurationTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-replication-configuration-templates)) (common-lisp:progn (common-lisp:defun describe-source-servers @@ -14430,7 +14429,7 @@ "POST" "/DescribeSourceServers" "DescribeSourceServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-source-servers)) (common-lisp:progn (common-lisp:defun describe-vcenter-clients @@ -14448,7 +14447,7 @@ "GET" "/DescribeVcenterClients" "DescribeVcenterClients")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vcenter-clients)) (common-lisp:progn (common-lisp:defun disassociate-applications @@ -14468,7 +14467,7 @@ "POST" "/DisassociateApplications" "DisassociateApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-applications)) (common-lisp:progn (common-lisp:defun disassociate-source-servers @@ -14489,7 +14488,7 @@ "POST" "/DisassociateSourceServers" "DisassociateSourceServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-source-servers)) (common-lisp:progn (common-lisp:defun disconnect-from-service @@ -14507,7 +14506,7 @@ "POST" "/DisconnectFromService" "DisconnectFromService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disconnect-from-service)) (common-lisp:progn (common-lisp:defun finalize-cutover @@ -14525,7 +14524,7 @@ "POST" "/FinalizeCutover" "FinalizeCutover")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'finalize-cutover)) (common-lisp:progn (common-lisp:defun get-launch-configuration @@ -14543,7 +14542,7 @@ "POST" "/GetLaunchConfiguration" "GetLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-launch-configuration)) (common-lisp:progn (common-lisp:defun get-replication-configuration @@ -14562,7 +14561,7 @@ "POST" "/GetReplicationConfiguration" "GetReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-replication-configuration)) (common-lisp:progn (common-lisp:defun initialize-service () @@ -14591,7 +14590,7 @@ "POST" "/ListApplications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-connectors @@ -14609,7 +14608,7 @@ "POST" "/ListConnectors" "ListConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connectors)) (common-lisp:progn (common-lisp:defun list-export-errors @@ -14628,7 +14627,7 @@ "POST" "/ListExportErrors" "ListExportErrors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-export-errors)) (common-lisp:progn (common-lisp:defun list-exports @@ -14645,7 +14644,7 @@ aws-sdk/generator/operation::input "POST" "/ListExports" "ListExports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-exports)) (common-lisp:progn (common-lisp:defun list-import-errors @@ -14664,7 +14663,7 @@ "POST" "/ListImportErrors" "ListImportErrors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-import-errors)) (common-lisp:progn (common-lisp:defun list-imports @@ -14681,7 +14680,7 @@ aws-sdk/generator/operation::input "POST" "/ListImports" "ListImports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-imports)) (common-lisp:progn (common-lisp:defun list-managed-accounts @@ -14699,7 +14698,7 @@ "POST" "/ListManagedAccounts" "ListManagedAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-managed-accounts)) (common-lisp:progn (common-lisp:defun list-source-server-actions @@ -14721,7 +14720,7 @@ "POST" "/ListSourceServerActions" "ListSourceServerActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-source-server-actions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14743,12 +14742,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-template-actions @@ -14769,7 +14769,7 @@ "POST" "/ListTemplateActions" "ListTemplateActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-template-actions)) (common-lisp:progn (common-lisp:defun list-waves @@ -14788,7 +14788,7 @@ aws-sdk/generator/operation::input "POST" "/ListWaves" "ListWaves")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-waves)) (common-lisp:progn (common-lisp:defun mark-as-archived @@ -14806,7 +14806,7 @@ "POST" "/MarkAsArchived" "MarkAsArchived")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'mark-as-archived)) (common-lisp:progn (common-lisp:defun pause-replication @@ -14824,7 +14824,7 @@ "POST" "/PauseReplication" "PauseReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'pause-replication)) (common-lisp:progn (common-lisp:defun put-source-server-action @@ -14849,7 +14849,7 @@ "POST" "/PutSourceServerAction" "PutSourceServerAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-source-server-action)) (common-lisp:progn (common-lisp:defun put-template-action @@ -14875,7 +14875,7 @@ "POST" "/PutTemplateAction" "PutTemplateAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-template-action)) (common-lisp:progn (common-lisp:defun remove-source-server-action @@ -14895,7 +14895,7 @@ "POST" "/RemoveSourceServerAction" "RemoveSourceServerAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-source-server-action)) (common-lisp:progn (common-lisp:defun remove-template-action @@ -14915,7 +14915,7 @@ "POST" "/RemoveTemplateAction" "RemoveTemplateAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-template-action)) (common-lisp:progn (common-lisp:defun resume-replication @@ -14933,7 +14933,7 @@ "POST" "/ResumeReplication" "ResumeReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-replication)) (common-lisp:progn (common-lisp:defun retry-data-replication @@ -14951,7 +14951,7 @@ "POST" "/RetryDataReplication" "RetryDataReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retry-data-replication)) (common-lisp:progn (common-lisp:defun start-cutover @@ -14969,7 +14969,7 @@ aws-sdk/generator/operation::input "POST" "/StartCutover" "StartCutover")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-cutover)) (common-lisp:progn (common-lisp:defun start-export @@ -14986,7 +14986,7 @@ aws-sdk/generator/operation::input "POST" "/StartExport" "StartExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-export)) (common-lisp:progn (common-lisp:defun start-import @@ -15003,7 +15003,7 @@ aws-sdk/generator/operation::input "POST" "/StartImport" "StartImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import)) (common-lisp:progn (common-lisp:defun start-replication @@ -15021,7 +15021,7 @@ "POST" "/StartReplication" "StartReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-replication)) (common-lisp:progn (common-lisp:defun start-test @@ -15039,7 +15039,7 @@ aws-sdk/generator/operation::input "POST" "/StartTest" "StartTest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-test)) (common-lisp:progn (common-lisp:defun stop-replication @@ -15057,7 +15057,7 @@ "POST" "/StopReplication" "StopReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-replication)) (common-lisp:progn (common-lisp:defun tag-resource @@ -15079,12 +15079,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun terminate-target-instances @@ -15104,7 +15105,7 @@ "POST" "/TerminateTargetInstances" "TerminateTargetInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-target-instances)) (common-lisp:progn (common-lisp:defun unarchive-application @@ -15122,7 +15123,7 @@ "POST" "/UnarchiveApplication" "UnarchiveApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unarchive-application)) (common-lisp:progn (common-lisp:defun unarchive-wave @@ -15139,7 +15140,7 @@ aws-sdk/generator/operation::input "POST" "/UnarchiveWave" "UnarchiveWave")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unarchive-wave)) (common-lisp:progn (common-lisp:defun untag-resource @@ -15161,12 +15162,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -15186,7 +15188,7 @@ "POST" "/UpdateApplication" "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-connector @@ -15205,7 +15207,7 @@ "POST" "/UpdateConnector" "UpdateConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connector)) (common-lisp:progn (common-lisp:defun update-launch-configuration @@ -15231,7 +15233,7 @@ "POST" "/UpdateLaunchConfiguration" "UpdateLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-launch-configuration)) (common-lisp:progn (common-lisp:defun update-launch-configuration-template @@ -15261,7 +15263,7 @@ "POST" "/UpdateLaunchConfigurationTemplate" "UpdateLaunchConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-launch-configuration-template)) (common-lisp:progn (common-lisp:defun update-replication-configuration @@ -15295,7 +15297,7 @@ "POST" "/UpdateReplicationConfiguration" "UpdateReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-replication-configuration)) (common-lisp:progn (common-lisp:defun update-replication-configuration-template @@ -15328,7 +15330,7 @@ "POST" "/UpdateReplicationConfigurationTemplate" "UpdateReplicationConfigurationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-replication-configuration-template)) (common-lisp:progn (common-lisp:defun update-source-server @@ -15348,7 +15350,7 @@ "POST" "/UpdateSourceServer" "UpdateSourceServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-source-server)) (common-lisp:progn (common-lisp:defun update-source-server-replication-type @@ -15369,7 +15371,7 @@ "POST" "/UpdateSourceServerReplicationType" "UpdateSourceServerReplicationType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-source-server-replication-type)) (common-lisp:progn (common-lisp:defun update-wave @@ -15387,5 +15389,5 @@ aws-sdk/generator/operation::input "POST" "/UpdateWave" "UpdateWave")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-wave)) diff --git a/services/migration-hub-refactor-spaces/api.lisp b/services/migration-hub-refactor-spaces/api.lisp index bdb31710..cbdfcc59 100644 --- a/services/migration-hub-refactor-spaces/api.lisp +++ b/services/migration-hub-refactor-spaces/api.lisp @@ -1,17 +1,14 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/migration-hub-refactor-spaces/api - (:use) - (:nicknames #:aws/migration-hub-refactor-spaces) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package + #:aws-sdk/services/migration-hub-refactor-spaces/api (:use) + (:nicknames #:aws/migration-hub-refactor-spaces) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/migration-hub-refactor-spaces/api) (common-lisp:progn (common-lisp:define-condition migration-hub-refactor-spaces-error @@ -20,7 +17,7 @@ (common-lisp:export 'migration-hub-refactor-spaces-error)) (common-lisp:progn (common-lisp:defclass migration-hub-refactor-spaces-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "migration-hub-refactor-spaces" :api-version @@ -5905,12 +5902,13 @@ aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)))) + 'environment-identifier) + common-lisp:t))) "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-environment @@ -5930,7 +5928,7 @@ 'migration-hub-refactor-spaces-request aws-sdk/generator/operation::input "POST" "/environments" "CreateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun create-route @@ -5953,16 +5951,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/routes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "CreateRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-route)) (common-lisp:progn (common-lisp:defun create-service @@ -5986,16 +5986,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/services" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "CreateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service)) (common-lisp:progn (common-lisp:defun delete-application @@ -6016,16 +6018,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-environment @@ -6043,12 +6047,13 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)))) + 'environment-identifier) + common-lisp:t))) "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -6066,12 +6071,12 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resourcepolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-route @@ -6093,20 +6098,23 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)) - (quri.encode:url-encode + 'application-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-identifier)))) + 'route-identifier) + common-lisp:t))) "DeleteRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-route)) (common-lisp:progn (common-lisp:defun delete-service @@ -6128,20 +6136,23 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/services/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)) - (quri.encode:url-encode + 'application-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)))) + 'service-identifier) + common-lisp:t))) "DeleteService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service)) (common-lisp:progn (common-lisp:defun get-application @@ -6162,16 +6173,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-environment @@ -6189,12 +6202,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)))) + 'environment-identifier) + common-lisp:t))) "GetEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -6212,12 +6226,12 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resourcepolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'identifier)))) + aws-sdk/generator/operation::input 'identifier) + common-lisp:t))) "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun get-route @@ -6239,20 +6253,23 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)) - (quri.encode:url-encode + 'application-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-identifier)))) + 'route-identifier) + common-lisp:t))) "GetRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-route)) (common-lisp:progn (common-lisp:defun get-service @@ -6274,20 +6291,23 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/services/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)) - (quri.encode:url-encode + 'application-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)))) + 'service-identifier) + common-lisp:t))) "GetService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service)) (common-lisp:progn (common-lisp:defun list-applications @@ -6307,12 +6327,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)))) + 'environment-identifier) + common-lisp:t))) "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-environment-vpcs @@ -6332,12 +6353,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/vpcs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)))) + 'environment-identifier) + common-lisp:t))) "ListEnvironmentVpcs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-vpcs)) (common-lisp:progn (common-lisp:defun list-environments @@ -6354,7 +6376,7 @@ 'migration-hub-refactor-spaces-request aws-sdk/generator/operation::input "GET" "/environments" "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-routes @@ -6376,16 +6398,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/routes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "ListRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-routes)) (common-lisp:progn (common-lisp:defun list-services @@ -6407,16 +6431,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/services" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)))) + 'application-identifier) + common-lisp:t))) "ListServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6434,12 +6460,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -6456,7 +6483,7 @@ 'migration-hub-refactor-spaces-request aws-sdk/generator/operation::input "PUT" "/resourcepolicy" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6474,12 +6501,13 @@ aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6497,12 +6525,13 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-route @@ -6524,18 +6553,21 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A/applications/~A/routes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-identifier)) - (quri.encode:url-encode + 'environment-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-identifier)) - (quri.encode:url-encode + 'application-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-identifier)))) + 'route-identifier) + common-lisp:t))) "UpdateRoute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-route)) diff --git a/services/migrationhub-config/api.lisp b/services/migrationhub-config/api.lisp index 9851f374..c924d9cb 100644 --- a/services/migrationhub-config/api.lisp +++ b/services/migrationhub-config/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/migrationhub-config/api - (:use) - (:nicknames #:aws/migrationhub-config) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/migrationhub-config/api (:use) + (:nicknames #:aws/migrationhub-config) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/migrationhub-config/api) (common-lisp:progn (common-lisp:define-condition migrationhub-config-error @@ -610,7 +609,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhub-config-request aws-sdk/generator/operation::input "POST" "/" "CreateHomeRegionControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-home-region-control)) (common-lisp:progn (common-lisp:defun delete-home-region-control @@ -627,7 +626,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhub-config-request aws-sdk/generator/operation::input "POST" "/" "DeleteHomeRegionControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-home-region-control)) (common-lisp:progn (common-lisp:defun describe-home-region-controls @@ -647,7 +646,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhub-config-request aws-sdk/generator/operation::input "POST" "/" "DescribeHomeRegionControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-home-region-controls)) (common-lisp:progn (common-lisp:defun get-home-region () diff --git a/services/migrationhuborchestrator/api.lisp b/services/migrationhuborchestrator/api.lisp index 70ec4f5c..a6480349 100644 --- a/services/migrationhuborchestrator/api.lisp +++ b/services/migrationhuborchestrator/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/migrationhuborchestrator/api - (:use) - (:nicknames #:aws/migrationhuborchestrator) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/migrationhuborchestrator/api + (:use) (:nicknames #:aws/migrationhuborchestrator) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/migrationhuborchestrator/api) (common-lisp:progn (common-lisp:define-condition migrationhuborchestrator-error @@ -20,7 +19,7 @@ (common-lisp:export 'migrationhuborchestrator-error)) (common-lisp:progn (common-lisp:defclass migrationhuborchestrator-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "migrationhuborchestrator" :api-version "2021-08-28" :host-prefix @@ -6762,7 +6761,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "POST" "/template" "CreateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-template)) (common-lisp:progn (common-lisp:defun create-workflow @@ -6783,7 +6782,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "POST" "/migrationworkflow/" "CreateWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workflow)) (common-lisp:progn (common-lisp:defun create-workflow-step @@ -6805,7 +6804,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "POST" "/workflowstep" "CreateWorkflowStep")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workflow-step)) (common-lisp:progn (common-lisp:defun create-workflow-step-group @@ -6824,7 +6823,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "POST" "/workflowstepgroups" "CreateWorkflowStepGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workflow-step-group)) (common-lisp:progn (common-lisp:defun delete-template @@ -6842,11 +6841,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/template/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-template)) (common-lisp:progn (common-lisp:defun delete-workflow @@ -6865,11 +6865,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/migrationworkflow/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workflow)) (common-lisp:progn (common-lisp:defun delete-workflow-step @@ -6887,11 +6888,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workflowstep/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteWorkflowStep")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workflow-step)) (common-lisp:progn (common-lisp:defun delete-workflow-step-group @@ -6910,11 +6912,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workflowstepgroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteWorkflowStepGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workflow-step-group)) (common-lisp:progn (common-lisp:defun get-template @@ -6933,11 +6936,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/migrationworkflowtemplate/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-template)) (common-lisp:progn (common-lisp:defun get-template-step @@ -6955,11 +6959,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templatestep/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetTemplateStep")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-template-step)) (common-lisp:progn (common-lisp:defun get-template-step-group @@ -6977,15 +6982,17 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A/stepgroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)) - (quri.encode:url-encode + 'template-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetTemplateStepGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-template-step-group)) (common-lisp:progn (common-lisp:defun get-workflow @@ -7003,11 +7010,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/migrationworkflow/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow)) (common-lisp:progn (common-lisp:defun get-workflow-step @@ -7025,11 +7033,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workflowstep/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetWorkflowStep")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-step)) (common-lisp:progn (common-lisp:defun get-workflow-step-group @@ -7047,11 +7056,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workflowstepgroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetWorkflowStepGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-step-group)) (common-lisp:progn (common-lisp:defun list-plugins @@ -7067,7 +7077,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "GET" "/plugins" "ListPlugins")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-plugins)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7085,12 +7095,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-template-step-groups @@ -7110,12 +7121,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templatestepgroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "ListTemplateStepGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-template-step-groups)) (common-lisp:progn (common-lisp:defun list-template-steps @@ -7133,7 +7145,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "GET" "/templatesteps" "ListTemplateSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-template-steps)) (common-lisp:progn (common-lisp:defun list-templates @@ -7150,7 +7162,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "GET" "/migrationworkflowtemplates" "ListTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-templates)) (common-lisp:progn (common-lisp:defun list-workflow-step-groups @@ -7168,7 +7180,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "GET" "/workflowstepgroups" "ListWorkflowStepGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflow-step-groups)) (common-lisp:progn (common-lisp:defun list-workflow-steps @@ -7189,16 +7201,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workflow/~A/workflowstepgroups/~A/workflowsteps" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workflow-id)) - (quri.encode:url-encode + 'workflow-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'step-group-id)))) + 'step-group-id) + common-lisp:t))) "ListWorkflowSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflow-steps)) (common-lisp:progn (common-lisp:defun list-workflows @@ -7217,7 +7231,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhuborchestrator-request aws-sdk/generator/operation::input "GET" "/migrationworkflows" "ListWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflows)) (common-lisp:progn (common-lisp:defun retry-workflow-step @@ -7235,11 +7249,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/retryworkflowstep/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "RetryWorkflowStep")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retry-workflow-step)) (common-lisp:progn (common-lisp:defun start-workflow @@ -7257,11 +7272,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/migrationworkflow/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "StartWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-workflow)) (common-lisp:progn (common-lisp:defun stop-workflow @@ -7279,11 +7295,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/migrationworkflow/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "StopWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-workflow)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7301,12 +7318,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7324,12 +7342,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-template @@ -7349,11 +7368,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/template/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template)) (common-lisp:progn (common-lisp:defun update-workflow @@ -7374,11 +7394,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/migrationworkflow/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workflow)) (common-lisp:progn (common-lisp:defun update-workflow-step @@ -7402,11 +7423,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workflowstep/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateWorkflowStep")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workflow-step)) (common-lisp:progn (common-lisp:defun update-workflow-step-group @@ -7427,9 +7449,10 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workflowstepgroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateWorkflowStepGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workflow-step-group)) diff --git a/services/migrationhubstrategy/api.lisp b/services/migrationhubstrategy/api.lisp index c1c8c9e8..584ea012 100644 --- a/services/migrationhubstrategy/api.lisp +++ b/services/migrationhubstrategy/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/migrationhubstrategy/api - (:use) - (:nicknames #:aws/migrationhubstrategy) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/migrationhubstrategy/api (:use) + (:nicknames #:aws/migrationhubstrategy) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/migrationhubstrategy/api) (common-lisp:progn (common-lisp:define-condition migrationhubstrategy-error @@ -20,7 +19,7 @@ (common-lisp:export 'migrationhubstrategy-error)) (common-lisp:progn (common-lisp:defclass migrationhubstrategy-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "migrationhubstrategy" :api-version "2020-02-19" :host-prefix @@ -6825,12 +6824,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/get-applicationcomponent-details/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-component-id)))) + 'application-component-id) + common-lisp:t))) "GetApplicationComponentDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-component-details)) (common-lisp:progn (common-lisp:defun get-application-component-strategies @@ -6849,12 +6849,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/get-applicationcomponent-strategies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-component-id)))) + 'application-component-id) + common-lisp:t))) "GetApplicationComponentStrategies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-component-strategies)) (common-lisp:progn (common-lisp:defun get-assessment @@ -6871,11 +6872,12 @@ 'migrationhubstrategy-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/get-assessment/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assessment)) (common-lisp:progn (common-lisp:defun get-import-file-task @@ -6892,11 +6894,12 @@ 'migrationhubstrategy-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/get-import-file-task/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetImportFileTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-import-file-task)) (common-lisp:progn (common-lisp:defun get-latest-assessment-id () @@ -6942,11 +6945,12 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/get-recommendation-report-details/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetRecommendationReportDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendation-report-details)) (common-lisp:progn (common-lisp:defun get-server-details @@ -6964,12 +6968,12 @@ 'migrationhubstrategy-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/get-server-details/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'server-id)))) + aws-sdk/generator/operation::input 'server-id) + common-lisp:t))) "GetServerDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-server-details)) (common-lisp:progn (common-lisp:defun get-server-strategies @@ -6986,12 +6990,12 @@ 'migrationhubstrategy-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/get-server-strategies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'server-id)))) + aws-sdk/generator/operation::input 'server-id) + common-lisp:t))) "GetServerStrategies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-server-strategies)) (common-lisp:progn (common-lisp:defun list-analyzable-servers @@ -7007,7 +7011,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/list-analyzable-servers" "ListAnalyzableServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-analyzable-servers)) (common-lisp:progn (common-lisp:defun list-application-components @@ -7027,7 +7031,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/list-applicationcomponents" "ListApplicationComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-components)) (common-lisp:progn (common-lisp:defun list-collectors @@ -7043,7 +7047,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "GET" "/list-collectors" "ListCollectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-collectors)) (common-lisp:progn (common-lisp:defun list-import-file-task @@ -7059,7 +7063,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "GET" "/list-import-file-task" "ListImportFileTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-import-file-task)) (common-lisp:progn (common-lisp:defun list-servers @@ -7078,7 +7082,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/list-servers" "ListServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-servers)) (common-lisp:progn (common-lisp:defun put-portfolio-preferences @@ -7098,7 +7102,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/put-portfolio-preferences" "PutPortfolioPreferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-portfolio-preferences)) (common-lisp:progn (common-lisp:defun start-assessment @@ -7118,7 +7122,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/start-assessment" "StartAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-assessment)) (common-lisp:progn (common-lisp:defun start-import-file-task @@ -7137,7 +7141,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/start-import-file-task" "StartImportFileTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import-file-task)) (common-lisp:progn (common-lisp:defun start-recommendation-report-generation @@ -7155,7 +7159,7 @@ 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/start-recommendation-report-generation" "StartRecommendationReportGeneration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-recommendation-report-generation)) (common-lisp:progn (common-lisp:defun stop-assessment @@ -7171,7 +7175,7 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/stop-assessment" "StopAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-assessment)) (common-lisp:progn (common-lisp:defun update-application-component-config @@ -7193,7 +7197,7 @@ 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/update-applicationcomponent-config/" "UpdateApplicationComponentConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application-component-config)) (common-lisp:progn (common-lisp:defun update-server-config @@ -7209,5 +7213,5 @@ (aws-sdk/generator/shape:make-request-with-input 'migrationhubstrategy-request aws-sdk/generator/operation::input "POST" "/update-server-config/" "UpdateServerConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-server-config)) diff --git a/services/mobile/api.lisp b/services/mobile/api.lisp index 68489c19..f9414c90 100644 --- a/services/mobile/api.lisp +++ b/services/mobile/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mobile/api - (:use) - (:nicknames #:aws/mobile) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mobile/api (:use) + (:nicknames #:aws/mobile) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mobile/api) (common-lisp:progn (common-lisp:define-condition mobile-error @@ -20,7 +19,7 @@ (common-lisp:export 'mobile-error)) (common-lisp:progn (common-lisp:defclass mobile-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mobile" :api-version "2017-07-01" :host-prefix "mobile" :signing-name @@ -219,7 +218,13 @@ ( (aws-sdk/generator/shape::input create-project-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'contents))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'contents)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-project-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-project-result common-lisp:nil ((details :initarg :details :initform common-lisp:nil @@ -1172,7 +1177,13 @@ ( (aws-sdk/generator/shape::input update-project-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'contents))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'contents)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-project-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-project-result common-lisp:nil ((details :initarg :details :initform common-lisp:nil @@ -1226,7 +1237,7 @@ aws-sdk/generator/operation::input "POST" "/projects" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun delete-project @@ -1248,12 +1259,13 @@ (common-lisp:format common-lisp:nil "/projects/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-id)))) + 'project-id) + common-lisp:t))) "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun describe-bundle @@ -1275,12 +1287,13 @@ (common-lisp:format common-lisp:nil "/bundles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bundle-id)))) + 'bundle-id) + common-lisp:t))) "DescribeBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bundle)) (common-lisp:progn (common-lisp:defun describe-project @@ -1297,7 +1310,7 @@ aws-sdk/generator/operation::input "GET" "/project" "DescribeProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-project)) (common-lisp:progn (common-lisp:defun export-bundle @@ -1319,12 +1332,13 @@ (common-lisp:format common-lisp:nil "/bundles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bundle-id)))) + 'bundle-id) + common-lisp:t))) "ExportBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-bundle)) (common-lisp:progn (common-lisp:defun export-project @@ -1346,12 +1360,13 @@ (common-lisp:format common-lisp:nil "/exports/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'project-id)))) + 'project-id) + common-lisp:t))) "ExportProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-project)) (common-lisp:progn (common-lisp:defun list-bundles @@ -1368,7 +1383,7 @@ aws-sdk/generator/operation::input "GET" "/bundles" "ListBundles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bundles)) (common-lisp:progn (common-lisp:defun list-projects @@ -1385,7 +1400,7 @@ aws-sdk/generator/operation::input "GET" "/projects" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun update-project @@ -1402,5 +1417,5 @@ aws-sdk/generator/operation::input "POST" "/update" "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) diff --git a/services/mobileanalytics/api.lisp b/services/mobileanalytics/api.lisp index dea24d78..c386a7b4 100644 --- a/services/mobileanalytics/api.lisp +++ b/services/mobileanalytics/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mobileanalytics/api - (:use) - (:nicknames #:aws/mobileanalytics) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mobileanalytics/api (:use) + (:nicknames #:aws/mobileanalytics) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mobileanalytics/api) (common-lisp:progn (common-lisp:define-condition mobileanalytics-error @@ -20,7 +19,7 @@ (common-lisp:export 'mobileanalytics-error)) (common-lisp:progn (common-lisp:defclass mobileanalytics-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mobileanalytics" :api-version "2014-06-05" :host-prefix @@ -193,13 +192,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-context)) - (common-lisp:cons "x-amz-Client-Context" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-Client-Context" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-context-encoding)) - (common-lisp:cons "x-amz-Client-Context-Encoding" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-Client-Context-Encoding" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input put-events-input)) (common-lisp:append @@ -299,5 +302,5 @@ (aws-sdk/generator/shape:make-request-with-input 'mobileanalytics-request aws-sdk/generator/operation::input "POST" "/2014-06-05/events" "PutEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-events)) diff --git a/services/models.lex.v2/api.lisp b/services/models.lex.v2/api.lisp index c8d6874e..ace961e0 100644 --- a/services/models.lex.v2/api.lisp +++ b/services/models.lex.v2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/models.lex.v2/api - (:use) - (:nicknames #:aws/models.lex.v2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/models.lex.v2/api (:use) + (:nicknames #:aws/models.lex.v2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/models.lex.v2/api) (common-lisp:progn (common-lisp:define-condition models.lex.v2-error @@ -20,7 +19,7 @@ (common-lisp:export 'models.lex.v2-error)) (common-lisp:progn (common-lisp:defclass models.lex.v2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "models.lex.v2" :api-version "2020-08-07" :host-prefix "models-v2-lex" :signing-name @@ -36375,20 +36374,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/customvocabulary/DEFAULT/batchcreate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "BatchCreateCustomVocabularyItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-custom-vocabulary-item)) (common-lisp:progn (common-lisp:defun batch-delete-custom-vocabulary-item @@ -36414,20 +36416,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/customvocabulary/DEFAULT/batchdelete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "BatchDeleteCustomVocabularyItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-custom-vocabulary-item)) (common-lisp:progn (common-lisp:defun batch-update-custom-vocabulary-item @@ -36453,20 +36458,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/customvocabulary/DEFAULT/batchupdate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "BatchUpdateCustomVocabularyItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-custom-vocabulary-item)) (common-lisp:progn (common-lisp:defun build-bot-locale @@ -36488,20 +36496,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "BuildBotLocale")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'build-bot-locale)) (common-lisp:progn (common-lisp:defun create-bot @@ -36523,7 +36534,7 @@ aws-sdk/generator/operation::input "PUT" "/bots/" "CreateBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bot)) (common-lisp:progn (common-lisp:defun create-bot-alias @@ -36550,12 +36561,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/botaliases/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "CreateBotAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bot-alias)) (common-lisp:progn (common-lisp:defun create-bot-locale @@ -36581,16 +36593,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)))) + 'bot-version) + common-lisp:t))) "CreateBotLocale")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bot-locale)) (common-lisp:progn (common-lisp:defun create-bot-replica @@ -36612,12 +36626,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/replicas/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "CreateBotReplica")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bot-replica)) (common-lisp:progn (common-lisp:defun create-bot-version @@ -36642,12 +36657,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "CreateBotVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bot-version)) (common-lisp:progn (common-lisp:defun create-export @@ -36666,7 +36682,7 @@ aws-sdk/generator/operation::input "PUT" "/exports/" "CreateExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-export)) (common-lisp:progn (common-lisp:defun create-intent @@ -36698,20 +36714,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "CreateIntent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-intent)) (common-lisp:progn (common-lisp:defun create-resource-policy @@ -36733,12 +36752,13 @@ (common-lisp:format common-lisp:nil "/policy/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "CreateResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-policy)) (common-lisp:progn (common-lisp:defun create-resource-policy-statement @@ -36764,12 +36784,13 @@ (common-lisp:format common-lisp:nil "/policy/~A/statements/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "CreateResourcePolicyStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-policy-statement)) (common-lisp:progn (common-lisp:defun create-slot @@ -36797,24 +36818,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/~A/slots/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'intent-id)))) + 'intent-id) + common-lisp:t))) "CreateSlot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-slot)) (common-lisp:progn (common-lisp:defun create-slot-type @@ -36842,20 +36867,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/slottypes/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "CreateSlotType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-slot-type)) (common-lisp:progn (common-lisp:defun create-test-set-discrepancy-report @@ -36878,12 +36906,13 @@ (common-lisp:format common-lisp:nil "/testsets/~A/testsetdiscrepancy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-set-id)))) + 'test-set-id) + common-lisp:t))) "CreateTestSetDiscrepancyReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-test-set-discrepancy-report)) (common-lisp:progn (common-lisp:defun create-upload-url () @@ -36915,12 +36944,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "DeleteBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot)) (common-lisp:progn (common-lisp:defun delete-bot-alias @@ -36944,16 +36974,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/botaliases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)))) + 'bot-alias-id) + common-lisp:t))) "DeleteBotAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot-alias)) (common-lisp:progn (common-lisp:defun delete-bot-locale @@ -36975,20 +37007,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "DeleteBotLocale")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot-locale)) (common-lisp:progn (common-lisp:defun delete-bot-replica @@ -37010,16 +37045,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/replicas/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'replica-region)))) + 'replica-region) + common-lisp:t))) "DeleteBotReplica")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot-replica)) (common-lisp:progn (common-lisp:defun delete-bot-version @@ -37043,16 +37080,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)))) + 'bot-version) + common-lisp:t))) "DeleteBotVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bot-version)) (common-lisp:progn (common-lisp:defun delete-custom-vocabulary @@ -37074,20 +37113,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/customvocabulary" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "DeleteCustomVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-vocabulary)) (common-lisp:progn (common-lisp:defun delete-export @@ -37109,12 +37151,13 @@ (common-lisp:format common-lisp:nil "/exports/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'export-id)))) + 'export-id) + common-lisp:t))) "DeleteExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-export)) (common-lisp:progn (common-lisp:defun delete-import @@ -37136,12 +37179,13 @@ (common-lisp:format common-lisp:nil "/imports/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'import-id)))) + 'import-id) + common-lisp:t))) "DeleteImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-import)) (common-lisp:progn (common-lisp:defun delete-intent @@ -37164,24 +37208,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'intent-id)))) + 'intent-id) + common-lisp:t))) "DeleteIntent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-intent)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -37204,12 +37252,13 @@ (common-lisp:format common-lisp:nil "/policy/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-resource-policy-statement @@ -37234,16 +37283,18 @@ (common-lisp:format common-lisp:nil "/policy/~A/statements/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)) - (quri.encode:url-encode + 'resource-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'statement-id)))) + 'statement-id) + common-lisp:t))) "DeleteResourcePolicyStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy-statement)) (common-lisp:progn (common-lisp:defun delete-slot @@ -37267,28 +37318,33 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/~A/slots/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'intent-id)) - (quri.encode:url-encode + 'intent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'slot-id)))) + 'slot-id) + common-lisp:t))) "DeleteSlot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slot)) (common-lisp:progn (common-lisp:defun delete-slot-type @@ -37313,24 +37369,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/slottypes/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'slot-type-id)))) + 'slot-type-id) + common-lisp:t))) "DeleteSlotType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slot-type)) (common-lisp:progn (common-lisp:defun delete-test-set @@ -37352,12 +37412,13 @@ (common-lisp:format common-lisp:nil "/testsets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-set-id)))) + 'test-set-id) + common-lisp:t))) "DeleteTestSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-test-set)) (common-lisp:progn (common-lisp:defun delete-utterances @@ -37379,12 +37440,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/utterances/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "DeleteUtterances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-utterances)) (common-lisp:progn (common-lisp:defun describe-bot @@ -37406,12 +37468,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "DescribeBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bot)) (common-lisp:progn (common-lisp:defun describe-bot-alias @@ -37433,16 +37496,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/botaliases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)))) + 'bot-alias-id) + common-lisp:t))) "DescribeBotAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bot-alias)) (common-lisp:progn (common-lisp:defun describe-bot-locale @@ -37464,20 +37529,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "DescribeBotLocale")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bot-locale)) (common-lisp:progn (common-lisp:defun describe-bot-recommendation @@ -37502,24 +37570,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/botrecommendations/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-recommendation-id)))) + 'bot-recommendation-id) + common-lisp:t))) "DescribeBotRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bot-recommendation)) (common-lisp:progn (common-lisp:defun describe-bot-replica @@ -37541,16 +37613,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/replicas/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'replica-region)))) + 'replica-region) + common-lisp:t))) "DescribeBotReplica")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bot-replica)) (common-lisp:progn (common-lisp:defun describe-bot-resource-generation @@ -37575,24 +37649,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/generations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'generation-id)))) + 'generation-id) + common-lisp:t))) "DescribeBotResourceGeneration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bot-resource-generation)) (common-lisp:progn (common-lisp:defun describe-bot-version @@ -37614,16 +37692,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)))) + 'bot-version) + common-lisp:t))) "DescribeBotVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bot-version)) (common-lisp:progn (common-lisp:defun describe-custom-vocabulary-metadata @@ -37646,20 +37726,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/customvocabulary/DEFAULT/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "DescribeCustomVocabularyMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-custom-vocabulary-metadata)) (common-lisp:progn (common-lisp:defun describe-export @@ -37681,12 +37764,13 @@ (common-lisp:format common-lisp:nil "/exports/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'export-id)))) + 'export-id) + common-lisp:t))) "DescribeExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-export)) (common-lisp:progn (common-lisp:defun describe-import @@ -37708,12 +37792,13 @@ (common-lisp:format common-lisp:nil "/imports/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'import-id)))) + 'import-id) + common-lisp:t))) "DescribeImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-import)) (common-lisp:progn (common-lisp:defun describe-intent @@ -37736,24 +37821,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'intent-id)))) + 'intent-id) + common-lisp:t))) "DescribeIntent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-intent)) (common-lisp:progn (common-lisp:defun describe-resource-policy @@ -37775,12 +37864,13 @@ (common-lisp:format common-lisp:nil "/policy/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "DescribeResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-policy)) (common-lisp:progn (common-lisp:defun describe-slot @@ -37804,28 +37894,33 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/~A/slots/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'intent-id)) - (quri.encode:url-encode + 'intent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'slot-id)))) + 'slot-id) + common-lisp:t))) "DescribeSlot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-slot)) (common-lisp:progn (common-lisp:defun describe-slot-type @@ -37849,24 +37944,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/slottypes/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'slot-type-id)))) + 'slot-type-id) + common-lisp:t))) "DescribeSlotType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-slot-type)) (common-lisp:progn (common-lisp:defun describe-test-execution @@ -37888,12 +37987,13 @@ (common-lisp:format common-lisp:nil "/testexecutions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-execution-id)))) + 'test-execution-id) + common-lisp:t))) "DescribeTestExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-test-execution)) (common-lisp:progn (common-lisp:defun describe-test-set @@ -37915,12 +38015,13 @@ (common-lisp:format common-lisp:nil "/testsets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-set-id)))) + 'test-set-id) + common-lisp:t))) "DescribeTestSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-test-set)) (common-lisp:progn (common-lisp:defun describe-test-set-discrepancy-report @@ -37943,12 +38044,13 @@ (common-lisp:format common-lisp:nil "/testsetdiscrepancy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-set-discrepancy-report-id)))) + 'test-set-discrepancy-report-id) + common-lisp:t))) "DescribeTestSetDiscrepancyReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-test-set-discrepancy-report)) (common-lisp:progn (common-lisp:defun describe-test-set-generation @@ -37971,12 +38073,13 @@ (common-lisp:format common-lisp:nil "/testsetgenerations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-set-generation-id)))) + 'test-set-generation-id) + common-lisp:t))) "DescribeTestSetGeneration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-test-set-generation)) (common-lisp:progn (common-lisp:defun generate-bot-element @@ -37999,20 +38102,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/generate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "GenerateBotElement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-bot-element)) (common-lisp:progn (common-lisp:defun get-test-execution-artifacts-url @@ -38035,12 +38141,13 @@ (common-lisp:format common-lisp:nil "/testexecutions/~A/artifacturl" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-execution-id)))) + 'test-execution-id) + common-lisp:t))) "GetTestExecutionArtifactsUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-test-execution-artifacts-url)) (common-lisp:progn (common-lisp:defun list-aggregated-utterances @@ -38067,12 +38174,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/aggregatedutterances/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListAggregatedUtterances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-aggregated-utterances)) (common-lisp:progn (common-lisp:defun list-bot-alias-replicas @@ -38096,16 +38204,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/replicas/~A/botaliases/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'replica-region)))) + 'replica-region) + common-lisp:t))) "ListBotAliasReplicas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bot-alias-replicas)) (common-lisp:progn (common-lisp:defun list-bot-aliases @@ -38127,12 +38237,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/botaliases/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListBotAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bot-aliases)) (common-lisp:progn (common-lisp:defun list-bot-locales @@ -38157,16 +38268,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)))) + 'bot-version) + common-lisp:t))) "ListBotLocales")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bot-locales)) (common-lisp:progn (common-lisp:defun list-bot-recommendations @@ -38191,20 +38304,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/botrecommendations/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "ListBotRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bot-recommendations)) (common-lisp:progn (common-lisp:defun list-bot-replicas @@ -38226,12 +38342,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/replicas/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListBotReplicas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bot-replicas)) (common-lisp:progn (common-lisp:defun list-bot-resource-generations @@ -38257,20 +38374,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/generations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "ListBotResourceGenerations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bot-resource-generations)) (common-lisp:progn (common-lisp:defun list-bot-version-replicas @@ -38296,16 +38416,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/replicas/~A/botversions/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'replica-region)))) + 'replica-region) + common-lisp:t))) "ListBotVersionReplicas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bot-version-replicas)) (common-lisp:progn (common-lisp:defun list-bot-versions @@ -38328,12 +38450,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListBotVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bot-versions)) (common-lisp:progn (common-lisp:defun list-bots @@ -38351,7 +38474,7 @@ aws-sdk/generator/operation::input "POST" "/bots/" "ListBots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bots)) (common-lisp:progn (common-lisp:defun list-built-in-intents @@ -38374,12 +38497,13 @@ (common-lisp:format common-lisp:nil "/builtins/locales/~A/intents/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "ListBuiltInIntents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-built-in-intents)) (common-lisp:progn (common-lisp:defun list-built-in-slot-types @@ -38402,12 +38526,13 @@ (common-lisp:format common-lisp:nil "/builtins/locales/~A/slottypes/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "ListBuiltInSlotTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-built-in-slot-types)) (common-lisp:progn (common-lisp:defun list-custom-vocabulary-items @@ -38433,20 +38558,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/customvocabulary/DEFAULT/list" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "ListCustomVocabularyItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-vocabulary-items)) (common-lisp:progn (common-lisp:defun list-exports @@ -38466,7 +38594,7 @@ aws-sdk/generator/operation::input "POST" "/exports/" "ListExports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-exports)) (common-lisp:progn (common-lisp:defun list-imports @@ -38486,7 +38614,7 @@ aws-sdk/generator/operation::input "POST" "/imports/" "ListImports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-imports)) (common-lisp:progn (common-lisp:defun list-intent-metrics @@ -38511,12 +38639,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/analytics/intentmetrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListIntentMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-intent-metrics)) (common-lisp:progn (common-lisp:defun list-intent-paths @@ -38541,12 +38670,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/analytics/intentpaths" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListIntentPaths")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-intent-paths)) (common-lisp:progn (common-lisp:defun list-intent-stage-metrics @@ -38572,12 +38702,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/analytics/intentstagemetrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListIntentStageMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-intent-stage-metrics)) (common-lisp:progn (common-lisp:defun list-intents @@ -38602,20 +38733,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "ListIntents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-intents)) (common-lisp:progn (common-lisp:defun list-recommended-intents @@ -38640,24 +38774,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/botrecommendations/~A/intents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-recommendation-id)))) + 'bot-recommendation-id) + common-lisp:t))) "ListRecommendedIntents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommended-intents)) (common-lisp:progn (common-lisp:defun list-session-analytics-data @@ -38683,12 +38821,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/analytics/sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListSessionAnalyticsData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-session-analytics-data)) (common-lisp:progn (common-lisp:defun list-session-metrics @@ -38713,12 +38852,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/analytics/sessionmetrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListSessionMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-session-metrics)) (common-lisp:progn (common-lisp:defun list-slot-types @@ -38743,20 +38883,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/slottypes/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "ListSlotTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-slot-types)) (common-lisp:progn (common-lisp:defun list-slots @@ -38781,24 +38924,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/~A/slots/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'intent-id)))) + 'intent-id) + common-lisp:t))) "ListSlots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-slots)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -38820,12 +38967,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-test-execution-result-items @@ -38851,12 +38999,13 @@ (common-lisp:format common-lisp:nil "/testexecutions/~A/results" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-execution-id)))) + 'test-execution-id) + common-lisp:t))) "ListTestExecutionResultItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-execution-result-items)) (common-lisp:progn (common-lisp:defun list-test-executions @@ -38874,7 +39023,7 @@ "POST" "/testexecutions" "ListTestExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-executions)) (common-lisp:progn (common-lisp:defun list-test-set-records @@ -38897,12 +39046,13 @@ (common-lisp:format common-lisp:nil "/testsets/~A/records" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-set-id)))) + 'test-set-id) + common-lisp:t))) "ListTestSetRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-set-records)) (common-lisp:progn (common-lisp:defun list-test-sets @@ -38919,7 +39069,7 @@ aws-sdk/generator/operation::input "POST" "/testsets" "ListTestSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-sets)) (common-lisp:progn (common-lisp:defun list-utterance-analytics-data @@ -38945,12 +39095,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/analytics/utterances" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListUtteranceAnalyticsData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-utterance-analytics-data)) (common-lisp:progn (common-lisp:defun list-utterance-metrics @@ -38976,12 +39127,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/analytics/utterancemetrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "ListUtteranceMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-utterance-metrics)) (common-lisp:progn (common-lisp:defun search-associated-transcripts @@ -39008,24 +39160,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/botrecommendations/~A/associatedtranscripts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-recommendation-id)))) + 'bot-recommendation-id) + common-lisp:t))) "SearchAssociatedTranscripts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-associated-transcripts)) (common-lisp:progn (common-lisp:defun start-bot-recommendation @@ -39050,20 +39206,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/botrecommendations/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "StartBotRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-bot-recommendation)) (common-lisp:progn (common-lisp:defun start-bot-resource-generation @@ -39089,20 +39248,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/startgeneration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "StartBotResourceGeneration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-bot-resource-generation)) (common-lisp:progn (common-lisp:defun start-import @@ -39122,7 +39284,7 @@ aws-sdk/generator/operation::input "PUT" "/imports/" "StartImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import)) (common-lisp:progn (common-lisp:defun start-test-execution @@ -39147,12 +39309,13 @@ (common-lisp:format common-lisp:nil "/testsets/~A/testexecutions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-set-id)))) + 'test-set-id) + common-lisp:t))) "StartTestExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-test-execution)) (common-lisp:progn (common-lisp:defun start-test-set-generation @@ -39175,7 +39338,7 @@ "PUT" "/testsetgenerations" "StartTestSetGeneration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-test-set-generation)) (common-lisp:progn (common-lisp:defun stop-bot-recommendation @@ -39199,24 +39362,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/botrecommendations/~A/stopbotrecommendation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-recommendation-id)))) + 'bot-recommendation-id) + common-lisp:t))) "StopBotRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-bot-recommendation)) (common-lisp:progn (common-lisp:defun tag-resource @@ -39238,12 +39405,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -39265,12 +39433,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-bot @@ -39296,12 +39465,13 @@ (common-lisp:format common-lisp:nil "/bots/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)))) + 'bot-id) + common-lisp:t))) "UpdateBot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bot)) (common-lisp:progn (common-lisp:defun update-bot-alias @@ -39329,16 +39499,18 @@ (common-lisp:format common-lisp:nil "/bots/~A/botaliases/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)))) + 'bot-alias-id) + common-lisp:t))) "UpdateBotAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bot-alias)) (common-lisp:progn (common-lisp:defun update-bot-locale @@ -39364,20 +39536,23 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)))) + 'locale-id) + common-lisp:t))) "UpdateBotLocale")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bot-locale)) (common-lisp:progn (common-lisp:defun update-bot-recommendation @@ -39403,24 +39578,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/botrecommendations/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-recommendation-id)))) + 'bot-recommendation-id) + common-lisp:t))) "UpdateBotRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bot-recommendation)) (common-lisp:progn (common-lisp:defun update-export @@ -39442,12 +39621,13 @@ (common-lisp:format common-lisp:nil "/exports/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'export-id)))) + 'export-id) + common-lisp:t))) "UpdateExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-export)) (common-lisp:progn (common-lisp:defun update-intent @@ -39481,24 +39661,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'intent-id)))) + 'intent-id) + common-lisp:t))) "UpdateIntent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-intent)) (common-lisp:progn (common-lisp:defun update-resource-policy @@ -39521,12 +39705,13 @@ (common-lisp:format common-lisp:nil "/policy/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UpdateResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-policy)) (common-lisp:progn (common-lisp:defun update-slot @@ -39554,28 +39739,33 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/intents/~A/slots/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'intent-id)) - (quri.encode:url-encode + 'intent-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'slot-id)))) + 'slot-id) + common-lisp:t))) "UpdateSlot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-slot)) (common-lisp:progn (common-lisp:defun update-slot-type @@ -39604,24 +39794,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botversions/~A/botlocales/~A/slottypes/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-version)) - (quri.encode:url-encode + 'bot-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'slot-type-id)))) + 'slot-type-id) + common-lisp:t))) "UpdateSlotType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-slot-type)) (common-lisp:progn (common-lisp:defun update-test-set @@ -39644,10 +39838,11 @@ (common-lisp:format common-lisp:nil "/testsets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'test-set-id)))) + 'test-set-id) + common-lisp:t))) "UpdateTestSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-test-set)) diff --git a/services/monitoring/api.lisp b/services/monitoring/api.lisp index bec862d1..af181e87 100644 --- a/services/monitoring/api.lisp +++ b/services/monitoring/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/monitoring/api - (:use) - (:nicknames #:aws/monitoring) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/monitoring/api (:use) + (:nicknames #:aws/monitoring) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/monitoring/api) (common-lisp:progn (common-lisp:define-condition monitoring-error @@ -8175,7 +8174,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAlarms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-alarms)) (common-lisp:progn (common-lisp:defun delete-anomaly-detector @@ -8196,7 +8195,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAnomalyDetector")) - common-lisp:nil "DeleteAnomalyDetectorResult" *error-map*))) + common-lisp:nil "DeleteAnomalyDetectorResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-anomaly-detector)) (common-lisp:progn (common-lisp:defun delete-dashboards @@ -8213,7 +8213,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDashboards")) - common-lisp:nil "DeleteDashboardsResult" *error-map*))) + common-lisp:nil "DeleteDashboardsResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dashboards)) (common-lisp:progn (common-lisp:defun delete-insight-rules @@ -8230,7 +8230,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInsightRules")) - common-lisp:nil "DeleteInsightRulesResult" *error-map*))) + common-lisp:nil "DeleteInsightRulesResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-insight-rules)) (common-lisp:progn (common-lisp:defun delete-metric-stream @@ -8247,7 +8247,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMetricStream")) - common-lisp:nil "DeleteMetricStreamResult" *error-map*))) + common-lisp:nil "DeleteMetricStreamResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-metric-stream)) (common-lisp:progn (common-lisp:defun describe-alarm-history @@ -8267,7 +8267,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAlarmHistory")) - common-lisp:nil "DescribeAlarmHistoryResult" *error-map*))) + common-lisp:nil "DescribeAlarmHistoryResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-alarm-history)) (common-lisp:progn (common-lisp:defun describe-alarms @@ -8289,7 +8290,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAlarms")) - common-lisp:nil "DescribeAlarmsResult" *error-map*))) + common-lisp:nil "DescribeAlarmsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-alarms)) (common-lisp:progn (common-lisp:defun describe-alarms-for-metric @@ -8309,7 +8310,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAlarmsForMetric")) - common-lisp:nil "DescribeAlarmsForMetricResult" *error-map*))) + common-lisp:nil "DescribeAlarmsForMetricResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-alarms-for-metric)) (common-lisp:progn (common-lisp:defun describe-anomaly-detectors @@ -8329,7 +8331,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAnomalyDetectors")) - common-lisp:nil "DescribeAnomalyDetectorsResult" *error-map*))) + common-lisp:nil "DescribeAnomalyDetectorsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-anomaly-detectors)) (common-lisp:progn (common-lisp:defun describe-insight-rules @@ -8346,7 +8349,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInsightRules")) - common-lisp:nil "DescribeInsightRulesResult" *error-map*))) + common-lisp:nil "DescribeInsightRulesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-insight-rules)) (common-lisp:progn (common-lisp:defun disable-alarm-actions @@ -8363,7 +8367,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableAlarmActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'disable-alarm-actions)) (common-lisp:progn (common-lisp:defun disable-insight-rules @@ -8380,7 +8384,8 @@ aws-sdk/generator/operation::input "POST" "/" "DisableInsightRules")) - common-lisp:nil "DisableInsightRulesResult" *error-map*))) + common-lisp:nil "DisableInsightRulesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'disable-insight-rules)) (common-lisp:progn (common-lisp:defun enable-alarm-actions @@ -8397,7 +8402,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableAlarmActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'enable-alarm-actions)) (common-lisp:progn (common-lisp:defun enable-insight-rules @@ -8414,7 +8419,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableInsightRules")) - common-lisp:nil "EnableInsightRulesResult" *error-map*))) + common-lisp:nil "EnableInsightRulesResult" *error-map* common-lisp:nil))) (common-lisp:export 'enable-insight-rules)) (common-lisp:progn (common-lisp:defun get-dashboard @@ -8431,7 +8436,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDashboard")) - common-lisp:nil "GetDashboardResult" *error-map*))) + common-lisp:nil "GetDashboardResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-dashboard)) (common-lisp:progn (common-lisp:defun get-insight-rule-report @@ -8451,7 +8456,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetInsightRuleReport")) - common-lisp:nil "GetInsightRuleReportResult" *error-map*))) + common-lisp:nil "GetInsightRuleReportResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-insight-rule-report)) (common-lisp:progn (common-lisp:defun get-metric-data @@ -8471,7 +8477,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMetricData")) - common-lisp:nil "GetMetricDataResult" *error-map*))) + common-lisp:nil "GetMetricDataResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-metric-data)) (common-lisp:progn (common-lisp:defun get-metric-statistics @@ -8492,7 +8498,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetMetricStatistics")) - common-lisp:nil "GetMetricStatisticsResult" *error-map*))) + common-lisp:nil "GetMetricStatisticsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-metric-statistics)) (common-lisp:progn (common-lisp:defun get-metric-stream @@ -8509,7 +8516,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMetricStream")) - common-lisp:nil "GetMetricStreamResult" *error-map*))) + common-lisp:nil "GetMetricStreamResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-metric-stream)) (common-lisp:progn (common-lisp:defun get-metric-widget-image @@ -8526,7 +8533,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetMetricWidgetImage")) - common-lisp:nil "GetMetricWidgetImageResult" *error-map*))) + common-lisp:nil "GetMetricWidgetImageResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-metric-widget-image)) (common-lisp:progn (common-lisp:defun list-dashboards @@ -8544,7 +8552,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDashboards")) - common-lisp:nil "ListDashboardsResult" *error-map*))) + common-lisp:nil "ListDashboardsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-dashboards)) (common-lisp:progn (common-lisp:defun list-managed-insight-rules @@ -8562,7 +8570,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListManagedInsightRules")) - common-lisp:nil "ListManagedInsightRulesResult" *error-map*))) + common-lisp:nil "ListManagedInsightRulesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-managed-insight-rules)) (common-lisp:progn (common-lisp:defun list-metric-streams @@ -8579,7 +8588,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMetricStreams")) - common-lisp:nil "ListMetricStreamsResult" *error-map*))) + common-lisp:nil "ListMetricStreamsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-metric-streams)) (common-lisp:progn (common-lisp:defun list-metrics @@ -8600,7 +8609,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMetrics")) - common-lisp:nil "ListMetricsResult" *error-map*))) + common-lisp:nil "ListMetricsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-metrics)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8617,7 +8626,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil "ListTagsForResourceResult" *error-map*))) + common-lisp:nil "ListTagsForResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-anomaly-detector @@ -8638,7 +8648,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAnomalyDetector")) - common-lisp:nil "PutAnomalyDetectorResult" *error-map*))) + common-lisp:nil "PutAnomalyDetectorResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-anomaly-detector)) (common-lisp:progn (common-lisp:defun put-composite-alarm @@ -8663,7 +8673,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutCompositeAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-composite-alarm)) (common-lisp:progn (common-lisp:defun put-dashboard @@ -8680,7 +8690,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutDashboard")) - common-lisp:nil "PutDashboardResult" *error-map*))) + common-lisp:nil "PutDashboardResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-dashboard)) (common-lisp:progn (common-lisp:defun put-insight-rule @@ -8699,7 +8709,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutInsightRule")) - common-lisp:nil "PutInsightRuleResult" *error-map*))) + common-lisp:nil "PutInsightRuleResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-insight-rule)) (common-lisp:progn (common-lisp:defun put-managed-insight-rules @@ -8716,7 +8726,8 @@ aws-sdk/generator/operation::input "POST" "/" "PutManagedInsightRules")) - common-lisp:nil "PutManagedInsightRulesResult" *error-map*))) + common-lisp:nil "PutManagedInsightRulesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'put-managed-insight-rules)) (common-lisp:progn (common-lisp:defun put-metric-alarm @@ -8745,7 +8756,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutMetricAlarm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-metric-alarm)) (common-lisp:progn (common-lisp:defun put-metric-data @@ -8762,7 +8773,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-metric-data)) (common-lisp:progn (common-lisp:defun put-metric-stream @@ -8784,7 +8795,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutMetricStream")) - common-lisp:nil "PutMetricStreamResult" *error-map*))) + common-lisp:nil "PutMetricStreamResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-metric-stream)) (common-lisp:progn (common-lisp:defun set-alarm-state @@ -8804,7 +8815,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetAlarmState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-alarm-state)) (common-lisp:progn (common-lisp:defun start-metric-streams @@ -8821,7 +8832,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMetricStreams")) - common-lisp:nil "StartMetricStreamsResult" *error-map*))) + common-lisp:nil "StartMetricStreamsResult" *error-map* common-lisp:nil))) (common-lisp:export 'start-metric-streams)) (common-lisp:progn (common-lisp:defun stop-metric-streams @@ -8838,7 +8849,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopMetricStreams")) - common-lisp:nil "StopMetricStreamsResult" *error-map*))) + common-lisp:nil "StopMetricStreamsResult" *error-map* common-lisp:nil))) (common-lisp:export 'stop-metric-streams)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8855,7 +8866,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil "TagResourceResult" *error-map*))) + common-lisp:nil "TagResourceResult" *error-map* common-lisp:nil))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8872,5 +8883,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil "UntagResourceResult" *error-map*))) + common-lisp:nil "UntagResourceResult" *error-map* common-lisp:nil))) (common-lisp:export 'untag-resource)) diff --git a/services/mq/api.lisp b/services/mq/api.lisp index 23741d68..00978acb 100644 --- a/services/mq/api.lisp +++ b/services/mq/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mq/api - (:use) - (:nicknames #:aws/mq) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mq/api (:use) + (:nicknames #:aws/mq) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mq/api) (common-lisp:progn (common-lisp:define-condition mq-error @@ -19,8 +18,7 @@ common-lisp:nil) (common-lisp:export 'mq-error)) (common-lisp:progn - (common-lisp:defclass mq-request - (aws-sdk/generator/service::rest-json-request) + (common-lisp:defclass mq-request (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mq" :api-version "2017-11-27" :host-prefix "mq" :signing-name "mq" @@ -7889,7 +7887,7 @@ aws-sdk/generator/operation::input "POST" "/v1/brokers" "CreateBroker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-broker)) (common-lisp:progn (common-lisp:defun create-configuration @@ -7910,7 +7908,7 @@ "POST" "/v1/configurations" "CreateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration)) (common-lisp:progn (common-lisp:defun create-tags @@ -7932,12 +7930,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "CreateTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tags)) (common-lisp:progn (common-lisp:defun create-user @@ -7962,16 +7961,18 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)) - (quri.encode:url-encode + 'broker-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'username)))) + 'username) + common-lisp:t))) "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun delete-broker @@ -7993,12 +7994,13 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)))) + 'broker-id) + common-lisp:t))) "DeleteBroker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-broker)) (common-lisp:progn (common-lisp:defun delete-tags @@ -8020,12 +8022,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun delete-user @@ -8047,16 +8050,18 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)) - (quri.encode:url-encode + 'broker-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'username)))) + 'username) + common-lisp:t))) "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun describe-broker @@ -8078,12 +8083,13 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)))) + 'broker-id) + common-lisp:t))) "DescribeBroker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-broker)) (common-lisp:progn (common-lisp:defun describe-broker-engine-types @@ -8103,7 +8109,7 @@ "GET" "/v1/broker-engine-types" "DescribeBrokerEngineTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-broker-engine-types)) (common-lisp:progn (common-lisp:defun describe-broker-instance-options @@ -8125,7 +8131,7 @@ "GET" "/v1/broker-instance-options" "DescribeBrokerInstanceOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-broker-instance-options)) (common-lisp:progn (common-lisp:defun describe-configuration @@ -8147,12 +8153,13 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-id)))) + 'configuration-id) + common-lisp:t))) "DescribeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration)) (common-lisp:progn (common-lisp:defun describe-configuration-revision @@ -8176,16 +8183,18 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A/revisions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-id)) - (quri.encode:url-encode + 'configuration-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-revision)))) + 'configuration-revision) + common-lisp:t))) "DescribeConfigurationRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration-revision)) (common-lisp:progn (common-lisp:defun describe-user @@ -8207,16 +8216,18 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)) - (quri.encode:url-encode + 'broker-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'username)))) + 'username) + common-lisp:t))) "DescribeUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user)) (common-lisp:progn (common-lisp:defun list-brokers @@ -8233,7 +8244,7 @@ aws-sdk/generator/operation::input "GET" "/v1/brokers" "ListBrokers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-brokers)) (common-lisp:progn (common-lisp:defun list-configuration-revisions @@ -8257,12 +8268,13 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A/revisions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-id)))) + 'configuration-id) + common-lisp:t))) "ListConfigurationRevisions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-revisions)) (common-lisp:progn (common-lisp:defun list-configurations @@ -8280,7 +8292,7 @@ "GET" "/v1/configurations" "ListConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configurations)) (common-lisp:progn (common-lisp:defun list-tags @@ -8302,12 +8314,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun list-users @@ -8330,12 +8343,13 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)))) + 'broker-id) + common-lisp:t))) "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun promote @@ -8357,12 +8371,13 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A/promote" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)))) + 'broker-id) + common-lisp:t))) "Promote")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'promote)) (common-lisp:progn (common-lisp:defun reboot-broker @@ -8384,12 +8399,13 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A/reboot" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)))) + 'broker-id) + common-lisp:t))) "RebootBroker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-broker)) (common-lisp:progn (common-lisp:defun update-broker @@ -8419,12 +8435,13 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)))) + 'broker-id) + common-lisp:t))) "UpdateBroker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-broker)) (common-lisp:progn (common-lisp:defun update-configuration @@ -8447,12 +8464,13 @@ (common-lisp:format common-lisp:nil "/v1/configurations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-id)))) + 'configuration-id) + common-lisp:t))) "UpdateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configuration)) (common-lisp:progn (common-lisp:defun update-user @@ -8477,14 +8495,16 @@ (common-lisp:format common-lisp:nil "/v1/brokers/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'broker-id)) - (quri.encode:url-encode + 'broker-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'username)))) + 'username) + common-lisp:t))) "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) diff --git a/services/mturk-requester/api.lisp b/services/mturk-requester/api.lisp index 4333e59b..734a8454 100644 --- a/services/mturk-requester/api.lisp +++ b/services/mturk-requester/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mturk-requester/api - (:use) - (:nicknames #:aws/mturk-requester) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mturk-requester/api (:use) + (:nicknames #:aws/mturk-requester) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mturk-requester/api) (common-lisp:progn (common-lisp:define-condition mturk-requester-error @@ -6523,7 +6522,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "AcceptQualificationRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-qualification-request)) (common-lisp:progn (common-lisp:defun approve-assignment @@ -6542,7 +6541,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ApproveAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'approve-assignment)) (common-lisp:progn (common-lisp:defun associate-qualification-with-worker @@ -6562,7 +6561,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "AssociateQualificationWithWorker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-qualification-with-worker)) (common-lisp:progn (common-lisp:defun create-additional-assignments-for-hit @@ -6582,7 +6581,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "CreateAdditionalAssignmentsForHIT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-additional-assignments-for-hit)) (common-lisp:progn (common-lisp:defun create-hit @@ -6609,7 +6608,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "CreateHIT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hit)) (common-lisp:progn (common-lisp:defun create-hittype @@ -6630,7 +6629,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "CreateHITType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hittype)) (common-lisp:progn (common-lisp:defun create-hitwith-hittype @@ -6653,7 +6652,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "CreateHITWithHITType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hitwith-hittype)) (common-lisp:progn (common-lisp:defun create-qualification-type @@ -6676,7 +6675,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "CreateQualificationType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-qualification-type)) (common-lisp:progn (common-lisp:defun create-worker-block @@ -6692,7 +6691,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "CreateWorkerBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-worker-block)) (common-lisp:progn (common-lisp:defun delete-hit @@ -6708,7 +6707,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "DeleteHIT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hit)) (common-lisp:progn (common-lisp:defun delete-qualification-type @@ -6725,7 +6724,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "DeleteQualificationType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-qualification-type)) (common-lisp:progn (common-lisp:defun delete-worker-block @@ -6741,7 +6740,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "DeleteWorkerBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-worker-block)) (common-lisp:progn (common-lisp:defun disassociate-qualification-from-worker @@ -6759,7 +6758,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "DisassociateQualificationFromWorker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-qualification-from-worker)) (common-lisp:progn (common-lisp:defun get-account-balance () @@ -6783,7 +6782,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "GetAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assignment)) (common-lisp:progn (common-lisp:defun get-file-upload-url @@ -6800,7 +6799,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "GetFileUploadURL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-file-upload-url)) (common-lisp:progn (common-lisp:defun get-hit @@ -6816,7 +6815,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "GetHIT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-hit)) (common-lisp:progn (common-lisp:defun get-qualification-score @@ -6833,7 +6832,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "GetQualificationScore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-qualification-score)) (common-lisp:progn (common-lisp:defun get-qualification-type @@ -6849,7 +6848,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "GetQualificationType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-qualification-type)) (common-lisp:progn (common-lisp:defun list-assignments-for-hit @@ -6867,7 +6866,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListAssignmentsForHIT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assignments-for-hit)) (common-lisp:progn (common-lisp:defun list-bonus-payments @@ -6885,7 +6884,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListBonusPayments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-bonus-payments)) (common-lisp:progn (common-lisp:defun list-hits @@ -6901,7 +6900,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListHITs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hits)) (common-lisp:progn (common-lisp:defun list-hits-for-qualification-type @@ -6920,7 +6919,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListHITsForQualificationType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hits-for-qualification-type)) (common-lisp:progn (common-lisp:defun list-qualification-requests @@ -6939,7 +6938,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListQualificationRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-qualification-requests)) (common-lisp:progn (common-lisp:defun list-qualification-types @@ -6958,7 +6957,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListQualificationTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-qualification-types)) (common-lisp:progn (common-lisp:defun list-review-policy-results-for-hit @@ -6978,7 +6977,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListReviewPolicyResultsForHIT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-review-policy-results-for-hit)) (common-lisp:progn (common-lisp:defun list-reviewable-hits @@ -6995,7 +6994,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListReviewableHITs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-reviewable-hits)) (common-lisp:progn (common-lisp:defun list-worker-blocks @@ -7011,7 +7010,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListWorkerBlocks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-worker-blocks)) (common-lisp:progn (common-lisp:defun list-workers-with-qualification-type @@ -7031,7 +7030,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "ListWorkersWithQualificationType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workers-with-qualification-type)) (common-lisp:progn (common-lisp:defun notify-workers @@ -7048,7 +7047,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "NotifyWorkers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-workers)) (common-lisp:progn (common-lisp:defun reject-assignment @@ -7065,7 +7064,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "RejectAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-assignment)) (common-lisp:progn (common-lisp:defun reject-qualification-request @@ -7083,7 +7082,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "RejectQualificationRequest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-qualification-request)) (common-lisp:progn (common-lisp:defun send-bonus @@ -7102,7 +7101,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "SendBonus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-bonus)) (common-lisp:progn (common-lisp:defun send-test-event-notification @@ -7119,7 +7118,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "SendTestEventNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-test-event-notification)) (common-lisp:progn (common-lisp:defun update-expiration-for-hit @@ -7135,7 +7134,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "UpdateExpirationForHIT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-expiration-for-hit)) (common-lisp:progn (common-lisp:defun update-hitreview-status @@ -7151,7 +7150,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "UpdateHITReviewStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-hitreview-status)) (common-lisp:progn (common-lisp:defun update-hittype-of-hit @@ -7167,7 +7166,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "UpdateHITTypeOfHIT")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-hittype-of-hit)) (common-lisp:progn (common-lisp:defun update-notification-settings @@ -7184,7 +7183,7 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "UpdateNotificationSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-notification-settings)) (common-lisp:progn (common-lisp:defun update-qualification-type @@ -7207,5 +7206,5 @@ (aws-sdk/generator/shape:make-request-with-input 'mturk-requester-request aws-sdk/generator/operation::input "POST" "/" "UpdateQualificationType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-qualification-type)) diff --git a/services/mwaa/api.lisp b/services/mwaa/api.lisp index 954a9e68..69f32390 100644 --- a/services/mwaa/api.lisp +++ b/services/mwaa/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/mwaa/api - (:use) - (:nicknames #:aws/mwaa) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/mwaa/api (:use) + (:nicknames #:aws/mwaa) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/mwaa/api) (common-lisp:progn (common-lisp:define-condition mwaa-error @@ -20,7 +19,7 @@ (common-lisp:export 'mwaa-error)) (common-lisp:progn (common-lisp:defclass mwaa-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "mwaa" :api-version "2020-07-01" :host-prefix "airflow" :signing-name @@ -2780,12 +2779,13 @@ (common-lisp:format common-lisp:nil "/clitoken/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateCliToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cli-token)) (common-lisp:progn (common-lisp:defun create-environment @@ -2822,12 +2822,13 @@ (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun create-web-login-token @@ -2849,12 +2850,13 @@ (common-lisp:format common-lisp:nil "/webtoken/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateWebLoginToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-web-login-token)) (common-lisp:progn (common-lisp:defun delete-environment @@ -2876,12 +2878,13 @@ (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun get-environment @@ -2903,12 +2906,13 @@ (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment)) (common-lisp:progn (common-lisp:defun list-environments @@ -2925,7 +2929,7 @@ aws-sdk/generator/operation::input "GET" "/environments" "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2947,12 +2951,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun publish-metrics @@ -2974,12 +2979,13 @@ (common-lisp:format common-lisp:nil "/metrics/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'environment-name)))) + 'environment-name) + common-lisp:t))) "PublishMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish-metrics)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3001,12 +3007,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3028,12 +3035,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-environment @@ -3070,10 +3078,11 @@ (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment)) diff --git a/services/neptune/api.lisp b/services/neptune/api.lisp index 02bf4f25..9a3cdd8a 100644 --- a/services/neptune/api.lisp +++ b/services/neptune/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/neptune/api - (:use) - (:nicknames #:aws/neptune) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/neptune/api (:use) + (:nicknames #:aws/neptune) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/neptune/api) (common-lisp:progn (common-lisp:define-condition neptune-error @@ -16382,7 +16381,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddRoleToDBCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-role-to-dbcluster)) (common-lisp:progn (common-lisp:defun add-source-identifier-to-subscription @@ -16401,7 +16400,8 @@ aws-sdk/generator/operation::input "POST" "/" "AddSourceIdentifierToSubscription")) - common-lisp:nil "AddSourceIdentifierToSubscriptionResult" *error-map*))) + common-lisp:nil "AddSourceIdentifierToSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'add-source-identifier-to-subscription)) (common-lisp:progn (common-lisp:defun add-tags-to-resource @@ -16418,7 +16418,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun apply-pending-maintenance-action @@ -16438,7 +16438,8 @@ aws-sdk/generator/operation::input "POST" "/" "ApplyPendingMaintenanceAction")) - common-lisp:nil "ApplyPendingMaintenanceActionResult" *error-map*))) + common-lisp:nil "ApplyPendingMaintenanceActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'apply-pending-maintenance-action)) (common-lisp:progn (common-lisp:defun copy-dbcluster-parameter-group @@ -16462,7 +16463,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBClusterParameterGroup")) - common-lisp:nil "CopyDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "CopyDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun copy-dbcluster-snapshot @@ -16484,7 +16486,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBClusterSnapshot")) - common-lisp:nil "CopyDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "CopyDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun copy-dbparameter-group @@ -16506,7 +16509,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBParameterGroup")) - common-lisp:nil "CopyDBParameterGroupResult" *error-map*))) + common-lisp:nil "CopyDBParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-dbparameter-group)) (common-lisp:progn (common-lisp:defun create-dbcluster @@ -16545,7 +16549,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBCluster")) - common-lisp:nil "CreateDBClusterResult" *error-map*))) + common-lisp:nil "CreateDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbcluster)) (common-lisp:progn (common-lisp:defun create-dbcluster-endpoint @@ -16567,7 +16571,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBClusterEndpoint")) - common-lisp:nil "CreateDBClusterEndpointResult" *error-map*))) + common-lisp:nil "CreateDBClusterEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbcluster-endpoint)) (common-lisp:progn (common-lisp:defun create-dbcluster-parameter-group @@ -16588,7 +16593,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBClusterParameterGroup")) - common-lisp:nil "CreateDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "CreateDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun create-dbcluster-snapshot @@ -16609,7 +16615,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBClusterSnapshot")) - common-lisp:nil "CreateDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "CreateDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun create-dbinstance @@ -16655,7 +16662,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBInstance")) - common-lisp:nil "CreateDBInstanceResult" *error-map*))) + common-lisp:nil "CreateDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbinstance)) (common-lisp:progn (common-lisp:defun create-dbparameter-group @@ -16675,7 +16682,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBParameterGroup")) - common-lisp:nil "CreateDBParameterGroupResult" *error-map*))) + common-lisp:nil "CreateDBParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbparameter-group)) (common-lisp:progn (common-lisp:defun create-dbsubnet-group @@ -16695,7 +16703,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBSubnetGroup")) - common-lisp:nil "CreateDBSubnetGroupResult" *error-map*))) + common-lisp:nil "CreateDBSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbsubnet-group)) (common-lisp:progn (common-lisp:defun create-event-subscription @@ -16716,7 +16725,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventSubscription")) - common-lisp:nil "CreateEventSubscriptionResult" *error-map*))) + common-lisp:nil "CreateEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-event-subscription)) (common-lisp:progn (common-lisp:defun create-global-cluster @@ -16738,7 +16748,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGlobalCluster")) - common-lisp:nil "CreateGlobalClusterResult" *error-map*))) + common-lisp:nil "CreateGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-global-cluster)) (common-lisp:progn (common-lisp:defun delete-dbcluster @@ -16758,7 +16769,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBCluster")) - common-lisp:nil "DeleteDBClusterResult" *error-map*))) + common-lisp:nil "DeleteDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbcluster)) (common-lisp:progn (common-lisp:defun delete-dbcluster-endpoint @@ -16776,7 +16787,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterEndpoint")) - common-lisp:nil "DeleteDBClusterEndpointResult" *error-map*))) + common-lisp:nil "DeleteDBClusterEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-dbcluster-endpoint)) (common-lisp:progn (common-lisp:defun delete-dbcluster-parameter-group @@ -16794,7 +16806,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun delete-dbcluster-snapshot @@ -16812,7 +16824,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterSnapshot")) - common-lisp:nil "DeleteDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "DeleteDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun delete-dbinstance @@ -16832,7 +16845,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBInstance")) - common-lisp:nil "DeleteDBInstanceResult" *error-map*))) + common-lisp:nil "DeleteDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbinstance)) (common-lisp:progn (common-lisp:defun delete-dbparameter-group @@ -16849,7 +16862,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbparameter-group)) (common-lisp:progn (common-lisp:defun delete-dbsubnet-group @@ -16866,7 +16879,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbsubnet-group)) (common-lisp:progn (common-lisp:defun delete-event-subscription @@ -16884,7 +16897,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventSubscription")) - common-lisp:nil "DeleteEventSubscriptionResult" *error-map*))) + common-lisp:nil "DeleteEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-event-subscription)) (common-lisp:progn (common-lisp:defun delete-global-cluster @@ -16901,7 +16915,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGlobalCluster")) - common-lisp:nil "DeleteGlobalClusterResult" *error-map*))) + common-lisp:nil "DeleteGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-global-cluster)) (common-lisp:progn (common-lisp:defun describe-dbcluster-endpoints @@ -16922,7 +16937,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterEndpoints")) - common-lisp:nil "DescribeDBClusterEndpointsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterEndpointsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-endpoints)) (common-lisp:progn (common-lisp:defun describe-dbcluster-parameter-groups @@ -16943,7 +16959,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterParameterGroups")) - common-lisp:nil "DescribeDBClusterParameterGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterParameterGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-parameter-groups)) (common-lisp:progn (common-lisp:defun describe-dbcluster-parameters @@ -16964,7 +16981,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterParameters")) - common-lisp:nil "DescribeDBClusterParametersResult" *error-map*))) + common-lisp:nil "DescribeDBClusterParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-parameters)) (common-lisp:progn (common-lisp:defun describe-dbcluster-snapshot-attributes @@ -16982,8 +17000,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterSnapshotAttributes")) - common-lisp:nil "DescribeDBClusterSnapshotAttributesResult" - *error-map*))) + common-lisp:nil "DescribeDBClusterSnapshotAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-snapshot-attributes)) (common-lisp:progn (common-lisp:defun describe-dbcluster-snapshots @@ -17005,7 +17023,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterSnapshots")) - common-lisp:nil "DescribeDBClusterSnapshotsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterSnapshotsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-snapshots)) (common-lisp:progn (common-lisp:defun describe-dbclusters @@ -17024,7 +17043,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusters")) - common-lisp:nil "DescribeDBClustersResult" *error-map*))) + common-lisp:nil "DescribeDBClustersResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-dbclusters)) (common-lisp:progn (common-lisp:defun describe-dbengine-versions @@ -17048,7 +17067,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBEngineVersions")) - common-lisp:nil "DescribeDBEngineVersionsResult" *error-map*))) + common-lisp:nil "DescribeDBEngineVersionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbengine-versions)) (common-lisp:progn (common-lisp:defun describe-dbinstances @@ -17067,7 +17087,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBInstances")) - common-lisp:nil "DescribeDBInstancesResult" *error-map*))) + common-lisp:nil "DescribeDBInstancesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbinstances)) (common-lisp:progn (common-lisp:defun describe-dbparameter-groups @@ -17087,7 +17108,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBParameterGroups")) - common-lisp:nil "DescribeDBParameterGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBParameterGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbparameter-groups)) (common-lisp:progn (common-lisp:defun describe-dbparameters @@ -17107,7 +17129,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBParameters")) - common-lisp:nil "DescribeDBParametersResult" *error-map*))) + common-lisp:nil "DescribeDBParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbparameters)) (common-lisp:progn (common-lisp:defun describe-dbsubnet-groups @@ -17126,7 +17149,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBSubnetGroups")) - common-lisp:nil "DescribeDBSubnetGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBSubnetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbsubnet-groups)) (common-lisp:progn (common-lisp:defun describe-engine-default-cluster-parameters @@ -17148,7 +17172,7 @@ "POST" "/" "DescribeEngineDefaultClusterParameters")) common-lisp:nil "DescribeEngineDefaultClusterParametersResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'describe-engine-default-cluster-parameters)) (common-lisp:progn (common-lisp:defun describe-engine-default-parameters @@ -17169,7 +17193,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEngineDefaultParameters")) - common-lisp:nil "DescribeEngineDefaultParametersResult" *error-map*))) + common-lisp:nil "DescribeEngineDefaultParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-engine-default-parameters)) (common-lisp:progn (common-lisp:defun describe-event-categories @@ -17187,7 +17212,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventCategories")) - common-lisp:nil "DescribeEventCategoriesResult" *error-map*))) + common-lisp:nil "DescribeEventCategoriesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-event-categories)) (common-lisp:progn (common-lisp:defun describe-event-subscriptions @@ -17207,7 +17233,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventSubscriptions")) - common-lisp:nil "DescribeEventSubscriptionsResult" *error-map*))) + common-lisp:nil "DescribeEventSubscriptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-event-subscriptions)) (common-lisp:progn (common-lisp:defun describe-events @@ -17228,7 +17255,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil "DescribeEventsResult" *error-map*))) + common-lisp:nil "DescribeEventsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-global-clusters @@ -17247,7 +17274,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGlobalClusters")) - common-lisp:nil "DescribeGlobalClustersResult" *error-map*))) + common-lisp:nil "DescribeGlobalClustersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-global-clusters)) (common-lisp:progn (common-lisp:defun describe-orderable-dbinstance-options @@ -17268,7 +17296,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrderableDBInstanceOptions")) - common-lisp:nil "DescribeOrderableDBInstanceOptionsResult" *error-map*))) + common-lisp:nil "DescribeOrderableDBInstanceOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-orderable-dbinstance-options)) (common-lisp:progn (common-lisp:defun describe-pending-maintenance-actions @@ -17288,7 +17317,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePendingMaintenanceActions")) - common-lisp:nil "DescribePendingMaintenanceActionsResult" *error-map*))) + common-lisp:nil "DescribePendingMaintenanceActionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-pending-maintenance-actions)) (common-lisp:progn (common-lisp:defun describe-valid-dbinstance-modifications @@ -17306,8 +17336,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeValidDBInstanceModifications")) - common-lisp:nil "DescribeValidDBInstanceModificationsResult" - *error-map*))) + common-lisp:nil "DescribeValidDBInstanceModificationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-valid-dbinstance-modifications)) (common-lisp:progn (common-lisp:defun failover-dbcluster @@ -17326,7 +17356,7 @@ aws-sdk/generator/operation::input "POST" "/" "FailoverDBCluster")) - common-lisp:nil "FailoverDBClusterResult" *error-map*))) + common-lisp:nil "FailoverDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'failover-dbcluster)) (common-lisp:progn (common-lisp:defun failover-global-cluster @@ -17346,7 +17376,8 @@ aws-sdk/generator/operation::input "POST" "/" "FailoverGlobalCluster")) - common-lisp:nil "FailoverGlobalClusterResult" *error-map*))) + common-lisp:nil "FailoverGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'failover-global-cluster)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -17363,7 +17394,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil "ListTagsForResourceResult" *error-map*))) + common-lisp:nil "ListTagsForResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-dbcluster @@ -17399,7 +17431,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBCluster")) - common-lisp:nil "ModifyDBClusterResult" *error-map*))) + common-lisp:nil "ModifyDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbcluster)) (common-lisp:progn (common-lisp:defun modify-dbcluster-endpoint @@ -17420,7 +17452,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBClusterEndpoint")) - common-lisp:nil "ModifyDBClusterEndpointResult" *error-map*))) + common-lisp:nil "ModifyDBClusterEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbcluster-endpoint)) (common-lisp:progn (common-lisp:defun modify-dbcluster-parameter-group @@ -17440,7 +17473,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBClusterParameterGroup")) - common-lisp:nil "ModifyDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "ModifyDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun modify-dbcluster-snapshot-attribute @@ -17461,7 +17495,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBClusterSnapshotAttribute")) - common-lisp:nil "ModifyDBClusterSnapshotAttributeResult" *error-map*))) + common-lisp:nil "ModifyDBClusterSnapshotAttributeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbcluster-snapshot-attribute)) (common-lisp:progn (common-lisp:defun modify-dbinstance @@ -17506,7 +17541,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBInstance")) - common-lisp:nil "ModifyDBInstanceResult" *error-map*))) + common-lisp:nil "ModifyDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbinstance)) (common-lisp:progn (common-lisp:defun modify-dbparameter-group @@ -17524,7 +17559,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBParameterGroup")) - common-lisp:nil "ModifyDBParameterGroupResult" *error-map*))) + common-lisp:nil "ModifyDBParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbparameter-group)) (common-lisp:progn (common-lisp:defun modify-dbsubnet-group @@ -17544,7 +17580,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBSubnetGroup")) - common-lisp:nil "ModifyDBSubnetGroupResult" *error-map*))) + common-lisp:nil "ModifyDBSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbsubnet-group)) (common-lisp:progn (common-lisp:defun modify-event-subscription @@ -17565,7 +17602,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyEventSubscription")) - common-lisp:nil "ModifyEventSubscriptionResult" *error-map*))) + common-lisp:nil "ModifyEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-event-subscription)) (common-lisp:progn (common-lisp:defun modify-global-cluster @@ -17587,7 +17625,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyGlobalCluster")) - common-lisp:nil "ModifyGlobalClusterResult" *error-map*))) + common-lisp:nil "ModifyGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-global-cluster)) (common-lisp:progn (common-lisp:defun promote-read-replica-dbcluster @@ -17605,7 +17644,8 @@ aws-sdk/generator/operation::input "POST" "/" "PromoteReadReplicaDBCluster")) - common-lisp:nil "PromoteReadReplicaDBClusterResult" *error-map*))) + common-lisp:nil "PromoteReadReplicaDBClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'promote-read-replica-dbcluster)) (common-lisp:progn (common-lisp:defun reboot-dbinstance @@ -17623,7 +17663,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootDBInstance")) - common-lisp:nil "RebootDBInstanceResult" *error-map*))) + common-lisp:nil "RebootDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'reboot-dbinstance)) (common-lisp:progn (common-lisp:defun remove-from-global-cluster @@ -17643,7 +17683,8 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveFromGlobalCluster")) - common-lisp:nil "RemoveFromGlobalClusterResult" *error-map*))) + common-lisp:nil "RemoveFromGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'remove-from-global-cluster)) (common-lisp:progn (common-lisp:defun remove-role-from-dbcluster @@ -17663,7 +17704,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveRoleFromDBCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-role-from-dbcluster)) (common-lisp:progn (common-lisp:defun remove-source-identifier-from-subscription @@ -17683,7 +17724,7 @@ "POST" "/" "RemoveSourceIdentifierFromSubscription")) common-lisp:nil "RemoveSourceIdentifierFromSubscriptionResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'remove-source-identifier-from-subscription)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -17701,7 +17742,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-tags-from-resource)) (common-lisp:progn (common-lisp:defun reset-dbcluster-parameter-group @@ -17722,7 +17763,8 @@ aws-sdk/generator/operation::input "POST" "/" "ResetDBClusterParameterGroup")) - common-lisp:nil "ResetDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "ResetDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reset-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun reset-dbparameter-group @@ -17742,7 +17784,8 @@ aws-sdk/generator/operation::input "POST" "/" "ResetDBParameterGroup")) - common-lisp:nil "ResetDBParameterGroupResult" *error-map*))) + common-lisp:nil "ResetDBParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reset-dbparameter-group)) (common-lisp:progn (common-lisp:defun restore-dbcluster-from-snapshot @@ -17774,7 +17817,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBClusterFromSnapshot")) - common-lisp:nil "RestoreDBClusterFromSnapshotResult" *error-map*))) + common-lisp:nil "RestoreDBClusterFromSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbcluster-from-snapshot)) (common-lisp:progn (common-lisp:defun restore-dbcluster-to-point-in-time @@ -17805,7 +17849,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBClusterToPointInTime")) - common-lisp:nil "RestoreDBClusterToPointInTimeResult" *error-map*))) + common-lisp:nil "RestoreDBClusterToPointInTimeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbcluster-to-point-in-time)) (common-lisp:progn (common-lisp:defun start-dbcluster @@ -17822,7 +17867,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDBCluster")) - common-lisp:nil "StartDBClusterResult" *error-map*))) + common-lisp:nil "StartDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'start-dbcluster)) (common-lisp:progn (common-lisp:defun stop-dbcluster @@ -17839,5 +17884,5 @@ aws-sdk/generator/operation::input "POST" "/" "StopDBCluster")) - common-lisp:nil "StopDBClusterResult" *error-map*))) + common-lisp:nil "StopDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'stop-dbcluster)) diff --git a/services/neptunedata/api.lisp b/services/neptunedata/api.lisp index 07433ede..5207e548 100644 --- a/services/neptunedata/api.lisp +++ b/services/neptunedata/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/neptunedata/api - (:use) - (:nicknames #:aws/neptunedata) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/neptunedata/api (:use) + (:nicknames #:aws/neptunedata) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/neptunedata/api) (common-lisp:progn (common-lisp:define-condition neptunedata-error @@ -20,7 +19,7 @@ (common-lisp:export 'neptunedata-error)) (common-lisp:progn (common-lisp:defclass neptunedata-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "neptunedata" :api-version "2023-08-01" :host-prefix "neptune-db" :signing-name @@ -1463,7 +1462,13 @@ ( (aws-sdk/generator/shape::input execute-gremlin-explain-query-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'output))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'output)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + execute-gremlin-explain-query-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass execute-gremlin-profile-query-input common-lisp:nil ((chop :initarg :chop :initform common-lisp:nil :type @@ -1592,7 +1597,13 @@ ( (aws-sdk/generator/shape::input execute-gremlin-profile-query-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'output))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'output)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + execute-gremlin-profile-query-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass execute-gremlin-query-input common-lisp:nil ((gremlin-query :initarg :gremlin-query :initform @@ -1623,7 +1634,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'serializer)) - (common-lisp:cons "accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1801,7 +1814,13 @@ ( (aws-sdk/generator/shape::input execute-open-cypher-explain-query-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'results))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'results)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + execute-open-cypher-explain-query-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass execute-open-cypher-query-input common-lisp:nil ((open-cypher-query :initarg :open-cypher-query @@ -2945,7 +2964,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'encoding)) - (common-lisp:cons "Accept-Encoding" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3211,7 +3232,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'encoding)) - (common-lisp:cons "Accept-Encoding" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7040,12 +7063,13 @@ (common-lisp:format common-lisp:nil "/gremlin/status/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'query-id)))) + 'query-id) + common-lisp:t))) "CancelGremlinQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-gremlin-query)) (common-lisp:progn (common-lisp:defun cancel-loader-job @@ -7067,12 +7091,13 @@ (common-lisp:format common-lisp:nil "/loader/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'load-id)))) + 'load-id) + common-lisp:t))) "CancelLoaderJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-loader-job)) (common-lisp:progn (common-lisp:defun cancel-mldata-processing-job @@ -7095,12 +7120,13 @@ (common-lisp:format common-lisp:nil "/ml/dataprocessing/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CancelMLDataProcessingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-mldata-processing-job)) (common-lisp:progn (common-lisp:defun cancel-mlmodel-training-job @@ -7123,12 +7149,13 @@ (common-lisp:format common-lisp:nil "/ml/modeltraining/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CancelMLModelTrainingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-mlmodel-training-job)) (common-lisp:progn (common-lisp:defun cancel-mlmodel-transform-job @@ -7151,12 +7178,13 @@ (common-lisp:format common-lisp:nil "/ml/modeltransform/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CancelMLModelTransformJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-mlmodel-transform-job)) (common-lisp:progn (common-lisp:defun cancel-open-cypher-query @@ -7178,12 +7206,13 @@ (common-lisp:format common-lisp:nil "/opencypher/status/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'query-id)))) + 'query-id) + common-lisp:t))) "CancelOpenCypherQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-open-cypher-query)) (common-lisp:progn (common-lisp:defun create-mlendpoint @@ -7206,7 +7235,7 @@ aws-sdk/generator/operation::input "POST" "/ml/endpoints" "CreateMLEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-mlendpoint)) (common-lisp:progn (common-lisp:defun delete-mlendpoint @@ -7228,12 +7257,13 @@ (common-lisp:format common-lisp:nil "/ml/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteMLEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mlendpoint)) (common-lisp:progn (common-lisp:defun delete-propertygraph-statistics () @@ -7268,7 +7298,7 @@ aws-sdk/generator/operation::input "POST" "/system" "ExecuteFastReset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-fast-reset)) (common-lisp:progn (common-lisp:defun execute-gremlin-explain-query @@ -7288,7 +7318,7 @@ "/gremlin/explain" "ExecuteGremlinExplainQuery") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-gremlin-explain-query)) (common-lisp:progn (common-lisp:defun execute-gremlin-profile-query @@ -7310,7 +7340,7 @@ "/gremlin/profile" "ExecuteGremlinProfileQuery") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-gremlin-profile-query)) (common-lisp:progn (common-lisp:defun execute-gremlin-query @@ -7327,7 +7357,7 @@ aws-sdk/generator/operation::input "POST" "/gremlin" "ExecuteGremlinQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-gremlin-query)) (common-lisp:progn (common-lisp:defun execute-open-cypher-explain-query @@ -7349,7 +7379,7 @@ "/opencypher/explain" "ExecuteOpenCypherExplainQuery") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-open-cypher-explain-query)) (common-lisp:progn (common-lisp:defun get-engine-status () @@ -7379,12 +7409,13 @@ (common-lisp:format common-lisp:nil "/gremlin/status/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'query-id)))) + 'query-id) + common-lisp:t))) "GetGremlinQueryStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-gremlin-query-status)) (common-lisp:progn (common-lisp:defun get-mldata-processing-job @@ -7406,12 +7437,13 @@ (common-lisp:format common-lisp:nil "/ml/dataprocessing/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetMLDataProcessingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mldata-processing-job)) (common-lisp:progn (common-lisp:defun get-mlendpoint @@ -7433,12 +7465,13 @@ (common-lisp:format common-lisp:nil "/ml/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetMLEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mlendpoint)) (common-lisp:progn (common-lisp:defun get-mlmodel-training-job @@ -7460,12 +7493,13 @@ (common-lisp:format common-lisp:nil "/ml/modeltraining/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetMLModelTrainingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mlmodel-training-job)) (common-lisp:progn (common-lisp:defun get-mlmodel-transform-job @@ -7487,12 +7521,13 @@ (common-lisp:format common-lisp:nil "/ml/modeltransform/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetMLModelTransformJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mlmodel-transform-job)) (common-lisp:progn (common-lisp:defun get-open-cypher-query-status @@ -7515,12 +7550,13 @@ (common-lisp:format common-lisp:nil "/opencypher/status/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'query-id)))) + 'query-id) + common-lisp:t))) "GetOpenCypherQueryStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-open-cypher-query-status)) (common-lisp:progn (common-lisp:defun get-propertygraph-statistics () @@ -7547,7 +7583,7 @@ "GET" "/propertygraph/statistics/summary" "GetPropertygraphSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-propertygraph-summary)) (common-lisp:progn (common-lisp:defun get-rdfgraph-summary @@ -7565,7 +7601,7 @@ "GET" "/rdf/statistics/summary" "GetRDFGraphSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rdfgraph-summary)) (common-lisp:progn (common-lisp:defun get-sparql-statistics () @@ -7593,7 +7629,7 @@ aws-sdk/generator/operation::input "GET" "/sparql/stream" "GetSparqlStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sparql-stream)) (common-lisp:progn (common-lisp:defun list-gremlin-queries @@ -7610,7 +7646,7 @@ aws-sdk/generator/operation::input "GET" "/gremlin/status" "ListGremlinQueries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gremlin-queries)) (common-lisp:progn (common-lisp:defun list-loader-jobs @@ -7627,7 +7663,7 @@ aws-sdk/generator/operation::input "GET" "/loader" "ListLoaderJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-loader-jobs)) (common-lisp:progn (common-lisp:defun list-mldata-processing-jobs @@ -7646,7 +7682,7 @@ "GET" "/ml/dataprocessing" "ListMLDataProcessingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mldata-processing-jobs)) (common-lisp:progn (common-lisp:defun list-mlendpoints @@ -7663,7 +7699,7 @@ aws-sdk/generator/operation::input "GET" "/ml/endpoints" "ListMLEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mlendpoints)) (common-lisp:progn (common-lisp:defun list-mlmodel-training-jobs @@ -7681,7 +7717,7 @@ "GET" "/ml/modeltraining" "ListMLModelTrainingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mlmodel-training-jobs)) (common-lisp:progn (common-lisp:defun list-mlmodel-transform-jobs @@ -7700,7 +7736,7 @@ "GET" "/ml/modeltransform" "ListMLModelTransformJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mlmodel-transform-jobs)) (common-lisp:progn (common-lisp:defun list-open-cypher-queries @@ -7718,7 +7754,7 @@ "GET" "/opencypher/status" "ListOpenCypherQueries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-open-cypher-queries)) (common-lisp:progn (common-lisp:defun manage-propertygraph-statistics @@ -7737,7 +7773,7 @@ "POST" "/propertygraph/statistics" "ManagePropertygraphStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'manage-propertygraph-statistics)) (common-lisp:progn (common-lisp:defun manage-sparql-statistics @@ -7755,7 +7791,7 @@ "POST" "/sparql/statistics" "ManageSparqlStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'manage-sparql-statistics)) (common-lisp:progn (common-lisp:defun start-loader-job @@ -7779,7 +7815,7 @@ aws-sdk/generator/operation::input "POST" "/loader" "StartLoaderJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-loader-job)) (common-lisp:progn (common-lisp:defun start-mldata-processing-job @@ -7811,7 +7847,7 @@ "POST" "/ml/dataprocessing" "StartMLDataProcessingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-mldata-processing-job)) (common-lisp:progn (common-lisp:defun start-mlmodel-training-job @@ -7846,7 +7882,7 @@ "POST" "/ml/modeltraining" "StartMLModelTrainingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-mlmodel-training-job)) (common-lisp:progn (common-lisp:defun start-mlmodel-transform-job @@ -7878,5 +7914,5 @@ "POST" "/ml/modeltransform" "StartMLModelTransformJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-mlmodel-transform-job)) diff --git a/services/network-firewall/api.lisp b/services/network-firewall/api.lisp index f083b684..9a16d37b 100644 --- a/services/network-firewall/api.lisp +++ b/services/network-firewall/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/network-firewall/api - (:use) - (:nicknames #:aws/network-firewall) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/network-firewall/api (:use) + (:nicknames #:aws/network-firewall) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/network-firewall/api) (common-lisp:progn (common-lisp:define-condition network-firewall-error @@ -9207,7 +9206,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "AssociateFirewallPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-firewall-policy)) (common-lisp:progn (common-lisp:defun associate-subnets @@ -9226,7 +9225,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "AssociateSubnets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-subnets)) (common-lisp:progn (common-lisp:defun create-firewall @@ -9249,7 +9248,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "CreateFirewall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-firewall)) (common-lisp:progn (common-lisp:defun create-firewall-policy @@ -9268,7 +9267,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "CreateFirewallPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-firewall-policy)) (common-lisp:progn (common-lisp:defun create-rule-group @@ -9289,7 +9288,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "CreateRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule-group)) (common-lisp:progn (common-lisp:defun create-tlsinspection-configuration @@ -9310,7 +9309,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "CreateTLSInspectionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tlsinspection-configuration)) (common-lisp:progn (common-lisp:defun delete-firewall @@ -9326,7 +9325,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DeleteFirewall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-firewall)) (common-lisp:progn (common-lisp:defun delete-firewall-policy @@ -9343,7 +9342,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DeleteFirewallPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-firewall-policy)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -9359,7 +9358,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-rule-group @@ -9376,7 +9375,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DeleteRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule-group)) (common-lisp:progn (common-lisp:defun delete-tlsinspection-configuration @@ -9396,7 +9395,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DeleteTLSInspectionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tlsinspection-configuration)) (common-lisp:progn (common-lisp:defun describe-firewall @@ -9412,7 +9411,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DescribeFirewall")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-firewall)) (common-lisp:progn (common-lisp:defun describe-firewall-policy @@ -9429,7 +9428,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DescribeFirewallPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-firewall-policy)) (common-lisp:progn (common-lisp:defun describe-logging-configuration @@ -9446,7 +9445,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DescribeLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-logging-configuration)) (common-lisp:progn (common-lisp:defun describe-resource-policy @@ -9462,7 +9461,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DescribeResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-policy)) (common-lisp:progn (common-lisp:defun describe-rule-group @@ -9481,7 +9480,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DescribeRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rule-group)) (common-lisp:progn (common-lisp:defun describe-rule-group-metadata @@ -9499,7 +9498,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DescribeRuleGroupMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rule-group-metadata)) (common-lisp:progn (common-lisp:defun describe-tlsinspection-configuration @@ -9519,7 +9518,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DescribeTLSInspectionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tlsinspection-configuration)) (common-lisp:progn (common-lisp:defun disassociate-subnets @@ -9537,7 +9536,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "DisassociateSubnets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-subnets)) (common-lisp:progn (common-lisp:defun list-firewall-policies @@ -9553,7 +9552,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "ListFirewallPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-firewall-policies)) (common-lisp:progn (common-lisp:defun list-firewalls @@ -9569,7 +9568,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "ListFirewalls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-firewalls)) (common-lisp:progn (common-lisp:defun list-rule-groups @@ -9587,7 +9586,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "ListRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rule-groups)) (common-lisp:progn (common-lisp:defun list-tlsinspection-configurations @@ -9604,7 +9603,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "ListTLSInspectionConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tlsinspection-configurations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9621,7 +9620,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -9637,7 +9636,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9653,7 +9652,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9669,7 +9668,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-firewall-delete-protection @@ -9689,7 +9688,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallDeleteProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-delete-protection)) (common-lisp:progn (common-lisp:defun update-firewall-description @@ -9709,7 +9708,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallDescription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-description)) (common-lisp:progn (common-lisp:defun update-firewall-encryption-configuration @@ -9729,7 +9728,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallEncryptionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-encryption-configuration)) (common-lisp:progn (common-lisp:defun update-firewall-policy @@ -9750,7 +9749,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-policy)) (common-lisp:progn (common-lisp:defun update-firewall-policy-change-protection @@ -9770,7 +9769,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallPolicyChangeProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-policy-change-protection)) (common-lisp:progn (common-lisp:defun update-logging-configuration @@ -9789,7 +9788,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-logging-configuration)) (common-lisp:progn (common-lisp:defun update-rule-group @@ -9811,7 +9810,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule-group)) (common-lisp:progn (common-lisp:defun update-subnet-change-protection @@ -9831,7 +9830,7 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateSubnetChangeProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subnet-change-protection)) (common-lisp:progn (common-lisp:defun update-tlsinspection-configuration @@ -9854,5 +9853,5 @@ (aws-sdk/generator/shape:make-request-with-input 'network-firewall-request aws-sdk/generator/operation::input "POST" "/" "UpdateTLSInspectionConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-tlsinspection-configuration)) diff --git a/services/networkmanager/api.lisp b/services/networkmanager/api.lisp index 4118459f..cb8d66b8 100644 --- a/services/networkmanager/api.lisp +++ b/services/networkmanager/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/networkmanager/api - (:use) - (:nicknames #:aws/networkmanager) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/networkmanager/api (:use) + (:nicknames #:aws/networkmanager) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/networkmanager/api) (common-lisp:progn (common-lisp:define-condition networkmanager-error @@ -20,7 +19,7 @@ (common-lisp:export 'networkmanager-error)) (common-lisp:progn (common-lisp:defclass networkmanager-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "networkmanager" :api-version "2019-07-05" :host-prefix "networkmanager" @@ -14584,12 +14583,13 @@ (common-lisp:format common-lisp:nil "/attachments/~A/accept" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attachment-id)))) + 'attachment-id) + common-lisp:t))) "AcceptAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-attachment)) (common-lisp:progn (common-lisp:defun associate-connect-peer @@ -14614,12 +14614,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/connect-peer-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "AssociateConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-connect-peer)) (common-lisp:progn (common-lisp:defun associate-customer-gateway @@ -14645,12 +14646,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/customer-gateway-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "AssociateCustomerGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-customer-gateway)) (common-lisp:progn (common-lisp:defun associate-link @@ -14673,12 +14675,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/link-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "AssociateLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-link)) (common-lisp:progn (common-lisp:defun associate-transit-gateway-connect-peer @@ -14704,12 +14707,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/transit-gateway-connect-peer-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "AssociateTransitGatewayConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-transit-gateway-connect-peer)) (common-lisp:progn (common-lisp:defun create-connect-attachment @@ -14731,7 +14735,7 @@ "POST" "/connect-attachments" "CreateConnectAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connect-attachment)) (common-lisp:progn (common-lisp:defun create-connect-peer @@ -14752,7 +14756,7 @@ aws-sdk/generator/operation::input "POST" "/connect-peers" "CreateConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connect-peer)) (common-lisp:progn (common-lisp:defun create-connection @@ -14778,12 +14782,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/connections" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "CreateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connection)) (common-lisp:progn (common-lisp:defun create-core-network @@ -14803,7 +14808,7 @@ aws-sdk/generator/operation::input "POST" "/core-networks" "CreateCoreNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-core-network)) (common-lisp:progn (common-lisp:defun create-device @@ -14828,12 +14833,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/devices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "CreateDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-device)) (common-lisp:progn (common-lisp:defun create-global-network @@ -14851,7 +14857,7 @@ "POST" "/global-networks" "CreateGlobalNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-global-network)) (common-lisp:progn (common-lisp:defun create-link @@ -14876,12 +14882,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/links" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "CreateLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-link)) (common-lisp:progn (common-lisp:defun create-site @@ -14905,12 +14912,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/sites" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "CreateSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-site)) (common-lisp:progn (common-lisp:defun create-site-to-site-vpn-attachment @@ -14932,7 +14940,7 @@ "POST" "/site-to-site-vpn-attachments" "CreateSiteToSiteVpnAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-site-to-site-vpn-attachment)) (common-lisp:progn (common-lisp:defun create-transit-gateway-peering @@ -14954,7 +14962,7 @@ "POST" "/transit-gateway-peerings" "CreateTransitGatewayPeering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-transit-gateway-peering)) (common-lisp:progn (common-lisp:defun create-transit-gateway-route-table-attachment @@ -14976,7 +14984,7 @@ "POST" "/transit-gateway-route-table-attachments" "CreateTransitGatewayRouteTableAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-transit-gateway-route-table-attachment)) (common-lisp:progn (common-lisp:defun create-vpc-attachment @@ -14997,7 +15005,7 @@ "POST" "/vpc-attachments" "CreateVpcAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-attachment)) (common-lisp:progn (common-lisp:defun delete-attachment @@ -15019,12 +15027,13 @@ (common-lisp:format common-lisp:nil "/attachments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attachment-id)))) + 'attachment-id) + common-lisp:t))) "DeleteAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-attachment)) (common-lisp:progn (common-lisp:defun delete-connect-peer @@ -15046,12 +15055,13 @@ (common-lisp:format common-lisp:nil "/connect-peers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connect-peer-id)))) + 'connect-peer-id) + common-lisp:t))) "DeleteConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connect-peer)) (common-lisp:progn (common-lisp:defun delete-connection @@ -15074,16 +15084,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "DeleteConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection)) (common-lisp:progn (common-lisp:defun delete-core-network @@ -15105,12 +15117,13 @@ (common-lisp:format common-lisp:nil "/core-networks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)))) + 'core-network-id) + common-lisp:t))) "DeleteCoreNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-core-network)) (common-lisp:progn (common-lisp:defun delete-core-network-policy-version @@ -15134,16 +15147,18 @@ (common-lisp:format common-lisp:nil "/core-networks/~A/core-network-policy-versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)) - (quri.encode:url-encode + 'core-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-version-id)))) + 'policy-version-id) + common-lisp:t))) "DeleteCoreNetworkPolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-core-network-policy-version)) (common-lisp:progn (common-lisp:defun delete-device @@ -15165,16 +15180,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "DeleteDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device)) (common-lisp:progn (common-lisp:defun delete-global-network @@ -15196,12 +15213,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "DeleteGlobalNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-global-network)) (common-lisp:progn (common-lisp:defun delete-link @@ -15223,16 +15241,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/links/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'link-id)))) + 'link-id) + common-lisp:t))) "DeleteLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-link)) (common-lisp:progn (common-lisp:defun delete-peering @@ -15254,12 +15274,13 @@ (common-lisp:format common-lisp:nil "/peerings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'peering-id)))) + 'peering-id) + common-lisp:t))) "DeletePeering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-peering)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -15281,12 +15302,13 @@ (common-lisp:format common-lisp:nil "/resource-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-site @@ -15308,16 +15330,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/sites/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'site-id)))) + 'site-id) + common-lisp:t))) "DeleteSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-site)) (common-lisp:progn (common-lisp:defun deregister-transit-gateway @@ -15341,16 +15365,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/transit-gateway-registrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'transit-gateway-arn)))) + 'transit-gateway-arn) + common-lisp:t))) "DeregisterTransitGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-transit-gateway)) (common-lisp:progn (common-lisp:defun describe-global-networks @@ -15370,7 +15396,7 @@ "GET" "/global-networks" "DescribeGlobalNetworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-global-networks)) (common-lisp:progn (common-lisp:defun disassociate-connect-peer @@ -15394,16 +15420,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/connect-peer-associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connect-peer-id)))) + 'connect-peer-id) + common-lisp:t))) "DisassociateConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-connect-peer)) (common-lisp:progn (common-lisp:defun disassociate-customer-gateway @@ -15427,16 +15455,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/customer-gateway-associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'customer-gateway-arn)))) + 'customer-gateway-arn) + common-lisp:t))) "DisassociateCustomerGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-customer-gateway)) (common-lisp:progn (common-lisp:defun disassociate-link @@ -15459,12 +15489,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/link-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "DisassociateLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-link)) (common-lisp:progn (common-lisp:defun disassociate-transit-gateway-connect-peer @@ -15489,16 +15520,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/transit-gateway-connect-peer-associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'transit-gateway-connect-peer-arn)))) + 'transit-gateway-connect-peer-arn) + common-lisp:t))) "DisassociateTransitGatewayConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-transit-gateway-connect-peer)) (common-lisp:progn (common-lisp:defun execute-core-network-change-set @@ -15522,16 +15555,18 @@ (common-lisp:format common-lisp:nil "/core-networks/~A/core-network-change-sets/~A/execute" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)) - (quri.encode:url-encode + 'core-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-version-id)))) + 'policy-version-id) + common-lisp:t))) "ExecuteCoreNetworkChangeSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-core-network-change-set)) (common-lisp:progn (common-lisp:defun get-connect-attachment @@ -15553,12 +15588,13 @@ (common-lisp:format common-lisp:nil "/connect-attachments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attachment-id)))) + 'attachment-id) + common-lisp:t))) "GetConnectAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connect-attachment)) (common-lisp:progn (common-lisp:defun get-connect-peer @@ -15580,12 +15616,13 @@ (common-lisp:format common-lisp:nil "/connect-peers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connect-peer-id)))) + 'connect-peer-id) + common-lisp:t))) "GetConnectPeer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connect-peer)) (common-lisp:progn (common-lisp:defun get-connect-peer-associations @@ -15611,12 +15648,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/connect-peer-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetConnectPeerAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connect-peer-associations)) (common-lisp:progn (common-lisp:defun get-connections @@ -15641,12 +15679,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/connections" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connections)) (common-lisp:progn (common-lisp:defun get-core-network @@ -15668,12 +15707,13 @@ (common-lisp:format common-lisp:nil "/core-networks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)))) + 'core-network-id) + common-lisp:t))) "GetCoreNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-core-network)) (common-lisp:progn (common-lisp:defun get-core-network-change-events @@ -15699,16 +15739,18 @@ (common-lisp:format common-lisp:nil "/core-networks/~A/core-network-change-events/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)) - (quri.encode:url-encode + 'core-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-version-id)))) + 'policy-version-id) + common-lisp:t))) "GetCoreNetworkChangeEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-core-network-change-events)) (common-lisp:progn (common-lisp:defun get-core-network-change-set @@ -15734,16 +15776,18 @@ (common-lisp:format common-lisp:nil "/core-networks/~A/core-network-change-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)) - (quri.encode:url-encode + 'core-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-version-id)))) + 'policy-version-id) + common-lisp:t))) "GetCoreNetworkChangeSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-core-network-change-set)) (common-lisp:progn (common-lisp:defun get-core-network-policy @@ -15766,12 +15810,13 @@ (common-lisp:format common-lisp:nil "/core-networks/~A/core-network-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)))) + 'core-network-id) + common-lisp:t))) "GetCoreNetworkPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-core-network-policy)) (common-lisp:progn (common-lisp:defun get-customer-gateway-associations @@ -15797,12 +15842,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/customer-gateway-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetCustomerGatewayAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-customer-gateway-associations)) (common-lisp:progn (common-lisp:defun get-devices @@ -15827,12 +15873,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/devices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-devices)) (common-lisp:progn (common-lisp:defun get-link-associations @@ -15857,12 +15904,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/link-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetLinkAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-link-associations)) (common-lisp:progn (common-lisp:defun get-links @@ -15887,12 +15935,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/links" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-links)) (common-lisp:progn (common-lisp:defun get-network-resource-counts @@ -15918,12 +15967,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/network-resource-count" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetNetworkResourceCounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-resource-counts)) (common-lisp:progn (common-lisp:defun get-network-resource-relationships @@ -15951,12 +16001,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/network-resource-relationships" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetNetworkResourceRelationships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-resource-relationships)) (common-lisp:progn (common-lisp:defun get-network-resources @@ -15983,12 +16034,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/network-resources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetNetworkResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-resources)) (common-lisp:progn (common-lisp:defun get-network-routes @@ -16016,12 +16068,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/network-routes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetNetworkRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-routes)) (common-lisp:progn (common-lisp:defun get-network-telemetry @@ -16048,12 +16101,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/network-telemetry" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetNetworkTelemetry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-telemetry)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -16075,12 +16129,13 @@ (common-lisp:format common-lisp:nil "/resource-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun get-route-analysis @@ -16103,16 +16158,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/route-analyses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'route-analysis-id)))) + 'route-analysis-id) + common-lisp:t))) "GetRouteAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-route-analysis)) (common-lisp:progn (common-lisp:defun get-site-to-site-vpn-attachment @@ -16135,12 +16192,13 @@ (common-lisp:format common-lisp:nil "/site-to-site-vpn-attachments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attachment-id)))) + 'attachment-id) + common-lisp:t))) "GetSiteToSiteVpnAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-site-to-site-vpn-attachment)) (common-lisp:progn (common-lisp:defun get-sites @@ -16164,12 +16222,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/sites" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetSites")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sites)) (common-lisp:progn (common-lisp:defun get-transit-gateway-connect-peer-associations @@ -16195,12 +16254,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/transit-gateway-connect-peer-associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetTransitGatewayConnectPeerAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transit-gateway-connect-peer-associations)) (common-lisp:progn (common-lisp:defun get-transit-gateway-peering @@ -16223,12 +16283,13 @@ (common-lisp:format common-lisp:nil "/transit-gateway-peerings/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'peering-id)))) + 'peering-id) + common-lisp:t))) "GetTransitGatewayPeering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transit-gateway-peering)) (common-lisp:progn (common-lisp:defun get-transit-gateway-registrations @@ -16254,12 +16315,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/transit-gateway-registrations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "GetTransitGatewayRegistrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transit-gateway-registrations)) (common-lisp:progn (common-lisp:defun get-transit-gateway-route-table-attachment @@ -16282,12 +16344,13 @@ (common-lisp:format common-lisp:nil "/transit-gateway-route-table-attachments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attachment-id)))) + 'attachment-id) + common-lisp:t))) "GetTransitGatewayRouteTableAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transit-gateway-route-table-attachment)) (common-lisp:progn (common-lisp:defun get-vpc-attachment @@ -16309,12 +16372,13 @@ (common-lisp:format common-lisp:nil "/vpc-attachments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attachment-id)))) + 'attachment-id) + common-lisp:t))) "GetVpcAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vpc-attachment)) (common-lisp:progn (common-lisp:defun list-attachments @@ -16334,7 +16398,7 @@ aws-sdk/generator/operation::input "GET" "/attachments" "ListAttachments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attachments)) (common-lisp:progn (common-lisp:defun list-connect-peers @@ -16354,7 +16418,7 @@ aws-sdk/generator/operation::input "GET" "/connect-peers" "ListConnectPeers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connect-peers)) (common-lisp:progn (common-lisp:defun list-core-network-policy-versions @@ -16378,12 +16442,13 @@ (common-lisp:format common-lisp:nil "/core-networks/~A/core-network-policy-versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)))) + 'core-network-id) + common-lisp:t))) "ListCoreNetworkPolicyVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-core-network-policy-versions)) (common-lisp:progn (common-lisp:defun list-core-networks @@ -16400,7 +16465,7 @@ aws-sdk/generator/operation::input "GET" "/core-networks" "ListCoreNetworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-core-networks)) (common-lisp:progn (common-lisp:defun list-organization-service-access-status @@ -16419,7 +16484,7 @@ "GET" "/organizations/service-access" "ListOrganizationServiceAccessStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-service-access-status)) (common-lisp:progn (common-lisp:defun list-peerings @@ -16439,7 +16504,7 @@ aws-sdk/generator/operation::input "GET" "/peerings" "ListPeerings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-peerings)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -16461,12 +16526,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-core-network-policy @@ -16491,12 +16557,13 @@ (common-lisp:format common-lisp:nil "/core-networks/~A/core-network-policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)))) + 'core-network-id) + common-lisp:t))) "PutCoreNetworkPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-core-network-policy)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -16518,12 +16585,13 @@ (common-lisp:format common-lisp:nil "/resource-policy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun register-transit-gateway @@ -16546,12 +16614,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/transit-gateway-registrations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "RegisterTransitGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-transit-gateway)) (common-lisp:progn (common-lisp:defun reject-attachment @@ -16573,12 +16642,13 @@ (common-lisp:format common-lisp:nil "/attachments/~A/reject" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attachment-id)))) + 'attachment-id) + common-lisp:t))) "RejectAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-attachment)) (common-lisp:progn (common-lisp:defun restore-core-network-policy-version @@ -16602,16 +16672,18 @@ (common-lisp:format common-lisp:nil "/core-networks/~A/core-network-policy-versions/~A/restore" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)) - (quri.encode:url-encode + 'core-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-version-id)))) + 'policy-version-id) + common-lisp:t))) "RestoreCoreNetworkPolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-core-network-policy-version)) (common-lisp:progn (common-lisp:defun start-organization-service-access-update @@ -16630,7 +16702,7 @@ "POST" "/organizations/service-access" "StartOrganizationServiceAccessUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-organization-service-access-update)) (common-lisp:progn (common-lisp:defun start-route-analysis @@ -16655,12 +16727,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/route-analyses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "StartRouteAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-route-analysis)) (common-lisp:progn (common-lisp:defun tag-resource @@ -16682,12 +16755,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -16709,12 +16783,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-connection @@ -16739,16 +16814,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "UpdateConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connection)) (common-lisp:progn (common-lisp:defun update-core-network @@ -16770,12 +16847,13 @@ (common-lisp:format common-lisp:nil "/core-networks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'core-network-id)))) + 'core-network-id) + common-lisp:t))) "UpdateCoreNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-core-network)) (common-lisp:progn (common-lisp:defun update-device @@ -16801,16 +16879,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "UpdateDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device)) (common-lisp:progn (common-lisp:defun update-global-network @@ -16832,12 +16912,13 @@ (common-lisp:format common-lisp:nil "/global-networks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)))) + 'global-network-id) + common-lisp:t))) "UpdateGlobalNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-global-network)) (common-lisp:progn (common-lisp:defun update-link @@ -16862,16 +16943,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/links/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'link-id)))) + 'link-id) + common-lisp:t))) "UpdateLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-link)) (common-lisp:progn (common-lisp:defun update-network-resource-metadata @@ -16895,16 +16978,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/network-resources/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UpdateNetworkResourceMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-network-resource-metadata)) (common-lisp:progn (common-lisp:defun update-site @@ -16928,16 +17013,18 @@ (common-lisp:format common-lisp:nil "/global-networks/~A/sites/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'global-network-id)) - (quri.encode:url-encode + 'global-network-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'site-id)))) + 'site-id) + common-lisp:t))) "UpdateSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-site)) (common-lisp:progn (common-lisp:defun update-vpc-attachment @@ -16962,10 +17049,11 @@ (common-lisp:format common-lisp:nil "/vpc-attachments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attachment-id)))) + 'attachment-id) + common-lisp:t))) "UpdateVpcAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpc-attachment)) diff --git a/services/networkmonitor/api.lisp b/services/networkmonitor/api.lisp index 2b7401a1..09ec2bf1 100644 --- a/services/networkmonitor/api.lisp +++ b/services/networkmonitor/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/networkmonitor/api - (:use) - (:nicknames #:aws/networkmonitor) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/networkmonitor/api (:use) + (:nicknames #:aws/networkmonitor) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/networkmonitor/api) (common-lisp:progn (common-lisp:define-condition networkmonitor-error @@ -20,7 +19,7 @@ (common-lisp:export 'networkmonitor-error)) (common-lisp:progn (common-lisp:defclass networkmonitor-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "networkmonitor" :api-version "2023-08-01" :host-prefix "networkmonitor" @@ -2160,7 +2159,7 @@ aws-sdk/generator/operation::input "POST" "/monitors" "CreateMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-monitor)) (common-lisp:progn (common-lisp:defun create-probe @@ -2183,12 +2182,13 @@ (common-lisp:format common-lisp:nil "/monitors/~A/probes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "CreateProbe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-probe)) (common-lisp:progn (common-lisp:defun delete-monitor @@ -2210,12 +2210,13 @@ (common-lisp:format common-lisp:nil "/monitors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "DeleteMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-monitor)) (common-lisp:progn (common-lisp:defun delete-probe @@ -2237,16 +2238,18 @@ (common-lisp:format common-lisp:nil "/monitors/~A/probes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)) - (quri.encode:url-encode + 'monitor-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'probe-id)))) + 'probe-id) + common-lisp:t))) "DeleteProbe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-probe)) (common-lisp:progn (common-lisp:defun get-monitor @@ -2268,12 +2271,13 @@ (common-lisp:format common-lisp:nil "/monitors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "GetMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-monitor)) (common-lisp:progn (common-lisp:defun get-probe @@ -2295,16 +2299,18 @@ (common-lisp:format common-lisp:nil "/monitors/~A/probes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)) - (quri.encode:url-encode + 'monitor-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'probe-id)))) + 'probe-id) + common-lisp:t))) "GetProbe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-probe)) (common-lisp:progn (common-lisp:defun list-monitors @@ -2321,7 +2327,7 @@ aws-sdk/generator/operation::input "GET" "/monitors" "ListMonitors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitors)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2343,12 +2349,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2370,12 +2377,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2397,12 +2405,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-monitor @@ -2425,12 +2434,13 @@ (common-lisp:format common-lisp:nil "/monitors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)))) + 'monitor-name) + common-lisp:t))) "UpdateMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-monitor)) (common-lisp:progn (common-lisp:defun update-probe @@ -2455,14 +2465,16 @@ (common-lisp:format common-lisp:nil "/monitors/~A/probes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'monitor-name)) - (quri.encode:url-encode + 'monitor-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'probe-id)))) + 'probe-id) + common-lisp:t))) "UpdateProbe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-probe)) diff --git a/services/nimble/api.lisp b/services/nimble/api.lisp index 283ebaf8..3c599a47 100644 --- a/services/nimble/api.lisp +++ b/services/nimble/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/nimble/api - (:use) - (:nicknames #:aws/nimble) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/nimble/api (:use) + (:nicknames #:aws/nimble) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/nimble/api) (common-lisp:progn (common-lisp:define-condition nimble-error @@ -20,7 +19,7 @@ (common-lisp:export 'nimble-error)) (common-lisp:progn (common-lisp:defclass nimble-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "nimble" :api-version "2020-08-01" :host-prefix "nimble" :signing-name @@ -66,7 +65,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input accept-eulas-request)) (common-lisp:append @@ -449,7 +450,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -611,7 +614,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -756,7 +761,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -890,7 +897,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1070,7 +1079,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1265,7 +1276,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1401,7 +1414,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1479,7 +1494,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1570,7 +1587,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1659,7 +1678,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1750,7 +1771,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1838,7 +1861,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1905,7 +1930,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5203,7 +5230,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5302,7 +5331,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5579,7 +5610,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5670,7 +5703,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5767,7 +5802,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8655,7 +8692,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8794,7 +8833,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8937,7 +8978,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9123,7 +9166,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9295,7 +9340,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'client-token)) - (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amz-Client-Token" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9543,12 +9590,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/eula-acceptances" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "AcceptEulas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-eulas)) (common-lisp:progn (common-lisp:defun create-launch-profile @@ -9575,12 +9623,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "CreateLaunchProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-launch-profile)) (common-lisp:progn (common-lisp:defun create-streaming-image @@ -9605,12 +9654,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-images" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "CreateStreamingImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-streaming-image)) (common-lisp:progn (common-lisp:defun create-streaming-session @@ -9636,12 +9686,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "CreateStreamingSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-streaming-session)) (common-lisp:progn (common-lisp:defun create-streaming-session-stream @@ -9667,16 +9718,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-sessions/~A/streams" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "CreateStreamingSessionStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-streaming-session-stream)) (common-lisp:progn (common-lisp:defun create-studio @@ -9698,7 +9751,7 @@ "POST" "/2020-08-01/studios" "CreateStudio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-studio)) (common-lisp:progn (common-lisp:defun create-studio-component @@ -9728,12 +9781,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/studio-components" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "CreateStudioComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-studio-component)) (common-lisp:progn (common-lisp:defun delete-launch-profile @@ -9756,16 +9810,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)))) + 'launch-profile-id) + common-lisp:t))) "DeleteLaunchProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-launch-profile)) (common-lisp:progn (common-lisp:defun delete-launch-profile-member @@ -9791,20 +9847,23 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A/membership/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)) - (quri.encode:url-encode + 'launch-profile-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-id)))) + 'principal-id) + common-lisp:t))) "DeleteLaunchProfileMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-launch-profile-member)) (common-lisp:progn (common-lisp:defun delete-streaming-image @@ -9828,16 +9887,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-images/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'streaming-image-id)))) + 'streaming-image-id) + common-lisp:t))) "DeleteStreamingImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-streaming-image)) (common-lisp:progn (common-lisp:defun delete-streaming-session @@ -9860,16 +9921,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "DeleteStreamingSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-streaming-session)) (common-lisp:progn (common-lisp:defun delete-studio @@ -9891,12 +9954,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "DeleteStudio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-studio)) (common-lisp:progn (common-lisp:defun delete-studio-component @@ -9920,16 +9984,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/studio-components/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-component-id)))) + 'studio-component-id) + common-lisp:t))) "DeleteStudioComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-studio-component)) (common-lisp:progn (common-lisp:defun delete-studio-member @@ -9952,16 +10018,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/membership/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-id)))) + 'principal-id) + common-lisp:t))) "DeleteStudioMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-studio-member)) (common-lisp:progn (common-lisp:defun get-eula @@ -9983,12 +10051,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/eulas/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'eula-id)))) + 'eula-id) + common-lisp:t))) "GetEula")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-eula)) (common-lisp:progn (common-lisp:defun get-launch-profile @@ -10010,16 +10079,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)))) + 'launch-profile-id) + common-lisp:t))) "GetLaunchProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-launch-profile)) (common-lisp:progn (common-lisp:defun get-launch-profile-details @@ -10042,16 +10113,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A/details" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)))) + 'launch-profile-id) + common-lisp:t))) "GetLaunchProfileDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-launch-profile-details)) (common-lisp:progn (common-lisp:defun get-launch-profile-initialization @@ -10078,16 +10151,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A/init" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)))) + 'launch-profile-id) + common-lisp:t))) "GetLaunchProfileInitialization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-launch-profile-initialization)) (common-lisp:progn (common-lisp:defun get-launch-profile-member @@ -10111,20 +10186,23 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A/membership/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)) - (quri.encode:url-encode + 'launch-profile-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-id)))) + 'principal-id) + common-lisp:t))) "GetLaunchProfileMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-launch-profile-member)) (common-lisp:progn (common-lisp:defun get-streaming-image @@ -10146,16 +10224,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-images/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'streaming-image-id)))) + 'streaming-image-id) + common-lisp:t))) "GetStreamingImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-streaming-image)) (common-lisp:progn (common-lisp:defun get-streaming-session @@ -10177,16 +10257,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "GetStreamingSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-streaming-session)) (common-lisp:progn (common-lisp:defun get-streaming-session-backup @@ -10209,16 +10291,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-session-backups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'backup-id)))) + 'backup-id) + common-lisp:t))) "GetStreamingSessionBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-streaming-session-backup)) (common-lisp:progn (common-lisp:defun get-streaming-session-stream @@ -10241,20 +10325,23 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-sessions/~A/streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)) - (quri.encode:url-encode + 'session-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stream-id)))) + 'stream-id) + common-lisp:t))) "GetStreamingSessionStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-streaming-session-stream)) (common-lisp:progn (common-lisp:defun get-studio @@ -10276,12 +10363,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "GetStudio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-studio)) (common-lisp:progn (common-lisp:defun get-studio-component @@ -10303,16 +10391,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/studio-components/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-component-id)))) + 'studio-component-id) + common-lisp:t))) "GetStudioComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-studio-component)) (common-lisp:progn (common-lisp:defun get-studio-member @@ -10334,16 +10424,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/membership/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-id)))) + 'principal-id) + common-lisp:t))) "GetStudioMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-studio-member)) (common-lisp:progn (common-lisp:defun list-eula-acceptances @@ -10365,12 +10457,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/eula-acceptances" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "ListEulaAcceptances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-eula-acceptances)) (common-lisp:progn (common-lisp:defun list-eulas @@ -10388,7 +10481,7 @@ "GET" "/2020-08-01/eulas" "ListEulas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-eulas)) (common-lisp:progn (common-lisp:defun list-launch-profile-members @@ -10413,16 +10506,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A/membership" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)))) + 'launch-profile-id) + common-lisp:t))) "ListLaunchProfileMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-launch-profile-members)) (common-lisp:progn (common-lisp:defun list-launch-profiles @@ -10447,12 +10542,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "ListLaunchProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-launch-profiles)) (common-lisp:progn (common-lisp:defun list-streaming-images @@ -10474,12 +10570,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-images" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "ListStreamingImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-streaming-images)) (common-lisp:progn (common-lisp:defun list-streaming-session-backups @@ -10502,12 +10599,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-session-backups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "ListStreamingSessionBackups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-streaming-session-backups)) (common-lisp:progn (common-lisp:defun list-streaming-sessions @@ -10532,12 +10630,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "ListStreamingSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-streaming-sessions)) (common-lisp:progn (common-lisp:defun list-studio-components @@ -10561,12 +10660,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/studio-components" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "ListStudioComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-studio-components)) (common-lisp:progn (common-lisp:defun list-studio-members @@ -10589,12 +10689,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/membership" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "ListStudioMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-studio-members)) (common-lisp:progn (common-lisp:defun list-studios @@ -10612,7 +10713,7 @@ "GET" "/2020-08-01/studios" "ListStudios")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-studios)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10634,12 +10735,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-launch-profile-members @@ -10665,16 +10767,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A/membership" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)))) + 'launch-profile-id) + common-lisp:t))) "PutLaunchProfileMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-launch-profile-members)) (common-lisp:progn (common-lisp:defun put-studio-members @@ -10698,12 +10802,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/membership" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "PutStudioMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-studio-members)) (common-lisp:progn (common-lisp:defun start-streaming-session @@ -10727,16 +10832,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-sessions/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "StartStreamingSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-streaming-session)) (common-lisp:progn (common-lisp:defun start-studio-ssoconfiguration-repair @@ -10759,12 +10866,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/sso-configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "StartStudioSSOConfigurationRepair")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-studio-ssoconfiguration-repair)) (common-lisp:progn (common-lisp:defun stop-streaming-session @@ -10789,16 +10897,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-sessions/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "StopStreamingSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-streaming-session)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10820,12 +10930,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10847,12 +10958,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-launch-profile @@ -10879,16 +10991,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)))) + 'launch-profile-id) + common-lisp:t))) "UpdateLaunchProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-launch-profile)) (common-lisp:progn (common-lisp:defun update-launch-profile-member @@ -10914,20 +11028,23 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/launch-profiles/~A/membership/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'launch-profile-id)) - (quri.encode:url-encode + 'launch-profile-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-id)))) + 'principal-id) + common-lisp:t))) "UpdateLaunchProfileMember")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-launch-profile-member)) (common-lisp:progn (common-lisp:defun update-streaming-image @@ -10952,16 +11069,18 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/streaming-images/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'streaming-image-id)))) + 'streaming-image-id) + common-lisp:t))) "UpdateStreamingImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-streaming-image)) (common-lisp:progn (common-lisp:defun update-studio @@ -10986,12 +11105,13 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)))) + 'studio-id) + common-lisp:t))) "UpdateStudio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-studio)) (common-lisp:progn (common-lisp:defun update-studio-component @@ -11021,14 +11141,16 @@ (common-lisp:format common-lisp:nil "/2020-08-01/studios/~A/studio-components/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-id)) - (quri.encode:url-encode + 'studio-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'studio-component-id)))) + 'studio-component-id) + common-lisp:t))) "UpdateStudioComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-studio-component)) diff --git a/services/oam/api.lisp b/services/oam/api.lisp index e9a5a2fa..04b20029 100644 --- a/services/oam/api.lisp +++ b/services/oam/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/oam/api - (:use) - (:nicknames #:aws/oam) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/oam/api (:use) + (:nicknames #:aws/oam) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/oam/api) (common-lisp:progn (common-lisp:define-condition oam-error @@ -20,7 +19,7 @@ (common-lisp:export 'oam-error)) (common-lisp:progn (common-lisp:defclass oam-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "oam" :api-version "2022-06-10" :host-prefix "oam" :signing-name "oam" @@ -1858,7 +1857,7 @@ aws-sdk/generator/operation::input "POST" "/CreateLink" "CreateLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-link)) (common-lisp:progn (common-lisp:defun create-sink @@ -1875,7 +1874,7 @@ aws-sdk/generator/operation::input "POST" "/CreateSink" "CreateSink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sink)) (common-lisp:progn (common-lisp:defun delete-link @@ -1892,7 +1891,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteLink" "DeleteLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-link)) (common-lisp:progn (common-lisp:defun delete-sink @@ -1909,7 +1908,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteSink" "DeleteSink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sink)) (common-lisp:progn (common-lisp:defun get-link @@ -1926,7 +1925,7 @@ aws-sdk/generator/operation::input "POST" "/GetLink" "GetLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-link)) (common-lisp:progn (common-lisp:defun get-sink @@ -1943,7 +1942,7 @@ aws-sdk/generator/operation::input "POST" "/GetSink" "GetSink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sink)) (common-lisp:progn (common-lisp:defun get-sink-policy @@ -1960,7 +1959,7 @@ aws-sdk/generator/operation::input "POST" "/GetSinkPolicy" "GetSinkPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sink-policy)) (common-lisp:progn (common-lisp:defun list-attached-links @@ -1979,7 +1978,7 @@ "POST" "/ListAttachedLinks" "ListAttachedLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attached-links)) (common-lisp:progn (common-lisp:defun list-links @@ -1996,7 +1995,7 @@ aws-sdk/generator/operation::input "POST" "/ListLinks" "ListLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-links)) (common-lisp:progn (common-lisp:defun list-sinks @@ -2013,7 +2012,7 @@ aws-sdk/generator/operation::input "POST" "/ListSinks" "ListSinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sinks)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2035,12 +2034,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-sink-policy @@ -2057,7 +2057,7 @@ aws-sdk/generator/operation::input "POST" "/PutSinkPolicy" "PutSinkPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-sink-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2079,12 +2079,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2106,12 +2107,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-link @@ -2128,5 +2130,5 @@ aws-sdk/generator/operation::input "POST" "/UpdateLink" "UpdateLink")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-link)) diff --git a/services/omics/api.lisp b/services/omics/api.lisp index 29f2c000..1516a5ab 100644 --- a/services/omics/api.lisp +++ b/services/omics/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/omics/api - (:use) - (:nicknames #:aws/omics) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/omics/api (:use) + (:nicknames #:aws/omics) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/omics/api) (common-lisp:progn (common-lisp:define-condition omics-error @@ -20,7 +19,7 @@ (common-lisp:export 'omics-error)) (common-lisp:progn (common-lisp:defclass omics-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "omics" :api-version "2022-11-28" :host-prefix "omics" :signing-name "omics" @@ -6291,7 +6290,13 @@ ( (aws-sdk/generator/shape::input get-read-set-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-read-set-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-reference-import-job-request common-lisp:nil ((id :initarg :id :initform @@ -6735,7 +6740,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'range)) - (common-lisp:cons "Range" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Range" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6785,7 +6792,13 @@ ( (aws-sdk/generator/shape::input get-reference-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-reference-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-reference-store-request common-lisp:nil ((id :initarg :id :initform @@ -17377,7 +17390,13 @@ ( (aws-sdk/generator/shape::input upload-read-set-part-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + upload-read-set-part-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype upload-read-set-part-request-part-number-integer () 'common-lisp:integer) (common-lisp:progn @@ -18248,16 +18267,18 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/upload/~A/abort" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "AbortMultipartReadSetUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'abort-multipart-read-set-upload)) (common-lisp:progn (common-lisp:defun accept-share @@ -18279,12 +18300,13 @@ (common-lisp:format common-lisp:nil "/share/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'share-id)))) + 'share-id) + common-lisp:t))) "AcceptShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-share)) (common-lisp:progn (common-lisp:defun batch-delete-read-set @@ -18306,12 +18328,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/readset/batch/delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "BatchDeleteReadSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-read-set)) (common-lisp:progn (common-lisp:defun cancel-annotation-import-job @@ -18333,12 +18356,13 @@ (common-lisp:format common-lisp:nil "/import/annotation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "CancelAnnotationImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-annotation-import-job)) (common-lisp:progn (common-lisp:defun cancel-run @@ -18360,12 +18384,13 @@ (common-lisp:format common-lisp:nil "/run/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CancelRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-run)) (common-lisp:progn (common-lisp:defun cancel-variant-import-job @@ -18387,12 +18412,13 @@ (common-lisp:format common-lisp:nil "/import/variant/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "CancelVariantImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-variant-import-job)) (common-lisp:progn (common-lisp:defun complete-multipart-read-set-upload @@ -18416,16 +18442,18 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/upload/~A/complete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "CompleteMultipartReadSetUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'complete-multipart-read-set-upload)) (common-lisp:progn (common-lisp:defun create-annotation-store @@ -18446,7 +18474,7 @@ "POST" "/annotationStore" "CreateAnnotationStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-annotation-store)) (common-lisp:progn (common-lisp:defun create-annotation-store-version @@ -18471,12 +18499,13 @@ (common-lisp:format common-lisp:nil "/annotationStore/~A/version" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateAnnotationStoreVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-annotation-store-version)) (common-lisp:progn (common-lisp:defun create-multipart-read-set-upload @@ -18504,12 +18533,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/upload" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "CreateMultipartReadSetUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-multipart-read-set-upload)) (common-lisp:progn (common-lisp:defun create-reference-store @@ -18529,7 +18559,7 @@ "POST" "/referencestore" "CreateReferenceStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-reference-store)) (common-lisp:progn (common-lisp:defun create-run-group @@ -18549,7 +18579,7 @@ aws-sdk/generator/operation::input "POST" "/runGroup" "CreateRunGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-run-group)) (common-lisp:progn (common-lisp:defun create-sequence-store @@ -18569,7 +18599,7 @@ aws-sdk/generator/operation::input "POST" "/sequencestore" "CreateSequenceStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sequence-store)) (common-lisp:progn (common-lisp:defun create-share @@ -18588,7 +18618,7 @@ aws-sdk/generator/operation::input "POST" "/share" "CreateShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-share)) (common-lisp:progn (common-lisp:defun create-variant-store @@ -18607,7 +18637,7 @@ aws-sdk/generator/operation::input "POST" "/variantStore" "CreateVariantStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-variant-store)) (common-lisp:progn (common-lisp:defun create-workflow @@ -18629,7 +18659,7 @@ aws-sdk/generator/operation::input "POST" "/workflow" "CreateWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workflow)) (common-lisp:progn (common-lisp:defun delete-annotation-store @@ -18651,12 +18681,13 @@ (common-lisp:format common-lisp:nil "/annotationStore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteAnnotationStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-annotation-store)) (common-lisp:progn (common-lisp:defun delete-annotation-store-versions @@ -18679,12 +18710,13 @@ (common-lisp:format common-lisp:nil "/annotationStore/~A/versions/delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteAnnotationStoreVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-annotation-store-versions)) (common-lisp:progn (common-lisp:defun delete-reference @@ -18706,16 +18738,18 @@ (common-lisp:format common-lisp:nil "/referencestore/~A/reference/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reference-store-id)) - (quri.encode:url-encode + 'reference-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteReference")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-reference)) (common-lisp:progn (common-lisp:defun delete-reference-store @@ -18737,12 +18771,13 @@ (common-lisp:format common-lisp:nil "/referencestore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteReferenceStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-reference-store)) (common-lisp:progn (common-lisp:defun delete-run @@ -18764,12 +18799,13 @@ (common-lisp:format common-lisp:nil "/run/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-run)) (common-lisp:progn (common-lisp:defun delete-run-group @@ -18791,12 +18827,13 @@ (common-lisp:format common-lisp:nil "/runGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteRunGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-run-group)) (common-lisp:progn (common-lisp:defun delete-sequence-store @@ -18818,12 +18855,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteSequenceStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sequence-store)) (common-lisp:progn (common-lisp:defun delete-share @@ -18845,12 +18883,13 @@ (common-lisp:format common-lisp:nil "/share/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'share-id)))) + 'share-id) + common-lisp:t))) "DeleteShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-share)) (common-lisp:progn (common-lisp:defun delete-variant-store @@ -18872,12 +18911,13 @@ (common-lisp:format common-lisp:nil "/variantStore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteVariantStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-variant-store)) (common-lisp:progn (common-lisp:defun delete-workflow @@ -18899,12 +18939,13 @@ (common-lisp:format common-lisp:nil "/workflow/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workflow)) (common-lisp:progn (common-lisp:defun get-annotation-import-job @@ -18926,12 +18967,13 @@ (common-lisp:format common-lisp:nil "/import/annotation/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetAnnotationImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-annotation-import-job)) (common-lisp:progn (common-lisp:defun get-annotation-store @@ -18953,12 +18995,13 @@ (common-lisp:format common-lisp:nil "/annotationStore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAnnotationStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-annotation-store)) (common-lisp:progn (common-lisp:defun get-annotation-store-version @@ -18981,16 +19024,18 @@ (common-lisp:format common-lisp:nil "/annotationStore/~A/version/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-name)))) + 'version-name) + common-lisp:t))) "GetAnnotationStoreVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-annotation-store-version)) (common-lisp:progn (common-lisp:defun get-read-set @@ -19013,17 +19058,19 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/readset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReadSet") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-read-set)) (common-lisp:progn (common-lisp:defun get-read-set-activation-job @@ -19046,16 +19093,18 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/activationjob/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReadSetActivationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-read-set-activation-job)) (common-lisp:progn (common-lisp:defun get-read-set-export-job @@ -19077,16 +19126,18 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/exportjob/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReadSetExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-read-set-export-job)) (common-lisp:progn (common-lisp:defun get-read-set-import-job @@ -19108,16 +19159,18 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/importjob/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReadSetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-read-set-import-job)) (common-lisp:progn (common-lisp:defun get-read-set-metadata @@ -19139,16 +19192,18 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/readset/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReadSetMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-read-set-metadata)) (common-lisp:progn (common-lisp:defun get-reference @@ -19172,17 +19227,19 @@ (common-lisp:format common-lisp:nil "/referencestore/~A/reference/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reference-store-id)) - (quri.encode:url-encode + 'reference-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReference") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-reference)) (common-lisp:progn (common-lisp:defun get-reference-import-job @@ -19204,16 +19261,18 @@ (common-lisp:format common-lisp:nil "/referencestore/~A/importjob/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reference-store-id)) - (quri.encode:url-encode + 'reference-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReferenceImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-reference-import-job)) (common-lisp:progn (common-lisp:defun get-reference-metadata @@ -19235,16 +19294,18 @@ (common-lisp:format common-lisp:nil "/referencestore/~A/reference/~A/metadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reference-store-id)) - (quri.encode:url-encode + 'reference-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReferenceMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-reference-metadata)) (common-lisp:progn (common-lisp:defun get-reference-store @@ -19266,12 +19327,13 @@ (common-lisp:format common-lisp:nil "/referencestore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReferenceStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-reference-store)) (common-lisp:progn (common-lisp:defun get-run @@ -19293,12 +19355,13 @@ (common-lisp:format common-lisp:nil "/run/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-run)) (common-lisp:progn (common-lisp:defun get-run-group @@ -19320,12 +19383,13 @@ (common-lisp:format common-lisp:nil "/runGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetRunGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-run-group)) (common-lisp:progn (common-lisp:defun get-run-task @@ -19347,16 +19411,18 @@ (common-lisp:format common-lisp:nil "/run/~A/task/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "GetRunTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-run-task)) (common-lisp:progn (common-lisp:defun get-sequence-store @@ -19378,12 +19444,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetSequenceStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sequence-store)) (common-lisp:progn (common-lisp:defun get-share @@ -19405,12 +19472,13 @@ (common-lisp:format common-lisp:nil "/share/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'share-id)))) + 'share-id) + common-lisp:t))) "GetShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-share)) (common-lisp:progn (common-lisp:defun get-variant-import-job @@ -19432,12 +19500,13 @@ (common-lisp:format common-lisp:nil "/import/variant/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetVariantImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-variant-import-job)) (common-lisp:progn (common-lisp:defun get-variant-store @@ -19459,12 +19528,13 @@ (common-lisp:format common-lisp:nil "/variantStore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetVariantStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-variant-store)) (common-lisp:progn (common-lisp:defun get-workflow @@ -19486,12 +19556,13 @@ (common-lisp:format common-lisp:nil "/workflow/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow)) (common-lisp:progn (common-lisp:defun list-annotation-import-jobs @@ -19511,7 +19582,7 @@ "POST" "/import/annotations" "ListAnnotationImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-annotation-import-jobs)) (common-lisp:progn (common-lisp:defun list-annotation-store-versions @@ -19535,12 +19606,13 @@ (common-lisp:format common-lisp:nil "/annotationStore/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListAnnotationStoreVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-annotation-store-versions)) (common-lisp:progn (common-lisp:defun list-annotation-stores @@ -19559,7 +19631,7 @@ "POST" "/annotationStores" "ListAnnotationStores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-annotation-stores)) (common-lisp:progn (common-lisp:defun list-multipart-read-set-uploads @@ -19583,12 +19655,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/uploads" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "ListMultipartReadSetUploads")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-multipart-read-set-uploads)) (common-lisp:progn (common-lisp:defun list-read-set-activation-jobs @@ -19613,12 +19686,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/activationjobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "ListReadSetActivationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-read-set-activation-jobs)) (common-lisp:progn (common-lisp:defun list-read-set-export-jobs @@ -19643,12 +19717,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/exportjobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "ListReadSetExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-read-set-export-jobs)) (common-lisp:progn (common-lisp:defun list-read-set-import-jobs @@ -19673,12 +19748,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/importjobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "ListReadSetImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-read-set-import-jobs)) (common-lisp:progn (common-lisp:defun list-read-set-upload-parts @@ -19704,16 +19780,18 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/upload/~A/parts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "ListReadSetUploadParts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-read-set-upload-parts)) (common-lisp:progn (common-lisp:defun list-read-sets @@ -19737,12 +19815,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/readsets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "ListReadSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-read-sets)) (common-lisp:progn (common-lisp:defun list-reference-import-jobs @@ -19767,12 +19846,13 @@ (common-lisp:format common-lisp:nil "/referencestore/~A/importjobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reference-store-id)))) + 'reference-store-id) + common-lisp:t))) "ListReferenceImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-reference-import-jobs)) (common-lisp:progn (common-lisp:defun list-reference-stores @@ -19790,7 +19870,7 @@ "POST" "/referencestores" "ListReferenceStores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-reference-stores)) (common-lisp:progn (common-lisp:defun list-references @@ -19814,12 +19894,13 @@ (common-lisp:format common-lisp:nil "/referencestore/~A/references" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reference-store-id)))) + 'reference-store-id) + common-lisp:t))) "ListReferences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-references)) (common-lisp:progn (common-lisp:defun list-run-groups @@ -19837,7 +19918,7 @@ aws-sdk/generator/operation::input "GET" "/runGroup" "ListRunGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-run-groups)) (common-lisp:progn (common-lisp:defun list-run-tasks @@ -19860,12 +19941,13 @@ (common-lisp:format common-lisp:nil "/run/~A/task" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListRunTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-run-tasks)) (common-lisp:progn (common-lisp:defun list-runs @@ -19885,7 +19967,7 @@ aws-sdk/generator/operation::input "GET" "/run" "ListRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-runs)) (common-lisp:progn (common-lisp:defun list-sequence-stores @@ -19903,7 +19985,7 @@ "POST" "/sequencestores" "ListSequenceStores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sequence-stores)) (common-lisp:progn (common-lisp:defun list-shares @@ -19922,7 +20004,7 @@ aws-sdk/generator/operation::input "POST" "/shares" "ListShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-shares)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -19944,12 +20026,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-variant-import-jobs @@ -19968,7 +20051,7 @@ "POST" "/import/variants" "ListVariantImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-variant-import-jobs)) (common-lisp:progn (common-lisp:defun list-variant-stores @@ -19986,7 +20069,7 @@ aws-sdk/generator/operation::input "POST" "/variantStores" "ListVariantStores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-variant-stores)) (common-lisp:progn (common-lisp:defun list-workflows @@ -20004,7 +20087,7 @@ aws-sdk/generator/operation::input "GET" "/workflow" "ListWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflows)) (common-lisp:progn (common-lisp:defun start-annotation-import-job @@ -20026,7 +20109,7 @@ "POST" "/import/annotation" "StartAnnotationImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-annotation-import-job)) (common-lisp:progn (common-lisp:defun start-read-set-activation-job @@ -20050,12 +20133,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/activationjob" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "StartReadSetActivationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-read-set-activation-job)) (common-lisp:progn (common-lisp:defun start-read-set-export-job @@ -20081,12 +20165,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/exportjob" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "StartReadSetExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-read-set-export-job)) (common-lisp:progn (common-lisp:defun start-read-set-import-job @@ -20111,12 +20196,13 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/importjob" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)))) + 'sequence-store-id) + common-lisp:t))) "StartReadSetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-read-set-import-job)) (common-lisp:progn (common-lisp:defun start-reference-import-job @@ -20141,12 +20227,13 @@ (common-lisp:format common-lisp:nil "/referencestore/~A/importjob" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'reference-store-id)))) + 'reference-store-id) + common-lisp:t))) "StartReferenceImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-reference-import-job)) (common-lisp:progn (common-lisp:defun start-run @@ -20168,7 +20255,7 @@ aws-sdk/generator/operation::input "POST" "/run" "StartRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-run)) (common-lisp:progn (common-lisp:defun start-variant-import-job @@ -20189,7 +20276,7 @@ "POST" "/import/variant" "StartVariantImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-variant-import-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -20211,12 +20298,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -20238,12 +20326,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-annotation-store @@ -20265,12 +20354,13 @@ (common-lisp:format common-lisp:nil "/annotationStore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateAnnotationStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-annotation-store)) (common-lisp:progn (common-lisp:defun update-annotation-store-version @@ -20293,16 +20383,18 @@ (common-lisp:format common-lisp:nil "/annotationStore/~A/version/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-name)))) + 'version-name) + common-lisp:t))) "UpdateAnnotationStoreVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-annotation-store-version)) (common-lisp:progn (common-lisp:defun update-run-group @@ -20326,12 +20418,13 @@ (common-lisp:format common-lisp:nil "/runGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateRunGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-run-group)) (common-lisp:progn (common-lisp:defun update-variant-store @@ -20353,12 +20446,13 @@ (common-lisp:format common-lisp:nil "/variantStore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateVariantStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-variant-store)) (common-lisp:progn (common-lisp:defun update-workflow @@ -20380,12 +20474,13 @@ (common-lisp:format common-lisp:nil "/workflow/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workflow)) (common-lisp:progn (common-lisp:defun upload-read-set-part @@ -20410,14 +20505,16 @@ (common-lisp:format common-lisp:nil "/sequencestore/~A/upload/~A/part" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'sequence-store-id)) - (quri.encode:url-encode + 'sequence-store-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'upload-id)))) + 'upload-id) + common-lisp:t))) "UploadReadSetPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upload-read-set-part)) diff --git a/services/opensearch/api.lisp b/services/opensearch/api.lisp index 7617ea07..82a75e77 100644 --- a/services/opensearch/api.lisp +++ b/services/opensearch/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/opensearch/api - (:use) - (:nicknames #:aws/opensearch) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/opensearch/api (:use) + (:nicknames #:aws/opensearch) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/opensearch/api) (common-lisp:progn (common-lisp:define-condition opensearch-error @@ -20,7 +19,7 @@ (common-lisp:export 'opensearch-error)) (common-lisp:progn (common-lisp:defclass opensearch-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "opensearch" :api-version "2021-01-01" :host-prefix "es" :signing-name @@ -15230,12 +15229,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/cc/inboundConnection/~A/accept" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "AcceptInboundConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-inbound-connection)) (common-lisp:progn (common-lisp:defun add-data-source @@ -15259,12 +15259,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/dataSource" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "AddDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-data-source)) (common-lisp:progn (common-lisp:defun add-tags @@ -15282,7 +15283,7 @@ "POST" "/2021-01-01/tags" "AddTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun associate-package @@ -15304,16 +15305,18 @@ (common-lisp:format common-lisp:nil "/2021-01-01/packages/associate/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)) - (quri.encode:url-encode + 'package-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "AssociatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-package)) (common-lisp:progn (common-lisp:defun authorize-vpc-endpoint-access @@ -15336,12 +15339,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/authorizeVpcEndpointAccess" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "AuthorizeVpcEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'authorize-vpc-endpoint-access)) (common-lisp:progn (common-lisp:defun cancel-domain-config-change @@ -15364,12 +15368,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/config/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "CancelDomainConfigChange")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-domain-config-change)) (common-lisp:progn (common-lisp:defun cancel-service-software-update @@ -15388,7 +15393,7 @@ "POST" "/2021-01-01/opensearch/serviceSoftwareUpdate/cancel" "CancelServiceSoftwareUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-service-software-update)) (common-lisp:progn (common-lisp:defun create-domain @@ -15418,7 +15423,7 @@ "POST" "/2021-01-01/opensearch/domain" "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun create-outbound-connection @@ -15440,7 +15445,7 @@ "POST" "/2021-01-01/opensearch/cc/outboundConnection" "CreateOutboundConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-outbound-connection)) (common-lisp:progn (common-lisp:defun create-package @@ -15461,7 +15466,7 @@ "POST" "/2021-01-01/packages" "CreatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-package)) (common-lisp:progn (common-lisp:defun create-vpc-endpoint @@ -15480,7 +15485,7 @@ "POST" "/2021-01-01/opensearch/vpcEndpoints" "CreateVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-endpoint)) (common-lisp:progn (common-lisp:defun delete-data-source @@ -15502,16 +15507,18 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/dataSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-name)))) + 'data-source-name) + common-lisp:t))) "DeleteDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-source)) (common-lisp:progn (common-lisp:defun delete-domain @@ -15533,12 +15540,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-inbound-connection @@ -15561,12 +15569,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/cc/inboundConnection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "DeleteInboundConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-inbound-connection)) (common-lisp:progn (common-lisp:defun delete-outbound-connection @@ -15589,12 +15598,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/cc/outboundConnection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "DeleteOutboundConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-outbound-connection)) (common-lisp:progn (common-lisp:defun delete-package @@ -15616,12 +15626,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)))) + 'package-id) + common-lisp:t))) "DeletePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-package)) (common-lisp:progn (common-lisp:defun delete-vpc-endpoint @@ -15643,12 +15654,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/vpcEndpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpc-endpoint-id)))) + 'vpc-endpoint-id) + common-lisp:t))) "DeleteVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-endpoint)) (common-lisp:progn (common-lisp:defun describe-domain @@ -15670,12 +15682,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain)) (common-lisp:progn (common-lisp:defun describe-domain-auto-tunes @@ -15699,12 +15712,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/autoTunes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDomainAutoTunes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-auto-tunes)) (common-lisp:progn (common-lisp:defun describe-domain-change-progress @@ -15727,12 +15741,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/progress" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDomainChangeProgress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-change-progress)) (common-lisp:progn (common-lisp:defun describe-domain-config @@ -15754,12 +15769,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDomainConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-config)) (common-lisp:progn (common-lisp:defun describe-domain-health @@ -15781,12 +15797,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/health" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDomainHealth")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-health)) (common-lisp:progn (common-lisp:defun describe-domain-nodes @@ -15808,12 +15825,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/nodes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDomainNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain-nodes)) (common-lisp:progn (common-lisp:defun describe-domains @@ -15831,7 +15849,7 @@ "POST" "/2021-01-01/opensearch/domain-info" "DescribeDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domains)) (common-lisp:progn (common-lisp:defun describe-dry-run-progress @@ -15856,12 +15874,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/dryRun" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DescribeDryRunProgress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dry-run-progress)) (common-lisp:progn (common-lisp:defun describe-inbound-connections @@ -15880,7 +15899,7 @@ "POST" "/2021-01-01/opensearch/cc/inboundConnection/search" "DescribeInboundConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-inbound-connections)) (common-lisp:progn (common-lisp:defun describe-instance-type-limits @@ -15904,16 +15923,18 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/instanceTypeLimits/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'engine-version)) - (quri.encode:url-encode + 'engine-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-type)))) + 'instance-type) + common-lisp:t))) "DescribeInstanceTypeLimits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-type-limits)) (common-lisp:progn (common-lisp:defun describe-outbound-connections @@ -15932,7 +15953,7 @@ "POST" "/2021-01-01/opensearch/cc/outboundConnection/search" "DescribeOutboundConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-outbound-connections)) (common-lisp:progn (common-lisp:defun describe-packages @@ -15950,7 +15971,7 @@ "POST" "/2021-01-01/packages/describe" "DescribePackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-packages)) (common-lisp:progn (common-lisp:defun describe-reserved-instance-offerings @@ -15972,7 +15993,7 @@ "GET" "/2021-01-01/opensearch/reservedInstanceOfferings" "DescribeReservedInstanceOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-reserved-instance-offerings)) (common-lisp:progn (common-lisp:defun describe-reserved-instances @@ -15993,7 +16014,7 @@ "GET" "/2021-01-01/opensearch/reservedInstances" "DescribeReservedInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-reserved-instances)) (common-lisp:progn (common-lisp:defun describe-vpc-endpoints @@ -16011,7 +16032,7 @@ "POST" "/2021-01-01/opensearch/vpcEndpoints/describe" "DescribeVpcEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vpc-endpoints)) (common-lisp:progn (common-lisp:defun dissociate-package @@ -16033,16 +16054,18 @@ (common-lisp:format common-lisp:nil "/2021-01-01/packages/dissociate/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)) - (quri.encode:url-encode + 'package-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "DissociatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'dissociate-package)) (common-lisp:progn (common-lisp:defun get-compatible-versions @@ -16060,7 +16083,7 @@ "GET" "/2021-01-01/opensearch/compatibleVersions" "GetCompatibleVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compatible-versions)) (common-lisp:progn (common-lisp:defun get-data-source @@ -16082,16 +16105,18 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/dataSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-name)))) + 'data-source-name) + common-lisp:t))) "GetDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-source)) (common-lisp:progn (common-lisp:defun get-domain-maintenance-status @@ -16114,12 +16139,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/domainMaintenance" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetDomainMaintenanceStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-maintenance-status)) (common-lisp:progn (common-lisp:defun get-package-version-history @@ -16143,12 +16169,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/packages/~A/history" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)))) + 'package-id) + common-lisp:t))) "GetPackageVersionHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-package-version-history)) (common-lisp:progn (common-lisp:defun get-upgrade-history @@ -16171,12 +16198,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/upgradeDomain/~A/history" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetUpgradeHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-upgrade-history)) (common-lisp:progn (common-lisp:defun get-upgrade-status @@ -16198,12 +16226,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/upgradeDomain/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "GetUpgradeStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-upgrade-status)) (common-lisp:progn (common-lisp:defun list-data-sources @@ -16225,12 +16254,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/dataSource" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sources)) (common-lisp:progn (common-lisp:defun list-domain-maintenances @@ -16254,12 +16284,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/domainMaintenances" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListDomainMaintenances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domain-maintenances)) (common-lisp:progn (common-lisp:defun list-domain-names @@ -16277,7 +16308,7 @@ "GET" "/2021-01-01/domain" "ListDomainNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domain-names)) (common-lisp:progn (common-lisp:defun list-domains-for-package @@ -16300,12 +16331,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/packages/~A/domains" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)))) + 'package-id) + common-lisp:t))) "ListDomainsForPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains-for-package)) (common-lisp:progn (common-lisp:defun list-instance-type-details @@ -16331,12 +16363,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/instanceTypeDetails/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'engine-version)))) + 'engine-version) + common-lisp:t))) "ListInstanceTypeDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instance-type-details)) (common-lisp:progn (common-lisp:defun list-packages-for-domain @@ -16359,12 +16392,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/domain/~A/packages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListPackagesForDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-packages-for-domain)) (common-lisp:progn (common-lisp:defun list-scheduled-actions @@ -16387,12 +16421,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/scheduledActions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListScheduledActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scheduled-actions)) (common-lisp:progn (common-lisp:defun list-tags @@ -16410,7 +16445,7 @@ "GET" "/2021-01-01/tags/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun list-versions @@ -16428,7 +16463,7 @@ "GET" "/2021-01-01/opensearch/versions" "ListVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-versions)) (common-lisp:progn (common-lisp:defun list-vpc-endpoint-access @@ -16450,12 +16485,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/listVpcEndpointAccess" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListVpcEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-endpoint-access)) (common-lisp:progn (common-lisp:defun list-vpc-endpoints @@ -16473,7 +16509,7 @@ "GET" "/2021-01-01/opensearch/vpcEndpoints" "ListVpcEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-endpoints)) (common-lisp:progn (common-lisp:defun list-vpc-endpoints-for-domain @@ -16496,12 +16532,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/vpcEndpoints" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "ListVpcEndpointsForDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-endpoints-for-domain)) (common-lisp:progn (common-lisp:defun purchase-reserved-instance-offering @@ -16523,7 +16560,7 @@ "POST" "/2021-01-01/opensearch/purchaseReservedInstanceOffering" "PurchaseReservedInstanceOffering")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'purchase-reserved-instance-offering)) (common-lisp:progn (common-lisp:defun reject-inbound-connection @@ -16546,12 +16583,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/cc/inboundConnection/~A/reject" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "RejectInboundConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-inbound-connection)) (common-lisp:progn (common-lisp:defun remove-tags @@ -16569,7 +16607,7 @@ "POST" "/2021-01-01/tags-removal" "RemoveTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags)) (common-lisp:progn (common-lisp:defun revoke-vpc-endpoint-access @@ -16592,12 +16630,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/revokeVpcEndpointAccess" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "RevokeVpcEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-vpc-endpoint-access)) (common-lisp:progn (common-lisp:defun start-domain-maintenance @@ -16619,12 +16658,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/domainMaintenance" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "StartDomainMaintenance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-domain-maintenance)) (common-lisp:progn (common-lisp:defun start-service-software-update @@ -16645,7 +16685,7 @@ "POST" "/2021-01-01/opensearch/serviceSoftwareUpdate/start" "StartServiceSoftwareUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-service-software-update)) (common-lisp:progn (common-lisp:defun update-data-source @@ -16669,16 +16709,18 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/dataSource/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)) - (quri.encode:url-encode + 'domain-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-name)))) + 'data-source-name) + common-lisp:t))) "UpdateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source)) (common-lisp:progn (common-lisp:defun update-domain-config @@ -16714,12 +16756,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateDomainConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-config)) (common-lisp:progn (common-lisp:defun update-package @@ -16740,7 +16783,7 @@ "POST" "/2021-01-01/packages/update" "UpdatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-package)) (common-lisp:progn (common-lisp:defun update-scheduled-action @@ -16765,12 +16808,13 @@ (common-lisp:format common-lisp:nil "/2021-01-01/opensearch/domain/~A/scheduledAction/update" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain-name)))) + 'domain-name) + common-lisp:t))) "UpdateScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-scheduled-action)) (common-lisp:progn (common-lisp:defun update-vpc-endpoint @@ -16788,7 +16832,7 @@ "POST" "/2021-01-01/opensearch/vpcEndpoints/update" "UpdateVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpc-endpoint)) (common-lisp:progn (common-lisp:defun upgrade-domain @@ -16809,5 +16853,5 @@ "POST" "/2021-01-01/opensearch/upgradeDomain" "UpgradeDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upgrade-domain)) diff --git a/services/opensearchserverless/api.lisp b/services/opensearchserverless/api.lisp index d53cb7ed..f221eb86 100644 --- a/services/opensearchserverless/api.lisp +++ b/services/opensearchserverless/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/opensearchserverless/api - (:use) - (:nicknames #:aws/opensearchserverless) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/opensearchserverless/api (:use) + (:nicknames #:aws/opensearchserverless) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/opensearchserverless/api) (common-lisp:progn (common-lisp:define-condition opensearchserverless-error @@ -7346,7 +7345,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "BatchGetCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-collection)) (common-lisp:progn (common-lisp:defun batch-get-effective-lifecycle-policy @@ -7363,7 +7362,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "BatchGetEffectiveLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-effective-lifecycle-policy)) (common-lisp:progn (common-lisp:defun batch-get-lifecycle-policy @@ -7380,7 +7379,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "BatchGetLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-lifecycle-policy)) (common-lisp:progn (common-lisp:defun batch-get-vpc-endpoint @@ -7396,7 +7395,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "BatchGetVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-vpc-endpoint)) (common-lisp:progn (common-lisp:defun create-access-policy @@ -7414,7 +7413,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "CreateAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-access-policy)) (common-lisp:progn (common-lisp:defun create-collection @@ -7433,7 +7432,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "CreateCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-collection)) (common-lisp:progn (common-lisp:defun create-lifecycle-policy @@ -7451,7 +7450,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "CreateLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lifecycle-policy)) (common-lisp:progn (common-lisp:defun create-security-config @@ -7469,7 +7468,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "CreateSecurityConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-security-config)) (common-lisp:progn (common-lisp:defun create-security-policy @@ -7487,7 +7486,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "CreateSecurityPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-security-policy)) (common-lisp:progn (common-lisp:defun create-vpc-endpoint @@ -7506,7 +7505,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "CreateVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpc-endpoint)) (common-lisp:progn (common-lisp:defun delete-access-policy @@ -7522,7 +7521,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access-policy)) (common-lisp:progn (common-lisp:defun delete-collection @@ -7538,7 +7537,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-collection)) (common-lisp:progn (common-lisp:defun delete-lifecycle-policy @@ -7554,7 +7553,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lifecycle-policy)) (common-lisp:progn (common-lisp:defun delete-security-config @@ -7570,7 +7569,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteSecurityConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-security-config)) (common-lisp:progn (common-lisp:defun delete-security-policy @@ -7586,7 +7585,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteSecurityPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-security-policy)) (common-lisp:progn (common-lisp:defun delete-vpc-endpoint @@ -7602,7 +7601,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpc-endpoint)) (common-lisp:progn (common-lisp:defun get-access-policy @@ -7618,7 +7617,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "GetAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-access-policy)) (common-lisp:progn (common-lisp:defun get-account-settings () @@ -7650,7 +7649,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "GetSecurityConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-security-config)) (common-lisp:progn (common-lisp:defun get-security-policy @@ -7666,7 +7665,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "GetSecurityPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-security-policy)) (common-lisp:progn (common-lisp:defun list-access-policies @@ -7683,7 +7682,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "ListAccessPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-policies)) (common-lisp:progn (common-lisp:defun list-collections @@ -7701,7 +7700,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "ListCollections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-collections)) (common-lisp:progn (common-lisp:defun list-lifecycle-policies @@ -7718,7 +7717,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "ListLifecyclePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lifecycle-policies)) (common-lisp:progn (common-lisp:defun list-security-configs @@ -7734,7 +7733,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "ListSecurityConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-configs)) (common-lisp:progn (common-lisp:defun list-security-policies @@ -7751,7 +7750,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "ListSecurityPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-policies)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7767,7 +7766,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-vpc-endpoints @@ -7785,7 +7784,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "ListVpcEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpc-endpoints)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7801,7 +7800,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7817,7 +7816,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-access-policy @@ -7836,7 +7835,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateAccessPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-access-policy)) (common-lisp:progn (common-lisp:defun update-account-settings @@ -7852,7 +7851,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-settings)) (common-lisp:progn (common-lisp:defun update-collection @@ -7868,7 +7867,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-collection)) (common-lisp:progn (common-lisp:defun update-lifecycle-policy @@ -7887,7 +7886,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateLifecyclePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-lifecycle-policy)) (common-lisp:progn (common-lisp:defun update-security-config @@ -7906,7 +7905,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateSecurityConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-security-config)) (common-lisp:progn (common-lisp:defun update-security-policy @@ -7925,7 +7924,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateSecurityPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-security-policy)) (common-lisp:progn (common-lisp:defun update-vpc-endpoint @@ -7945,5 +7944,5 @@ (aws-sdk/generator/shape:make-request-with-input 'opensearchserverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateVpcEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpc-endpoint)) diff --git a/services/opsworks/api.lisp b/services/opsworks/api.lisp index a761198c..6358782d 100644 --- a/services/opsworks/api.lisp +++ b/services/opsworks/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/opsworks/api - (:use) - (:nicknames #:aws/opsworks) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/opsworks/api (:use) + (:nicknames #:aws/opsworks) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/opsworks/api) (common-lisp:progn (common-lisp:define-condition opsworks-error @@ -12230,7 +12229,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssignInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'assign-instance)) (common-lisp:progn (common-lisp:defun assign-volume @@ -12247,7 +12246,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssignVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'assign-volume)) (common-lisp:progn (common-lisp:defun associate-elastic-ip @@ -12264,7 +12263,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateElasticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-elastic-ip)) (common-lisp:progn (common-lisp:defun attach-elastic-load-balancer @@ -12283,7 +12282,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachElasticLoadBalancer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-elastic-load-balancer)) (common-lisp:progn (common-lisp:defun clone-stack @@ -12313,7 +12312,7 @@ aws-sdk/generator/operation::input "POST" "/" "CloneStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'clone-stack)) (common-lisp:progn (common-lisp:defun create-app @@ -12335,7 +12334,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app)) (common-lisp:progn (common-lisp:defun create-deployment @@ -12355,7 +12354,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment)) (common-lisp:progn (common-lisp:defun create-instance @@ -12381,7 +12380,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instance)) (common-lisp:progn (common-lisp:defun create-layer @@ -12410,7 +12409,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLayer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-layer)) (common-lisp:progn (common-lisp:defun create-stack @@ -12439,7 +12438,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stack)) (common-lisp:progn (common-lisp:defun create-user-profile @@ -12459,7 +12458,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-profile)) (common-lisp:progn (common-lisp:defun delete-app @@ -12476,7 +12475,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app)) (common-lisp:progn (common-lisp:defun delete-instance @@ -12495,7 +12494,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance)) (common-lisp:progn (common-lisp:defun delete-layer @@ -12512,7 +12511,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLayer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-layer)) (common-lisp:progn (common-lisp:defun delete-stack @@ -12529,7 +12528,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stack)) (common-lisp:progn (common-lisp:defun delete-user-profile @@ -12546,7 +12545,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-profile)) (common-lisp:progn (common-lisp:defun deregister-ecs-cluster @@ -12563,7 +12562,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterEcsCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-ecs-cluster)) (common-lisp:progn (common-lisp:defun deregister-elastic-ip @@ -12580,7 +12579,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterElasticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-elastic-ip)) (common-lisp:progn (common-lisp:defun deregister-instance @@ -12597,7 +12596,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-instance)) (common-lisp:progn (common-lisp:defun deregister-rds-db-instance @@ -12615,7 +12614,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterRdsDbInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-rds-db-instance)) (common-lisp:progn (common-lisp:defun deregister-volume @@ -12632,7 +12631,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-volume)) (common-lisp:progn (common-lisp:defun describe-agent-versions @@ -12649,7 +12648,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAgentVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-agent-versions)) (common-lisp:progn (common-lisp:defun describe-apps @@ -12666,7 +12665,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-apps)) (common-lisp:progn (common-lisp:defun describe-commands @@ -12684,7 +12683,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCommands")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-commands)) (common-lisp:progn (common-lisp:defun describe-deployments @@ -12701,7 +12700,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-deployments)) (common-lisp:progn (common-lisp:defun describe-ecs-clusters @@ -12720,7 +12719,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEcsClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ecs-clusters)) (common-lisp:progn (common-lisp:defun describe-elastic-ips @@ -12737,7 +12736,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeElasticIps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-elastic-ips)) (common-lisp:progn (common-lisp:defun describe-elastic-load-balancers @@ -12755,7 +12754,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeElasticLoadBalancers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-elastic-load-balancers)) (common-lisp:progn (common-lisp:defun describe-instances @@ -12772,7 +12771,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instances)) (common-lisp:progn (common-lisp:defun describe-layers @@ -12789,7 +12788,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLayers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-layers)) (common-lisp:progn (common-lisp:defun describe-load-based-auto-scaling @@ -12807,7 +12806,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLoadBasedAutoScaling")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-load-based-auto-scaling)) (common-lisp:progn (common-lisp:defun describe-my-user-profile () @@ -12840,7 +12839,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-permissions)) (common-lisp:progn (common-lisp:defun describe-raid-arrays @@ -12858,7 +12857,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRaidArrays")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-raid-arrays)) (common-lisp:progn (common-lisp:defun describe-rds-db-instances @@ -12876,7 +12875,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRdsDbInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-rds-db-instances)) (common-lisp:progn (common-lisp:defun describe-service-errors @@ -12894,7 +12893,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServiceErrors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-service-errors)) (common-lisp:progn (common-lisp:defun describe-stack-provisioning-parameters @@ -12912,7 +12911,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackProvisioningParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stack-provisioning-parameters)) (common-lisp:progn (common-lisp:defun describe-stack-summary @@ -12929,7 +12928,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStackSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stack-summary)) (common-lisp:progn (common-lisp:defun describe-stacks @@ -12946,7 +12945,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStacks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stacks)) (common-lisp:progn (common-lisp:defun describe-time-based-auto-scaling @@ -12964,7 +12963,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTimeBasedAutoScaling")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-time-based-auto-scaling)) (common-lisp:progn (common-lisp:defun describe-user-profiles @@ -12981,7 +12980,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-profiles)) (common-lisp:progn (common-lisp:defun describe-volumes @@ -13000,7 +12999,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeVolumes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-volumes)) (common-lisp:progn (common-lisp:defun detach-elastic-load-balancer @@ -13019,7 +13018,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachElasticLoadBalancer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-elastic-load-balancer)) (common-lisp:progn (common-lisp:defun disassociate-elastic-ip @@ -13036,7 +13035,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateElasticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-elastic-ip)) (common-lisp:progn (common-lisp:defun get-hostname-suggestion @@ -13053,7 +13052,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetHostnameSuggestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-hostname-suggestion)) (common-lisp:progn (common-lisp:defun grant-access @@ -13071,7 +13070,7 @@ aws-sdk/generator/operation::input "POST" "/" "GrantAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'grant-access)) (common-lisp:progn (common-lisp:defun list-tags @@ -13088,7 +13087,7 @@ (aws-sdk/generator/shape:make-request-with-input 'opsworks-request aws-sdk/generator/operation::input "POST" "/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun reboot-instance @@ -13105,7 +13104,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-instance)) (common-lisp:progn (common-lisp:defun register-ecs-cluster @@ -13122,7 +13121,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterEcsCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-ecs-cluster)) (common-lisp:progn (common-lisp:defun register-elastic-ip @@ -13139,7 +13138,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterElasticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-elastic-ip)) (common-lisp:progn (common-lisp:defun register-instance @@ -13160,7 +13159,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-instance)) (common-lisp:progn (common-lisp:defun register-rds-db-instance @@ -13179,7 +13178,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterRdsDbInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-rds-db-instance)) (common-lisp:progn (common-lisp:defun register-volume @@ -13196,7 +13195,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-volume)) (common-lisp:progn (common-lisp:defun set-load-based-auto-scaling @@ -13215,7 +13214,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetLoadBasedAutoScaling")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-load-based-auto-scaling)) (common-lisp:progn (common-lisp:defun set-permission @@ -13234,7 +13233,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-permission)) (common-lisp:progn (common-lisp:defun set-time-based-auto-scaling @@ -13253,7 +13252,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetTimeBasedAutoScaling")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-time-based-auto-scaling)) (common-lisp:progn (common-lisp:defun start-instance @@ -13270,7 +13269,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-instance)) (common-lisp:progn (common-lisp:defun start-stack @@ -13287,7 +13286,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-stack)) (common-lisp:progn (common-lisp:defun stop-instance @@ -13304,7 +13303,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-instance)) (common-lisp:progn (common-lisp:defun stop-stack @@ -13321,7 +13320,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-stack)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13338,7 +13337,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun unassign-instance @@ -13355,7 +13354,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnassignInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unassign-instance)) (common-lisp:progn (common-lisp:defun unassign-volume @@ -13372,7 +13371,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnassignVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unassign-volume)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13389,7 +13388,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-app @@ -13410,7 +13409,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app)) (common-lisp:progn (common-lisp:defun update-elastic-ip @@ -13427,7 +13426,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateElasticIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-elastic-ip)) (common-lisp:progn (common-lisp:defun update-instance @@ -13450,7 +13449,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-instance)) (common-lisp:progn (common-lisp:defun update-layer @@ -13479,7 +13478,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateLayer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-layer)) (common-lisp:progn (common-lisp:defun update-my-user-profile @@ -13496,7 +13495,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMyUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-my-user-profile)) (common-lisp:progn (common-lisp:defun update-rds-db-instance @@ -13514,7 +13513,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRdsDbInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rds-db-instance)) (common-lisp:progn (common-lisp:defun update-stack @@ -13543,7 +13542,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stack)) (common-lisp:progn (common-lisp:defun update-user-profile @@ -13563,7 +13562,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-profile)) (common-lisp:progn (common-lisp:defun update-volume @@ -13580,5 +13579,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-volume)) diff --git a/services/opsworkscm/api.lisp b/services/opsworkscm/api.lisp index b7901513..f2fe1551 100644 --- a/services/opsworkscm/api.lisp +++ b/services/opsworkscm/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/opsworkscm/api - (:use) - (:nicknames #:aws/opsworkscm) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/opsworkscm/api (:use) + (:nicknames #:aws/opsworkscm) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/opsworkscm/api) (common-lisp:progn (common-lisp:define-condition opsworkscm-error @@ -3242,7 +3241,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-node)) (common-lisp:progn (common-lisp:defun create-backup @@ -3259,7 +3258,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-backup)) (common-lisp:progn (common-lisp:defun create-server @@ -3289,7 +3288,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-server)) (common-lisp:progn (common-lisp:defun delete-backup @@ -3306,7 +3305,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBackup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-backup)) (common-lisp:progn (common-lisp:defun delete-server @@ -3323,7 +3322,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-server)) (common-lisp:progn (common-lisp:defun describe-account-attributes () @@ -3350,7 +3349,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBackups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-backups)) (common-lisp:progn (common-lisp:defun describe-events @@ -3368,7 +3367,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-node-association-status @@ -3388,7 +3387,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNodeAssociationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-node-association-status)) (common-lisp:progn (common-lisp:defun describe-servers @@ -3406,7 +3405,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-servers)) (common-lisp:progn (common-lisp:defun disassociate-node @@ -3424,7 +3423,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-node)) (common-lisp:progn (common-lisp:defun export-server-engine-attribute @@ -3444,7 +3443,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExportServerEngineAttribute")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-server-engine-attribute)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3462,7 +3461,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun restore-server @@ -3481,7 +3480,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-server)) (common-lisp:progn (common-lisp:defun start-maintenance @@ -3498,7 +3497,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMaintenance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-maintenance)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3515,7 +3514,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3532,7 +3531,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-server @@ -3553,7 +3552,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-server)) (common-lisp:progn (common-lisp:defun update-server-engine-attributes @@ -3573,5 +3572,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServerEngineAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-server-engine-attributes)) diff --git a/services/organizations/api.lisp b/services/organizations/api.lisp index 8689ec4a..7ab8566a 100644 --- a/services/organizations/api.lisp +++ b/services/organizations/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/organizations/api - (:use) - (:nicknames #:aws/organizations) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/organizations/api (:use) + (:nicknames #:aws/organizations) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/organizations/api) (common-lisp:progn (common-lisp:define-condition organizations-error @@ -6666,7 +6665,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptHandshake")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-handshake)) (common-lisp:progn (common-lisp:defun attach-policy @@ -6683,7 +6682,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-policy)) (common-lisp:progn (common-lisp:defun cancel-handshake @@ -6700,7 +6699,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelHandshake")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-handshake)) (common-lisp:progn (common-lisp:defun close-account @@ -6717,7 +6716,7 @@ aws-sdk/generator/operation::input "POST" "/" "CloseAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'close-account)) (common-lisp:progn (common-lisp:defun create-account @@ -6737,7 +6736,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-account)) (common-lisp:progn (common-lisp:defun create-gov-cloud-account @@ -6757,7 +6756,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGovCloudAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-gov-cloud-account)) (common-lisp:progn (common-lisp:defun create-organization @@ -6774,7 +6773,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-organization)) (common-lisp:progn (common-lisp:defun create-organizational-unit @@ -6792,7 +6791,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateOrganizationalUnit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-organizational-unit)) (common-lisp:progn (common-lisp:defun create-policy @@ -6810,7 +6809,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-policy)) (common-lisp:progn (common-lisp:defun decline-handshake @@ -6827,7 +6826,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeclineHandshake")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'decline-handshake)) (common-lisp:progn (common-lisp:defun delete-organization () @@ -6853,7 +6852,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteOrganizationalUnit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-organizational-unit)) (common-lisp:progn (common-lisp:defun delete-policy @@ -6870,7 +6869,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-policy)) (common-lisp:progn (common-lisp:defun delete-resource-policy () @@ -6896,7 +6895,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterDelegatedAdministrator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-delegated-administrator)) (common-lisp:progn (common-lisp:defun describe-account @@ -6913,7 +6912,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account)) (common-lisp:progn (common-lisp:defun describe-create-account-status @@ -6931,7 +6930,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCreateAccountStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-create-account-status)) (common-lisp:progn (common-lisp:defun describe-effective-policy @@ -6949,7 +6948,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEffectivePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-effective-policy)) (common-lisp:progn (common-lisp:defun describe-handshake @@ -6966,7 +6965,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHandshake")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-handshake)) (common-lisp:progn (common-lisp:defun describe-organization () @@ -6992,7 +6991,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrganizationalUnit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organizational-unit)) (common-lisp:progn (common-lisp:defun describe-policy @@ -7009,7 +7008,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-policy)) (common-lisp:progn (common-lisp:defun describe-resource-policy () @@ -7034,7 +7033,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-policy)) (common-lisp:progn (common-lisp:defun disable-awsservice-access @@ -7052,7 +7051,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableAWSServiceAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-awsservice-access)) (common-lisp:progn (common-lisp:defun disable-policy-type @@ -7069,7 +7068,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisablePolicyType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-policy-type)) (common-lisp:progn (common-lisp:defun enable-awsservice-access @@ -7086,7 +7085,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableAWSServiceAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-awsservice-access)) (common-lisp:progn (common-lisp:defun enable-all-features () @@ -7111,7 +7110,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnablePolicyType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-policy-type)) (common-lisp:progn (common-lisp:defun invite-account-to-organization @@ -7129,7 +7128,7 @@ aws-sdk/generator/operation::input "POST" "/" "InviteAccountToOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invite-account-to-organization)) (common-lisp:progn (common-lisp:defun leave-organization () @@ -7155,7 +7154,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAWSServiceAccessForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-awsservice-access-for-organization)) (common-lisp:progn (common-lisp:defun list-accounts @@ -7172,7 +7171,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accounts)) (common-lisp:progn (common-lisp:defun list-accounts-for-parent @@ -7190,7 +7189,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccountsForParent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accounts-for-parent)) (common-lisp:progn (common-lisp:defun list-children @@ -7209,7 +7208,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListChildren")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-children)) (common-lisp:progn (common-lisp:defun list-create-account-status @@ -7227,7 +7226,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCreateAccountStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-create-account-status)) (common-lisp:progn (common-lisp:defun list-delegated-administrators @@ -7246,7 +7245,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDelegatedAdministrators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-delegated-administrators)) (common-lisp:progn (common-lisp:defun list-delegated-services-for-account @@ -7265,7 +7264,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDelegatedServicesForAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-delegated-services-for-account)) (common-lisp:progn (common-lisp:defun list-handshakes-for-account @@ -7283,7 +7282,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListHandshakesForAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-handshakes-for-account)) (common-lisp:progn (common-lisp:defun list-handshakes-for-organization @@ -7301,7 +7300,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListHandshakesForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-handshakes-for-organization)) (common-lisp:progn (common-lisp:defun list-organizational-units-for-parent @@ -7320,7 +7319,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOrganizationalUnitsForParent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organizational-units-for-parent)) (common-lisp:progn (common-lisp:defun list-parents @@ -7338,7 +7337,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListParents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-parents)) (common-lisp:progn (common-lisp:defun list-policies @@ -7355,7 +7354,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policies)) (common-lisp:progn (common-lisp:defun list-policies-for-target @@ -7373,7 +7372,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPoliciesForTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policies-for-target)) (common-lisp:progn (common-lisp:defun list-roots @@ -7390,7 +7389,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRoots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-roots)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7407,7 +7406,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-targets-for-policy @@ -7425,7 +7424,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTargetsForPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-targets-for-policy)) (common-lisp:progn (common-lisp:defun move-account @@ -7444,7 +7443,7 @@ aws-sdk/generator/operation::input "POST" "/" "MoveAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'move-account)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -7461,7 +7460,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun register-delegated-administrator @@ -7479,7 +7478,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterDelegatedAdministrator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-delegated-administrator)) (common-lisp:progn (common-lisp:defun remove-account-from-organization @@ -7497,7 +7496,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveAccountFromOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-account-from-organization)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7514,7 +7513,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7531,7 +7530,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-organizational-unit @@ -7549,7 +7548,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateOrganizationalUnit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-organizational-unit)) (common-lisp:progn (common-lisp:defun update-policy @@ -7567,5 +7566,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-policy)) diff --git a/services/osis/api.lisp b/services/osis/api.lisp index 66129cc0..40f5d108 100644 --- a/services/osis/api.lisp +++ b/services/osis/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/osis/api - (:use) - (:nicknames #:aws/osis) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/osis/api (:use) + (:nicknames #:aws/osis) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/osis/api) (common-lisp:progn (common-lisp:define-condition osis-error @@ -20,7 +19,7 @@ (common-lisp:export 'osis-error)) (common-lisp:progn (common-lisp:defclass osis-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "osis" :api-version "2022-01-01" :host-prefix "osis" :signing-name @@ -2452,7 +2451,7 @@ "POST" "/2022-01-01/osis/createPipeline" "CreatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pipeline)) (common-lisp:progn (common-lisp:defun delete-pipeline @@ -2474,12 +2473,13 @@ (common-lisp:format common-lisp:nil "/2022-01-01/osis/deletePipeline/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "DeletePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pipeline)) (common-lisp:progn (common-lisp:defun get-pipeline @@ -2501,12 +2501,13 @@ (common-lisp:format common-lisp:nil "/2022-01-01/osis/getPipeline/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "GetPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pipeline)) (common-lisp:progn (common-lisp:defun get-pipeline-blueprint @@ -2528,12 +2529,13 @@ (common-lisp:format common-lisp:nil "/2022-01-01/osis/getPipelineBlueprint/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'blueprint-name)))) + 'blueprint-name) + common-lisp:t))) "GetPipelineBlueprint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pipeline-blueprint)) (common-lisp:progn (common-lisp:defun get-pipeline-change-progress @@ -2556,12 +2558,13 @@ (common-lisp:format common-lisp:nil "/2022-01-01/osis/getPipelineChangeProgress/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "GetPipelineChangeProgress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-pipeline-change-progress)) (common-lisp:progn (common-lisp:defun list-pipeline-blueprints () @@ -2588,7 +2591,7 @@ "GET" "/2022-01-01/osis/listPipelines" "ListPipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipelines)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2606,7 +2609,7 @@ "GET" "/2022-01-01/osis/listTagsForResource/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-pipeline @@ -2628,12 +2631,13 @@ (common-lisp:format common-lisp:nil "/2022-01-01/osis/startPipeline/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "StartPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-pipeline)) (common-lisp:progn (common-lisp:defun stop-pipeline @@ -2655,12 +2659,13 @@ (common-lisp:format common-lisp:nil "/2022-01-01/osis/stopPipeline/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "StopPipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-pipeline)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2678,7 +2683,7 @@ "POST" "/2022-01-01/osis/tagResource/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2696,7 +2701,7 @@ "POST" "/2022-01-01/osis/untagResource/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-pipeline @@ -2723,12 +2728,13 @@ (common-lisp:format common-lisp:nil "/2022-01-01/osis/updatePipeline/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pipeline-name)))) + 'pipeline-name) + common-lisp:t))) "UpdatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipeline)) (common-lisp:progn (common-lisp:defun validate-pipeline @@ -2746,5 +2752,5 @@ "POST" "/2022-01-01/osis/validatePipeline" "ValidatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-pipeline)) diff --git a/services/outposts/api.lisp b/services/outposts/api.lisp index 1e62ff74..c9ec7052 100644 --- a/services/outposts/api.lisp +++ b/services/outposts/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/outposts/api - (:use) - (:nicknames #:aws/outposts) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/outposts/api (:use) + (:nicknames #:aws/outposts) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/outposts/api) (common-lisp:progn (common-lisp:define-condition outposts-error @@ -20,7 +19,7 @@ (common-lisp:export 'outposts-error)) (common-lisp:progn (common-lisp:defclass outposts-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "outposts" :api-version "2019-12-03" :host-prefix "outposts" :signing-name @@ -4433,12 +4432,13 @@ (common-lisp:format common-lisp:nil "/orders/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'order-id)))) + 'order-id) + common-lisp:t))) "CancelOrder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-order)) (common-lisp:progn (common-lisp:defun create-order @@ -4458,7 +4458,7 @@ aws-sdk/generator/operation::input "POST" "/orders" "CreateOrder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-order)) (common-lisp:progn (common-lisp:defun create-outpost @@ -4479,7 +4479,7 @@ aws-sdk/generator/operation::input "POST" "/outposts" "CreateOutpost")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-outpost)) (common-lisp:progn (common-lisp:defun create-site @@ -4500,7 +4500,7 @@ aws-sdk/generator/operation::input "POST" "/sites" "CreateSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-site)) (common-lisp:progn (common-lisp:defun delete-outpost @@ -4522,12 +4522,13 @@ (common-lisp:format common-lisp:nil "/outposts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'outpost-id)))) + 'outpost-id) + common-lisp:t))) "DeleteOutpost")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-outpost)) (common-lisp:progn (common-lisp:defun delete-site @@ -4549,12 +4550,13 @@ (common-lisp:format common-lisp:nil "/sites/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'site-id)))) + 'site-id) + common-lisp:t))) "DeleteSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-site)) (common-lisp:progn (common-lisp:defun get-catalog-item @@ -4576,12 +4578,13 @@ (common-lisp:format common-lisp:nil "/catalog/item/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'catalog-item-id)))) + 'catalog-item-id) + common-lisp:t))) "GetCatalogItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-catalog-item)) (common-lisp:progn (common-lisp:defun get-connection @@ -4603,12 +4606,13 @@ (common-lisp:format common-lisp:nil "/connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connection-id)))) + 'connection-id) + common-lisp:t))) "GetConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connection)) (common-lisp:progn (common-lisp:defun get-order @@ -4630,12 +4634,13 @@ (common-lisp:format common-lisp:nil "/orders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'order-id)))) + 'order-id) + common-lisp:t))) "GetOrder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-order)) (common-lisp:progn (common-lisp:defun get-outpost @@ -4657,12 +4662,13 @@ (common-lisp:format common-lisp:nil "/outposts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'outpost-id)))) + 'outpost-id) + common-lisp:t))) "GetOutpost")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-outpost)) (common-lisp:progn (common-lisp:defun get-outpost-instance-types @@ -4685,12 +4691,13 @@ (common-lisp:format common-lisp:nil "/outposts/~A/instanceTypes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'outpost-id)))) + 'outpost-id) + common-lisp:t))) "GetOutpostInstanceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-outpost-instance-types)) (common-lisp:progn (common-lisp:defun get-site @@ -4712,12 +4719,13 @@ (common-lisp:format common-lisp:nil "/sites/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'site-id)))) + 'site-id) + common-lisp:t))) "GetSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-site)) (common-lisp:progn (common-lisp:defun get-site-address @@ -4739,12 +4747,13 @@ (common-lisp:format common-lisp:nil "/sites/~A/address" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'site-id)))) + 'site-id) + common-lisp:t))) "GetSiteAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-site-address)) (common-lisp:progn (common-lisp:defun list-assets @@ -4769,12 +4778,13 @@ (common-lisp:format common-lisp:nil "/outposts/~A/assets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'outpost-id)))) + 'outpost-id) + common-lisp:t))) "ListAssets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assets)) (common-lisp:progn (common-lisp:defun list-catalog-items @@ -4794,7 +4804,7 @@ aws-sdk/generator/operation::input "GET" "/catalog/items" "ListCatalogItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-catalog-items)) (common-lisp:progn (common-lisp:defun list-orders @@ -4813,7 +4823,7 @@ aws-sdk/generator/operation::input "GET" "/list-orders" "ListOrders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-orders)) (common-lisp:progn (common-lisp:defun list-outposts @@ -4834,7 +4844,7 @@ aws-sdk/generator/operation::input "GET" "/outposts" "ListOutposts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-outposts)) (common-lisp:progn (common-lisp:defun list-sites @@ -4857,7 +4867,7 @@ aws-sdk/generator/operation::input "GET" "/sites" "ListSites")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sites)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4879,12 +4889,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-connection @@ -4904,7 +4915,7 @@ aws-sdk/generator/operation::input "POST" "/connections" "StartConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-connection)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4926,12 +4937,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4953,12 +4965,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-outpost @@ -4983,12 +4996,13 @@ (common-lisp:format common-lisp:nil "/outposts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'outpost-id)))) + 'outpost-id) + common-lisp:t))) "UpdateOutpost")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-outpost)) (common-lisp:progn (common-lisp:defun update-site @@ -5010,12 +5024,13 @@ (common-lisp:format common-lisp:nil "/sites/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'site-id)))) + 'site-id) + common-lisp:t))) "UpdateSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-site)) (common-lisp:progn (common-lisp:defun update-site-address @@ -5037,12 +5052,13 @@ (common-lisp:format common-lisp:nil "/sites/~A/address" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'site-id)))) + 'site-id) + common-lisp:t))) "UpdateSiteAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-site-address)) (common-lisp:progn (common-lisp:defun update-site-rack-physical-properties @@ -5071,10 +5087,11 @@ (common-lisp:format common-lisp:nil "/sites/~A/rackPhysicalProperties" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'site-id)))) + 'site-id) + common-lisp:t))) "UpdateSiteRackPhysicalProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-site-rack-physical-properties)) diff --git a/services/panorama/api.lisp b/services/panorama/api.lisp index 21707b60..7a6c9554 100644 --- a/services/panorama/api.lisp +++ b/services/panorama/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/panorama/api - (:use) - (:nicknames #:aws/panorama) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/panorama/api (:use) + (:nicknames #:aws/panorama) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/panorama/api) (common-lisp:progn (common-lisp:define-condition panorama-error @@ -20,7 +19,7 @@ (common-lisp:export 'panorama-error)) (common-lisp:progn (common-lisp:defclass panorama-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "panorama" :api-version "2019-07-24" :host-prefix "panorama" :signing-name @@ -7861,7 +7860,7 @@ "POST" "/application-instances" "CreateApplicationInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application-instance)) (common-lisp:progn (common-lisp:defun create-job-for-devices @@ -7879,7 +7878,7 @@ aws-sdk/generator/operation::input "POST" "/jobs" "CreateJobForDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job-for-devices)) (common-lisp:progn (common-lisp:defun create-node-from-template-job @@ -7903,7 +7902,7 @@ "POST" "/packages/template-job" "CreateNodeFromTemplateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-node-from-template-job)) (common-lisp:progn (common-lisp:defun create-package @@ -7920,7 +7919,7 @@ aws-sdk/generator/operation::input "POST" "/packages" "CreatePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-package)) (common-lisp:progn (common-lisp:defun create-package-import-job @@ -7942,7 +7941,7 @@ "POST" "/packages/import-jobs" "CreatePackageImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-package-import-job)) (common-lisp:progn (common-lisp:defun delete-device @@ -7964,12 +7963,13 @@ (common-lisp:format common-lisp:nil "/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "DeleteDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device)) (common-lisp:progn (common-lisp:defun delete-package @@ -7991,12 +7991,13 @@ (common-lisp:format common-lisp:nil "/packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)))) + 'package-id) + common-lisp:t))) "DeletePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-package)) (common-lisp:progn (common-lisp:defun deregister-package-version @@ -8022,20 +8023,23 @@ (common-lisp:format common-lisp:nil "/packages/~A/versions/~A/patch/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)) - (quri.encode:url-encode + 'package-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-version)) - (quri.encode:url-encode + 'package-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'patch-version)))) + 'patch-version) + common-lisp:t))) "DeregisterPackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-package-version)) (common-lisp:progn (common-lisp:defun describe-application-instance @@ -8058,12 +8062,13 @@ (common-lisp:format common-lisp:nil "/application-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-instance-id)))) + 'application-instance-id) + common-lisp:t))) "DescribeApplicationInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-instance)) (common-lisp:progn (common-lisp:defun describe-application-instance-details @@ -8086,12 +8091,13 @@ (common-lisp:format common-lisp:nil "/application-instances/~A/details" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-instance-id)))) + 'application-instance-id) + common-lisp:t))) "DescribeApplicationInstanceDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-instance-details)) (common-lisp:progn (common-lisp:defun describe-device @@ -8113,12 +8119,13 @@ (common-lisp:format common-lisp:nil "/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "DescribeDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device)) (common-lisp:progn (common-lisp:defun describe-device-job @@ -8140,12 +8147,13 @@ (common-lisp:format common-lisp:nil "/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeDeviceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device-job)) (common-lisp:progn (common-lisp:defun describe-node @@ -8167,12 +8175,13 @@ (common-lisp:format common-lisp:nil "/nodes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'node-id)))) + 'node-id) + common-lisp:t))) "DescribeNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-node)) (common-lisp:progn (common-lisp:defun describe-node-from-template-job @@ -8195,12 +8204,13 @@ (common-lisp:format common-lisp:nil "/packages/template-job/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeNodeFromTemplateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-node-from-template-job)) (common-lisp:progn (common-lisp:defun describe-package @@ -8222,12 +8232,13 @@ (common-lisp:format common-lisp:nil "/packages/metadata/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)))) + 'package-id) + common-lisp:t))) "DescribePackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-package)) (common-lisp:progn (common-lisp:defun describe-package-import-job @@ -8250,12 +8261,13 @@ (common-lisp:format common-lisp:nil "/packages/import-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribePackageImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-package-import-job)) (common-lisp:progn (common-lisp:defun describe-package-version @@ -8280,16 +8292,18 @@ (common-lisp:format common-lisp:nil "/packages/metadata/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)) - (quri.encode:url-encode + 'package-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-version)))) + 'package-version) + common-lisp:t))) "DescribePackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-package-version)) (common-lisp:progn (common-lisp:defun list-application-instance-dependencies @@ -8314,12 +8328,13 @@ (common-lisp:format common-lisp:nil "/application-instances/~A/package-dependencies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-instance-id)))) + 'application-instance-id) + common-lisp:t))) "ListApplicationInstanceDependencies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-instance-dependencies)) (common-lisp:progn (common-lisp:defun list-application-instance-node-instances @@ -8344,12 +8359,13 @@ (common-lisp:format common-lisp:nil "/application-instances/~A/node-instances" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-instance-id)))) + 'application-instance-id) + common-lisp:t))) "ListApplicationInstanceNodeInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-instance-node-instances)) (common-lisp:progn (common-lisp:defun list-application-instances @@ -8370,7 +8386,7 @@ "GET" "/application-instances" "ListApplicationInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-instances)) (common-lisp:progn (common-lisp:defun list-devices @@ -8390,7 +8406,7 @@ aws-sdk/generator/operation::input "GET" "/devices" "ListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices)) (common-lisp:progn (common-lisp:defun list-devices-jobs @@ -8408,7 +8424,7 @@ aws-sdk/generator/operation::input "GET" "/jobs" "ListDevicesJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices-jobs)) (common-lisp:progn (common-lisp:defun list-node-from-template-jobs @@ -8427,7 +8443,7 @@ "GET" "/packages/template-job" "ListNodeFromTemplateJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-node-from-template-jobs)) (common-lisp:progn (common-lisp:defun list-nodes @@ -8447,7 +8463,7 @@ aws-sdk/generator/operation::input "GET" "/nodes" "ListNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-nodes)) (common-lisp:progn (common-lisp:defun list-package-import-jobs @@ -8465,7 +8481,7 @@ "GET" "/packages/import-jobs" "ListPackageImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-package-import-jobs)) (common-lisp:progn (common-lisp:defun list-packages @@ -8482,7 +8498,7 @@ aws-sdk/generator/operation::input "GET" "/packages" "ListPackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-packages)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8504,12 +8520,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun provision-device @@ -8528,7 +8545,7 @@ aws-sdk/generator/operation::input "POST" "/devices" "ProvisionDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'provision-device)) (common-lisp:progn (common-lisp:defun register-package-version @@ -8553,20 +8570,23 @@ (common-lisp:format common-lisp:nil "/packages/~A/versions/~A/patch/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-id)) - (quri.encode:url-encode + 'package-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'package-version)) - (quri.encode:url-encode + 'package-version) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'patch-version)))) + 'patch-version) + common-lisp:t))) "RegisterPackageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-package-version)) (common-lisp:progn (common-lisp:defun remove-application-instance @@ -8589,12 +8609,13 @@ (common-lisp:format common-lisp:nil "/application-instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-instance-id)))) + 'application-instance-id) + common-lisp:t))) "RemoveApplicationInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-application-instance)) (common-lisp:progn (common-lisp:defun signal-application-instance-node-instances @@ -8618,12 +8639,13 @@ (common-lisp:format common-lisp:nil "/application-instances/~A/node-signals" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-instance-id)))) + 'application-instance-id) + common-lisp:t))) "SignalApplicationInstanceNodeInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'signal-application-instance-node-instances)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8645,12 +8667,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8672,12 +8695,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-device-metadata @@ -8699,10 +8723,11 @@ (common-lisp:format common-lisp:nil "/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-id)))) + 'device-id) + common-lisp:t))) "UpdateDeviceMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device-metadata)) diff --git a/services/payment-cryptography-data/api.lisp b/services/payment-cryptography-data/api.lisp index e0aedc7f..5c3f12e3 100644 --- a/services/payment-cryptography-data/api.lisp +++ b/services/payment-cryptography-data/api.lisp @@ -1,17 +1,17 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/payment-cryptography-data/api - (:use) - (:nicknames #:aws/payment-cryptography-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/payment-cryptography-data/api + (:use) + (:nicknames #:aws/payment-cryptography-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/payment-cryptography-data/api) (common-lisp:progn (common-lisp:define-condition payment-cryptography-data-error @@ -20,7 +20,7 @@ (common-lisp:export 'payment-cryptography-data-error)) (common-lisp:progn (common-lisp:defclass payment-cryptography-data-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "payment-cryptography-data" :api-version "2022-02-03" :host-prefix @@ -5453,12 +5453,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/keys/~A/decrypt" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-identifier)))) + 'key-identifier) + common-lisp:t))) "DecryptData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'decrypt-data)) (common-lisp:progn (common-lisp:defun encrypt-data @@ -5478,12 +5479,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/keys/~A/encrypt" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'key-identifier)))) + 'key-identifier) + common-lisp:t))) "EncryptData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'encrypt-data)) (common-lisp:progn (common-lisp:defun generate-card-validation-data @@ -5503,7 +5505,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-data-request aws-sdk/generator/operation::input "POST" "/cardvalidationdata/generate" "GenerateCardValidationData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-card-validation-data)) (common-lisp:progn (common-lisp:defun generate-mac @@ -5522,7 +5524,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-data-request aws-sdk/generator/operation::input "POST" "/mac/generate" "GenerateMac")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-mac)) (common-lisp:progn (common-lisp:defun generate-pin-data @@ -5543,7 +5545,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-data-request aws-sdk/generator/operation::input "POST" "/pindata/generate" "GeneratePinData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-pin-data)) (common-lisp:progn (common-lisp:defun re-encrypt-data @@ -5566,12 +5568,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/keys/~A/reencrypt" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'incoming-key-identifier)))) + 'incoming-key-identifier) + common-lisp:t))) "ReEncryptData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 're-encrypt-data)) (common-lisp:progn (common-lisp:defun translate-pin-data @@ -5594,7 +5597,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-data-request aws-sdk/generator/operation::input "POST" "/pindata/translate" "TranslatePinData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'translate-pin-data)) (common-lisp:progn (common-lisp:defun verify-auth-request-cryptogram @@ -5617,7 +5620,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-data-request aws-sdk/generator/operation::input "POST" "/cryptogram/verify" "VerifyAuthRequestCryptogram")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-auth-request-cryptogram)) (common-lisp:progn (common-lisp:defun verify-card-validation-data @@ -5637,7 +5640,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-data-request aws-sdk/generator/operation::input "POST" "/cardvalidationdata/verify" "VerifyCardValidationData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-card-validation-data)) (common-lisp:progn (common-lisp:defun verify-mac @@ -5656,7 +5659,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-data-request aws-sdk/generator/operation::input "POST" "/mac/verify" "VerifyMac")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-mac)) (common-lisp:progn (common-lisp:defun verify-pin-data @@ -5679,5 +5682,5 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-data-request aws-sdk/generator/operation::input "POST" "/pindata/verify" "VerifyPinData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-pin-data)) diff --git a/services/payment-cryptography/api.lisp b/services/payment-cryptography/api.lisp index 544a1339..2d5ec42d 100644 --- a/services/payment-cryptography/api.lisp +++ b/services/payment-cryptography/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/payment-cryptography/api - (:use) - (:nicknames #:aws/payment-cryptography) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/payment-cryptography/api (:use) + (:nicknames #:aws/payment-cryptography) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/payment-cryptography/api) (common-lisp:progn (common-lisp:define-condition payment-cryptography-error @@ -3499,7 +3498,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "CreateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alias)) (common-lisp:progn (common-lisp:defun create-key @@ -3518,7 +3517,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "CreateKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-key)) (common-lisp:progn (common-lisp:defun delete-alias @@ -3534,7 +3533,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "DeleteAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alias)) (common-lisp:progn (common-lisp:defun delete-key @@ -3551,7 +3550,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "DeleteKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-key)) (common-lisp:progn (common-lisp:defun export-key @@ -3570,7 +3569,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "ExportKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-key)) (common-lisp:progn (common-lisp:defun get-alias @@ -3586,7 +3585,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "GetAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-alias)) (common-lisp:progn (common-lisp:defun get-key @@ -3602,7 +3601,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "GetKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-key)) (common-lisp:progn (common-lisp:defun get-parameters-for-export @@ -3619,7 +3618,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "GetParametersForExport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-parameters-for-export)) (common-lisp:progn (common-lisp:defun get-parameters-for-import @@ -3636,7 +3635,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "GetParametersForImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-parameters-for-import)) (common-lisp:progn (common-lisp:defun get-public-key-certificate @@ -3652,7 +3651,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "GetPublicKeyCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-public-key-certificate)) (common-lisp:progn (common-lisp:defun import-key @@ -3671,7 +3670,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "ImportKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-key)) (common-lisp:progn (common-lisp:defun list-aliases @@ -3687,7 +3686,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "ListAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-aliases)) (common-lisp:progn (common-lisp:defun list-keys @@ -3704,7 +3703,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "ListKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-keys)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3721,7 +3720,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun restore-key @@ -3737,7 +3736,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "RestoreKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-key)) (common-lisp:progn (common-lisp:defun start-key-usage @@ -3753,7 +3752,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "StartKeyUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-key-usage)) (common-lisp:progn (common-lisp:defun stop-key-usage @@ -3769,7 +3768,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "StopKeyUsage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-key-usage)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3785,7 +3784,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3801,7 +3800,7 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-alias @@ -3817,5 +3816,5 @@ (aws-sdk/generator/shape:make-request-with-input 'payment-cryptography-request aws-sdk/generator/operation::input "POST" "/" "UpdateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-alias)) diff --git a/services/pca-connector-ad/api.lisp b/services/pca-connector-ad/api.lisp index 13075742..5a8e9268 100644 --- a/services/pca-connector-ad/api.lisp +++ b/services/pca-connector-ad/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/pca-connector-ad/api - (:use) - (:nicknames #:aws/pca-connector-ad) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/pca-connector-ad/api (:use) + (:nicknames #:aws/pca-connector-ad) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/pca-connector-ad/api) (common-lisp:progn (common-lisp:define-condition pca-connector-ad-error @@ -20,7 +19,7 @@ (common-lisp:export 'pca-connector-ad-error)) (common-lisp:progn (common-lisp:defclass pca-connector-ad-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "pca-connector-ad" :api-version "2018-05-10" :host-prefix @@ -5956,7 +5955,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pca-connector-ad-request aws-sdk/generator/operation::input "POST" "/connectors" "CreateConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connector)) (common-lisp:progn (common-lisp:defun create-directory-registration @@ -5973,7 +5972,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pca-connector-ad-request aws-sdk/generator/operation::input "POST" "/directoryRegistrations" "CreateDirectoryRegistration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-directory-registration)) (common-lisp:progn (common-lisp:defun create-service-principal-name @@ -5995,16 +5994,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/directoryRegistrations/~A/servicePrincipalNames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'directory-registration-arn)) - (quri.encode:url-encode + 'directory-registration-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-arn)))) + 'connector-arn) + common-lisp:t))) "CreateServicePrincipalName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-principal-name)) (common-lisp:progn (common-lisp:defun create-template @@ -6022,7 +6023,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pca-connector-ad-request aws-sdk/generator/operation::input "POST" "/templates" "CreateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-template)) (common-lisp:progn (common-lisp:defun create-template-group-access-control-entry @@ -6044,12 +6045,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A/accessControlEntries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "CreateTemplateGroupAccessControlEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-template-group-access-control-entry)) (common-lisp:progn (common-lisp:defun delete-connector @@ -6066,12 +6068,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-arn)))) + 'connector-arn) + common-lisp:t))) "DeleteConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connector)) (common-lisp:progn (common-lisp:defun delete-directory-registration @@ -6089,12 +6092,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/directoryRegistrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'directory-registration-arn)))) + 'directory-registration-arn) + common-lisp:t))) "DeleteDirectoryRegistration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-directory-registration)) (common-lisp:progn (common-lisp:defun delete-service-principal-name @@ -6114,16 +6118,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/directoryRegistrations/~A/servicePrincipalNames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'directory-registration-arn)) - (quri.encode:url-encode + 'directory-registration-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-arn)))) + 'connector-arn) + common-lisp:t))) "DeleteServicePrincipalName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-principal-name)) (common-lisp:progn (common-lisp:defun delete-template @@ -6140,12 +6146,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "DeleteTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-template)) (common-lisp:progn (common-lisp:defun delete-template-group-access-control-entry @@ -6165,16 +6172,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A/accessControlEntries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-security-identifier)))) + 'group-security-identifier) + common-lisp:t))) "DeleteTemplateGroupAccessControlEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-template-group-access-control-entry)) (common-lisp:progn (common-lisp:defun get-connector @@ -6191,12 +6200,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/connectors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-arn)))) + 'connector-arn) + common-lisp:t))) "GetConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connector)) (common-lisp:progn (common-lisp:defun get-directory-registration @@ -6214,12 +6224,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/directoryRegistrations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'directory-registration-arn)))) + 'directory-registration-arn) + common-lisp:t))) "GetDirectoryRegistration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-directory-registration)) (common-lisp:progn (common-lisp:defun get-service-principal-name @@ -6239,16 +6250,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/directoryRegistrations/~A/servicePrincipalNames/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'directory-registration-arn)) - (quri.encode:url-encode + 'directory-registration-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'connector-arn)))) + 'connector-arn) + common-lisp:t))) "GetServicePrincipalName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-principal-name)) (common-lisp:progn (common-lisp:defun get-template @@ -6265,12 +6278,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "GetTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-template)) (common-lisp:progn (common-lisp:defun get-template-group-access-control-entry @@ -6290,16 +6304,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A/accessControlEntries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-security-identifier)))) + 'group-security-identifier) + common-lisp:t))) "GetTemplateGroupAccessControlEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-template-group-access-control-entry)) (common-lisp:progn (common-lisp:defun list-connectors @@ -6315,7 +6331,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pca-connector-ad-request aws-sdk/generator/operation::input "GET" "/connectors" "ListConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connectors)) (common-lisp:progn (common-lisp:defun list-directory-registrations @@ -6332,7 +6348,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pca-connector-ad-request aws-sdk/generator/operation::input "GET" "/directoryRegistrations" "ListDirectoryRegistrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-directory-registrations)) (common-lisp:progn (common-lisp:defun list-service-principal-names @@ -6353,12 +6369,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/directoryRegistrations/~A/servicePrincipalNames" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'directory-registration-arn)))) + 'directory-registration-arn) + common-lisp:t))) "ListServicePrincipalNames")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-principal-names)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6375,12 +6392,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-template-group-access-control-entries @@ -6400,12 +6418,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A/accessControlEntries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "ListTemplateGroupAccessControlEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-template-group-access-control-entries)) (common-lisp:progn (common-lisp:defun list-templates @@ -6422,7 +6441,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pca-connector-ad-request aws-sdk/generator/operation::input "GET" "/templates" "ListTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-templates)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6439,12 +6458,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6461,12 +6481,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-template @@ -6486,12 +6507,13 @@ 'pca-connector-ad-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "UpdateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template)) (common-lisp:progn (common-lisp:defun update-template-group-access-control-entry @@ -6513,14 +6535,16 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/~A/accessControlEntries/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-security-identifier)))) + 'group-security-identifier) + common-lisp:t))) "UpdateTemplateGroupAccessControlEntry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template-group-access-control-entry)) diff --git a/services/personalize-events/api.lisp b/services/personalize-events/api.lisp index 3a1db4cb..eed5527f 100644 --- a/services/personalize-events/api.lisp +++ b/services/personalize-events/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/personalize-events/api - (:use) - (:nicknames #:aws/personalize-events) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/personalize-events/api (:use) + (:nicknames #:aws/personalize-events) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/personalize-events/api) (common-lisp:progn (common-lisp:define-condition personalize-events-error @@ -20,7 +19,7 @@ (common-lisp:export 'personalize-events-error)) (common-lisp:progn (common-lisp:defclass personalize-events-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "personalize-events" :api-version "2018-03-22" :host-prefix @@ -824,7 +823,7 @@ (aws-sdk/generator/shape:make-request-with-input 'personalize-events-request aws-sdk/generator/operation::input "POST" "/action-interactions" "PutActionInteractions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-action-interactions)) (common-lisp:progn (common-lisp:defun put-actions @@ -840,7 +839,7 @@ (aws-sdk/generator/shape:make-request-with-input 'personalize-events-request aws-sdk/generator/operation::input "POST" "/actions" "PutActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-actions)) (common-lisp:progn (common-lisp:defun put-events @@ -858,7 +857,7 @@ (aws-sdk/generator/shape:make-request-with-input 'personalize-events-request aws-sdk/generator/operation::input "POST" "/events" "PutEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-events)) (common-lisp:progn (common-lisp:defun put-items @@ -874,7 +873,7 @@ (aws-sdk/generator/shape:make-request-with-input 'personalize-events-request aws-sdk/generator/operation::input "POST" "/items" "PutItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-items)) (common-lisp:progn (common-lisp:defun put-users @@ -890,5 +889,5 @@ (aws-sdk/generator/shape:make-request-with-input 'personalize-events-request aws-sdk/generator/operation::input "POST" "/users" "PutUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-users)) diff --git a/services/personalize-runtime/api.lisp b/services/personalize-runtime/api.lisp index 7c79dbc2..f3803c69 100644 --- a/services/personalize-runtime/api.lisp +++ b/services/personalize-runtime/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/personalize-runtime/api - (:use) - (:nicknames #:aws/personalize-runtime) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/personalize-runtime/api (:use) + (:nicknames #:aws/personalize-runtime) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/personalize-runtime/api) (common-lisp:progn (common-lisp:define-condition personalize-runtime-error @@ -20,7 +19,7 @@ (common-lisp:export 'personalize-runtime-error)) (common-lisp:progn (common-lisp:defclass personalize-runtime-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "personalize-runtime" :api-version "2018-05-22" :host-prefix @@ -856,7 +855,7 @@ (aws-sdk/generator/shape:make-request-with-input 'personalize-runtime-request aws-sdk/generator/operation::input "POST" "/action-recommendations" "GetActionRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-action-recommendations)) (common-lisp:progn (common-lisp:defun get-personalized-ranking @@ -875,7 +874,7 @@ (aws-sdk/generator/shape:make-request-with-input 'personalize-runtime-request aws-sdk/generator/operation::input "POST" "/personalize-ranking" "GetPersonalizedRanking")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-personalized-ranking)) (common-lisp:progn (common-lisp:defun get-recommendations @@ -895,5 +894,5 @@ (aws-sdk/generator/shape:make-request-with-input 'personalize-runtime-request aws-sdk/generator/operation::input "POST" "/recommendations" "GetRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendations)) diff --git a/services/personalize/api.lisp b/services/personalize/api.lisp index 3c2b4c1e..257eaaa2 100644 --- a/services/personalize/api.lisp +++ b/services/personalize/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/personalize/api - (:use) - (:nicknames #:aws/personalize) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/personalize/api (:use) + (:nicknames #:aws/personalize) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/personalize/api) (common-lisp:progn (common-lisp:define-condition personalize-error @@ -13074,7 +13073,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBatchInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-batch-inference-job)) (common-lisp:progn (common-lisp:defun create-batch-segment-job @@ -13094,7 +13093,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBatchSegmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-batch-segment-job)) (common-lisp:progn (common-lisp:defun create-campaign @@ -13114,7 +13113,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-campaign)) (common-lisp:progn (common-lisp:defun create-dataset @@ -13134,7 +13133,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-dataset-export-job @@ -13155,7 +13154,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDatasetExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset-export-job)) (common-lisp:progn (common-lisp:defun create-dataset-group @@ -13173,7 +13172,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDatasetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset-group)) (common-lisp:progn (common-lisp:defun create-dataset-import-job @@ -13194,7 +13193,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDatasetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset-import-job)) (common-lisp:progn (common-lisp:defun create-event-tracker @@ -13211,7 +13210,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventTracker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-tracker)) (common-lisp:progn (common-lisp:defun create-filter @@ -13230,7 +13229,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-filter)) (common-lisp:progn (common-lisp:defun create-metric-attribution @@ -13251,7 +13250,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMetricAttribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-metric-attribution)) (common-lisp:progn (common-lisp:defun create-recommender @@ -13271,7 +13270,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRecommender")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-recommender)) (common-lisp:progn (common-lisp:defun create-schema @@ -13288,7 +13287,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-schema)) (common-lisp:progn (common-lisp:defun create-solution @@ -13309,7 +13308,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSolution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-solution)) (common-lisp:progn (common-lisp:defun create-solution-version @@ -13327,7 +13326,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSolutionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-solution-version)) (common-lisp:progn (common-lisp:defun delete-campaign @@ -13344,7 +13343,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-campaign)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -13361,7 +13360,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun delete-dataset-group @@ -13378,7 +13377,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDatasetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset-group)) (common-lisp:progn (common-lisp:defun delete-event-tracker @@ -13395,7 +13394,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventTracker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-tracker)) (common-lisp:progn (common-lisp:defun delete-filter @@ -13412,7 +13411,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-filter)) (common-lisp:progn (common-lisp:defun delete-metric-attribution @@ -13430,7 +13429,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMetricAttribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-metric-attribution)) (common-lisp:progn (common-lisp:defun delete-recommender @@ -13447,7 +13446,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRecommender")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recommender)) (common-lisp:progn (common-lisp:defun delete-schema @@ -13464,7 +13463,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schema)) (common-lisp:progn (common-lisp:defun delete-solution @@ -13481,7 +13480,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSolution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-solution)) (common-lisp:progn (common-lisp:defun describe-algorithm @@ -13498,7 +13497,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAlgorithm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-algorithm)) (common-lisp:progn (common-lisp:defun describe-batch-inference-job @@ -13516,7 +13515,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBatchInferenceJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-batch-inference-job)) (common-lisp:progn (common-lisp:defun describe-batch-segment-job @@ -13534,7 +13533,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBatchSegmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-batch-segment-job)) (common-lisp:progn (common-lisp:defun describe-campaign @@ -13551,7 +13550,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-campaign)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -13568,7 +13567,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-dataset-export-job @@ -13586,7 +13585,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDatasetExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset-export-job)) (common-lisp:progn (common-lisp:defun describe-dataset-group @@ -13603,7 +13602,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDatasetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset-group)) (common-lisp:progn (common-lisp:defun describe-dataset-import-job @@ -13621,7 +13620,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDatasetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset-import-job)) (common-lisp:progn (common-lisp:defun describe-event-tracker @@ -13638,7 +13637,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventTracker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-event-tracker)) (common-lisp:progn (common-lisp:defun describe-feature-transformation @@ -13656,7 +13655,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFeatureTransformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-feature-transformation)) (common-lisp:progn (common-lisp:defun describe-filter @@ -13673,7 +13672,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-filter)) (common-lisp:progn (common-lisp:defun describe-metric-attribution @@ -13691,7 +13690,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMetricAttribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-metric-attribution)) (common-lisp:progn (common-lisp:defun describe-recipe @@ -13708,7 +13707,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRecipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recipe)) (common-lisp:progn (common-lisp:defun describe-recommender @@ -13725,7 +13724,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRecommender")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-recommender)) (common-lisp:progn (common-lisp:defun describe-schema @@ -13742,7 +13741,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-schema)) (common-lisp:progn (common-lisp:defun describe-solution @@ -13759,7 +13758,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSolution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-solution)) (common-lisp:progn (common-lisp:defun describe-solution-version @@ -13777,7 +13776,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSolutionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-solution-version)) (common-lisp:progn (common-lisp:defun get-solution-metrics @@ -13794,7 +13793,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSolutionMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-solution-metrics)) (common-lisp:progn (common-lisp:defun list-batch-inference-jobs @@ -13814,7 +13813,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBatchInferenceJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-batch-inference-jobs)) (common-lisp:progn (common-lisp:defun list-batch-segment-jobs @@ -13833,7 +13832,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBatchSegmentJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-batch-segment-jobs)) (common-lisp:progn (common-lisp:defun list-campaigns @@ -13851,7 +13850,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCampaigns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-campaigns)) (common-lisp:progn (common-lisp:defun list-dataset-export-jobs @@ -13869,7 +13868,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasetExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-export-jobs)) (common-lisp:progn (common-lisp:defun list-dataset-groups @@ -13886,7 +13885,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasetGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-groups)) (common-lisp:progn (common-lisp:defun list-dataset-import-jobs @@ -13904,7 +13903,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasetImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-import-jobs)) (common-lisp:progn (common-lisp:defun list-datasets @@ -13922,7 +13921,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-datasets)) (common-lisp:progn (common-lisp:defun list-event-trackers @@ -13940,7 +13939,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEventTrackers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-event-trackers)) (common-lisp:progn (common-lisp:defun list-filters @@ -13958,7 +13957,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFilters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-filters)) (common-lisp:progn (common-lisp:defun list-metric-attribution-metrics @@ -13978,7 +13977,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMetricAttributionMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-metric-attribution-metrics)) (common-lisp:progn (common-lisp:defun list-metric-attributions @@ -13996,7 +13995,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMetricAttributions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-metric-attributions)) (common-lisp:progn (common-lisp:defun list-recipes @@ -14015,7 +14014,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRecipes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recipes)) (common-lisp:progn (common-lisp:defun list-recommenders @@ -14033,7 +14032,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRecommenders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommenders)) (common-lisp:progn (common-lisp:defun list-schemas @@ -14050,7 +14049,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schemas)) (common-lisp:progn (common-lisp:defun list-solution-versions @@ -14068,7 +14067,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSolutionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-solution-versions)) (common-lisp:progn (common-lisp:defun list-solutions @@ -14086,7 +14085,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSolutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-solutions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14103,7 +14102,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-recommender @@ -14120,7 +14119,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartRecommender")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-recommender)) (common-lisp:progn (common-lisp:defun stop-recommender @@ -14137,7 +14136,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopRecommender")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-recommender)) (common-lisp:progn (common-lisp:defun stop-solution-version-creation @@ -14155,7 +14154,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopSolutionVersionCreation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-solution-version-creation)) (common-lisp:progn (common-lisp:defun tag-resource @@ -14172,7 +14171,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14189,7 +14188,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-campaign @@ -14209,7 +14208,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-campaign)) (common-lisp:progn (common-lisp:defun update-dataset @@ -14226,7 +14225,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dataset)) (common-lisp:progn (common-lisp:defun update-metric-attribution @@ -14247,7 +14246,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMetricAttribution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-metric-attribution)) (common-lisp:progn (common-lisp:defun update-recommender @@ -14265,5 +14264,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRecommender")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-recommender)) diff --git a/services/pi/api.lisp b/services/pi/api.lisp index cdc84b90..ac171bc1 100644 --- a/services/pi/api.lisp +++ b/services/pi/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/pi/api - (:use) - (:nicknames #:aws/pi) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/pi/api (:use) + (:nicknames #:aws/pi) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/pi/api) (common-lisp:progn (common-lisp:define-condition pi-error @@ -3413,7 +3412,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePerformanceAnalysisReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-performance-analysis-report)) (common-lisp:progn (common-lisp:defun delete-performance-analysis-report @@ -3433,7 +3432,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePerformanceAnalysisReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-performance-analysis-report)) (common-lisp:progn (common-lisp:defun describe-dimension-keys @@ -3456,7 +3455,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDimensionKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dimension-keys)) (common-lisp:progn (common-lisp:defun get-dimension-key-details @@ -3477,7 +3476,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDimensionKeyDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dimension-key-details)) (common-lisp:progn (common-lisp:defun get-performance-analysis-report @@ -3498,7 +3497,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPerformanceAnalysisReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-performance-analysis-report)) (common-lisp:progn (common-lisp:defun get-resource-metadata @@ -3515,7 +3514,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourceMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-metadata)) (common-lisp:progn (common-lisp:defun get-resource-metrics @@ -3536,7 +3535,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourceMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-metrics)) (common-lisp:progn (common-lisp:defun list-available-resource-dimensions @@ -3557,7 +3556,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAvailableResourceDimensions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-available-resource-dimensions)) (common-lisp:progn (common-lisp:defun list-available-resource-metrics @@ -3578,7 +3577,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAvailableResourceMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-available-resource-metrics)) (common-lisp:progn (common-lisp:defun list-performance-analysis-reports @@ -3599,7 +3598,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPerformanceAnalysisReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-performance-analysis-reports)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3616,7 +3615,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3633,7 +3632,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3651,5 +3650,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/pinpoint-email/api.lisp b/services/pinpoint-email/api.lisp index f9a6d913..0cf5aeca 100644 --- a/services/pinpoint-email/api.lisp +++ b/services/pinpoint-email/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/pinpoint-email/api - (:use) - (:nicknames #:aws/pinpoint-email) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/pinpoint-email/api (:use) + (:nicknames #:aws/pinpoint-email) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/pinpoint-email/api) (common-lisp:progn (common-lisp:define-condition pinpoint-email-error @@ -20,7 +19,7 @@ (common-lisp:export 'pinpoint-email-error)) (common-lisp:progn (common-lisp:defclass pinpoint-email-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "pinpoint-email" :api-version "2018-07-26" :host-prefix "email" @@ -6463,7 +6462,7 @@ "POST" "/v1/email/configuration-sets" "CreateConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-set)) (common-lisp:progn (common-lisp:defun create-configuration-set-event-destination @@ -6489,12 +6488,13 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A/event-destinations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "CreateConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun create-dedicated-ip-pool @@ -6512,7 +6512,7 @@ "POST" "/v1/email/dedicated-ip-pools" "CreateDedicatedIpPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dedicated-ip-pool)) (common-lisp:progn (common-lisp:defun create-deliverability-test-report @@ -6533,7 +6533,7 @@ "POST" "/v1/email/deliverability-dashboard/test" "CreateDeliverabilityTestReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deliverability-test-report)) (common-lisp:progn (common-lisp:defun create-email-identity @@ -6551,7 +6551,7 @@ "POST" "/v1/email/identities" "CreateEmailIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-email-identity)) (common-lisp:progn (common-lisp:defun delete-configuration-set @@ -6573,12 +6573,13 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "DeleteConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-set)) (common-lisp:progn (common-lisp:defun delete-configuration-set-event-destination @@ -6603,16 +6604,18 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A/event-destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)) - (quri.encode:url-encode + 'configuration-set-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-destination-name)))) + 'event-destination-name) + common-lisp:t))) "DeleteConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun delete-dedicated-ip-pool @@ -6634,12 +6637,13 @@ (common-lisp:format common-lisp:nil "/v1/email/dedicated-ip-pools/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pool-name)))) + 'pool-name) + common-lisp:t))) "DeleteDedicatedIpPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dedicated-ip-pool)) (common-lisp:progn (common-lisp:defun delete-email-identity @@ -6661,12 +6665,13 @@ (common-lisp:format common-lisp:nil "/v1/email/identities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "DeleteEmailIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-email-identity)) (common-lisp:progn (common-lisp:defun get-account () @@ -6692,7 +6697,7 @@ "GET" "/v1/email/deliverability-dashboard/blacklist-report" "GetBlacklistReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-blacklist-reports)) (common-lisp:progn (common-lisp:defun get-configuration-set @@ -6714,12 +6719,13 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "GetConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration-set)) (common-lisp:progn (common-lisp:defun get-configuration-set-event-destinations @@ -6742,12 +6748,13 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A/event-destinations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "GetConfigurationSetEventDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration-set-event-destinations)) (common-lisp:progn (common-lisp:defun get-dedicated-ip @@ -6769,12 +6776,13 @@ (common-lisp:format common-lisp:nil "/v1/email/dedicated-ips/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip)))) + 'ip) + common-lisp:t))) "GetDedicatedIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dedicated-ip)) (common-lisp:progn (common-lisp:defun get-dedicated-ips @@ -6792,7 +6800,7 @@ "GET" "/v1/email/dedicated-ips" "GetDedicatedIps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dedicated-ips)) (common-lisp:progn (common-lisp:defun get-deliverability-dashboard-options () @@ -6824,12 +6832,13 @@ (common-lisp:format common-lisp:nil "/v1/email/deliverability-dashboard/test-reports/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'report-id)))) + 'report-id) + common-lisp:t))) "GetDeliverabilityTestReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deliverability-test-report)) (common-lisp:progn (common-lisp:defun get-domain-deliverability-campaign @@ -6852,12 +6861,13 @@ (common-lisp:format common-lisp:nil "/v1/email/deliverability-dashboard/campaigns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)))) + 'campaign-id) + common-lisp:t))) "GetDomainDeliverabilityCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-deliverability-campaign)) (common-lisp:progn (common-lisp:defun get-domain-statistics-report @@ -6880,12 +6890,13 @@ (common-lisp:format common-lisp:nil "/v1/email/deliverability-dashboard/statistics-report/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain)))) + 'domain) + common-lisp:t))) "GetDomainStatisticsReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-statistics-report)) (common-lisp:progn (common-lisp:defun get-email-identity @@ -6907,12 +6918,13 @@ (common-lisp:format common-lisp:nil "/v1/email/identities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "GetEmailIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-email-identity)) (common-lisp:progn (common-lisp:defun list-configuration-sets @@ -6930,7 +6942,7 @@ "GET" "/v1/email/configuration-sets" "ListConfigurationSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-sets)) (common-lisp:progn (common-lisp:defun list-dedicated-ip-pools @@ -6948,7 +6960,7 @@ "GET" "/v1/email/dedicated-ip-pools" "ListDedicatedIpPools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dedicated-ip-pools)) (common-lisp:progn (common-lisp:defun list-deliverability-test-reports @@ -6967,7 +6979,7 @@ "GET" "/v1/email/deliverability-dashboard/test-reports" "ListDeliverabilityTestReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deliverability-test-reports)) (common-lisp:progn (common-lisp:defun list-domain-deliverability-campaigns @@ -6993,12 +7005,13 @@ (common-lisp:format common-lisp:nil "/v1/email/deliverability-dashboard/domains/~A/campaigns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscribed-domain)))) + 'subscribed-domain) + common-lisp:t))) "ListDomainDeliverabilityCampaigns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domain-deliverability-campaigns)) (common-lisp:progn (common-lisp:defun list-email-identities @@ -7016,7 +7029,7 @@ "GET" "/v1/email/identities" "ListEmailIdentities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-email-identities)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7033,7 +7046,7 @@ aws-sdk/generator/operation::input "GET" "/v1/email/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-account-dedicated-ip-warmup-attributes @@ -7052,7 +7065,7 @@ "PUT" "/v1/email/account/dedicated-ips/warmup" "PutAccountDedicatedIpWarmupAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-dedicated-ip-warmup-attributes)) (common-lisp:progn (common-lisp:defun put-account-sending-attributes @@ -7071,7 +7084,7 @@ "PUT" "/v1/email/account/sending" "PutAccountSendingAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-sending-attributes)) (common-lisp:progn (common-lisp:defun put-configuration-set-delivery-options @@ -7097,12 +7110,13 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A/delivery-options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetDeliveryOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-delivery-options)) (common-lisp:progn (common-lisp:defun put-configuration-set-reputation-options @@ -7127,12 +7141,13 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A/reputation-options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetReputationOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-reputation-options)) (common-lisp:progn (common-lisp:defun put-configuration-set-sending-options @@ -7156,12 +7171,13 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A/sending" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetSendingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-sending-options)) (common-lisp:progn (common-lisp:defun put-configuration-set-tracking-options @@ -7186,12 +7202,13 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A/tracking-options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetTrackingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-tracking-options)) (common-lisp:progn (common-lisp:defun put-dedicated-ip-in-pool @@ -7213,12 +7230,13 @@ (common-lisp:format common-lisp:nil "/v1/email/dedicated-ips/~A/pool" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip)))) + 'ip) + common-lisp:t))) "PutDedicatedIpInPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-dedicated-ip-in-pool)) (common-lisp:progn (common-lisp:defun put-dedicated-ip-warmup-attributes @@ -7241,12 +7259,13 @@ (common-lisp:format common-lisp:nil "/v1/email/dedicated-ips/~A/warmup" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip)))) + 'ip) + common-lisp:t))) "PutDedicatedIpWarmupAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-dedicated-ip-warmup-attributes)) (common-lisp:progn (common-lisp:defun put-deliverability-dashboard-option @@ -7266,7 +7285,7 @@ "PUT" "/v1/email/deliverability-dashboard" "PutDeliverabilityDashboardOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-deliverability-dashboard-option)) (common-lisp:progn (common-lisp:defun put-email-identity-dkim-attributes @@ -7289,12 +7308,13 @@ (common-lisp:format common-lisp:nil "/v1/email/identities/~A/dkim" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "PutEmailIdentityDkimAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-identity-dkim-attributes)) (common-lisp:progn (common-lisp:defun put-email-identity-feedback-attributes @@ -7318,12 +7338,13 @@ (common-lisp:format common-lisp:nil "/v1/email/identities/~A/feedback" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "PutEmailIdentityFeedbackAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-identity-feedback-attributes)) (common-lisp:progn (common-lisp:defun put-email-identity-mail-from-attributes @@ -7349,12 +7370,13 @@ (common-lisp:format common-lisp:nil "/v1/email/identities/~A/mail-from" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "PutEmailIdentityMailFromAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-identity-mail-from-attributes)) (common-lisp:progn (common-lisp:defun send-email @@ -7377,7 +7399,7 @@ "POST" "/v1/email/outbound-emails" "SendEmail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-email)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7394,7 +7416,7 @@ aws-sdk/generator/operation::input "POST" "/v1/email/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7412,7 +7434,7 @@ "DELETE" "/v1/email/tags" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-configuration-set-event-destination @@ -7438,14 +7460,16 @@ (common-lisp:format common-lisp:nil "/v1/email/configuration-sets/~A/event-destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)) - (quri.encode:url-encode + 'configuration-set-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-destination-name)))) + 'event-destination-name) + common-lisp:t))) "UpdateConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configuration-set-event-destination)) diff --git a/services/pinpoint-sms-voice-v2/api.lisp b/services/pinpoint-sms-voice-v2/api.lisp index 8131bc62..d3a062df 100644 --- a/services/pinpoint-sms-voice-v2/api.lisp +++ b/services/pinpoint-sms-voice-v2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/pinpoint-sms-voice-v2/api - (:use) - (:nicknames #:aws/pinpoint-sms-voice-v2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/pinpoint-sms-voice-v2/api + (:use) (:nicknames #:aws/pinpoint-sms-voice-v2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/pinpoint-sms-voice-v2/api) (common-lisp:progn (common-lisp:define-condition pinpoint-sms-voice-v2-error @@ -16431,7 +16430,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "AssociateOriginationIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-origination-identity)) (common-lisp:progn (common-lisp:defun create-configuration-set @@ -16448,7 +16447,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreateConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-set)) (common-lisp:progn (common-lisp:defun create-event-destination @@ -16470,7 +16469,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreateEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-event-destination)) (common-lisp:progn (common-lisp:defun create-opt-out-list @@ -16487,7 +16486,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreateOptOutList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-opt-out-list)) (common-lisp:progn (common-lisp:defun create-pool @@ -16507,7 +16506,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreatePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pool)) (common-lisp:progn (common-lisp:defun create-registration @@ -16524,7 +16523,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreateRegistration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-registration)) (common-lisp:progn (common-lisp:defun create-registration-association @@ -16541,7 +16540,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreateRegistrationAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-registration-association)) (common-lisp:progn (common-lisp:defun create-registration-attachment @@ -16560,7 +16559,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreateRegistrationAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-registration-attachment)) (common-lisp:progn (common-lisp:defun create-registration-version @@ -16577,7 +16576,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreateRegistrationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-registration-version)) (common-lisp:progn (common-lisp:defun create-verified-destination-number @@ -16596,7 +16595,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "CreateVerifiedDestinationNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-verified-destination-number)) (common-lisp:progn (common-lisp:defun delete-configuration-set @@ -16612,7 +16611,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-set)) (common-lisp:progn (common-lisp:defun delete-default-message-type @@ -16629,7 +16628,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteDefaultMessageType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-default-message-type)) (common-lisp:progn (common-lisp:defun delete-default-sender-id @@ -16645,7 +16644,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteDefaultSenderId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-default-sender-id)) (common-lisp:progn (common-lisp:defun delete-event-destination @@ -16663,7 +16662,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-destination)) (common-lisp:progn (common-lisp:defun delete-keyword @@ -16679,7 +16678,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteKeyword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-keyword)) (common-lisp:progn (common-lisp:defun delete-opt-out-list @@ -16695,7 +16694,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteOptOutList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-opt-out-list)) (common-lisp:progn (common-lisp:defun delete-opted-out-number @@ -16712,7 +16711,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteOptedOutNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-opted-out-number)) (common-lisp:progn (common-lisp:defun delete-pool @@ -16728,7 +16727,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeletePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pool)) (common-lisp:progn (common-lisp:defun delete-registration @@ -16744,7 +16743,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteRegistration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-registration)) (common-lisp:progn (common-lisp:defun delete-registration-attachment @@ -16761,7 +16760,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteRegistrationAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-registration-attachment)) (common-lisp:progn (common-lisp:defun delete-registration-field-value @@ -16778,7 +16777,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteRegistrationFieldValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-registration-field-value)) (common-lisp:progn (common-lisp:defun delete-text-message-spend-limit-override () @@ -16804,7 +16803,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DeleteVerifiedDestinationNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-verified-destination-number)) (common-lisp:progn (common-lisp:defun delete-voice-message-spend-limit-override () @@ -16830,7 +16829,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeAccountAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-attributes)) (common-lisp:progn (common-lisp:defun describe-account-limits @@ -16846,7 +16845,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeAccountLimits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-limits)) (common-lisp:progn (common-lisp:defun describe-configuration-sets @@ -16866,7 +16865,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeConfigurationSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-configuration-sets)) (common-lisp:progn (common-lisp:defun describe-keywords @@ -16885,7 +16884,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeKeywords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-keywords)) (common-lisp:progn (common-lisp:defun describe-opt-out-lists @@ -16903,7 +16902,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeOptOutLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-opt-out-lists)) (common-lisp:progn (common-lisp:defun describe-opted-out-numbers @@ -16923,7 +16922,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeOptedOutNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-opted-out-numbers)) (common-lisp:progn (common-lisp:defun describe-phone-numbers @@ -16941,7 +16940,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribePhoneNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-phone-numbers)) (common-lisp:progn (common-lisp:defun describe-pools @@ -16958,7 +16957,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribePools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pools)) (common-lisp:progn (common-lisp:defun describe-registration-attachments @@ -16978,7 +16977,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeRegistrationAttachments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registration-attachments)) (common-lisp:progn (common-lisp:defun describe-registration-field-definitions @@ -16998,7 +16997,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeRegistrationFieldDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registration-field-definitions)) (common-lisp:progn (common-lisp:defun describe-registration-field-values @@ -17018,7 +17017,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeRegistrationFieldValues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registration-field-values)) (common-lisp:progn (common-lisp:defun describe-registration-section-definitions @@ -17038,7 +17037,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeRegistrationSectionDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registration-section-definitions)) (common-lisp:progn (common-lisp:defun describe-registration-type-definitions @@ -17057,7 +17056,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeRegistrationTypeDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registration-type-definitions)) (common-lisp:progn (common-lisp:defun describe-registration-versions @@ -17077,7 +17076,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeRegistrationVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registration-versions)) (common-lisp:progn (common-lisp:defun describe-registrations @@ -17095,7 +17094,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeRegistrations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registrations)) (common-lisp:progn (common-lisp:defun describe-sender-ids @@ -17113,7 +17112,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeSenderIds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-sender-ids)) (common-lisp:progn (common-lisp:defun describe-spend-limits @@ -17129,7 +17128,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeSpendLimits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-spend-limits)) (common-lisp:progn (common-lisp:defun describe-verified-destination-numbers @@ -17149,7 +17148,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DescribeVerifiedDestinationNumbers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-verified-destination-numbers)) (common-lisp:progn (common-lisp:defun disassociate-origination-identity @@ -17169,7 +17168,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DisassociateOriginationIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-origination-identity)) (common-lisp:progn (common-lisp:defun discard-registration-version @@ -17186,7 +17185,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "DiscardRegistrationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'discard-registration-version)) (common-lisp:progn (common-lisp:defun list-pool-origination-identities @@ -17204,7 +17203,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "ListPoolOriginationIdentities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pool-origination-identities)) (common-lisp:progn (common-lisp:defun list-registration-associations @@ -17223,7 +17222,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "ListRegistrationAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-registration-associations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -17239,7 +17238,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-keyword @@ -17258,7 +17257,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "PutKeyword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-keyword)) (common-lisp:progn (common-lisp:defun put-opted-out-number @@ -17275,7 +17274,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "PutOptedOutNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-opted-out-number)) (common-lisp:progn (common-lisp:defun put-registration-field-value @@ -17295,7 +17294,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "PutRegistrationFieldValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-registration-field-value)) (common-lisp:progn (common-lisp:defun release-phone-number @@ -17311,7 +17310,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "ReleasePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'release-phone-number)) (common-lisp:progn (common-lisp:defun release-sender-id @@ -17327,7 +17326,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "ReleaseSenderId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'release-sender-id)) (common-lisp:progn (common-lisp:defun request-phone-number @@ -17349,7 +17348,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "RequestPhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'request-phone-number)) (common-lisp:progn (common-lisp:defun request-sender-id @@ -17368,7 +17367,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "RequestSenderId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'request-sender-id)) (common-lisp:progn (common-lisp:defun send-destination-number-verification-code @@ -17391,7 +17390,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "SendDestinationNumberVerificationCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-destination-number-verification-code)) (common-lisp:progn (common-lisp:defun send-text-message @@ -17413,7 +17412,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "SendTextMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-text-message)) (common-lisp:progn (common-lisp:defun send-voice-message @@ -17435,7 +17434,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "SendVoiceMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-voice-message)) (common-lisp:progn (common-lisp:defun set-default-message-type @@ -17452,7 +17451,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "SetDefaultMessageType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-default-message-type)) (common-lisp:progn (common-lisp:defun set-default-sender-id @@ -17469,7 +17468,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "SetDefaultSenderId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-default-sender-id)) (common-lisp:progn (common-lisp:defun set-text-message-spend-limit-override @@ -17486,7 +17485,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "SetTextMessageSpendLimitOverride")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-text-message-spend-limit-override)) (common-lisp:progn (common-lisp:defun set-voice-message-spend-limit-override @@ -17503,7 +17502,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "SetVoiceMessageSpendLimitOverride")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-voice-message-spend-limit-override)) (common-lisp:progn (common-lisp:defun submit-registration-version @@ -17520,7 +17519,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "SubmitRegistrationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'submit-registration-version)) (common-lisp:progn (common-lisp:defun tag-resource @@ -17536,7 +17535,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -17552,7 +17551,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-event-destination @@ -17574,7 +17573,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "UpdateEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-event-destination)) (common-lisp:progn (common-lisp:defun update-phone-number @@ -17596,7 +17595,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "UpdatePhoneNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-phone-number)) (common-lisp:progn (common-lisp:defun update-pool @@ -17618,7 +17617,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "UpdatePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pool)) (common-lisp:progn (common-lisp:defun update-sender-id @@ -17637,7 +17636,7 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "UpdateSenderId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sender-id)) (common-lisp:progn (common-lisp:defun verify-destination-number @@ -17656,5 +17655,5 @@ (aws-sdk/generator/shape:make-request-with-input 'pinpoint-sms-voice-v2-request aws-sdk/generator/operation::input "POST" "/" "VerifyDestinationNumber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-destination-number)) diff --git a/services/pinpoint/api.lisp b/services/pinpoint/api.lisp index 35bad4b3..99421af3 100644 --- a/services/pinpoint/api.lisp +++ b/services/pinpoint/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/pinpoint/api - (:use) - (:nicknames #:aws/pinpoint) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/pinpoint/api (:use) + (:nicknames #:aws/pinpoint) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/pinpoint/api) (common-lisp:progn (common-lisp:define-condition pinpoint-error @@ -20,7 +19,7 @@ (common-lisp:export 'pinpoint-error)) (common-lisp:progn (common-lisp:defclass pinpoint-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "pinpoint" :api-version "2016-12-01" :host-prefix "pinpoint" :signing-name @@ -5102,7 +5101,11 @@ (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input create-app-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'create-application-request))) + 'create-application-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input create-app-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-app-response common-lisp:nil ((application-response :initarg :application-response @@ -5139,7 +5142,11 @@ (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input create-app-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'application-response))) + 'application-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input create-app-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-application-request common-lisp:nil ((name :initarg :name :initform @@ -5240,7 +5247,13 @@ (aws-sdk/generator/shape::input create-campaign-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'write-campaign-request))) + 'write-campaign-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-campaign-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-campaign-response common-lisp:nil ((campaign-response :initarg :campaign-response @@ -5280,7 +5293,13 @@ ( (aws-sdk/generator/shape::input create-campaign-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-campaign-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-email-template-request common-lisp:nil ((email-template-request :initarg @@ -5332,7 +5351,13 @@ (aws-sdk/generator/shape::input create-email-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'email-template-request))) + 'email-template-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-email-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-email-template-response common-lisp:nil ((create-template-message-body :initarg @@ -5378,7 +5403,13 @@ (aws-sdk/generator/shape::input create-email-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'create-template-message-body))) + 'create-template-message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-email-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-export-job-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -5426,7 +5457,13 @@ ( (aws-sdk/generator/shape::input create-export-job-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'export-job-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'export-job-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-export-job-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-export-job-response common-lisp:nil ((export-job-response :initarg :export-job-response @@ -5468,7 +5505,13 @@ (aws-sdk/generator/shape::input create-export-job-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'export-job-response))) + 'export-job-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-export-job-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-import-job-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -5516,7 +5559,13 @@ ( (aws-sdk/generator/shape::input create-import-job-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'import-job-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'import-job-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-import-job-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-import-job-response common-lisp:nil ((import-job-response :initarg :import-job-response @@ -5558,7 +5607,13 @@ (aws-sdk/generator/shape::input create-import-job-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'import-job-response))) + 'import-job-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-import-job-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-in-app-template-request common-lisp:nil ((in-app-template-request :initarg @@ -5610,7 +5665,13 @@ (aws-sdk/generator/shape::input create-in-app-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'in-app-template-request))) + 'in-app-template-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-in-app-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-in-app-template-response common-lisp:nil ((template-create-message-body :initarg @@ -5656,7 +5717,13 @@ (aws-sdk/generator/shape::input create-in-app-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'template-create-message-body))) + 'template-create-message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-in-app-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-journey-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -5707,7 +5774,13 @@ (aws-sdk/generator/shape::input create-journey-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'write-journey-request))) + 'write-journey-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-journey-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-journey-response common-lisp:nil ((journey-response :initarg :journey-response :initform @@ -5746,7 +5819,13 @@ ( (aws-sdk/generator/shape::input create-journey-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-journey-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-push-template-request common-lisp:nil ((push-notification-template-request :initarg @@ -5797,7 +5876,13 @@ (aws-sdk/generator/shape::input create-push-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'push-notification-template-request))) + 'push-notification-template-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-push-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-push-template-response common-lisp:nil ((create-template-message-body :initarg @@ -5843,7 +5928,13 @@ (aws-sdk/generator/shape::input create-push-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'create-template-message-body))) + 'create-template-message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-push-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-recommender-configuration common-lisp:nil ((attributes :initarg :attributes :initform @@ -6048,7 +6139,13 @@ (aws-sdk/generator/shape::input create-recommender-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'create-recommender-configuration))) + 'create-recommender-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-recommender-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-recommender-configuration-response common-lisp:nil @@ -6095,7 +6192,13 @@ (aws-sdk/generator/shape::input create-recommender-configuration-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'recommender-configuration-response))) + 'recommender-configuration-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-recommender-configuration-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-segment-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -6146,7 +6249,13 @@ (aws-sdk/generator/shape::input create-segment-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'write-segment-request))) + 'write-segment-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-segment-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-segment-response common-lisp:nil ((segment-response :initarg :segment-response :initform @@ -6185,7 +6294,13 @@ ( (aws-sdk/generator/shape::input create-segment-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-segment-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-sms-template-request common-lisp:nil ((smstemplate-request :initarg :smstemplate-request @@ -6233,7 +6348,13 @@ (aws-sdk/generator/shape::input create-sms-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'smstemplate-request))) + 'smstemplate-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-sms-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-sms-template-response common-lisp:nil ((create-template-message-body :initarg @@ -6278,7 +6399,13 @@ (aws-sdk/generator/shape::input create-sms-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'create-template-message-body))) + 'create-template-message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-sms-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-template-message-body common-lisp:nil ((arn :initarg :arn :initform common-lisp:nil :type @@ -6393,7 +6520,13 @@ (aws-sdk/generator/shape::input create-voice-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'voice-template-request))) + 'voice-template-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-voice-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass create-voice-template-response common-lisp:nil ((create-template-message-body :initarg @@ -6439,7 +6572,13 @@ (aws-sdk/generator/shape::input create-voice-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'create-template-message-body))) + 'create-template-message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-voice-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass custom-delivery-configuration common-lisp:nil ((delivery-uri :initarg :delivery-uri :initform @@ -7024,7 +7163,13 @@ (aws-sdk/generator/shape::input delete-adm-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'admchannel-response))) + 'admchannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-adm-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-apns-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7100,7 +7245,13 @@ (aws-sdk/generator/shape::input delete-apns-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnschannel-response))) + 'apnschannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-apns-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-apns-sandbox-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7179,7 +7330,13 @@ (aws-sdk/generator/shape::input delete-apns-sandbox-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnssandbox-channel-response))) + 'apnssandbox-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-apns-sandbox-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-apns-voip-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7258,7 +7415,13 @@ (aws-sdk/generator/shape::input delete-apns-voip-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnsvoip-channel-response))) + 'apnsvoip-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-apns-voip-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-apns-voip-sandbox-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7338,7 +7501,13 @@ (aws-sdk/generator/shape::input delete-apns-voip-sandbox-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnsvoip-sandbox-channel-response))) + 'apnsvoip-sandbox-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-apns-voip-sandbox-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-app-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7400,7 +7569,11 @@ (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input delete-app-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'application-response))) + 'application-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input delete-app-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-baidu-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7478,7 +7651,13 @@ (aws-sdk/generator/shape::input delete-baidu-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'baidu-channel-response))) + 'baidu-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-baidu-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-campaign-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7555,7 +7734,13 @@ ( (aws-sdk/generator/shape::input delete-campaign-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-campaign-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-email-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7633,7 +7818,13 @@ (aws-sdk/generator/shape::input delete-email-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'email-channel-response))) + 'email-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-email-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-email-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -7711,7 +7902,13 @@ ( (aws-sdk/generator/shape::input delete-email-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-email-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-endpoint-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7788,7 +7985,13 @@ ( (aws-sdk/generator/shape::input delete-endpoint-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoint-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoint-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-endpoint-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-event-stream-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7859,7 +8062,13 @@ ( (aws-sdk/generator/shape::input delete-event-stream-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'event-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'event-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-event-stream-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-gcm-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -7933,7 +8142,13 @@ (aws-sdk/generator/shape::input delete-gcm-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'gcmchannel-response))) + 'gcmchannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-gcm-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-in-app-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -8011,7 +8226,13 @@ ( (aws-sdk/generator/shape::input delete-in-app-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-in-app-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-journey-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -8087,7 +8308,13 @@ ( (aws-sdk/generator/shape::input delete-journey-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-journey-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-push-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -8164,7 +8391,13 @@ ( (aws-sdk/generator/shape::input delete-push-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-push-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-recommender-configuration-request common-lisp:nil ((recommender-id :initarg :recommender-id :initform @@ -8244,7 +8477,13 @@ (aws-sdk/generator/shape::input delete-recommender-configuration-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'recommender-configuration-response))) + 'recommender-configuration-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-recommender-configuration-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-segment-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -8320,7 +8559,13 @@ ( (aws-sdk/generator/shape::input delete-segment-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-segment-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-sms-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -8394,7 +8639,13 @@ (aws-sdk/generator/shape::input delete-sms-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'smschannel-response))) + 'smschannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-sms-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-sms-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -8470,7 +8721,13 @@ ( (aws-sdk/generator/shape::input delete-sms-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-sms-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-user-endpoints-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -8551,7 +8808,13 @@ ( (aws-sdk/generator/shape::input delete-user-endpoints-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoints-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoints-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-user-endpoints-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-voice-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -8629,7 +8892,13 @@ (aws-sdk/generator/shape::input delete-voice-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'voice-channel-response))) + 'voice-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-voice-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass delete-voice-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -8707,7 +8976,13 @@ ( (aws-sdk/generator/shape::input delete-voice-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-voice-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype delivery-status () 'common-lisp:string) (common-lisp:deftype dimension-type () 'common-lisp:string) (common-lisp:progn @@ -12414,7 +12689,13 @@ (aws-sdk/generator/shape::input get-adm-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'admchannel-response))) + 'admchannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-adm-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-apns-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -12489,7 +12770,13 @@ (aws-sdk/generator/shape::input get-apns-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnschannel-response))) + 'apnschannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-apns-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-apns-sandbox-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -12568,7 +12855,13 @@ (aws-sdk/generator/shape::input get-apns-sandbox-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnssandbox-channel-response))) + 'apnssandbox-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-apns-sandbox-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-apns-voip-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -12647,7 +12940,13 @@ (aws-sdk/generator/shape::input get-apns-voip-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnsvoip-channel-response))) + 'apnsvoip-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-apns-voip-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-apns-voip-sandbox-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -12726,7 +13025,13 @@ (aws-sdk/generator/shape::input get-apns-voip-sandbox-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnsvoip-sandbox-channel-response))) + 'apnsvoip-sandbox-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-apns-voip-sandbox-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-app-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -12786,7 +13091,11 @@ (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-app-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'application-response))) + 'application-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-app-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-application-date-range-kpi-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -12897,7 +13206,13 @@ (aws-sdk/generator/shape::input get-application-date-range-kpi-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'application-date-range-kpi-response))) + 'application-date-range-kpi-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-application-date-range-kpi-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-application-settings-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -12976,7 +13291,13 @@ (aws-sdk/generator/shape::input get-application-settings-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'application-settings-resource))) + 'application-settings-resource)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-application-settings-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-apps-request common-lisp:nil ((page-size :initarg :page-size :initform @@ -13042,7 +13363,11 @@ (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-apps-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'applications-response))) + 'applications-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-apps-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-baidu-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13119,7 +13444,13 @@ (aws-sdk/generator/shape::input get-baidu-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'baidu-channel-response))) + 'baidu-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-baidu-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-campaign-activities-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13212,7 +13543,13 @@ (aws-sdk/generator/shape::input get-campaign-activities-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'activities-response))) + 'activities-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-campaign-activities-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-campaign-date-range-kpi-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13329,7 +13666,13 @@ (aws-sdk/generator/shape::input get-campaign-date-range-kpi-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'campaign-date-range-kpi-response))) + 'campaign-date-range-kpi-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-campaign-date-range-kpi-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-campaign-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13400,7 +13743,13 @@ ( (aws-sdk/generator/shape::input get-campaign-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-campaign-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-campaign-version-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13486,7 +13835,13 @@ ( (aws-sdk/generator/shape::input get-campaign-version-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-campaign-version-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-campaign-versions-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13578,7 +13933,13 @@ ( (aws-sdk/generator/shape::input get-campaign-versions-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'campaigns-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'campaigns-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-campaign-versions-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-campaigns-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13660,7 +14021,13 @@ ( (aws-sdk/generator/shape::input get-campaigns-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'campaigns-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'campaigns-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-campaigns-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-channels-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13725,7 +14092,13 @@ ( (aws-sdk/generator/shape::input get-channels-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'channels-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'channels-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-channels-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-email-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13802,7 +14175,13 @@ (aws-sdk/generator/shape::input get-email-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'email-channel-response))) + 'email-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-email-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-email-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -13884,7 +14263,13 @@ (aws-sdk/generator/shape::input get-email-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'email-template-response))) + 'email-template-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-email-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-endpoint-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -13955,7 +14340,13 @@ ( (aws-sdk/generator/shape::input get-endpoint-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoint-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoint-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-endpoint-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-event-stream-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14025,7 +14416,13 @@ ( (aws-sdk/generator/shape::input get-event-stream-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'event-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'event-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-event-stream-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-export-job-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14102,7 +14499,13 @@ (aws-sdk/generator/shape::input get-export-job-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'export-job-response))) + 'export-job-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-export-job-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-export-jobs-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14187,7 +14590,13 @@ (aws-sdk/generator/shape::input get-export-jobs-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'export-jobs-response))) + 'export-jobs-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-export-jobs-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-gcm-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14259,7 +14668,13 @@ (aws-sdk/generator/shape::input get-gcm-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'gcmchannel-response))) + 'gcmchannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-gcm-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-import-job-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14336,7 +14751,13 @@ (aws-sdk/generator/shape::input get-import-job-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'import-job-response))) + 'import-job-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-import-job-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-import-jobs-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14421,7 +14842,13 @@ (aws-sdk/generator/shape::input get-import-jobs-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'import-jobs-response))) + 'import-jobs-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-import-jobs-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-in-app-messages-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14504,7 +14931,13 @@ (aws-sdk/generator/shape::input get-in-app-messages-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'in-app-messages-response))) + 'in-app-messages-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-in-app-messages-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-in-app-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -14586,7 +15019,13 @@ (aws-sdk/generator/shape::input get-in-app-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'in-app-template-response))) + 'in-app-template-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-in-app-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-journey-date-range-kpi-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14703,7 +15142,13 @@ (aws-sdk/generator/shape::input get-journey-date-range-kpi-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'journey-date-range-kpi-response))) + 'journey-date-range-kpi-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-journey-date-range-kpi-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-journey-execution-activity-metrics-request common-lisp:nil @@ -14812,7 +15257,13 @@ (aws-sdk/generator/shape::input get-journey-execution-activity-metrics-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'journey-execution-activity-metrics-response))) + 'journey-execution-activity-metrics-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-journey-execution-activity-metrics-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-journey-execution-metrics-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14909,7 +15360,13 @@ (aws-sdk/generator/shape::input get-journey-execution-metrics-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'journey-execution-metrics-response))) + 'journey-execution-metrics-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-journey-execution-metrics-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-journey-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -14973,7 +15430,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-journey-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-journey-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-journey-run-execution-activity-metrics-request common-lisp:nil @@ -15090,7 +15551,13 @@ (aws-sdk/generator/shape::input get-journey-run-execution-activity-metrics-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'journey-run-execution-activity-metrics-response))) + 'journey-run-execution-activity-metrics-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-journey-run-execution-activity-metrics-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-journey-run-execution-metrics-request common-lisp:nil @@ -15195,7 +15662,13 @@ (aws-sdk/generator/shape::input get-journey-run-execution-metrics-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'journey-run-execution-metrics-response))) + 'journey-run-execution-metrics-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-journey-run-execution-metrics-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-journey-runs-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -15288,7 +15761,13 @@ (aws-sdk/generator/shape::input get-journey-runs-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'journey-runs-response))) + 'journey-runs-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-journey-runs-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-push-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -15370,7 +15849,13 @@ (aws-sdk/generator/shape::input get-push-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'push-notification-template-response))) + 'push-notification-template-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-push-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-recommender-configuration-request common-lisp:nil ((recommender-id :initarg :recommender-id :initform @@ -15449,7 +15934,13 @@ (aws-sdk/generator/shape::input get-recommender-configuration-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'recommender-configuration-response))) + 'recommender-configuration-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-recommender-configuration-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-recommender-configurations-request common-lisp:nil ((page-size :initarg :page-size :initform @@ -15534,7 +16025,13 @@ (aws-sdk/generator/shape::input get-recommender-configurations-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'list-recommender-configurations-response))) + 'list-recommender-configurations-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-recommender-configurations-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-segment-export-jobs-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -15629,7 +16126,13 @@ (aws-sdk/generator/shape::input get-segment-export-jobs-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'export-jobs-response))) + 'export-jobs-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-segment-export-jobs-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-segment-import-jobs-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -15724,7 +16227,13 @@ (aws-sdk/generator/shape::input get-segment-import-jobs-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'import-jobs-response))) + 'import-jobs-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-segment-import-jobs-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-segment-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -15788,7 +16297,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-segment-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-segment-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-segment-version-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -15872,7 +16385,13 @@ ( (aws-sdk/generator/shape::input get-segment-version-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-segment-version-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-segment-versions-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -15963,7 +16482,13 @@ ( (aws-sdk/generator/shape::input get-segment-versions-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'segments-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'segments-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-segment-versions-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-segments-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -16039,7 +16564,13 @@ ( (aws-sdk/generator/shape::input get-segments-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'segments-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'segments-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-segments-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-sms-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -16111,7 +16642,13 @@ (aws-sdk/generator/shape::input get-sms-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'smschannel-response))) + 'smschannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-sms-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-sms-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -16191,7 +16728,13 @@ (aws-sdk/generator/shape::input get-sms-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'smstemplate-response))) + 'smstemplate-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-sms-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-user-endpoints-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -16269,7 +16812,13 @@ ( (aws-sdk/generator/shape::input get-user-endpoints-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoints-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoints-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-user-endpoints-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-voice-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -16346,7 +16895,13 @@ (aws-sdk/generator/shape::input get-voice-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'voice-channel-response))) + 'voice-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-voice-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-voice-template-request common-lisp:nil ((template-name :initarg :template-name :initform @@ -16428,7 +16983,13 @@ (aws-sdk/generator/shape::input get-voice-template-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'voice-template-response))) + 'voice-template-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-voice-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass holdout-activity common-lisp:nil ((next-activity :initarg :next-activity :initform @@ -19475,7 +20036,13 @@ ( (aws-sdk/generator/shape::input list-journeys-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'journeys-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'journeys-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-journeys-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-recommender-configurations-response common-lisp:nil ((item :initarg :item :initform @@ -19602,7 +20169,13 @@ ( (aws-sdk/generator/shape::input list-tags-for-resource-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'tags-model))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'tags-model)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-tags-for-resource-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-template-versions-request common-lisp:nil ((next-token :initarg :next-token :initform @@ -19698,7 +20271,13 @@ (aws-sdk/generator/shape::input list-template-versions-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'template-versions-response))) + 'template-versions-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-template-versions-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass list-templates-request common-lisp:nil ((next-token :initarg :next-token :initform @@ -19785,7 +20364,13 @@ ( (aws-sdk/generator/shape::input list-templates-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'templates-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'templates-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + list-templates-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass message common-lisp:nil ((action :initarg :action :initform common-lisp:nil @@ -20964,7 +21549,13 @@ (aws-sdk/generator/shape::input phone-number-validate-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'number-validate-request))) + 'number-validate-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + phone-number-validate-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass phone-number-validate-response common-lisp:nil ((number-validate-response :initarg @@ -21010,7 +21601,13 @@ (aws-sdk/generator/shape::input phone-number-validate-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'number-validate-response))) + 'number-validate-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + phone-number-validate-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass public-endpoint common-lisp:nil ((address :initarg :address :initform common-lisp:nil @@ -21673,7 +22270,13 @@ ( (aws-sdk/generator/shape::input put-event-stream-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'write-event-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'write-event-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-event-stream-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-event-stream-response common-lisp:nil ((event-stream :initarg :event-stream :initform @@ -21712,7 +22315,13 @@ ( (aws-sdk/generator/shape::input put-event-stream-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'event-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'event-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-event-stream-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-events-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -21751,7 +22360,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-events-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'events-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'events-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-events-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-events-response common-lisp:nil ((events-response :initarg :events-response :initform @@ -21784,7 +22397,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-events-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'events-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'events-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-events-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass quiet-time common-lisp:nil ((end :initarg :end :initform common-lisp:nil :type @@ -22241,7 +22858,13 @@ (aws-sdk/generator/shape::input remove-attributes-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'update-attributes-request))) + 'update-attributes-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + remove-attributes-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass remove-attributes-response common-lisp:nil ((attributes-resource :initarg :attributes-resource @@ -22283,7 +22906,13 @@ (aws-sdk/generator/shape::input remove-attributes-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'attributes-resource))) + 'attributes-resource)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + remove-attributes-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass result-row common-lisp:nil ((grouped-bys :initarg :grouped-bys :initform @@ -24025,7 +24654,13 @@ ( (aws-sdk/generator/shape::input send-messages-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + send-messages-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass send-messages-response common-lisp:nil ((message-response :initarg :message-response :initform @@ -24064,7 +24699,13 @@ ( (aws-sdk/generator/shape::input send-messages-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + send-messages-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass send-otpmessage-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -24115,7 +24756,13 @@ (aws-sdk/generator/shape::input send-otpmessage-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'send-otpmessage-request-parameters))) + 'send-otpmessage-request-parameters)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + send-otpmessage-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass send-otpmessage-request-parameters common-lisp:nil ((allowed-attempts :initarg :allowed-attempts :initform @@ -24334,7 +24981,13 @@ ( (aws-sdk/generator/shape::input send-otpmessage-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + send-otpmessage-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass send-users-message-request common-lisp:nil ((context :initarg :context :initform common-lisp:nil @@ -24555,7 +25208,13 @@ (aws-sdk/generator/shape::input send-users-messages-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'send-users-message-request))) + 'send-users-message-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + send-users-messages-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass send-users-messages-response common-lisp:nil ((send-users-message-response :initarg @@ -24600,7 +25259,13 @@ (aws-sdk/generator/shape::input send-users-messages-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'send-users-message-response))) + 'send-users-message-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + send-users-messages-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass session common-lisp:nil ((duration :initarg :duration :initform common-lisp:nil @@ -24969,7 +25634,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input tag-resource-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'tags-model))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'tags-model)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input tag-resource-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass tags-model common-lisp:nil ((tags :initarg :tags :initform @@ -25851,7 +26520,13 @@ ( (aws-sdk/generator/shape::input update-adm-channel-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'admchannel-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'admchannel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-adm-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-adm-channel-response common-lisp:nil ((admchannel-response :initarg :admchannel-response @@ -25893,7 +26568,13 @@ (aws-sdk/generator/shape::input update-adm-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'admchannel-response))) + 'admchannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-adm-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-apns-channel-request common-lisp:nil ((apnschannel-request :initarg :apnschannel-request @@ -25942,7 +26623,13 @@ (aws-sdk/generator/shape::input update-apns-channel-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnschannel-request))) + 'apnschannel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-apns-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-apns-channel-response common-lisp:nil ((apnschannel-response :initarg :apnschannel-response @@ -25986,7 +26673,13 @@ (aws-sdk/generator/shape::input update-apns-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnschannel-response))) + 'apnschannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-apns-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-apns-sandbox-channel-request common-lisp:nil ((apnssandbox-channel-request :initarg @@ -26039,7 +26732,13 @@ (aws-sdk/generator/shape::input update-apns-sandbox-channel-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnssandbox-channel-request))) + 'apnssandbox-channel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-apns-sandbox-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-apns-sandbox-channel-response common-lisp:nil ((apnssandbox-channel-response :initarg @@ -26085,7 +26784,13 @@ (aws-sdk/generator/shape::input update-apns-sandbox-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnssandbox-channel-response))) + 'apnssandbox-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-apns-sandbox-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-apns-voip-channel-request common-lisp:nil ((apnsvoip-channel-request :initarg @@ -26138,7 +26843,13 @@ (aws-sdk/generator/shape::input update-apns-voip-channel-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnsvoip-channel-request))) + 'apnsvoip-channel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-apns-voip-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-apns-voip-channel-response common-lisp:nil ((apnsvoip-channel-response :initarg @@ -26184,7 +26895,13 @@ (aws-sdk/generator/shape::input update-apns-voip-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnsvoip-channel-response))) + 'apnsvoip-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-apns-voip-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-apns-voip-sandbox-channel-request common-lisp:nil ((apnsvoip-sandbox-channel-request :initarg @@ -26237,7 +26954,13 @@ (aws-sdk/generator/shape::input update-apns-voip-sandbox-channel-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnsvoip-sandbox-channel-request))) + 'apnsvoip-sandbox-channel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-apns-voip-sandbox-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-apns-voip-sandbox-channel-response common-lisp:nil @@ -26284,7 +27007,13 @@ (aws-sdk/generator/shape::input update-apns-voip-sandbox-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'apnsvoip-sandbox-channel-response))) + 'apnsvoip-sandbox-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-apns-voip-sandbox-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-application-settings-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -26337,7 +27066,13 @@ (aws-sdk/generator/shape::input update-application-settings-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'write-application-settings-request))) + 'write-application-settings-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-application-settings-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-application-settings-response common-lisp:nil ((application-settings-resource :initarg @@ -26383,7 +27118,13 @@ (aws-sdk/generator/shape::input update-application-settings-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'application-settings-resource))) + 'application-settings-resource)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-application-settings-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-attributes-request common-lisp:nil ((blacklist :initarg :blacklist :initform @@ -26474,7 +27215,13 @@ (aws-sdk/generator/shape::input update-baidu-channel-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'baidu-channel-request))) + 'baidu-channel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-baidu-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-baidu-channel-response common-lisp:nil ((baidu-channel-response :initarg @@ -26520,7 +27267,13 @@ (aws-sdk/generator/shape::input update-baidu-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'baidu-channel-response))) + 'baidu-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-baidu-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-campaign-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -26577,7 +27330,13 @@ (aws-sdk/generator/shape::input update-campaign-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'write-campaign-request))) + 'write-campaign-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-campaign-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-campaign-response common-lisp:nil ((campaign-response :initarg :campaign-response @@ -26617,7 +27376,13 @@ ( (aws-sdk/generator/shape::input update-campaign-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'campaign-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-campaign-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-email-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -26669,7 +27434,13 @@ (aws-sdk/generator/shape::input update-email-channel-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'email-channel-request))) + 'email-channel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-email-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-email-channel-response common-lisp:nil ((email-channel-response :initarg @@ -26715,7 +27486,13 @@ (aws-sdk/generator/shape::input update-email-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'email-channel-response))) + 'email-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-email-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-email-template-request common-lisp:nil ((create-new-version :initarg :create-new-version @@ -26780,7 +27557,13 @@ (aws-sdk/generator/shape::input update-email-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'email-template-request))) + 'email-template-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-email-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-email-template-response common-lisp:nil ((message-body :initarg :message-body :initform @@ -26820,7 +27603,13 @@ ( (aws-sdk/generator/shape::input update-email-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-email-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-endpoint-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -26872,7 +27661,13 @@ ( (aws-sdk/generator/shape::input update-endpoint-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoint-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'endpoint-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-endpoint-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-endpoint-response common-lisp:nil ((message-body :initarg :message-body :initform @@ -26910,7 +27705,13 @@ ( (aws-sdk/generator/shape::input update-endpoint-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-endpoint-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-endpoints-batch-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -26963,7 +27764,13 @@ (aws-sdk/generator/shape::input update-endpoints-batch-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'endpoint-batch-request))) + 'endpoint-batch-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-endpoints-batch-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-endpoints-batch-response common-lisp:nil ((message-body :initarg :message-body :initform @@ -27003,7 +27810,13 @@ ( (aws-sdk/generator/shape::input update-endpoints-batch-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-endpoints-batch-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-gcm-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -27051,7 +27864,13 @@ ( (aws-sdk/generator/shape::input update-gcm-channel-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'gcmchannel-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'gcmchannel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-gcm-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-gcm-channel-response common-lisp:nil ((gcmchannel-response :initarg :gcmchannel-response @@ -27093,7 +27912,13 @@ (aws-sdk/generator/shape::input update-gcm-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'gcmchannel-response))) + 'gcmchannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-gcm-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-in-app-template-request common-lisp:nil ((create-new-version :initarg :create-new-version @@ -27158,7 +27983,13 @@ (aws-sdk/generator/shape::input update-in-app-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'in-app-template-request))) + 'in-app-template-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-in-app-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-in-app-template-response common-lisp:nil ((message-body :initarg :message-body :initform @@ -27198,7 +28029,13 @@ ( (aws-sdk/generator/shape::input update-in-app-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-in-app-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-journey-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -27255,7 +28092,13 @@ (aws-sdk/generator/shape::input update-journey-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'write-journey-request))) + 'write-journey-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-journey-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-journey-response common-lisp:nil ((journey-response :initarg :journey-response :initform @@ -27294,7 +28137,13 @@ ( (aws-sdk/generator/shape::input update-journey-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-journey-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-journey-state-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -27352,7 +28201,13 @@ (aws-sdk/generator/shape::input update-journey-state-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'journey-state-request))) + 'journey-state-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-journey-state-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-journey-state-response common-lisp:nil ((journey-response :initarg :journey-response :initform @@ -27393,7 +28248,13 @@ ( (aws-sdk/generator/shape::input update-journey-state-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'journey-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-journey-state-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-push-template-request common-lisp:nil ((create-new-version :initarg :create-new-version @@ -27457,7 +28318,13 @@ (aws-sdk/generator/shape::input update-push-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'push-notification-template-request))) + 'push-notification-template-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-push-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-push-template-response common-lisp:nil ((message-body :initarg :message-body :initform @@ -27497,7 +28364,13 @@ ( (aws-sdk/generator/shape::input update-push-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-push-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-recommender-configuration common-lisp:nil ((attributes :initarg :attributes :initform @@ -27709,7 +28582,13 @@ (aws-sdk/generator/shape::input update-recommender-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'update-recommender-configuration))) + 'update-recommender-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-recommender-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-recommender-configuration-response common-lisp:nil @@ -27756,7 +28635,13 @@ (aws-sdk/generator/shape::input update-recommender-configuration-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'recommender-configuration-response))) + 'recommender-configuration-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-recommender-configuration-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-segment-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -27813,7 +28698,13 @@ (aws-sdk/generator/shape::input update-segment-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'write-segment-request))) + 'write-segment-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-segment-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-segment-response common-lisp:nil ((segment-response :initarg :segment-response :initform @@ -27852,7 +28743,13 @@ ( (aws-sdk/generator/shape::input update-segment-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'segment-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-segment-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-sms-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -27900,7 +28797,13 @@ ( (aws-sdk/generator/shape::input update-sms-channel-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'smschannel-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'smschannel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-sms-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-sms-channel-response common-lisp:nil ((smschannel-response :initarg :smschannel-response @@ -27942,7 +28845,13 @@ (aws-sdk/generator/shape::input update-sms-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'smschannel-response))) + 'smschannel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-sms-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-sms-template-request common-lisp:nil ((create-new-version :initarg :create-new-version @@ -28003,7 +28912,13 @@ (aws-sdk/generator/shape::input update-sms-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'smstemplate-request))) + 'smstemplate-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-sms-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-sms-template-response common-lisp:nil ((message-body :initarg :message-body :initform @@ -28042,7 +28957,13 @@ ( (aws-sdk/generator/shape::input update-sms-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-sms-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-template-active-version-request common-lisp:nil ((template-active-version-request :initarg @@ -28100,7 +29021,13 @@ (aws-sdk/generator/shape::input update-template-active-version-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'template-active-version-request))) + 'template-active-version-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-template-active-version-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-template-active-version-response common-lisp:nil ((message-body :initarg :message-body :initform @@ -28140,7 +29067,13 @@ ( (aws-sdk/generator/shape::input update-template-active-version-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-template-active-version-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-voice-channel-request common-lisp:nil ((application-id :initarg :application-id :initform @@ -28192,7 +29125,13 @@ (aws-sdk/generator/shape::input update-voice-channel-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'voice-channel-request))) + 'voice-channel-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-voice-channel-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-voice-channel-response common-lisp:nil ((voice-channel-response :initarg @@ -28238,7 +29177,13 @@ (aws-sdk/generator/shape::input update-voice-channel-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'voice-channel-response))) + 'voice-channel-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-voice-channel-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-voice-template-request common-lisp:nil ((create-new-version :initarg :create-new-version @@ -28303,7 +29248,13 @@ (aws-sdk/generator/shape::input update-voice-template-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'voice-template-request))) + 'voice-template-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-voice-template-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass update-voice-template-response common-lisp:nil ((message-body :initarg :message-body :initform @@ -28343,7 +29294,13 @@ ( (aws-sdk/generator/shape::input update-voice-template-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + update-voice-template-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass verification-response common-lisp:nil ((valid :initarg :valid :initform common-lisp:nil :type @@ -28431,7 +29388,13 @@ (aws-sdk/generator/shape::input verify-otpmessage-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'verify-otpmessage-request-parameters))) + 'verify-otpmessage-request-parameters)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + verify-otpmessage-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass verify-otpmessage-request-parameters common-lisp:nil ((destination-identity :initarg :destination-identity @@ -28545,7 +29508,13 @@ (aws-sdk/generator/shape::input verify-otpmessage-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'verification-response))) + 'verification-response)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + verify-otpmessage-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass voice-channel-request common-lisp:nil ((enabled :initarg :enabled :initform common-lisp:nil @@ -30756,7 +31725,7 @@ aws-sdk/generator/operation::input "POST" "/v1/apps" "CreateApp")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app)) (common-lisp:progn (common-lisp:defun create-campaign @@ -30779,12 +31748,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateCampaign")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-campaign)) (common-lisp:progn (common-lisp:defun create-email-template @@ -30807,12 +31777,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/email" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "CreateEmailTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-email-template)) (common-lisp:progn (common-lisp:defun create-export-job @@ -30835,12 +31806,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/jobs/export" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateExportJob")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-export-job)) (common-lisp:progn (common-lisp:defun create-import-job @@ -30863,12 +31835,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/jobs/import" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateImportJob")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-import-job)) (common-lisp:progn (common-lisp:defun create-in-app-template @@ -30891,12 +31864,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/inapp" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "CreateInAppTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-in-app-template)) (common-lisp:progn (common-lisp:defun create-journey @@ -30919,12 +31893,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateJourney")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-journey)) (common-lisp:progn (common-lisp:defun create-push-template @@ -30948,12 +31923,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/push" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "CreatePushTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-push-template)) (common-lisp:progn (common-lisp:defun create-recommender-configuration @@ -30973,7 +31949,7 @@ "POST" "/v1/recommenders" "CreateRecommenderConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-recommender-configuration)) (common-lisp:progn (common-lisp:defun create-segment @@ -30996,12 +31972,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateSegment")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-segment)) (common-lisp:progn (common-lisp:defun create-sms-template @@ -31024,12 +32001,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/sms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "CreateSmsTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sms-template)) (common-lisp:progn (common-lisp:defun create-voice-template @@ -31052,12 +32030,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/voice" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "CreateVoiceTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-voice-template)) (common-lisp:progn (common-lisp:defun delete-adm-channel @@ -31079,12 +32058,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/adm" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteAdmChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-adm-channel)) (common-lisp:progn (common-lisp:defun delete-apns-channel @@ -31106,12 +32086,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApnsChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-apns-channel)) (common-lisp:progn (common-lisp:defun delete-apns-sandbox-channel @@ -31134,12 +32115,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_sandbox" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApnsSandboxChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-apns-sandbox-channel)) (common-lisp:progn (common-lisp:defun delete-apns-voip-channel @@ -31161,12 +32143,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_voip" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApnsVoipChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-apns-voip-channel)) (common-lisp:progn (common-lisp:defun delete-apns-voip-sandbox-channel @@ -31189,12 +32172,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_voip_sandbox" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApnsVoipSandboxChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-apns-voip-sandbox-channel)) (common-lisp:progn (common-lisp:defun delete-app @@ -31216,12 +32200,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApp")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app)) (common-lisp:progn (common-lisp:defun delete-baidu-channel @@ -31243,12 +32228,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/baidu" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteBaiduChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-baidu-channel)) (common-lisp:progn (common-lisp:defun delete-campaign @@ -31270,16 +32256,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)))) + 'campaign-id) + common-lisp:t))) "DeleteCampaign")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-campaign)) (common-lisp:progn (common-lisp:defun delete-email-channel @@ -31301,12 +32289,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/email" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteEmailChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-email-channel)) (common-lisp:progn (common-lisp:defun delete-email-template @@ -31328,12 +32317,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/email" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DeleteEmailTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-email-template)) (common-lisp:progn (common-lisp:defun delete-endpoint @@ -31355,16 +32345,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "DeleteEndpoint")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint)) (common-lisp:progn (common-lisp:defun delete-event-stream @@ -31386,12 +32378,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/eventstream" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteEventStream")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-event-stream)) (common-lisp:progn (common-lisp:defun delete-gcm-channel @@ -31413,12 +32406,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/gcm" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteGcmChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-gcm-channel)) (common-lisp:progn (common-lisp:defun delete-in-app-template @@ -31440,12 +32434,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/inapp" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DeleteInAppTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-in-app-template)) (common-lisp:progn (common-lisp:defun delete-journey @@ -31467,16 +32462,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)))) + 'journey-id) + common-lisp:t))) "DeleteJourney")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-journey)) (common-lisp:progn (common-lisp:defun delete-push-template @@ -31498,12 +32495,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/push" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DeletePushTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-push-template)) (common-lisp:progn (common-lisp:defun delete-recommender-configuration @@ -31526,12 +32524,13 @@ (common-lisp:format common-lisp:nil "/v1/recommenders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recommender-id)))) + 'recommender-id) + common-lisp:t))) "DeleteRecommenderConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recommender-configuration)) (common-lisp:progn (common-lisp:defun delete-segment @@ -31553,16 +32552,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment-id)))) + 'segment-id) + common-lisp:t))) "DeleteSegment")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-segment)) (common-lisp:progn (common-lisp:defun delete-sms-channel @@ -31584,12 +32585,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/sms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteSmsChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sms-channel)) (common-lisp:progn (common-lisp:defun delete-sms-template @@ -31611,12 +32613,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/sms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DeleteSmsTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sms-template)) (common-lisp:progn (common-lisp:defun delete-user-endpoints @@ -31638,16 +32641,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DeleteUserEndpoints")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-endpoints)) (common-lisp:progn (common-lisp:defun delete-voice-channel @@ -31669,12 +32674,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/voice" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteVoiceChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-channel)) (common-lisp:progn (common-lisp:defun delete-voice-template @@ -31696,12 +32702,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/voice" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DeleteVoiceTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-voice-template)) (common-lisp:progn (common-lisp:defun get-adm-channel @@ -31723,12 +32730,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/adm" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetAdmChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-adm-channel)) (common-lisp:progn (common-lisp:defun get-apns-channel @@ -31750,12 +32758,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApnsChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-apns-channel)) (common-lisp:progn (common-lisp:defun get-apns-sandbox-channel @@ -31777,12 +32786,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_sandbox" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApnsSandboxChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-apns-sandbox-channel)) (common-lisp:progn (common-lisp:defun get-apns-voip-channel @@ -31804,12 +32814,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_voip" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApnsVoipChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-apns-voip-channel)) (common-lisp:progn (common-lisp:defun get-apns-voip-sandbox-channel @@ -31832,12 +32843,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_voip_sandbox" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApnsVoipSandboxChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-apns-voip-sandbox-channel)) (common-lisp:progn (common-lisp:defun get-app @@ -31859,12 +32871,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApp")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app)) (common-lisp:progn (common-lisp:defun get-application-date-range-kpi @@ -31890,16 +32903,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/kpis/daterange/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'kpi-name)))) + 'kpi-name) + common-lisp:t))) "GetApplicationDateRangeKpi")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-date-range-kpi)) (common-lisp:progn (common-lisp:defun get-application-settings @@ -31921,12 +32936,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApplicationSettings")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-settings)) (common-lisp:progn (common-lisp:defun get-apps @@ -31943,7 +32959,7 @@ aws-sdk/generator/operation::input "GET" "/v1/apps" "GetApps")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-apps)) (common-lisp:progn (common-lisp:defun get-baidu-channel @@ -31965,12 +32981,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/baidu" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetBaiduChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-baidu-channel)) (common-lisp:progn (common-lisp:defun get-campaign @@ -31992,16 +33009,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)))) + 'campaign-id) + common-lisp:t))) "GetCampaign")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaign)) (common-lisp:progn (common-lisp:defun get-campaign-activities @@ -32025,16 +33044,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns/~A/activities" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)))) + 'campaign-id) + common-lisp:t))) "GetCampaignActivities")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaign-activities)) (common-lisp:progn (common-lisp:defun get-campaign-date-range-kpi @@ -32060,20 +33081,23 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns/~A/kpis/daterange/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)) - (quri.encode:url-encode + 'campaign-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'kpi-name)))) + 'kpi-name) + common-lisp:t))) "GetCampaignDateRangeKpi")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaign-date-range-kpi)) (common-lisp:progn (common-lisp:defun get-campaign-version @@ -32096,20 +33120,23 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)) - (quri.encode:url-encode + 'campaign-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "GetCampaignVersion")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaign-version)) (common-lisp:progn (common-lisp:defun get-campaign-versions @@ -32133,16 +33160,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)))) + 'campaign-id) + common-lisp:t))) "GetCampaignVersions")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaign-versions)) (common-lisp:progn (common-lisp:defun get-campaigns @@ -32164,12 +33193,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetCampaigns")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-campaigns)) (common-lisp:progn (common-lisp:defun get-channels @@ -32191,12 +33221,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetChannels")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-channels)) (common-lisp:progn (common-lisp:defun get-email-channel @@ -32218,12 +33249,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/email" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetEmailChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-email-channel)) (common-lisp:progn (common-lisp:defun get-email-template @@ -32245,12 +33277,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/email" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "GetEmailTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-email-template)) (common-lisp:progn (common-lisp:defun get-endpoint @@ -32272,16 +33305,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "GetEndpoint")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-endpoint)) (common-lisp:progn (common-lisp:defun get-event-stream @@ -32303,12 +33338,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/eventstream" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetEventStream")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-event-stream)) (common-lisp:progn (common-lisp:defun get-export-job @@ -32330,16 +33366,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/jobs/export/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetExportJob")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-export-job)) (common-lisp:progn (common-lisp:defun get-export-jobs @@ -32361,12 +33399,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/jobs/export" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetExportJobs")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-export-jobs)) (common-lisp:progn (common-lisp:defun get-gcm-channel @@ -32388,12 +33427,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/gcm" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetGcmChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-gcm-channel)) (common-lisp:progn (common-lisp:defun get-import-job @@ -32415,16 +33455,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/jobs/import/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetImportJob")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-import-job)) (common-lisp:progn (common-lisp:defun get-import-jobs @@ -32446,12 +33488,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/jobs/import" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetImportJobs")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-import-jobs)) (common-lisp:progn (common-lisp:defun get-in-app-messages @@ -32473,16 +33516,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/endpoints/~A/inappmessages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "GetInAppMessages")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-in-app-messages)) (common-lisp:progn (common-lisp:defun get-in-app-template @@ -32504,12 +33549,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/inapp" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "GetInAppTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-in-app-template)) (common-lisp:progn (common-lisp:defun get-journey @@ -32531,16 +33577,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)))) + 'journey-id) + common-lisp:t))) "GetJourney")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-journey)) (common-lisp:progn (common-lisp:defun get-journey-date-range-kpi @@ -32566,20 +33614,23 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A/kpis/daterange/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)) - (quri.encode:url-encode + 'journey-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'kpi-name)))) + 'kpi-name) + common-lisp:t))) "GetJourneyDateRangeKpi")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-journey-date-range-kpi)) (common-lisp:progn (common-lisp:defun get-journey-execution-activity-metrics @@ -32605,20 +33656,23 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A/activities/~A/execution-metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)) - (quri.encode:url-encode + 'journey-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-activity-id)))) + 'journey-activity-id) + common-lisp:t))) "GetJourneyExecutionActivityMetrics")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-journey-execution-activity-metrics)) (common-lisp:progn (common-lisp:defun get-journey-execution-metrics @@ -32643,16 +33697,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A/execution-metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)))) + 'journey-id) + common-lisp:t))) "GetJourneyExecutionMetrics")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-journey-execution-metrics)) (common-lisp:progn (common-lisp:defun get-journey-run-execution-activity-metrics @@ -32678,24 +33734,28 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A/runs/~A/activities/~A/execution-metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)) - (quri.encode:url-encode + 'journey-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'run-id)) - (quri.encode:url-encode + 'run-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-activity-id)))) + 'journey-activity-id) + common-lisp:t))) "GetJourneyRunExecutionActivityMetrics")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-journey-run-execution-activity-metrics)) (common-lisp:progn (common-lisp:defun get-journey-run-execution-metrics @@ -32721,20 +33781,23 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A/runs/~A/execution-metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)) - (quri.encode:url-encode + 'journey-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'run-id)))) + 'run-id) + common-lisp:t))) "GetJourneyRunExecutionMetrics")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-journey-run-execution-metrics)) (common-lisp:progn (common-lisp:defun get-journey-runs @@ -32758,16 +33821,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A/runs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)))) + 'journey-id) + common-lisp:t))) "GetJourneyRuns")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-journey-runs)) (common-lisp:progn (common-lisp:defun get-push-template @@ -32789,12 +33854,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/push" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "GetPushTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-push-template)) (common-lisp:progn (common-lisp:defun get-recommender-configuration @@ -32817,12 +33883,13 @@ (common-lisp:format common-lisp:nil "/v1/recommenders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recommender-id)))) + 'recommender-id) + common-lisp:t))) "GetRecommenderConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommender-configuration)) (common-lisp:progn (common-lisp:defun get-recommender-configurations @@ -32841,7 +33908,7 @@ "GET" "/v1/recommenders" "GetRecommenderConfigurations")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommender-configurations)) (common-lisp:progn (common-lisp:defun get-segment @@ -32863,16 +33930,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment-id)))) + 'segment-id) + common-lisp:t))) "GetSegment")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-segment)) (common-lisp:progn (common-lisp:defun get-segment-export-jobs @@ -32896,16 +33965,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments/~A/jobs/export" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment-id)))) + 'segment-id) + common-lisp:t))) "GetSegmentExportJobs")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-segment-export-jobs)) (common-lisp:progn (common-lisp:defun get-segment-import-jobs @@ -32929,16 +34000,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments/~A/jobs/import" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment-id)))) + 'segment-id) + common-lisp:t))) "GetSegmentImportJobs")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-segment-import-jobs)) (common-lisp:progn (common-lisp:defun get-segment-version @@ -32961,20 +34034,23 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment-id)) - (quri.encode:url-encode + 'segment-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "GetSegmentVersion")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-segment-version)) (common-lisp:progn (common-lisp:defun get-segment-versions @@ -32998,16 +34074,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment-id)))) + 'segment-id) + common-lisp:t))) "GetSegmentVersions")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-segment-versions)) (common-lisp:progn (common-lisp:defun get-segments @@ -33029,12 +34107,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetSegments")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-segments)) (common-lisp:progn (common-lisp:defun get-sms-channel @@ -33056,12 +34135,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/sms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetSmsChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sms-channel)) (common-lisp:progn (common-lisp:defun get-sms-template @@ -33083,12 +34163,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/sms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "GetSmsTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sms-template)) (common-lisp:progn (common-lisp:defun get-user-endpoints @@ -33110,16 +34191,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "GetUserEndpoints")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-endpoints)) (common-lisp:progn (common-lisp:defun get-voice-channel @@ -33141,12 +34224,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/voice" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetVoiceChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-channel)) (common-lisp:progn (common-lisp:defun get-voice-template @@ -33168,12 +34252,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/voice" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "GetVoiceTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-voice-template)) (common-lisp:progn (common-lisp:defun list-journeys @@ -33195,12 +34280,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListJourneys")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-journeys)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -33222,12 +34308,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-template-versions @@ -33251,16 +34338,18 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)) - (quri.encode:url-encode + 'template-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-type)))) + 'template-type) + common-lisp:t))) "ListTemplateVersions")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-template-versions)) (common-lisp:progn (common-lisp:defun list-templates @@ -33279,7 +34368,7 @@ aws-sdk/generator/operation::input "GET" "/v1/templates" "ListTemplates")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-templates)) (common-lisp:progn (common-lisp:defun phone-number-validate @@ -33297,7 +34386,7 @@ "POST" "/v1/phone/number/validate" "PhoneNumberValidate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'phone-number-validate)) (common-lisp:progn (common-lisp:defun put-event-stream @@ -33320,12 +34409,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/eventstream" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "PutEventStream")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-event-stream)) (common-lisp:progn (common-lisp:defun put-events @@ -33347,12 +34437,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/events" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "PutEvents")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-events)) (common-lisp:progn (common-lisp:defun remove-attributes @@ -33377,16 +34468,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/attributes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute-type)))) + 'attribute-type) + common-lisp:t))) "RemoveAttributes")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-attributes)) (common-lisp:progn (common-lisp:defun send-messages @@ -33408,12 +34501,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/messages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "SendMessages")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-messages)) (common-lisp:progn (common-lisp:defun send-otpmessage @@ -33437,12 +34531,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/otp" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "SendOTPMessage")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-otpmessage)) (common-lisp:progn (common-lisp:defun send-users-messages @@ -33466,12 +34561,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/users-messages" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "SendUsersMessages")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-users-messages)) (common-lisp:progn (common-lisp:defun tag-resource @@ -33493,12 +34589,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -33520,12 +34617,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-adm-channel @@ -33548,12 +34646,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/adm" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateAdmChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-adm-channel)) (common-lisp:progn (common-lisp:defun update-apns-channel @@ -33576,12 +34675,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApnsChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-apns-channel)) (common-lisp:progn (common-lisp:defun update-apns-sandbox-channel @@ -33606,12 +34706,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_sandbox" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApnsSandboxChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-apns-sandbox-channel)) (common-lisp:progn (common-lisp:defun update-apns-voip-channel @@ -33634,12 +34735,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_voip" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApnsVoipChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-apns-voip-channel)) (common-lisp:progn (common-lisp:defun update-apns-voip-sandbox-channel @@ -33664,12 +34766,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/apns_voip_sandbox" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApnsVoipSandboxChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-apns-voip-sandbox-channel)) (common-lisp:progn (common-lisp:defun update-application-settings @@ -33694,12 +34797,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApplicationSettings")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application-settings)) (common-lisp:progn (common-lisp:defun update-baidu-channel @@ -33722,12 +34826,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/baidu" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateBaiduChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-baidu-channel)) (common-lisp:progn (common-lisp:defun update-campaign @@ -33751,16 +34856,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/campaigns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)))) + 'campaign-id) + common-lisp:t))) "UpdateCampaign")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-campaign)) (common-lisp:progn (common-lisp:defun update-email-channel @@ -33783,12 +34890,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/email" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateEmailChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-email-channel)) (common-lisp:progn (common-lisp:defun update-email-template @@ -33813,12 +34921,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/email" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "UpdateEmailTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-email-template)) (common-lisp:progn (common-lisp:defun update-endpoint @@ -33842,16 +34951,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/endpoints/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-id)))) + 'endpoint-id) + common-lisp:t))) "UpdateEndpoint")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-endpoint)) (common-lisp:progn (common-lisp:defun update-endpoints-batch @@ -33874,12 +34985,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/endpoints" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateEndpointsBatch")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-endpoints-batch)) (common-lisp:progn (common-lisp:defun update-gcm-channel @@ -33902,12 +35014,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/gcm" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateGcmChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gcm-channel)) (common-lisp:progn (common-lisp:defun update-in-app-template @@ -33932,12 +35045,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/inapp" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "UpdateInAppTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-in-app-template)) (common-lisp:progn (common-lisp:defun update-journey @@ -33961,16 +35075,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)))) + 'journey-id) + common-lisp:t))) "UpdateJourney")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-journey)) (common-lisp:progn (common-lisp:defun update-journey-state @@ -33994,16 +35110,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/journeys/~A/state" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'journey-id)))) + 'journey-id) + common-lisp:t))) "UpdateJourneyState")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-journey-state)) (common-lisp:progn (common-lisp:defun update-push-template @@ -34028,12 +35146,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/push" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "UpdatePushTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-push-template)) (common-lisp:progn (common-lisp:defun update-recommender-configuration @@ -34058,12 +35177,13 @@ (common-lisp:format common-lisp:nil "/v1/recommenders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recommender-id)))) + 'recommender-id) + common-lisp:t))) "UpdateRecommenderConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-recommender-configuration)) (common-lisp:progn (common-lisp:defun update-segment @@ -34087,16 +35207,18 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/segments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'segment-id)))) + 'segment-id) + common-lisp:t))) "UpdateSegment")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-segment)) (common-lisp:progn (common-lisp:defun update-sms-channel @@ -34119,12 +35241,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/sms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateSmsChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sms-channel)) (common-lisp:progn (common-lisp:defun update-sms-template @@ -34149,12 +35272,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/sms" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "UpdateSmsTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sms-template)) (common-lisp:progn (common-lisp:defun update-template-active-version @@ -34180,16 +35304,18 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/~A/active-version" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)) - (quri.encode:url-encode + 'template-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-type)))) + 'template-type) + common-lisp:t))) "UpdateTemplateActiveVersion")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template-active-version)) (common-lisp:progn (common-lisp:defun update-voice-channel @@ -34212,12 +35338,13 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/channels/voice" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateVoiceChannel")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-voice-channel)) (common-lisp:progn (common-lisp:defun update-voice-template @@ -34242,12 +35369,13 @@ (common-lisp:format common-lisp:nil "/v1/templates/~A/voice" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "UpdateVoiceTemplate")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-voice-template)) (common-lisp:progn (common-lisp:defun verify-otpmessage @@ -34272,10 +35400,11 @@ (common-lisp:format common-lisp:nil "/v1/apps/~A/verify-otp" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "VerifyOTPMessage")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'verify-otpmessage)) diff --git a/services/pipes/api.lisp b/services/pipes/api.lisp index 6e9ffbe2..fd133463 100644 --- a/services/pipes/api.lisp +++ b/services/pipes/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/pipes/api - (:use) - (:nicknames #:aws/pipes) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/pipes/api (:use) + (:nicknames #:aws/pipes) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/pipes/api) (common-lisp:progn (common-lisp:define-condition pipes-error @@ -20,7 +19,7 @@ (common-lisp:export 'pipes-error)) (common-lisp:progn (common-lisp:defclass pipes-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "pipes" :api-version "2015-10-07" :host-prefix "pipes" :signing-name "pipes" @@ -7214,12 +7213,13 @@ (common-lisp:format common-lisp:nil "/v1/pipes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreatePipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pipe)) (common-lisp:progn (common-lisp:defun delete-pipe @@ -7241,12 +7241,13 @@ (common-lisp:format common-lisp:nil "/v1/pipes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeletePipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pipe)) (common-lisp:progn (common-lisp:defun describe-pipe @@ -7268,12 +7269,13 @@ (common-lisp:format common-lisp:nil "/v1/pipes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribePipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pipe)) (common-lisp:progn (common-lisp:defun list-pipes @@ -7293,7 +7295,7 @@ aws-sdk/generator/operation::input "GET" "/v1/pipes" "ListPipes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipes)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7315,12 +7317,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-pipe @@ -7342,12 +7345,13 @@ (common-lisp:format common-lisp:nil "/v1/pipes/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "StartPipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-pipe)) (common-lisp:progn (common-lisp:defun stop-pipe @@ -7369,12 +7373,13 @@ (common-lisp:format common-lisp:nil "/v1/pipes/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "StopPipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-pipe)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7396,12 +7401,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7423,12 +7429,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-pipe @@ -7455,10 +7462,11 @@ (common-lisp:format common-lisp:nil "/v1/pipes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdatePipe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipe)) diff --git a/services/polly/api.lisp b/services/polly/api.lisp index add9baf0..1c397d42 100644 --- a/services/polly/api.lisp +++ b/services/polly/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/polly/api - (:use) - (:nicknames #:aws/polly) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/polly/api (:use) + (:nicknames #:aws/polly) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/polly/api) (common-lisp:progn (common-lisp:define-condition polly-error @@ -20,7 +19,7 @@ (common-lisp:export 'polly-error)) (common-lisp:progn (common-lisp:defclass polly-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "polly" :api-version "2016-06-10" :host-prefix "polly" :signing-name @@ -1592,12 +1591,16 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-characters)) - (common-lisp:cons "x-amzn-RequestCharacters" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-RequestCharacters" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1614,7 +1617,13 @@ ( (aws-sdk/generator/shape::input synthesize-speech-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + synthesize-speech-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype task-id () 'common-lisp:string) (common-lisp:deftype task-status () 'common-lisp:string) (common-lisp:deftype task-status-reason () 'common-lisp:string) @@ -1778,12 +1787,13 @@ (common-lisp:format common-lisp:nil "/v1/lexicons/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'lexicon-name)))) + 'lexicon-name) + common-lisp:t))) "DeleteLexicon")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lexicon)) (common-lisp:progn (common-lisp:defun describe-voices @@ -1803,7 +1813,7 @@ aws-sdk/generator/operation::input "GET" "/v1/voices" "DescribeVoices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-voices)) (common-lisp:progn (common-lisp:defun get-lexicon @@ -1825,12 +1835,13 @@ (common-lisp:format common-lisp:nil "/v1/lexicons/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'lexicon-name)))) + 'lexicon-name) + common-lisp:t))) "GetLexicon")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lexicon)) (common-lisp:progn (common-lisp:defun get-speech-synthesis-task @@ -1852,12 +1863,13 @@ (common-lisp:format common-lisp:nil "/v1/synthesisTasks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'task-id)))) + 'task-id) + common-lisp:t))) "GetSpeechSynthesisTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-speech-synthesis-task)) (common-lisp:progn (common-lisp:defun list-lexicons @@ -1874,7 +1886,7 @@ aws-sdk/generator/operation::input "GET" "/v1/lexicons" "ListLexicons")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lexicons)) (common-lisp:progn (common-lisp:defun list-speech-synthesis-tasks @@ -1893,7 +1905,7 @@ "GET" "/v1/synthesisTasks" "ListSpeechSynthesisTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-speech-synthesis-tasks)) (common-lisp:progn (common-lisp:defun put-lexicon @@ -1915,12 +1927,13 @@ (common-lisp:format common-lisp:nil "/v1/lexicons/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'lexicon-name)))) + 'lexicon-name) + common-lisp:t))) "PutLexicon")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-lexicon)) (common-lisp:progn (common-lisp:defun start-speech-synthesis-task @@ -1945,7 +1958,7 @@ "POST" "/v1/synthesisTasks" "StartSpeechSynthesisTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-speech-synthesis-task)) (common-lisp:progn (common-lisp:defun synthesize-speech @@ -1967,5 +1980,5 @@ "POST" "/v1/speech" "SynthesizeSpeech") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'synthesize-speech)) diff --git a/services/pricing/api.lisp b/services/pricing/api.lisp index cdb91071..38b9a644 100644 --- a/services/pricing/api.lisp +++ b/services/pricing/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/pricing/api - (:use) - (:nicknames #:aws/pricing) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/pricing/api (:use) + (:nicknames #:aws/pricing) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/pricing/api) (common-lisp:progn (common-lisp:define-condition pricing-error @@ -1038,7 +1037,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-services)) (common-lisp:progn (common-lisp:defun get-attribute-values @@ -1057,7 +1056,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAttributeValues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-attribute-values)) (common-lisp:progn (common-lisp:defun get-price-list-file-url @@ -1074,7 +1073,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPriceListFileUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-price-list-file-url)) (common-lisp:progn (common-lisp:defun get-products @@ -1094,7 +1093,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetProducts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-products)) (common-lisp:progn (common-lisp:defun list-price-lists @@ -1114,5 +1113,5 @@ aws-sdk/generator/operation::input "POST" "/" "ListPriceLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-price-lists)) diff --git a/services/privatenetworks/api.lisp b/services/privatenetworks/api.lisp index de896b84..5cf4ed32 100644 --- a/services/privatenetworks/api.lisp +++ b/services/privatenetworks/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/privatenetworks/api - (:use) - (:nicknames #:aws/privatenetworks) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/privatenetworks/api (:use) + (:nicknames #:aws/privatenetworks) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/privatenetworks/api) (common-lisp:progn (common-lisp:define-condition privatenetworks-error @@ -20,7 +19,7 @@ (common-lisp:export 'privatenetworks-error)) (common-lisp:progn (common-lisp:defclass privatenetworks-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "privatenetworks" :api-version "2021-12-03" :host-prefix @@ -4454,7 +4453,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/orders/acknowledge" "AcknowledgeOrderReceipt")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'acknowledge-order-receipt)) (common-lisp:progn (common-lisp:defun activate-device-identifier @@ -4472,7 +4471,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/device-identifiers/activate" "ActivateDeviceIdentifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-device-identifier)) (common-lisp:progn (common-lisp:defun activate-network-site @@ -4491,7 +4490,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/network-sites/activate" "ActivateNetworkSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-network-site)) (common-lisp:progn (common-lisp:defun configure-access-point @@ -4510,7 +4509,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/network-resources/configure" "ConfigureAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'configure-access-point)) (common-lisp:progn (common-lisp:defun create-network @@ -4528,7 +4527,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/networks" "CreateNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-network)) (common-lisp:progn (common-lisp:defun create-network-site @@ -4548,7 +4547,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/network-sites" "CreateNetworkSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-network-site)) (common-lisp:progn (common-lisp:defun deactivate-device-identifier @@ -4566,7 +4565,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/device-identifiers/deactivate" "DeactivateDeviceIdentifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deactivate-device-identifier)) (common-lisp:progn (common-lisp:defun delete-network @@ -4583,12 +4582,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v1/networks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'network-arn)))) + 'network-arn) + common-lisp:t))) "DeleteNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-network)) (common-lisp:progn (common-lisp:defun delete-network-site @@ -4605,12 +4605,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v1/network-sites/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'network-site-arn)))) + 'network-site-arn) + common-lisp:t))) "DeleteNetworkSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-network-site)) (common-lisp:progn (common-lisp:defun get-device-identifier @@ -4627,12 +4628,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v1/device-identifiers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'device-identifier-arn)))) + 'device-identifier-arn) + common-lisp:t))) "GetDeviceIdentifier")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-identifier)) (common-lisp:progn (common-lisp:defun get-network @@ -4649,12 +4651,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v1/networks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'network-arn)))) + 'network-arn) + common-lisp:t))) "GetNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network)) (common-lisp:progn (common-lisp:defun get-network-resource @@ -4671,12 +4674,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v1/network-resources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'network-resource-arn)))) + 'network-resource-arn) + common-lisp:t))) "GetNetworkResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-resource)) (common-lisp:progn (common-lisp:defun get-network-site @@ -4693,12 +4697,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v1/network-sites/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'network-site-arn)))) + 'network-site-arn) + common-lisp:t))) "GetNetworkSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-site)) (common-lisp:progn (common-lisp:defun get-order @@ -4715,12 +4720,12 @@ 'privatenetworks-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/v1/orders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'order-arn)))) + aws-sdk/generator/operation::input 'order-arn) + common-lisp:t))) "GetOrder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-order)) (common-lisp:progn (common-lisp:defun list-device-identifiers @@ -4738,7 +4743,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/device-identifiers/list" "ListDeviceIdentifiers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-identifiers)) (common-lisp:progn (common-lisp:defun list-network-resources @@ -4756,7 +4761,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/network-resources" "ListNetworkResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-network-resources)) (common-lisp:progn (common-lisp:defun list-network-sites @@ -4774,7 +4779,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/network-sites/list" "ListNetworkSites")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-network-sites)) (common-lisp:progn (common-lisp:defun list-networks @@ -4791,7 +4796,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/networks/list" "ListNetworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-networks)) (common-lisp:progn (common-lisp:defun list-orders @@ -4809,7 +4814,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/orders/list" "ListOrders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-orders)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4826,12 +4831,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun ping () @@ -4860,7 +4866,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "POST" "/v1/network-resources/update" "StartNetworkResourceUpdate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-network-resource-update)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4877,12 +4883,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4899,12 +4906,13 @@ 'privatenetworks-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-network-site @@ -4922,7 +4930,7 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "PUT" "/v1/network-sites/site" "UpdateNetworkSite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-network-site)) (common-lisp:progn (common-lisp:defun update-network-site-plan @@ -4940,5 +4948,5 @@ (aws-sdk/generator/shape:make-request-with-input 'privatenetworks-request aws-sdk/generator/operation::input "PUT" "/v1/network-sites/plan" "UpdateNetworkSitePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-network-site-plan)) diff --git a/services/proton/api.lisp b/services/proton/api.lisp index 9695fafd..08400803 100644 --- a/services/proton/api.lisp +++ b/services/proton/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/proton/api - (:use) - (:nicknames #:aws/proton) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/proton/api (:use) + (:nicknames #:aws/proton) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/proton/api) (common-lisp:progn (common-lisp:define-condition proton-error @@ -17358,7 +17357,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptEnvironmentAccountConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-environment-account-connection)) (common-lisp:progn (common-lisp:defun cancel-component-deployment @@ -17376,7 +17375,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelComponentDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-component-deployment)) (common-lisp:progn (common-lisp:defun cancel-environment-deployment @@ -17394,7 +17393,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelEnvironmentDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-environment-deployment)) (common-lisp:progn (common-lisp:defun cancel-service-instance-deployment @@ -17413,7 +17412,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelServiceInstanceDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-service-instance-deployment)) (common-lisp:progn (common-lisp:defun cancel-service-pipeline-deployment @@ -17431,7 +17430,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelServicePipelineDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-service-pipeline-deployment)) (common-lisp:progn (common-lisp:defun create-component @@ -17452,7 +17451,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-component)) (common-lisp:progn (common-lisp:defun create-environment @@ -17477,7 +17476,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun create-environment-account-connection @@ -17499,7 +17498,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEnvironmentAccountConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment-account-connection)) (common-lisp:progn (common-lisp:defun create-environment-template @@ -17520,7 +17519,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEnvironmentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment-template)) (common-lisp:progn (common-lisp:defun create-environment-template-version @@ -17541,7 +17540,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEnvironmentTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment-template-version)) (common-lisp:progn (common-lisp:defun create-repository @@ -17560,7 +17559,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-repository)) (common-lisp:progn (common-lisp:defun create-service @@ -17583,7 +17582,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service)) (common-lisp:progn (common-lisp:defun create-service-instance @@ -17603,7 +17602,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServiceInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-instance)) (common-lisp:progn (common-lisp:defun create-service-sync-config @@ -17623,7 +17622,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServiceSyncConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-sync-config)) (common-lisp:progn (common-lisp:defun create-service-template @@ -17643,7 +17642,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServiceTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-template)) (common-lisp:progn (common-lisp:defun create-service-template-version @@ -17666,7 +17665,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServiceTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-template-version)) (common-lisp:progn (common-lisp:defun create-template-sync-config @@ -17688,7 +17687,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTemplateSyncConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-template-sync-config)) (common-lisp:progn (common-lisp:defun delete-component @@ -17705,7 +17704,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-component)) (common-lisp:progn (common-lisp:defun delete-deployment @@ -17722,7 +17721,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-deployment)) (common-lisp:progn (common-lisp:defun delete-environment @@ -17739,7 +17738,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun delete-environment-account-connection @@ -17757,7 +17756,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEnvironmentAccountConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment-account-connection)) (common-lisp:progn (common-lisp:defun delete-environment-template @@ -17775,7 +17774,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEnvironmentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment-template)) (common-lisp:progn (common-lisp:defun delete-environment-template-version @@ -17795,7 +17794,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEnvironmentTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment-template-version)) (common-lisp:progn (common-lisp:defun delete-repository @@ -17812,7 +17811,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-repository)) (common-lisp:progn (common-lisp:defun delete-service @@ -17829,7 +17828,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service)) (common-lisp:progn (common-lisp:defun delete-service-sync-config @@ -17846,7 +17845,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServiceSyncConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-sync-config)) (common-lisp:progn (common-lisp:defun delete-service-template @@ -17863,7 +17862,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServiceTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-template)) (common-lisp:progn (common-lisp:defun delete-service-template-version @@ -17883,7 +17882,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServiceTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-template-version)) (common-lisp:progn (common-lisp:defun delete-template-sync-config @@ -17901,7 +17900,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTemplateSyncConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-template-sync-config)) (common-lisp:progn (common-lisp:defun get-account-settings () @@ -17926,7 +17925,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-component)) (common-lisp:progn (common-lisp:defun get-deployment @@ -17946,7 +17945,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeployment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployment)) (common-lisp:progn (common-lisp:defun get-environment @@ -17963,7 +17962,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment)) (common-lisp:progn (common-lisp:defun get-environment-account-connection @@ -17981,7 +17980,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEnvironmentAccountConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment-account-connection)) (common-lisp:progn (common-lisp:defun get-environment-template @@ -17998,7 +17997,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEnvironmentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment-template)) (common-lisp:progn (common-lisp:defun get-environment-template-version @@ -18018,7 +18017,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetEnvironmentTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment-template-version)) (common-lisp:progn (common-lisp:defun get-repository @@ -18035,7 +18034,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository)) (common-lisp:progn (common-lisp:defun get-repository-sync-status @@ -18055,7 +18054,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRepositorySyncStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-repository-sync-status)) (common-lisp:progn (common-lisp:defun get-resources-summary () @@ -18080,7 +18079,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service)) (common-lisp:progn (common-lisp:defun get-service-instance @@ -18097,7 +18096,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-instance)) (common-lisp:progn (common-lisp:defun get-service-instance-sync-status @@ -18116,7 +18115,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceInstanceSyncStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-instance-sync-status)) (common-lisp:progn (common-lisp:defun get-service-sync-blocker-summary @@ -18135,7 +18134,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceSyncBlockerSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-sync-blocker-summary)) (common-lisp:progn (common-lisp:defun get-service-sync-config @@ -18152,7 +18151,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceSyncConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-sync-config)) (common-lisp:progn (common-lisp:defun get-service-template @@ -18169,7 +18168,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-template)) (common-lisp:progn (common-lisp:defun get-service-template-version @@ -18189,7 +18188,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-template-version)) (common-lisp:progn (common-lisp:defun get-template-sync-config @@ -18206,7 +18205,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTemplateSyncConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-template-sync-config)) (common-lisp:progn (common-lisp:defun get-template-sync-status @@ -18225,7 +18224,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTemplateSyncStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-template-sync-status)) (common-lisp:progn (common-lisp:defun list-component-outputs @@ -18243,7 +18242,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListComponentOutputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-component-outputs)) (common-lisp:progn (common-lisp:defun list-component-provisioned-resources @@ -18261,7 +18260,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListComponentProvisionedResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-component-provisioned-resources)) (common-lisp:progn (common-lisp:defun list-components @@ -18281,7 +18280,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-components)) (common-lisp:progn (common-lisp:defun list-deployments @@ -18301,7 +18300,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployments)) (common-lisp:progn (common-lisp:defun list-environment-account-connections @@ -18322,7 +18321,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEnvironmentAccountConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-account-connections)) (common-lisp:progn (common-lisp:defun list-environment-outputs @@ -18341,7 +18340,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEnvironmentOutputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-outputs)) (common-lisp:progn (common-lisp:defun list-environment-provisioned-resources @@ -18359,7 +18358,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEnvironmentProvisionedResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-provisioned-resources)) (common-lisp:progn (common-lisp:defun list-environment-template-versions @@ -18379,7 +18378,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEnvironmentTemplateVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-template-versions)) (common-lisp:progn (common-lisp:defun list-environment-templates @@ -18396,7 +18395,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEnvironmentTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environment-templates)) (common-lisp:progn (common-lisp:defun list-environments @@ -18415,7 +18414,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-repositories @@ -18432,7 +18431,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repositories)) (common-lisp:progn (common-lisp:defun list-repository-sync-definitions @@ -18453,7 +18452,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRepositorySyncDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-repository-sync-definitions)) (common-lisp:progn (common-lisp:defun list-service-instance-outputs @@ -18474,7 +18473,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceInstanceOutputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-instance-outputs)) (common-lisp:progn (common-lisp:defun list-service-instance-provisioned-resources @@ -18494,7 +18493,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceInstanceProvisionedResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-instance-provisioned-resources)) (common-lisp:progn (common-lisp:defun list-service-instances @@ -18514,7 +18513,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-instances)) (common-lisp:progn (common-lisp:defun list-service-pipeline-outputs @@ -18533,7 +18532,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServicePipelineOutputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-pipeline-outputs)) (common-lisp:progn (common-lisp:defun list-service-pipeline-provisioned-resources @@ -18551,7 +18550,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServicePipelineProvisionedResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-pipeline-provisioned-resources)) (common-lisp:progn (common-lisp:defun list-service-template-versions @@ -18571,7 +18570,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceTemplateVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-template-versions)) (common-lisp:progn (common-lisp:defun list-service-templates @@ -18588,7 +18587,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-templates)) (common-lisp:progn (common-lisp:defun list-services @@ -18605,7 +18604,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -18623,7 +18622,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun notify-resource-deployment-status-change @@ -18644,7 +18643,7 @@ aws-sdk/generator/operation::input "POST" "/" "NotifyResourceDeploymentStatusChange")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-resource-deployment-status-change)) (common-lisp:progn (common-lisp:defun reject-environment-account-connection @@ -18662,7 +18661,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectEnvironmentAccountConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-environment-account-connection)) (common-lisp:progn (common-lisp:defun tag-resource @@ -18679,7 +18678,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -18696,7 +18695,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-account-settings @@ -18719,7 +18718,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-settings)) (common-lisp:progn (common-lisp:defun update-component @@ -18740,7 +18739,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-component)) (common-lisp:progn (common-lisp:defun update-environment @@ -18765,7 +18764,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment)) (common-lisp:progn (common-lisp:defun update-environment-account-connection @@ -18785,7 +18784,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEnvironmentAccountConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment-account-connection)) (common-lisp:progn (common-lisp:defun update-environment-template @@ -18803,7 +18802,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEnvironmentTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment-template)) (common-lisp:progn (common-lisp:defun update-environment-template-version @@ -18824,7 +18823,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEnvironmentTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment-template-version)) (common-lisp:progn (common-lisp:defun update-service @@ -18841,7 +18840,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service)) (common-lisp:progn (common-lisp:defun update-service-instance @@ -18862,7 +18861,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-instance)) (common-lisp:progn (common-lisp:defun update-service-pipeline @@ -18882,7 +18881,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServicePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-pipeline)) (common-lisp:progn (common-lisp:defun update-service-sync-blocker @@ -18900,7 +18899,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceSyncBlocker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-sync-blocker)) (common-lisp:progn (common-lisp:defun update-service-sync-config @@ -18920,7 +18919,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceSyncConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-sync-config)) (common-lisp:progn (common-lisp:defun update-service-template @@ -18937,7 +18936,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-template)) (common-lisp:progn (common-lisp:defun update-service-template-version @@ -18960,7 +18959,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceTemplateVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-template-version)) (common-lisp:progn (common-lisp:defun update-template-sync-config @@ -18982,5 +18981,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTemplateSyncConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template-sync-config)) diff --git a/services/qbusiness/api.lisp b/services/qbusiness/api.lisp index 8990a833..bacf655a 100644 --- a/services/qbusiness/api.lisp +++ b/services/qbusiness/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/qbusiness/api - (:use) - (:nicknames #:aws/qbusiness) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/qbusiness/api (:use) + (:nicknames #:aws/qbusiness) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/qbusiness/api) (common-lisp:progn (common-lisp:define-condition qbusiness-error @@ -20,7 +19,7 @@ (common-lisp:export 'qbusiness-error)) (common-lisp:progn (common-lisp:defclass qbusiness-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "qbusiness" :api-version "2023-11-27" :host-prefix "qbusiness" :signing-name @@ -11608,16 +11607,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/documents/delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "BatchDeleteDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-document)) (common-lisp:progn (common-lisp:defun batch-put-document @@ -11642,16 +11643,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/documents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "BatchPutDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-document)) (common-lisp:progn (common-lisp:defun chat-sync @@ -11678,12 +11681,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/conversations?sync" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ChatSync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'chat-sync)) (common-lisp:progn (common-lisp:defun create-application @@ -11704,7 +11708,7 @@ aws-sdk/generator/operation::input "POST" "/applications" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-index @@ -11729,12 +11733,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-index)) (common-lisp:progn (common-lisp:defun create-plugin @@ -11759,12 +11764,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/plugins" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreatePlugin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-plugin)) (common-lisp:progn (common-lisp:defun create-retriever @@ -11789,12 +11795,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/retrievers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateRetriever")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-retriever)) (common-lisp:progn (common-lisp:defun create-user @@ -11818,12 +11825,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun create-web-experience @@ -11849,12 +11857,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/experiences" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateWebExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-web-experience)) (common-lisp:progn (common-lisp:defun delete-application @@ -11876,12 +11885,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-chat-controls-configuration @@ -11904,12 +11914,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/chatcontrols" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteChatControlsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-chat-controls-configuration)) (common-lisp:progn (common-lisp:defun delete-conversation @@ -11932,16 +11943,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/conversations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'conversation-id)))) + 'conversation-id) + common-lisp:t))) "DeleteConversation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-conversation)) (common-lisp:progn (common-lisp:defun delete-data-source @@ -11964,20 +11977,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)) - (quri.encode:url-encode + 'index-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "DeleteDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-source)) (common-lisp:progn (common-lisp:defun delete-group @@ -12001,20 +12017,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)) - (quri.encode:url-encode + 'index-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)))) + 'group-name) + common-lisp:t))) "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun delete-index @@ -12036,16 +12055,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "DeleteIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-index)) (common-lisp:progn (common-lisp:defun delete-plugin @@ -12067,16 +12088,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/plugins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'plugin-id)))) + 'plugin-id) + common-lisp:t))) "DeletePlugin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-plugin)) (common-lisp:progn (common-lisp:defun delete-retriever @@ -12098,16 +12121,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/retrievers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'retriever-id)))) + 'retriever-id) + common-lisp:t))) "DeleteRetriever")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-retriever)) (common-lisp:progn (common-lisp:defun delete-user @@ -12129,16 +12154,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun delete-web-experience @@ -12161,16 +12188,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/experiences/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'web-experience-id)))) + 'web-experience-id) + common-lisp:t))) "DeleteWebExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-web-experience)) (common-lisp:progn (common-lisp:defun get-application @@ -12192,12 +12221,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-chat-controls-configuration @@ -12221,12 +12251,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/chatcontrols" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetChatControlsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-chat-controls-configuration)) (common-lisp:progn (common-lisp:defun get-data-source @@ -12249,20 +12280,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)) - (quri.encode:url-encode + 'index-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "GetDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-source)) (common-lisp:progn (common-lisp:defun get-group @@ -12286,20 +12320,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)) - (quri.encode:url-encode + 'index-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)))) + 'group-name) + common-lisp:t))) "GetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group)) (common-lisp:progn (common-lisp:defun get-index @@ -12321,16 +12358,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "GetIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-index)) (common-lisp:progn (common-lisp:defun get-plugin @@ -12352,16 +12391,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/plugins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'plugin-id)))) + 'plugin-id) + common-lisp:t))) "GetPlugin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-plugin)) (common-lisp:progn (common-lisp:defun get-retriever @@ -12383,16 +12424,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/retrievers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'retriever-id)))) + 'retriever-id) + common-lisp:t))) "GetRetriever")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-retriever)) (common-lisp:progn (common-lisp:defun get-user @@ -12414,16 +12457,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "GetUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user)) (common-lisp:progn (common-lisp:defun get-web-experience @@ -12446,16 +12491,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/experiences/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'web-experience-id)))) + 'web-experience-id) + common-lisp:t))) "GetWebExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-web-experience)) (common-lisp:progn (common-lisp:defun list-applications @@ -12472,7 +12519,7 @@ aws-sdk/generator/operation::input "GET" "/applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-conversations @@ -12496,12 +12543,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/conversations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListConversations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-conversations)) (common-lisp:progn (common-lisp:defun list-data-source-sync-jobs @@ -12527,20 +12575,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/datasources/~A/syncjobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)) - (quri.encode:url-encode + 'index-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "ListDataSourceSyncJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-source-sync-jobs)) (common-lisp:progn (common-lisp:defun list-data-sources @@ -12564,16 +12615,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/datasources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "ListDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sources)) (common-lisp:progn (common-lisp:defun list-documents @@ -12598,16 +12651,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/index/~A/documents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "ListDocuments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-documents)) (common-lisp:progn (common-lisp:defun list-groups @@ -12632,16 +12687,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "ListGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun list-indices @@ -12664,12 +12721,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListIndices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-indices)) (common-lisp:progn (common-lisp:defun list-messages @@ -12694,16 +12752,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/conversations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'conversation-id)))) + 'conversation-id) + common-lisp:t))) "ListMessages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-messages)) (common-lisp:progn (common-lisp:defun list-plugins @@ -12726,12 +12786,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/plugins" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListPlugins")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-plugins)) (common-lisp:progn (common-lisp:defun list-retrievers @@ -12754,12 +12815,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/retrievers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListRetrievers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-retrievers)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12781,12 +12843,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-web-experiences @@ -12809,12 +12872,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/experiences" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListWebExperiences")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-web-experiences)) (common-lisp:progn (common-lisp:defun put-feedback @@ -12839,20 +12903,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/conversations/~A/messages/~A/feedback" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'conversation-id)) - (quri.encode:url-encode + 'conversation-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'message-id)))) + 'message-id) + common-lisp:t))) "PutFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-feedback)) (common-lisp:progn (common-lisp:defun put-group @@ -12877,16 +12944,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "PutGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-group)) (common-lisp:progn (common-lisp:defun start-data-source-sync-job @@ -12910,20 +12979,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/datasources/~A/startsync" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)) - (quri.encode:url-encode + 'index-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "StartDataSourceSyncJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-data-source-sync-job)) (common-lisp:progn (common-lisp:defun stop-data-source-sync-job @@ -12947,20 +13019,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/datasources/~A/stopsync" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)) - (quri.encode:url-encode + 'index-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "StopDataSourceSyncJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-data-source-sync-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12982,12 +13057,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13009,12 +13085,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -13039,12 +13116,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-chat-controls-configuration @@ -13073,12 +13151,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/chatcontrols" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateChatControlsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-chat-controls-configuration)) (common-lisp:progn (common-lisp:defun update-data-source @@ -13105,20 +13184,23 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A/datasources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)) - (quri.encode:url-encode + 'index-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "UpdateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source)) (common-lisp:progn (common-lisp:defun update-index @@ -13144,16 +13226,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/indices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'index-id)))) + 'index-id) + common-lisp:t))) "UpdateIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-index)) (common-lisp:progn (common-lisp:defun update-plugin @@ -13178,16 +13262,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/plugins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'plugin-id)))) + 'plugin-id) + common-lisp:t))) "UpdatePlugin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-plugin)) (common-lisp:progn (common-lisp:defun update-retriever @@ -13212,16 +13298,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/retrievers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'retriever-id)))) + 'retriever-id) + common-lisp:t))) "UpdateRetriever")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-retriever)) (common-lisp:progn (common-lisp:defun update-user @@ -13246,16 +13334,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) (common-lisp:progn (common-lisp:defun update-web-experience @@ -13282,14 +13372,16 @@ (common-lisp:format common-lisp:nil "/applications/~A/experiences/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'web-experience-id)))) + 'web-experience-id) + common-lisp:t))) "UpdateWebExperience")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-web-experience)) diff --git a/services/qconnect/api.lisp b/services/qconnect/api.lisp index ee3386b7..85830657 100644 --- a/services/qconnect/api.lisp +++ b/services/qconnect/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/qconnect/api - (:use) - (:nicknames #:aws/qconnect) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/qconnect/api (:use) + (:nicknames #:aws/qconnect) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/qconnect/api) (common-lisp:progn (common-lisp:define-condition qconnect-error @@ -20,7 +19,7 @@ (common-lisp:export 'qconnect-error)) (common-lisp:progn (common-lisp:defclass qconnect-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "qconnect" :api-version "2020-10-19" :host-prefix "wisdom" :signing-name @@ -9871,7 +9870,7 @@ aws-sdk/generator/operation::input "POST" "/assistants" "CreateAssistant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assistant)) (common-lisp:progn (common-lisp:defun create-assistant-association @@ -9897,12 +9896,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "CreateAssistantAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assistant-association)) (common-lisp:progn (common-lisp:defun create-content @@ -9927,12 +9927,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "CreateContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-content)) (common-lisp:progn (common-lisp:defun create-knowledge-base @@ -9956,7 +9957,7 @@ "POST" "/knowledgeBases" "CreateKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-knowledge-base)) (common-lisp:progn (common-lisp:defun create-quick-response @@ -9983,12 +9984,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "CreateQuickResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-quick-response)) (common-lisp:progn (common-lisp:defun create-session @@ -10012,12 +10014,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "CreateSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-session)) (common-lisp:progn (common-lisp:defun delete-assistant @@ -10039,12 +10042,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "DeleteAssistant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assistant)) (common-lisp:progn (common-lisp:defun delete-assistant-association @@ -10068,16 +10072,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-association-id)))) + 'assistant-association-id) + common-lisp:t))) "DeleteAssistantAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assistant-association)) (common-lisp:progn (common-lisp:defun delete-content @@ -10099,16 +10105,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'content-id)))) + 'content-id) + common-lisp:t))) "DeleteContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-content)) (common-lisp:progn (common-lisp:defun delete-import-job @@ -10131,16 +10139,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/importJobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'import-job-id)))) + 'import-job-id) + common-lisp:t))) "DeleteImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-import-job)) (common-lisp:progn (common-lisp:defun delete-knowledge-base @@ -10162,12 +10172,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "DeleteKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-knowledge-base)) (common-lisp:progn (common-lisp:defun delete-quick-response @@ -10190,16 +10201,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-response-id)))) + 'quick-response-id) + common-lisp:t))) "DeleteQuickResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-quick-response)) (common-lisp:progn (common-lisp:defun get-assistant @@ -10221,12 +10234,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "GetAssistant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assistant)) (common-lisp:progn (common-lisp:defun get-assistant-association @@ -10250,16 +10264,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-association-id)))) + 'assistant-association-id) + common-lisp:t))) "GetAssistantAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assistant-association)) (common-lisp:progn (common-lisp:defun get-content @@ -10281,16 +10297,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'content-id)))) + 'content-id) + common-lisp:t))) "GetContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-content)) (common-lisp:progn (common-lisp:defun get-content-summary @@ -10312,16 +10330,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents/~A/summary" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'content-id)))) + 'content-id) + common-lisp:t))) "GetContentSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-content-summary)) (common-lisp:progn (common-lisp:defun get-import-job @@ -10344,16 +10364,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/importJobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'import-job-id)))) + 'import-job-id) + common-lisp:t))) "GetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-import-job)) (common-lisp:progn (common-lisp:defun get-knowledge-base @@ -10375,12 +10397,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "GetKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-knowledge-base)) (common-lisp:progn (common-lisp:defun get-quick-response @@ -10403,16 +10426,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-response-id)))) + 'quick-response-id) + common-lisp:t))) "GetQuickResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-quick-response)) (common-lisp:progn (common-lisp:defun get-recommendations @@ -10437,16 +10462,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/sessions/~A/recommendations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "GetRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendations)) (common-lisp:progn (common-lisp:defun get-session @@ -10468,16 +10495,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "GetSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-session)) (common-lisp:progn (common-lisp:defun list-assistant-associations @@ -10501,12 +10530,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "ListAssistantAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assistant-associations)) (common-lisp:progn (common-lisp:defun list-assistants @@ -10523,7 +10553,7 @@ aws-sdk/generator/operation::input "GET" "/assistants" "ListAssistants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assistants)) (common-lisp:progn (common-lisp:defun list-contents @@ -10546,12 +10576,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "ListContents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contents)) (common-lisp:progn (common-lisp:defun list-import-jobs @@ -10574,12 +10605,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/importJobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "ListImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-import-jobs)) (common-lisp:progn (common-lisp:defun list-knowledge-bases @@ -10596,7 +10628,7 @@ aws-sdk/generator/operation::input "GET" "/knowledgeBases" "ListKnowledgeBases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-knowledge-bases)) (common-lisp:progn (common-lisp:defun list-quick-responses @@ -10619,12 +10651,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "ListQuickResponses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-quick-responses)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10646,12 +10679,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun notify-recommendations-received @@ -10676,16 +10710,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/sessions/~A/recommendations/notify" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "NotifyRecommendationsReceived")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-recommendations-received)) (common-lisp:progn (common-lisp:defun put-feedback @@ -10710,12 +10746,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/feedback" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "PutFeedback")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-feedback)) (common-lisp:progn (common-lisp:defun query-assistant @@ -10740,12 +10777,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/query" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "QueryAssistant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query-assistant)) (common-lisp:progn (common-lisp:defun remove-knowledge-base-template-uri @@ -10768,12 +10806,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/templateUri" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "RemoveKnowledgeBaseTemplateUri")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-knowledge-base-template-uri)) (common-lisp:progn (common-lisp:defun search-content @@ -10798,12 +10837,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "SearchContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-content)) (common-lisp:progn (common-lisp:defun search-quick-responses @@ -10828,12 +10868,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/search/quickResponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "SearchQuickResponses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-quick-responses)) (common-lisp:progn (common-lisp:defun search-sessions @@ -10858,12 +10899,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/searchSessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "SearchSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-sessions)) (common-lisp:progn (common-lisp:defun start-content-upload @@ -10888,12 +10930,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/upload" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "StartContentUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-content-upload)) (common-lisp:progn (common-lisp:defun start-import-job @@ -10919,12 +10962,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/importJobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "StartImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10946,12 +10990,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10973,12 +11018,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-content @@ -11005,16 +11051,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'content-id)))) + 'content-id) + common-lisp:t))) "UpdateContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-content)) (common-lisp:progn (common-lisp:defun update-knowledge-base-template-uri @@ -11037,12 +11085,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/templateUri" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "UpdateKnowledgeBaseTemplateUri")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-knowledge-base-template-uri)) (common-lisp:progn (common-lisp:defun update-quick-response @@ -11072,14 +11121,16 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-response-id)))) + 'quick-response-id) + common-lisp:t))) "UpdateQuickResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-quick-response)) diff --git a/services/qldb-session/api.lisp b/services/qldb-session/api.lisp index ef0f69bd..d604847f 100644 --- a/services/qldb-session/api.lisp +++ b/services/qldb-session/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/qldb-session/api - (:use) - (:nicknames #:aws/qldb-session) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/qldb-session/api (:use) + (:nicknames #:aws/qldb-session) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/qldb-session/api) (common-lisp:progn (common-lisp:define-condition qldb-session-error @@ -1189,5 +1188,5 @@ aws-sdk/generator/operation::input "POST" "/" "SendCommand")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-command)) diff --git a/services/qldb/api.lisp b/services/qldb/api.lisp index a6186432..64fc6cf0 100644 --- a/services/qldb/api.lisp +++ b/services/qldb/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/qldb/api - (:use) - (:nicknames #:aws/qldb) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/qldb/api (:use) + (:nicknames #:aws/qldb) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/qldb/api) (common-lisp:progn (common-lisp:define-condition qldb-error @@ -20,7 +19,7 @@ (common-lisp:export 'qldb-error)) (common-lisp:progn (common-lisp:defclass qldb-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "qldb" :api-version "2019-01-02" :host-prefix "qldb" :signing-name "qldb" @@ -2916,16 +2915,18 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/journal-kinesis-streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stream-id)))) + 'stream-id) + common-lisp:t))) "CancelJournalKinesisStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-journal-kinesis-stream)) (common-lisp:progn (common-lisp:defun create-ledger @@ -2945,7 +2946,7 @@ aws-sdk/generator/operation::input "POST" "/ledgers" "CreateLedger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ledger)) (common-lisp:progn (common-lisp:defun delete-ledger @@ -2967,12 +2968,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteLedger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ledger)) (common-lisp:progn (common-lisp:defun describe-journal-kinesis-stream @@ -2995,16 +2997,18 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/journal-kinesis-streams/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'stream-id)))) + 'stream-id) + common-lisp:t))) "DescribeJournalKinesisStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-journal-kinesis-stream)) (common-lisp:progn (common-lisp:defun describe-journal-s3export @@ -3027,16 +3031,18 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/journal-s3-exports/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)) - (quri.encode:url-encode + 'name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'export-id)))) + 'export-id) + common-lisp:t))) "DescribeJournalS3Export")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-journal-s3export)) (common-lisp:progn (common-lisp:defun describe-ledger @@ -3058,12 +3064,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DescribeLedger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ledger)) (common-lisp:progn (common-lisp:defun export-journal-to-s3 @@ -3089,12 +3096,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/journal-s3-exports" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ExportJournalToS3")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-journal-to-s3)) (common-lisp:progn (common-lisp:defun get-block @@ -3117,12 +3125,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/block" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-block)) (common-lisp:progn (common-lisp:defun get-digest @@ -3144,12 +3153,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/digest" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetDigest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-digest)) (common-lisp:progn (common-lisp:defun get-revision @@ -3173,12 +3183,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/revision" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-revision)) (common-lisp:progn (common-lisp:defun list-journal-kinesis-streams-for-ledger @@ -3202,12 +3213,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/journal-kinesis-streams" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListJournalKinesisStreamsForLedger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-journal-kinesis-streams-for-ledger)) (common-lisp:progn (common-lisp:defun list-journal-s3exports @@ -3225,7 +3237,7 @@ "GET" "/journal-s3-exports" "ListJournalS3Exports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-journal-s3exports)) (common-lisp:progn (common-lisp:defun list-journal-s3exports-for-ledger @@ -3248,12 +3260,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/journal-s3-exports" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ListJournalS3ExportsForLedger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-journal-s3exports-for-ledger)) (common-lisp:progn (common-lisp:defun list-ledgers @@ -3270,7 +3283,7 @@ aws-sdk/generator/operation::input "GET" "/ledgers" "ListLedgers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ledgers)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3292,12 +3305,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun stream-journal-to-kinesis @@ -3324,12 +3338,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/journal-kinesis-streams" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "StreamJournalToKinesis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stream-journal-to-kinesis)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3351,12 +3366,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3378,12 +3394,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-ledger @@ -3406,12 +3423,13 @@ (common-lisp:format common-lisp:nil "/ledgers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateLedger")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ledger)) (common-lisp:progn (common-lisp:defun update-ledger-permissions-mode @@ -3434,10 +3452,11 @@ (common-lisp:format common-lisp:nil "/ledgers/~A/permissions-mode" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateLedgerPermissionsMode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ledger-permissions-mode)) diff --git a/services/quicksight/api.lisp b/services/quicksight/api.lisp index 12107e1d..507daca2 100644 --- a/services/quicksight/api.lisp +++ b/services/quicksight/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/quicksight/api - (:use) - (:nicknames #:aws/quicksight) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/quicksight/api (:use) + (:nicknames #:aws/quicksight) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/quicksight/api) (common-lisp:progn (common-lisp:define-condition quicksight-error @@ -20,7 +19,7 @@ (common-lisp:export 'quicksight-error)) (common-lisp:progn (common-lisp:defclass quicksight-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "quicksight" :api-version "2018-04-01" :host-prefix "quicksight" :signing-name @@ -80417,20 +80416,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/ingestions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-id)))) + 'ingestion-id) + common-lisp:t))) "CancelIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-ingestion)) (common-lisp:progn (common-lisp:defun create-account-customization @@ -80456,12 +80458,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/customizations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "CreateAccountCustomization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-account-customization)) (common-lisp:progn (common-lisp:defun create-account-subscription @@ -80492,12 +80495,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/account/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "CreateAccountSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-account-subscription)) (common-lisp:progn (common-lisp:defun create-analysis @@ -80524,16 +80528,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/analyses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "CreateAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-analysis)) (common-lisp:progn (common-lisp:defun create-dashboard @@ -80563,16 +80569,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "CreateDashboard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dashboard)) (common-lisp:progn (common-lisp:defun create-data-set @@ -80606,12 +80614,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "CreateDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-set)) (common-lisp:progn (common-lisp:defun create-data-source @@ -80638,12 +80647,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "CreateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-source)) (common-lisp:progn (common-lisp:defun create-folder @@ -80668,16 +80678,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "CreateFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-folder)) (common-lisp:progn (common-lisp:defun create-folder-membership @@ -80701,24 +80713,28 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A/members/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)) - (quri.encode:url-encode + 'folder-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-type)) - (quri.encode:url-encode + 'member-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-id)))) + 'member-id) + common-lisp:t))) "CreateFolderMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-folder-membership)) (common-lisp:progn (common-lisp:defun create-group @@ -80742,16 +80758,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "CreateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun create-group-membership @@ -80775,24 +80793,28 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups/~A/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)) - (quri.encode:url-encode + 'group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-name)))) + 'member-name) + common-lisp:t))) "CreateGroupMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group-membership)) (common-lisp:progn (common-lisp:defun create-iampolicy-assignment @@ -80818,16 +80840,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/iam-policy-assignments/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "CreateIAMPolicyAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-iampolicy-assignment)) (common-lisp:progn (common-lisp:defun create-ingestion @@ -80852,20 +80876,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/ingestions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-id)))) + 'ingestion-id) + common-lisp:t))) "CreateIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ingestion)) (common-lisp:progn (common-lisp:defun create-namespace @@ -80889,12 +80916,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "CreateNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-namespace)) (common-lisp:progn (common-lisp:defun create-refresh-schedule @@ -80917,16 +80945,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/refresh-schedules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "CreateRefreshSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-refresh-schedule)) (common-lisp:progn (common-lisp:defun create-role-membership @@ -80950,24 +80980,28 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/roles/~A/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role)) - (quri.encode:url-encode + 'role) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-name)))) + 'member-name) + common-lisp:t))) "CreateRoleMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-role-membership)) (common-lisp:progn (common-lisp:defun create-template @@ -80993,16 +81027,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "CreateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-template)) (common-lisp:progn (common-lisp:defun create-template-alias @@ -81027,20 +81063,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)) - (quri.encode:url-encode + 'template-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "CreateTemplateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-template-alias)) (common-lisp:progn (common-lisp:defun create-theme @@ -81066,16 +81105,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)))) + 'theme-id) + common-lisp:t))) "CreateTheme")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-theme)) (common-lisp:progn (common-lisp:defun create-theme-alias @@ -81100,20 +81141,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)) - (quri.encode:url-encode + 'theme-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "CreateThemeAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-theme-alias)) (common-lisp:progn (common-lisp:defun create-topic @@ -81136,12 +81180,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "CreateTopic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-topic)) (common-lisp:progn (common-lisp:defun create-topic-refresh-schedule @@ -81167,16 +81212,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A/schedules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)))) + 'topic-id) + common-lisp:t))) "CreateTopicRefreshSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-topic-refresh-schedule)) (common-lisp:progn (common-lisp:defun create-vpcconnection @@ -81201,12 +81248,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/vpc-connections" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "CreateVPCConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vpcconnection)) (common-lisp:progn (common-lisp:defun delete-account-customization @@ -81229,12 +81277,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/customizations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "DeleteAccountCustomization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-account-customization)) (common-lisp:progn (common-lisp:defun delete-account-subscription @@ -81257,12 +81306,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/account/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "DeleteAccountSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-account-subscription)) (common-lisp:progn (common-lisp:defun delete-analysis @@ -81287,16 +81337,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/analyses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "DeleteAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-analysis)) (common-lisp:progn (common-lisp:defun delete-dashboard @@ -81320,16 +81372,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "DeleteDashboard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dashboard)) (common-lisp:progn (common-lisp:defun delete-data-set @@ -81351,16 +81405,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "DeleteDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-set)) (common-lisp:progn (common-lisp:defun delete-data-set-refresh-properties @@ -81383,16 +81439,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/refresh-properties" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "DeleteDataSetRefreshProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-set-refresh-properties)) (common-lisp:progn (common-lisp:defun delete-data-source @@ -81414,16 +81472,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "DeleteDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-source)) (common-lisp:progn (common-lisp:defun delete-folder @@ -81445,16 +81505,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "DeleteFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-folder)) (common-lisp:progn (common-lisp:defun delete-folder-membership @@ -81478,24 +81540,28 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A/members/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)) - (quri.encode:url-encode + 'folder-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-type)) - (quri.encode:url-encode + 'member-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-id)))) + 'member-id) + common-lisp:t))) "DeleteFolderMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-folder-membership)) (common-lisp:progn (common-lisp:defun delete-group @@ -81518,20 +81584,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)))) + 'group-name) + common-lisp:t))) "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun delete-group-membership @@ -81555,24 +81624,28 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups/~A/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)) - (quri.encode:url-encode + 'group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-name)))) + 'member-name) + common-lisp:t))) "DeleteGroupMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group-membership)) (common-lisp:progn (common-lisp:defun delete-iampolicy-assignment @@ -81596,20 +81669,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespace/~A/iam-policy-assignments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assignment-name)))) + 'assignment-name) + common-lisp:t))) "DeleteIAMPolicyAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-iampolicy-assignment)) (common-lisp:progn (common-lisp:defun delete-identity-propagation-config @@ -81632,16 +81708,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/identity-propagation-config/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service)))) + 'service) + common-lisp:t))) "DeleteIdentityPropagationConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-identity-propagation-config)) (common-lisp:progn (common-lisp:defun delete-namespace @@ -81663,16 +81741,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "DeleteNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-namespace)) (common-lisp:progn (common-lisp:defun delete-refresh-schedule @@ -81695,20 +81775,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/refresh-schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schedule-id)))) + 'schedule-id) + common-lisp:t))) "DeleteRefreshSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-refresh-schedule)) (common-lisp:progn (common-lisp:defun delete-role-custom-permission @@ -81731,20 +81814,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/roles/~A/custom-permission" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role)))) + 'role) + common-lisp:t))) "DeleteRoleCustomPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-role-custom-permission)) (common-lisp:progn (common-lisp:defun delete-role-membership @@ -81768,24 +81854,28 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/roles/~A/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role)) - (quri.encode:url-encode + 'role) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-name)))) + 'member-name) + common-lisp:t))) "DeleteRoleMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-role-membership)) (common-lisp:progn (common-lisp:defun delete-template @@ -81809,16 +81899,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "DeleteTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-template)) (common-lisp:progn (common-lisp:defun delete-template-alias @@ -81841,20 +81933,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)) - (quri.encode:url-encode + 'template-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "DeleteTemplateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-template-alias)) (common-lisp:progn (common-lisp:defun delete-theme @@ -81877,16 +81972,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)))) + 'theme-id) + common-lisp:t))) "DeleteTheme")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-theme)) (common-lisp:progn (common-lisp:defun delete-theme-alias @@ -81909,20 +82006,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)) - (quri.encode:url-encode + 'theme-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "DeleteThemeAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-theme-alias)) (common-lisp:progn (common-lisp:defun delete-topic @@ -81944,16 +82044,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)))) + 'topic-id) + common-lisp:t))) "DeleteTopic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-topic)) (common-lisp:progn (common-lisp:defun delete-topic-refresh-schedule @@ -81977,20 +82079,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)) - (quri.encode:url-encode + 'topic-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "DeleteTopicRefreshSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-topic-refresh-schedule)) (common-lisp:progn (common-lisp:defun delete-user @@ -82013,20 +82118,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-name)))) + 'user-name) + common-lisp:t))) "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun delete-user-by-principal-id @@ -82050,20 +82158,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/user-principals/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-id)))) + 'principal-id) + common-lisp:t))) "DeleteUserByPrincipalId")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-by-principal-id)) (common-lisp:progn (common-lisp:defun delete-vpcconnection @@ -82086,16 +82197,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/vpc-connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpcconnection-id)))) + 'vpcconnection-id) + common-lisp:t))) "DeleteVPCConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vpcconnection)) (common-lisp:progn (common-lisp:defun describe-account-customization @@ -82119,12 +82232,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/customizations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "DescribeAccountCustomization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-customization)) (common-lisp:progn (common-lisp:defun describe-account-settings @@ -82147,12 +82261,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "DescribeAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-settings)) (common-lisp:progn (common-lisp:defun describe-account-subscription @@ -82175,12 +82290,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/account/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "DescribeAccountSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-subscription)) (common-lisp:progn (common-lisp:defun describe-analysis @@ -82202,16 +82318,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/analyses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "DescribeAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-analysis)) (common-lisp:progn (common-lisp:defun describe-analysis-definition @@ -82234,16 +82352,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/analyses/~A/definition" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "DescribeAnalysisDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-analysis-definition)) (common-lisp:progn (common-lisp:defun describe-analysis-permissions @@ -82266,16 +82386,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/analyses/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "DescribeAnalysisPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-analysis-permissions)) (common-lisp:progn (common-lisp:defun describe-asset-bundle-export-job @@ -82300,16 +82422,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/asset-bundle-export-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-bundle-export-job-id)))) + 'asset-bundle-export-job-id) + common-lisp:t))) "DescribeAssetBundleExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-asset-bundle-export-job)) (common-lisp:progn (common-lisp:defun describe-asset-bundle-import-job @@ -82334,16 +82458,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/asset-bundle-import-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'asset-bundle-import-job-id)))) + 'asset-bundle-import-job-id) + common-lisp:t))) "DescribeAssetBundleImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-asset-bundle-import-job)) (common-lisp:progn (common-lisp:defun describe-dashboard @@ -82368,16 +82494,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "DescribeDashboard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dashboard)) (common-lisp:progn (common-lisp:defun describe-dashboard-definition @@ -82403,16 +82531,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/definition" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "DescribeDashboardDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dashboard-definition)) (common-lisp:progn (common-lisp:defun describe-dashboard-permissions @@ -82435,16 +82565,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "DescribeDashboardPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dashboard-permissions)) (common-lisp:progn (common-lisp:defun describe-dashboard-snapshot-job @@ -82469,20 +82601,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/snapshot-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)) - (quri.encode:url-encode + 'dashboard-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-job-id)))) + 'snapshot-job-id) + common-lisp:t))) "DescribeDashboardSnapshotJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dashboard-snapshot-job)) (common-lisp:progn (common-lisp:defun describe-dashboard-snapshot-job-result @@ -82507,20 +82642,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/snapshot-jobs/~A/result" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)) - (quri.encode:url-encode + 'dashboard-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'snapshot-job-id)))) + 'snapshot-job-id) + common-lisp:t))) "DescribeDashboardSnapshotJobResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dashboard-snapshot-job-result)) (common-lisp:progn (common-lisp:defun describe-data-set @@ -82542,16 +82680,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "DescribeDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-set)) (common-lisp:progn (common-lisp:defun describe-data-set-permissions @@ -82574,16 +82714,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "DescribeDataSetPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-set-permissions)) (common-lisp:progn (common-lisp:defun describe-data-set-refresh-properties @@ -82606,16 +82748,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/refresh-properties" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "DescribeDataSetRefreshProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-set-refresh-properties)) (common-lisp:progn (common-lisp:defun describe-data-source @@ -82637,16 +82781,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "DescribeDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-source)) (common-lisp:progn (common-lisp:defun describe-data-source-permissions @@ -82669,16 +82815,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sources/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "DescribeDataSourcePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-source-permissions)) (common-lisp:progn (common-lisp:defun describe-folder @@ -82700,16 +82848,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "DescribeFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-folder)) (common-lisp:progn (common-lisp:defun describe-folder-permissions @@ -82735,16 +82885,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "DescribeFolderPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-folder-permissions)) (common-lisp:progn (common-lisp:defun describe-folder-resolved-permissions @@ -82770,16 +82922,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A/resolved-permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "DescribeFolderResolvedPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-folder-resolved-permissions)) (common-lisp:progn (common-lisp:defun describe-group @@ -82802,20 +82956,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)))) + 'group-name) + common-lisp:t))) "DescribeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-group)) (common-lisp:progn (common-lisp:defun describe-group-membership @@ -82840,24 +82997,28 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups/~A/members/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)) - (quri.encode:url-encode + 'group-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'member-name)))) + 'member-name) + common-lisp:t))) "DescribeGroupMembership")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-group-membership)) (common-lisp:progn (common-lisp:defun describe-iampolicy-assignment @@ -82881,20 +83042,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/iam-policy-assignments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assignment-name)))) + 'assignment-name) + common-lisp:t))) "DescribeIAMPolicyAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-iampolicy-assignment)) (common-lisp:progn (common-lisp:defun describe-ingestion @@ -82917,20 +83081,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/ingestions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ingestion-id)))) + 'ingestion-id) + common-lisp:t))) "DescribeIngestion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ingestion)) (common-lisp:progn (common-lisp:defun describe-ip-restriction @@ -82952,12 +83119,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/ip-restriction" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "DescribeIpRestriction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ip-restriction)) (common-lisp:progn (common-lisp:defun describe-namespace @@ -82979,16 +83147,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "DescribeNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-namespace)) (common-lisp:progn (common-lisp:defun describe-refresh-schedule @@ -83012,20 +83182,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/refresh-schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)) - (quri.encode:url-encode + 'data-set-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schedule-id)))) + 'schedule-id) + common-lisp:t))) "DescribeRefreshSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-refresh-schedule)) (common-lisp:progn (common-lisp:defun describe-role-custom-permission @@ -83048,20 +83221,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/roles/~A/custom-permission" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role)))) + 'role) + common-lisp:t))) "DescribeRoleCustomPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-role-custom-permission)) (common-lisp:progn (common-lisp:defun describe-template @@ -83086,16 +83262,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "DescribeTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-template)) (common-lisp:progn (common-lisp:defun describe-template-alias @@ -83118,20 +83296,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)) - (quri.encode:url-encode + 'template-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "DescribeTemplateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-template-alias)) (common-lisp:progn (common-lisp:defun describe-template-definition @@ -83157,16 +83338,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/definition" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "DescribeTemplateDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-template-definition)) (common-lisp:progn (common-lisp:defun describe-template-permissions @@ -83189,16 +83372,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "DescribeTemplatePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-template-permissions)) (common-lisp:progn (common-lisp:defun describe-theme @@ -83222,16 +83407,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)))) + 'theme-id) + common-lisp:t))) "DescribeTheme")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-theme)) (common-lisp:progn (common-lisp:defun describe-theme-alias @@ -83254,20 +83441,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)) - (quri.encode:url-encode + 'theme-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "DescribeThemeAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-theme-alias)) (common-lisp:progn (common-lisp:defun describe-theme-permissions @@ -83290,16 +83480,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)))) + 'theme-id) + common-lisp:t))) "DescribeThemePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-theme-permissions)) (common-lisp:progn (common-lisp:defun describe-topic @@ -83321,16 +83513,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)))) + 'topic-id) + common-lisp:t))) "DescribeTopic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-topic)) (common-lisp:progn (common-lisp:defun describe-topic-permissions @@ -83353,16 +83547,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)))) + 'topic-id) + common-lisp:t))) "DescribeTopicPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-topic-permissions)) (common-lisp:progn (common-lisp:defun describe-topic-refresh @@ -83385,20 +83581,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A/refresh/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)) - (quri.encode:url-encode + 'topic-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'refresh-id)))) + 'refresh-id) + common-lisp:t))) "DescribeTopicRefresh")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-topic-refresh)) (common-lisp:progn (common-lisp:defun describe-topic-refresh-schedule @@ -83422,20 +83621,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)) - (quri.encode:url-encode + 'topic-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "DescribeTopicRefreshSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-topic-refresh-schedule)) (common-lisp:progn (common-lisp:defun describe-user @@ -83458,20 +83660,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-name)))) + 'user-name) + common-lisp:t))) "DescribeUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user)) (common-lisp:progn (common-lisp:defun describe-vpcconnection @@ -83494,16 +83699,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/vpc-connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpcconnection-id)))) + 'vpcconnection-id) + common-lisp:t))) "DescribeVPCConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vpcconnection)) (common-lisp:progn (common-lisp:defun generate-embed-url-for-anonymous-user @@ -83532,12 +83739,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/embed-url/anonymous-user" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "GenerateEmbedUrlForAnonymousUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-embed-url-for-anonymous-user)) (common-lisp:progn (common-lisp:defun generate-embed-url-for-registered-user @@ -83564,12 +83772,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/embed-url/registered-user" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "GenerateEmbedUrlForRegisteredUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-embed-url-for-registered-user)) (common-lisp:progn (common-lisp:defun get-dashboard-embed-url @@ -83597,16 +83806,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/embed-url" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "GetDashboardEmbedUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dashboard-embed-url)) (common-lisp:progn (common-lisp:defun get-session-embed-url @@ -83631,12 +83842,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/session-embed-url" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "GetSessionEmbedUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-session-embed-url)) (common-lisp:progn (common-lisp:defun list-analyses @@ -83659,12 +83871,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/analyses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListAnalyses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-analyses)) (common-lisp:progn (common-lisp:defun list-asset-bundle-export-jobs @@ -83688,12 +83901,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/asset-bundle-export-jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListAssetBundleExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-bundle-export-jobs)) (common-lisp:progn (common-lisp:defun list-asset-bundle-import-jobs @@ -83717,12 +83931,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/asset-bundle-import-jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListAssetBundleImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-asset-bundle-import-jobs)) (common-lisp:progn (common-lisp:defun list-dashboard-versions @@ -83746,16 +83961,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "ListDashboardVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dashboard-versions)) (common-lisp:progn (common-lisp:defun list-dashboards @@ -83778,12 +83995,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListDashboards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dashboards)) (common-lisp:progn (common-lisp:defun list-data-sets @@ -83806,12 +84024,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListDataSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sets)) (common-lisp:progn (common-lisp:defun list-data-sources @@ -83834,12 +84053,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-sources)) (common-lisp:progn (common-lisp:defun list-folder-members @@ -83863,16 +84083,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A/members" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "ListFolderMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-folder-members)) (common-lisp:progn (common-lisp:defun list-folders @@ -83895,12 +84117,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListFolders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-folders)) (common-lisp:progn (common-lisp:defun list-group-memberships @@ -83925,20 +84148,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups/~A/members" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)))) + 'group-name) + common-lisp:t))) "ListGroupMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-group-memberships)) (common-lisp:progn (common-lisp:defun list-groups @@ -83962,16 +84188,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "ListGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun list-iampolicy-assignments @@ -83997,16 +84225,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/v2/iam-policy-assignments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "ListIAMPolicyAssignments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-iampolicy-assignments)) (common-lisp:progn (common-lisp:defun list-iampolicy-assignments-for-user @@ -84032,20 +84262,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/users/~A/iam-policy-assignments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-name)))) + 'user-name) + common-lisp:t))) "ListIAMPolicyAssignmentsForUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-iampolicy-assignments-for-user)) (common-lisp:progn (common-lisp:defun list-identity-propagation-configs @@ -84069,12 +84302,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/identity-propagation-config" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListIdentityPropagationConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-propagation-configs)) (common-lisp:progn (common-lisp:defun list-ingestions @@ -84098,16 +84332,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/ingestions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "ListIngestions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ingestions)) (common-lisp:progn (common-lisp:defun list-namespaces @@ -84130,12 +84366,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListNamespaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-namespaces)) (common-lisp:progn (common-lisp:defun list-refresh-schedules @@ -84157,16 +84394,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/refresh-schedules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "ListRefreshSchedules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-refresh-schedules)) (common-lisp:progn (common-lisp:defun list-role-memberships @@ -84191,20 +84430,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/roles/~A/members" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role)))) + 'role) + common-lisp:t))) "ListRoleMemberships")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-role-memberships)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -84226,12 +84468,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/resources/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-template-aliases @@ -84255,16 +84498,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/aliases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "ListTemplateAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-template-aliases)) (common-lisp:progn (common-lisp:defun list-template-versions @@ -84288,16 +84533,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "ListTemplateVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-template-versions)) (common-lisp:progn (common-lisp:defun list-templates @@ -84320,12 +84567,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-templates)) (common-lisp:progn (common-lisp:defun list-theme-aliases @@ -84349,16 +84597,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A/aliases" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)))) + 'theme-id) + common-lisp:t))) "ListThemeAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-theme-aliases)) (common-lisp:progn (common-lisp:defun list-theme-versions @@ -84382,16 +84632,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)))) + 'theme-id) + common-lisp:t))) "ListThemeVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-theme-versions)) (common-lisp:progn (common-lisp:defun list-themes @@ -84415,12 +84667,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListThemes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-themes)) (common-lisp:progn (common-lisp:defun list-topic-refresh-schedules @@ -84443,16 +84696,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A/schedules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)))) + 'topic-id) + common-lisp:t))) "ListTopicRefreshSchedules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-topic-refresh-schedules)) (common-lisp:progn (common-lisp:defun list-topics @@ -84475,12 +84730,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListTopics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-topics)) (common-lisp:progn (common-lisp:defun list-user-groups @@ -84505,20 +84761,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/users/~A/groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-name)))) + 'user-name) + common-lisp:t))) "ListUserGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-groups)) (common-lisp:progn (common-lisp:defun list-users @@ -84542,16 +84801,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun list-vpcconnections @@ -84574,12 +84835,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/vpc-connections" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "ListVPCConnections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vpcconnections)) (common-lisp:progn (common-lisp:defun put-data-set-refresh-properties @@ -84605,16 +84867,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/refresh-properties" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "PutDataSetRefreshProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-data-set-refresh-properties)) (common-lisp:progn (common-lisp:defun register-user @@ -84644,16 +84908,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/users" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "RegisterUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-user)) (common-lisp:progn (common-lisp:defun restore-analysis @@ -84675,16 +84941,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/restore/analyses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "RestoreAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-analysis)) (common-lisp:progn (common-lisp:defun search-analyses @@ -84708,12 +84976,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/search/analyses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "SearchAnalyses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-analyses)) (common-lisp:progn (common-lisp:defun search-dashboards @@ -84737,12 +85006,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/search/dashboards" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "SearchDashboards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-dashboards)) (common-lisp:progn (common-lisp:defun search-data-sets @@ -84766,12 +85036,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/search/data-sets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "SearchDataSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-data-sets)) (common-lisp:progn (common-lisp:defun search-data-sources @@ -84795,12 +85066,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/search/data-sources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "SearchDataSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-data-sources)) (common-lisp:progn (common-lisp:defun search-folders @@ -84824,12 +85096,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/search/folders" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "SearchFolders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-folders)) (common-lisp:progn (common-lisp:defun search-groups @@ -84854,16 +85127,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups-search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)))) + 'namespace) + common-lisp:t))) "SearchGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-groups)) (common-lisp:progn (common-lisp:defun start-asset-bundle-export-job @@ -84893,12 +85168,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/asset-bundle-export-jobs/export" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "StartAssetBundleExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-asset-bundle-export-job)) (common-lisp:progn (common-lisp:defun start-asset-bundle-import-job @@ -84927,12 +85203,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/asset-bundle-import-jobs/import" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "StartAssetBundleImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-asset-bundle-import-job)) (common-lisp:progn (common-lisp:defun start-dashboard-snapshot-job @@ -84958,16 +85235,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/snapshot-jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "StartDashboardSnapshotJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-dashboard-snapshot-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -84989,12 +85268,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/resources/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -85016,12 +85296,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/resources/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-account-customization @@ -85046,12 +85327,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/customizations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "UpdateAccountCustomization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-customization)) (common-lisp:progn (common-lisp:defun update-account-settings @@ -85076,12 +85358,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "UpdateAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-settings)) (common-lisp:progn (common-lisp:defun update-analysis @@ -85107,16 +85390,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/analyses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "UpdateAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-analysis)) (common-lisp:progn (common-lisp:defun update-analysis-permissions @@ -85142,16 +85427,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/analyses/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'analysis-id)))) + 'analysis-id) + common-lisp:t))) "UpdateAnalysisPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-analysis-permissions)) (common-lisp:progn (common-lisp:defun update-dashboard @@ -85179,16 +85466,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "UpdateDashboard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dashboard)) (common-lisp:progn (common-lisp:defun update-dashboard-links @@ -85212,16 +85501,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/linked-entities" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "UpdateDashboardLinks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dashboard-links)) (common-lisp:progn (common-lisp:defun update-dashboard-permissions @@ -85248,16 +85539,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)))) + 'dashboard-id) + common-lisp:t))) "UpdateDashboardPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dashboard-permissions)) (common-lisp:progn (common-lisp:defun update-dashboard-published-version @@ -85282,20 +85575,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/dashboards/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dashboard-id)) - (quri.encode:url-encode + 'dashboard-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-number)))) + 'version-number) + common-lisp:t))) "UpdateDashboardPublishedVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dashboard-published-version)) (common-lisp:progn (common-lisp:defun update-data-set @@ -85327,16 +85623,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "UpdateDataSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-set)) (common-lisp:progn (common-lisp:defun update-data-set-permissions @@ -85362,16 +85660,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "UpdateDataSetPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-set-permissions)) (common-lisp:progn (common-lisp:defun update-data-source @@ -85398,16 +85698,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sources/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "UpdateDataSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source)) (common-lisp:progn (common-lisp:defun update-data-source-permissions @@ -85433,16 +85735,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sources/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-source-id)))) + 'data-source-id) + common-lisp:t))) "UpdateDataSourcePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-source-permissions)) (common-lisp:progn (common-lisp:defun update-folder @@ -85464,16 +85768,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "UpdateFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-folder)) (common-lisp:progn (common-lisp:defun update-folder-permissions @@ -85499,16 +85805,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/folders/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "UpdateFolderPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-folder-permissions)) (common-lisp:progn (common-lisp:defun update-group @@ -85532,20 +85840,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-name)))) + 'group-name) + common-lisp:t))) "UpdateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group)) (common-lisp:progn (common-lisp:defun update-iampolicy-assignment @@ -85571,20 +85882,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/iam-policy-assignments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assignment-name)))) + 'assignment-name) + common-lisp:t))) "UpdateIAMPolicyAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-iampolicy-assignment)) (common-lisp:progn (common-lisp:defun update-identity-propagation-config @@ -85609,16 +85923,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/identity-propagation-config/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service)))) + 'service) + common-lisp:t))) "UpdateIdentityPropagationConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-identity-propagation-config)) (common-lisp:progn (common-lisp:defun update-ip-restriction @@ -85642,12 +85958,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/ip-restriction" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "UpdateIpRestriction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ip-restriction)) (common-lisp:progn (common-lisp:defun update-public-sharing-settings @@ -85671,12 +85988,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/public-sharing-settings" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)))) + 'aws-account-id) + common-lisp:t))) "UpdatePublicSharingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-public-sharing-settings)) (common-lisp:progn (common-lisp:defun update-refresh-schedule @@ -85699,16 +86017,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/data-sets/~A/refresh-schedules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'data-set-id)))) + 'data-set-id) + common-lisp:t))) "UpdateRefreshSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-refresh-schedule)) (common-lisp:progn (common-lisp:defun update-role-custom-permission @@ -85734,20 +86054,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/roles/~A/custom-permission" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'role)))) + 'role) + common-lisp:t))) "UpdateRoleCustomPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-role-custom-permission)) (common-lisp:progn (common-lisp:defun update-template @@ -85772,16 +86095,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "UpdateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template)) (common-lisp:progn (common-lisp:defun update-template-alias @@ -85806,20 +86131,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)) - (quri.encode:url-encode + 'template-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "UpdateTemplateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template-alias)) (common-lisp:progn (common-lisp:defun update-template-permissions @@ -85845,16 +86173,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/templates/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "UpdateTemplatePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-template-permissions)) (common-lisp:progn (common-lisp:defun update-theme @@ -85879,16 +86209,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)))) + 'theme-id) + common-lisp:t))) "UpdateTheme")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-theme)) (common-lisp:progn (common-lisp:defun update-theme-alias @@ -85913,20 +86245,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A/aliases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)) - (quri.encode:url-encode + 'theme-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'alias-name)))) + 'alias-name) + common-lisp:t))) "UpdateThemeAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-theme-alias)) (common-lisp:progn (common-lisp:defun update-theme-permissions @@ -85951,16 +86286,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/themes/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'theme-id)))) + 'theme-id) + common-lisp:t))) "UpdateThemePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-theme-permissions)) (common-lisp:progn (common-lisp:defun update-topic @@ -85982,16 +86319,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)))) + 'topic-id) + common-lisp:t))) "UpdateTopic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-topic)) (common-lisp:progn (common-lisp:defun update-topic-permissions @@ -86016,16 +86355,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)))) + 'topic-id) + common-lisp:t))) "UpdateTopicPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-topic-permissions)) (common-lisp:progn (common-lisp:defun update-topic-refresh-schedule @@ -86051,20 +86392,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/topics/~A/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'topic-id)) - (quri.encode:url-encode + 'topic-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'dataset-id)))) + 'dataset-id) + common-lisp:t))) "UpdateTopicRefreshSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-topic-refresh-schedule)) (common-lisp:progn (common-lisp:defun update-user @@ -86093,20 +86437,23 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/namespaces/~A/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'namespace)) - (quri.encode:url-encode + 'namespace) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-name)))) + 'user-name) + common-lisp:t))) "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) (common-lisp:progn (common-lisp:defun update-vpcconnection @@ -86131,14 +86478,16 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/accounts/~A/vpc-connections/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'aws-account-id)) - (quri.encode:url-encode + 'aws-account-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vpcconnection-id)))) + 'vpcconnection-id) + common-lisp:t))) "UpdateVPCConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vpcconnection)) diff --git a/services/ram/api.lisp b/services/ram/api.lisp index 87ec4ac7..0564aa72 100644 --- a/services/ram/api.lisp +++ b/services/ram/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ram/api - (:use) - (:nicknames #:aws/ram) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ram/api (:use) + (:nicknames #:aws/ram) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ram/api) (common-lisp:progn (common-lisp:define-condition ram-error @@ -20,7 +19,7 @@ (common-lisp:export 'ram-error)) (common-lisp:progn (common-lisp:defclass ram-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "ram" :api-version "2018-01-04" :host-prefix "ram" :signing-name @@ -6418,7 +6417,7 @@ "POST" "/acceptresourceshareinvitation" "AcceptResourceShareInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-resource-share-invitation)) (common-lisp:progn (common-lisp:defun associate-resource-share @@ -6439,7 +6438,7 @@ "POST" "/associateresourceshare" "AssociateResourceShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-resource-share)) (common-lisp:progn (common-lisp:defun associate-resource-share-permission @@ -6461,7 +6460,7 @@ "POST" "/associateresourcesharepermission" "AssociateResourceSharePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-resource-share-permission)) (common-lisp:progn (common-lisp:defun create-permission @@ -6482,7 +6481,7 @@ "POST" "/createpermission" "CreatePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-permission)) (common-lisp:progn (common-lisp:defun create-permission-version @@ -6503,7 +6502,7 @@ "POST" "/createpermissionversion" "CreatePermissionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-permission-version)) (common-lisp:progn (common-lisp:defun create-resource-share @@ -6525,7 +6524,7 @@ "POST" "/createresourceshare" "CreateResourceShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-share)) (common-lisp:progn (common-lisp:defun delete-permission @@ -6543,7 +6542,7 @@ "DELETE" "/deletepermission" "DeletePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permission)) (common-lisp:progn (common-lisp:defun delete-permission-version @@ -6564,7 +6563,7 @@ "DELETE" "/deletepermissionversion" "DeletePermissionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permission-version)) (common-lisp:progn (common-lisp:defun delete-resource-share @@ -6583,7 +6582,7 @@ "DELETE" "/deleteresourceshare" "DeleteResourceShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-share)) (common-lisp:progn (common-lisp:defun disassociate-resource-share @@ -6605,7 +6604,7 @@ "POST" "/disassociateresourceshare" "DisassociateResourceShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-resource-share)) (common-lisp:progn (common-lisp:defun disassociate-resource-share-permission @@ -6626,7 +6625,7 @@ "POST" "/disassociateresourcesharepermission" "DisassociateResourceSharePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-resource-share-permission)) (common-lisp:progn (common-lisp:defun enable-sharing-with-aws-organization () @@ -6653,7 +6652,7 @@ aws-sdk/generator/operation::input "POST" "/getpermission" "GetPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-permission)) (common-lisp:progn (common-lisp:defun get-resource-policies @@ -6673,7 +6672,7 @@ "POST" "/getresourcepolicies" "GetResourcePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policies)) (common-lisp:progn (common-lisp:defun get-resource-share-associations @@ -6696,7 +6695,7 @@ "POST" "/getresourceshareassociations" "GetResourceShareAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-share-associations)) (common-lisp:progn (common-lisp:defun get-resource-share-invitations @@ -6718,7 +6717,7 @@ "POST" "/getresourceshareinvitations" "GetResourceShareInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-share-invitations)) (common-lisp:progn (common-lisp:defun get-resource-shares @@ -6741,7 +6740,7 @@ "POST" "/getresourceshares" "GetResourceShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-shares)) (common-lisp:progn (common-lisp:defun list-pending-invitation-resources @@ -6763,7 +6762,7 @@ "POST" "/listpendinginvitationresources" "ListPendingInvitationResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pending-invitation-resources)) (common-lisp:progn (common-lisp:defun list-permission-associations @@ -6786,7 +6785,7 @@ "POST" "/listpermissionassociations" "ListPermissionAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permission-associations)) (common-lisp:progn (common-lisp:defun list-permission-versions @@ -6805,7 +6804,7 @@ "POST" "/listpermissionversions" "ListPermissionVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permission-versions)) (common-lisp:progn (common-lisp:defun list-permissions @@ -6826,7 +6825,7 @@ "POST" "/listpermissions" "ListPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permissions)) (common-lisp:progn (common-lisp:defun list-principals @@ -6847,7 +6846,7 @@ "POST" "/listprincipals" "ListPrincipals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-principals)) (common-lisp:progn (common-lisp:defun list-replace-permission-associations-work @@ -6867,7 +6866,7 @@ "POST" "/listreplacepermissionassociationswork" "ListReplacePermissionAssociationsWork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-replace-permission-associations-work)) (common-lisp:progn (common-lisp:defun list-resource-share-permissions @@ -6888,7 +6887,7 @@ "POST" "/listresourcesharepermissions" "ListResourceSharePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-share-permissions)) (common-lisp:progn (common-lisp:defun list-resource-types @@ -6908,7 +6907,7 @@ "POST" "/listresourcetypes" "ListResourceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-types)) (common-lisp:progn (common-lisp:defun list-resources @@ -6929,7 +6928,7 @@ aws-sdk/generator/operation::input "POST" "/listresources" "ListResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources)) (common-lisp:progn (common-lisp:defun promote-permission-created-from-policy @@ -6949,7 +6948,7 @@ "POST" "/promotepermissioncreatedfrompolicy" "PromotePermissionCreatedFromPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'promote-permission-created-from-policy)) (common-lisp:progn (common-lisp:defun promote-resource-share-created-from-policy @@ -6968,7 +6967,7 @@ "POST" "/promoteresourcesharecreatedfrompolicy" "PromoteResourceShareCreatedFromPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'promote-resource-share-created-from-policy)) (common-lisp:progn (common-lisp:defun reject-resource-share-invitation @@ -6989,7 +6988,7 @@ "POST" "/rejectresourceshareinvitation" "RejectResourceShareInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-resource-share-invitation)) (common-lisp:progn (common-lisp:defun replace-permission-associations @@ -7011,7 +7010,7 @@ "POST" "/replacepermissionassociations" "ReplacePermissionAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'replace-permission-associations)) (common-lisp:progn (common-lisp:defun set-default-permission-version @@ -7032,7 +7031,7 @@ "POST" "/setdefaultpermissionversion" "SetDefaultPermissionVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-default-permission-version)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7050,7 +7049,7 @@ aws-sdk/generator/operation::input "POST" "/tagresource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7068,7 +7067,7 @@ aws-sdk/generator/operation::input "POST" "/untagresource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-resource-share @@ -7089,5 +7088,5 @@ "POST" "/updateresourceshare" "UpdateResourceShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-share)) diff --git a/services/rbin/api.lisp b/services/rbin/api.lisp index cc7377a9..3ae29bc6 100644 --- a/services/rbin/api.lisp +++ b/services/rbin/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/rbin/api - (:use) - (:nicknames #:aws/rbin) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/rbin/api (:use) + (:nicknames #:aws/rbin) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/rbin/api) (common-lisp:progn (common-lisp:define-condition rbin-error @@ -20,7 +19,7 @@ (common-lisp:export 'rbin-error)) (common-lisp:progn (common-lisp:defclass rbin-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "rbin" :api-version "2021-06-15" :host-prefix "rbin" :signing-name "rbin" @@ -1803,7 +1802,7 @@ aws-sdk/generator/operation::input "POST" "/rules" "CreateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule)) (common-lisp:progn (common-lisp:defun delete-rule @@ -1825,12 +1824,13 @@ (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun get-rule @@ -1852,12 +1852,13 @@ (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rule)) (common-lisp:progn (common-lisp:defun list-rules @@ -1877,7 +1878,7 @@ aws-sdk/generator/operation::input "POST" "/list-rules" "ListRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1899,12 +1900,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun lock-rule @@ -1926,12 +1928,13 @@ (common-lisp:format common-lisp:nil "/rules/~A/lock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "LockRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'lock-rule)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1953,12 +1956,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun unlock-rule @@ -1980,12 +1984,13 @@ (common-lisp:format common-lisp:nil "/rules/~A/unlock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UnlockRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unlock-rule)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2007,12 +2012,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-rule @@ -2037,10 +2043,11 @@ (common-lisp:format common-lisp:nil "/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule)) diff --git a/services/rds-data/api.lisp b/services/rds-data/api.lisp index b4f88177..8070f874 100644 --- a/services/rds-data/api.lisp +++ b/services/rds-data/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/rds-data/api - (:use) - (:nicknames #:aws/rds-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/rds-data/api (:use) + (:nicknames #:aws/rds-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/rds-data/api) (common-lisp:progn (common-lisp:define-condition rds-data-error @@ -20,7 +19,7 @@ (common-lisp:export 'rds-data-error)) (common-lisp:progn (common-lisp:defclass rds-data-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "rds-data" :api-version "2018-08-01" :host-prefix "rds-data" :signing-name @@ -2029,7 +2028,7 @@ aws-sdk/generator/operation::input "POST" "/BatchExecute" "BatchExecuteStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-execute-statement)) (common-lisp:progn (common-lisp:defun begin-transaction @@ -2048,7 +2047,7 @@ "POST" "/BeginTransaction" "BeginTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'begin-transaction)) (common-lisp:progn (common-lisp:defun commit-transaction @@ -2067,7 +2066,7 @@ "POST" "/CommitTransaction" "CommitTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'commit-transaction)) (common-lisp:progn (common-lisp:defun execute-sql @@ -2087,7 +2086,7 @@ aws-sdk/generator/operation::input "POST" "/ExecuteSql" "ExecuteSql")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-sql)) (common-lisp:progn (common-lisp:defun execute-statement @@ -2110,7 +2109,7 @@ aws-sdk/generator/operation::input "POST" "/Execute" "ExecuteStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-statement)) (common-lisp:progn (common-lisp:defun rollback-transaction @@ -2129,5 +2128,5 @@ "POST" "/RollbackTransaction" "RollbackTransaction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'rollback-transaction)) diff --git a/services/rds/api.lisp b/services/rds/api.lisp index c986db1d..56c3cc75 100644 --- a/services/rds/api.lisp +++ b/services/rds/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/rds/api - (:use) - (:nicknames #:aws/rds) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/rds/api (:use) + (:nicknames #:aws/rds) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/rds/api) (common-lisp:progn (common-lisp:define-condition rds-error @@ -42477,7 +42476,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddRoleToDBCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-role-to-dbcluster)) (common-lisp:progn (common-lisp:defun add-role-to-dbinstance @@ -42496,7 +42495,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddRoleToDBInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-role-to-dbinstance)) (common-lisp:progn (common-lisp:defun add-source-identifier-to-subscription @@ -42515,7 +42514,8 @@ aws-sdk/generator/operation::input "POST" "/" "AddSourceIdentifierToSubscription")) - common-lisp:nil "AddSourceIdentifierToSubscriptionResult" *error-map*))) + common-lisp:nil "AddSourceIdentifierToSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'add-source-identifier-to-subscription)) (common-lisp:progn (common-lisp:defun add-tags-to-resource @@ -42532,7 +42532,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun apply-pending-maintenance-action @@ -42552,7 +42552,8 @@ aws-sdk/generator/operation::input "POST" "/" "ApplyPendingMaintenanceAction")) - common-lisp:nil "ApplyPendingMaintenanceActionResult" *error-map*))) + common-lisp:nil "ApplyPendingMaintenanceActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'apply-pending-maintenance-action)) (common-lisp:progn (common-lisp:defun authorize-dbsecurity-group-ingress @@ -42574,7 +42575,8 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeDBSecurityGroupIngress")) - common-lisp:nil "AuthorizeDBSecurityGroupIngressResult" *error-map*))) + common-lisp:nil "AuthorizeDBSecurityGroupIngressResult" *error-map* + common-lisp:nil))) (common-lisp:export 'authorize-dbsecurity-group-ingress)) (common-lisp:progn (common-lisp:defun backtrack-dbcluster @@ -42594,7 +42596,7 @@ aws-sdk/generator/operation::input "POST" "/" "BacktrackDBCluster")) - common-lisp:nil "BacktrackDBClusterResult" *error-map*))) + common-lisp:nil "BacktrackDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'backtrack-dbcluster)) (common-lisp:progn (common-lisp:defun cancel-export-task @@ -42611,7 +42613,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelExportTask")) - common-lisp:nil "CancelExportTaskResult" *error-map*))) + common-lisp:nil "CancelExportTaskResult" *error-map* common-lisp:nil))) (common-lisp:export 'cancel-export-task)) (common-lisp:progn (common-lisp:defun copy-dbcluster-parameter-group @@ -42635,7 +42637,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBClusterParameterGroup")) - common-lisp:nil "CopyDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "CopyDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun copy-dbcluster-snapshot @@ -42657,7 +42660,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBClusterSnapshot")) - common-lisp:nil "CopyDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "CopyDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun copy-dbparameter-group @@ -42679,7 +42683,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBParameterGroup")) - common-lisp:nil "CopyDBParameterGroupResult" *error-map*))) + common-lisp:nil "CopyDBParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-dbparameter-group)) (common-lisp:progn (common-lisp:defun copy-dbsnapshot @@ -42702,7 +42707,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyDBSnapshot")) - common-lisp:nil "CopyDBSnapshotResult" *error-map*))) + common-lisp:nil "CopyDBSnapshotResult" *error-map* common-lisp:nil))) (common-lisp:export 'copy-dbsnapshot)) (common-lisp:progn (common-lisp:defun copy-option-group @@ -42723,7 +42728,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyOptionGroup")) - common-lisp:nil "CopyOptionGroupResult" *error-map*))) + common-lisp:nil "CopyOptionGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'copy-option-group)) (common-lisp:progn (common-lisp:defun create-blue-green-deployment @@ -42748,7 +42753,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateBlueGreenDeployment")) - common-lisp:nil "CreateBlueGreenDeploymentResult" *error-map*))) + common-lisp:nil "CreateBlueGreenDeploymentResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-blue-green-deployment)) (common-lisp:progn (common-lisp:defun create-custom-dbengine-version @@ -42776,7 +42782,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCustomDBEngineVersion")) - common-lisp:nil "CreateCustomDBEngineVersionResult" *error-map*))) + common-lisp:nil "CreateCustomDBEngineVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-custom-dbengine-version)) (common-lisp:progn (common-lisp:defun create-dbcluster @@ -42834,7 +42841,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBCluster")) - common-lisp:nil "CreateDBClusterResult" *error-map*))) + common-lisp:nil "CreateDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbcluster)) (common-lisp:progn (common-lisp:defun create-dbcluster-endpoint @@ -42856,7 +42863,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBClusterEndpoint")) - common-lisp:nil "CreateDBClusterEndpointResult" *error-map*))) + common-lisp:nil "CreateDBClusterEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbcluster-endpoint)) (common-lisp:progn (common-lisp:defun create-dbcluster-parameter-group @@ -42877,7 +42885,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBClusterParameterGroup")) - common-lisp:nil "CreateDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "CreateDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun create-dbcluster-snapshot @@ -42898,7 +42907,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBClusterSnapshot")) - common-lisp:nil "CreateDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "CreateDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun create-dbinstance @@ -42958,7 +42968,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBInstance")) - common-lisp:nil "CreateDBInstanceResult" *error-map*))) + common-lisp:nil "CreateDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbinstance)) (common-lisp:progn (common-lisp:defun create-dbinstance-read-replica @@ -43007,7 +43017,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBInstanceReadReplica")) - common-lisp:nil "CreateDBInstanceReadReplicaResult" *error-map*))) + common-lisp:nil "CreateDBInstanceReadReplicaResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbinstance-read-replica)) (common-lisp:progn (common-lisp:defun create-dbparameter-group @@ -43027,7 +43038,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBParameterGroup")) - common-lisp:nil "CreateDBParameterGroupResult" *error-map*))) + common-lisp:nil "CreateDBParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbparameter-group)) (common-lisp:progn (common-lisp:defun create-dbproxy @@ -43049,7 +43061,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBProxy")) - common-lisp:nil "CreateDBProxyResult" *error-map*))) + common-lisp:nil "CreateDBProxyResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbproxy)) (common-lisp:progn (common-lisp:defun create-dbproxy-endpoint @@ -43069,7 +43081,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBProxyEndpoint")) - common-lisp:nil "CreateDBProxyEndpointResult" *error-map*))) + common-lisp:nil "CreateDBProxyEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbproxy-endpoint)) (common-lisp:progn (common-lisp:defun create-dbsecurity-group @@ -43089,7 +43102,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBSecurityGroup")) - common-lisp:nil "CreateDBSecurityGroupResult" *error-map*))) + common-lisp:nil "CreateDBSecurityGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbsecurity-group)) (common-lisp:progn (common-lisp:defun create-dbshard-group @@ -43110,7 +43124,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBShardGroup")) - common-lisp:nil "CreateDBShardGroupResult" *error-map*))) + common-lisp:nil "CreateDBShardGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbshard-group)) (common-lisp:progn (common-lisp:defun create-dbsnapshot @@ -43129,7 +43143,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBSnapshot")) - common-lisp:nil "CreateDBSnapshotResult" *error-map*))) + common-lisp:nil "CreateDBSnapshotResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-dbsnapshot)) (common-lisp:progn (common-lisp:defun create-dbsubnet-group @@ -43149,7 +43163,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDBSubnetGroup")) - common-lisp:nil "CreateDBSubnetGroupResult" *error-map*))) + common-lisp:nil "CreateDBSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-dbsubnet-group)) (common-lisp:progn (common-lisp:defun create-event-subscription @@ -43170,7 +43185,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventSubscription")) - common-lisp:nil "CreateEventSubscriptionResult" *error-map*))) + common-lisp:nil "CreateEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-event-subscription)) (common-lisp:progn (common-lisp:defun create-global-cluster @@ -43192,7 +43208,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGlobalCluster")) - common-lisp:nil "CreateGlobalClusterResult" *error-map*))) + common-lisp:nil "CreateGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-global-cluster)) (common-lisp:progn (common-lisp:defun create-integration @@ -43212,7 +43229,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIntegration")) - common-lisp:nil "CreateIntegrationResult" *error-map*))) + common-lisp:nil "CreateIntegrationResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-integration)) (common-lisp:progn (common-lisp:defun create-option-group @@ -43232,7 +43249,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateOptionGroup")) - common-lisp:nil "CreateOptionGroupResult" *error-map*))) + common-lisp:nil "CreateOptionGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-option-group)) (common-lisp:progn (common-lisp:defun create-tenant-database @@ -43253,7 +43270,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTenantDatabase")) - common-lisp:nil "CreateTenantDatabaseResult" *error-map*))) + common-lisp:nil "CreateTenantDatabaseResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-tenant-database)) (common-lisp:progn (common-lisp:defun delete-blue-green-deployment @@ -43273,7 +43291,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteBlueGreenDeployment")) - common-lisp:nil "DeleteBlueGreenDeploymentResult" *error-map*))) + common-lisp:nil "DeleteBlueGreenDeploymentResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-blue-green-deployment)) (common-lisp:progn (common-lisp:defun delete-custom-dbengine-version @@ -43291,7 +43310,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCustomDBEngineVersion")) - common-lisp:nil "DeleteCustomDBEngineVersionResult" *error-map*))) + common-lisp:nil "DeleteCustomDBEngineVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-custom-dbengine-version)) (common-lisp:progn (common-lisp:defun delete-dbcluster @@ -43311,7 +43331,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBCluster")) - common-lisp:nil "DeleteDBClusterResult" *error-map*))) + common-lisp:nil "DeleteDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbcluster)) (common-lisp:progn (common-lisp:defun delete-dbcluster-automated-backup @@ -43329,7 +43349,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterAutomatedBackup")) - common-lisp:nil "DeleteDBClusterAutomatedBackupResult" *error-map*))) + common-lisp:nil "DeleteDBClusterAutomatedBackupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-dbcluster-automated-backup)) (common-lisp:progn (common-lisp:defun delete-dbcluster-endpoint @@ -43347,7 +43368,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterEndpoint")) - common-lisp:nil "DeleteDBClusterEndpointResult" *error-map*))) + common-lisp:nil "DeleteDBClusterEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-dbcluster-endpoint)) (common-lisp:progn (common-lisp:defun delete-dbcluster-parameter-group @@ -43365,7 +43387,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun delete-dbcluster-snapshot @@ -43383,7 +43405,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBClusterSnapshot")) - common-lisp:nil "DeleteDBClusterSnapshotResult" *error-map*))) + common-lisp:nil "DeleteDBClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-dbcluster-snapshot)) (common-lisp:progn (common-lisp:defun delete-dbinstance @@ -43403,7 +43426,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBInstance")) - common-lisp:nil "DeleteDBInstanceResult" *error-map*))) + common-lisp:nil "DeleteDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbinstance)) (common-lisp:progn (common-lisp:defun delete-dbinstance-automated-backup @@ -43423,7 +43446,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBInstanceAutomatedBackup")) - common-lisp:nil "DeleteDBInstanceAutomatedBackupResult" *error-map*))) + common-lisp:nil "DeleteDBInstanceAutomatedBackupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-dbinstance-automated-backup)) (common-lisp:progn (common-lisp:defun delete-dbparameter-group @@ -43440,7 +43464,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbparameter-group)) (common-lisp:progn (common-lisp:defun delete-dbproxy @@ -43457,7 +43481,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBProxy")) - common-lisp:nil "DeleteDBProxyResult" *error-map*))) + common-lisp:nil "DeleteDBProxyResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbproxy)) (common-lisp:progn (common-lisp:defun delete-dbproxy-endpoint @@ -43474,7 +43498,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBProxyEndpoint")) - common-lisp:nil "DeleteDBProxyEndpointResult" *error-map*))) + common-lisp:nil "DeleteDBProxyEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-dbproxy-endpoint)) (common-lisp:progn (common-lisp:defun delete-dbsecurity-group @@ -43491,7 +43516,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbsecurity-group)) (common-lisp:progn (common-lisp:defun delete-dbshard-group @@ -43508,7 +43533,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBShardGroup")) - common-lisp:nil "DeleteDBShardGroupResult" *error-map*))) + common-lisp:nil "DeleteDBShardGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbshard-group)) (common-lisp:progn (common-lisp:defun delete-dbsnapshot @@ -43525,7 +43550,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBSnapshot")) - common-lisp:nil "DeleteDBSnapshotResult" *error-map*))) + common-lisp:nil "DeleteDBSnapshotResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbsnapshot)) (common-lisp:progn (common-lisp:defun delete-dbsubnet-group @@ -43542,7 +43567,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDBSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-dbsubnet-group)) (common-lisp:progn (common-lisp:defun delete-event-subscription @@ -43560,7 +43585,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventSubscription")) - common-lisp:nil "DeleteEventSubscriptionResult" *error-map*))) + common-lisp:nil "DeleteEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-event-subscription)) (common-lisp:progn (common-lisp:defun delete-global-cluster @@ -43577,7 +43603,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGlobalCluster")) - common-lisp:nil "DeleteGlobalClusterResult" *error-map*))) + common-lisp:nil "DeleteGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-global-cluster)) (common-lisp:progn (common-lisp:defun delete-integration @@ -43594,7 +43621,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIntegration")) - common-lisp:nil "DeleteIntegrationResult" *error-map*))) + common-lisp:nil "DeleteIntegrationResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-integration)) (common-lisp:progn (common-lisp:defun delete-option-group @@ -43611,7 +43638,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteOptionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-option-group)) (common-lisp:progn (common-lisp:defun delete-tenant-database @@ -43631,7 +43658,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTenantDatabase")) - common-lisp:nil "DeleteTenantDatabaseResult" *error-map*))) + common-lisp:nil "DeleteTenantDatabaseResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-tenant-database)) (common-lisp:progn (common-lisp:defun deregister-dbproxy-targets @@ -43652,7 +43680,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterDBProxyTargets")) - common-lisp:nil "DeregisterDBProxyTargetsResult" *error-map*))) + common-lisp:nil "DeregisterDBProxyTargetsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'deregister-dbproxy-targets)) (common-lisp:progn (common-lisp:defun describe-account-attributes () @@ -43681,7 +43710,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBlueGreenDeployments")) - common-lisp:nil "DescribeBlueGreenDeploymentsResult" *error-map*))) + common-lisp:nil "DescribeBlueGreenDeploymentsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-blue-green-deployments)) (common-lisp:progn (common-lisp:defun describe-certificates @@ -43700,7 +43730,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCertificates")) - common-lisp:nil "DescribeCertificatesResult" *error-map*))) + common-lisp:nil "DescribeCertificatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-certificates)) (common-lisp:progn (common-lisp:defun describe-dbcluster-automated-backups @@ -43721,7 +43752,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterAutomatedBackups")) - common-lisp:nil "DescribeDBClusterAutomatedBackupsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterAutomatedBackupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-automated-backups)) (common-lisp:progn (common-lisp:defun describe-dbcluster-backtracks @@ -43742,7 +43774,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterBacktracks")) - common-lisp:nil "DescribeDBClusterBacktracksResult" *error-map*))) + common-lisp:nil "DescribeDBClusterBacktracksResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-backtracks)) (common-lisp:progn (common-lisp:defun describe-dbcluster-endpoints @@ -43763,7 +43796,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterEndpoints")) - common-lisp:nil "DescribeDBClusterEndpointsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterEndpointsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-endpoints)) (common-lisp:progn (common-lisp:defun describe-dbcluster-parameter-groups @@ -43784,7 +43818,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterParameterGroups")) - common-lisp:nil "DescribeDBClusterParameterGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterParameterGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-parameter-groups)) (common-lisp:progn (common-lisp:defun describe-dbcluster-parameters @@ -43805,7 +43840,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterParameters")) - common-lisp:nil "DescribeDBClusterParametersResult" *error-map*))) + common-lisp:nil "DescribeDBClusterParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-parameters)) (common-lisp:progn (common-lisp:defun describe-dbcluster-snapshot-attributes @@ -43823,8 +43859,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterSnapshotAttributes")) - common-lisp:nil "DescribeDBClusterSnapshotAttributesResult" - *error-map*))) + common-lisp:nil "DescribeDBClusterSnapshotAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-snapshot-attributes)) (common-lisp:progn (common-lisp:defun describe-dbcluster-snapshots @@ -43848,7 +43884,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusterSnapshots")) - common-lisp:nil "DescribeDBClusterSnapshotsResult" *error-map*))) + common-lisp:nil "DescribeDBClusterSnapshotsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbcluster-snapshots)) (common-lisp:progn (common-lisp:defun describe-dbclusters @@ -43868,7 +43905,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBClusters")) - common-lisp:nil "DescribeDBClustersResult" *error-map*))) + common-lisp:nil "DescribeDBClustersResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-dbclusters)) (common-lisp:progn (common-lisp:defun describe-dbengine-versions @@ -43892,7 +43929,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBEngineVersions")) - common-lisp:nil "DescribeDBEngineVersionsResult" *error-map*))) + common-lisp:nil "DescribeDBEngineVersionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbengine-versions)) (common-lisp:progn (common-lisp:defun describe-dbinstance-automated-backups @@ -43914,7 +43952,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBInstanceAutomatedBackups")) - common-lisp:nil "DescribeDBInstanceAutomatedBackupsResult" *error-map*))) + common-lisp:nil "DescribeDBInstanceAutomatedBackupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbinstance-automated-backups)) (common-lisp:progn (common-lisp:defun describe-dbinstances @@ -43933,7 +43972,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBInstances")) - common-lisp:nil "DescribeDBInstancesResult" *error-map*))) + common-lisp:nil "DescribeDBInstancesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbinstances)) (common-lisp:progn (common-lisp:defun describe-dblog-files @@ -43953,7 +43993,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBLogFiles")) - common-lisp:nil "DescribeDBLogFilesResult" *error-map*))) + common-lisp:nil "DescribeDBLogFilesResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-dblog-files)) (common-lisp:progn (common-lisp:defun describe-dbparameter-groups @@ -43973,7 +44013,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBParameterGroups")) - common-lisp:nil "DescribeDBParameterGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBParameterGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbparameter-groups)) (common-lisp:progn (common-lisp:defun describe-dbparameters @@ -43993,7 +44034,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBParameters")) - common-lisp:nil "DescribeDBParametersResult" *error-map*))) + common-lisp:nil "DescribeDBParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbparameters)) (common-lisp:progn (common-lisp:defun describe-dbproxies @@ -44011,7 +44053,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBProxies")) - common-lisp:nil "DescribeDBProxiesResult" *error-map*))) + common-lisp:nil "DescribeDBProxiesResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-dbproxies)) (common-lisp:progn (common-lisp:defun describe-dbproxy-endpoints @@ -44032,7 +44074,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBProxyEndpoints")) - common-lisp:nil "DescribeDBProxyEndpointsResult" *error-map*))) + common-lisp:nil "DescribeDBProxyEndpointsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbproxy-endpoints)) (common-lisp:progn (common-lisp:defun describe-dbproxy-target-groups @@ -44053,7 +44096,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBProxyTargetGroups")) - common-lisp:nil "DescribeDBProxyTargetGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBProxyTargetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbproxy-target-groups)) (common-lisp:progn (common-lisp:defun describe-dbproxy-targets @@ -44073,7 +44117,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBProxyTargets")) - common-lisp:nil "DescribeDBProxyTargetsResult" *error-map*))) + common-lisp:nil "DescribeDBProxyTargetsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbproxy-targets)) (common-lisp:progn (common-lisp:defun describe-dbrecommendations @@ -44094,7 +44139,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBRecommendations")) - common-lisp:nil "DescribeDBRecommendationsResult" *error-map*))) + common-lisp:nil "DescribeDBRecommendationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbrecommendations)) (common-lisp:progn (common-lisp:defun describe-dbsecurity-groups @@ -44114,7 +44160,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBSecurityGroups")) - common-lisp:nil "DescribeDBSecurityGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBSecurityGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbsecurity-groups)) (common-lisp:progn (common-lisp:defun describe-dbshard-groups @@ -44134,7 +44181,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBShardGroups")) - common-lisp:nil "DescribeDBShardGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBShardGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbshard-groups)) (common-lisp:progn (common-lisp:defun describe-dbsnapshot-attributes @@ -44152,7 +44200,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBSnapshotAttributes")) - common-lisp:nil "DescribeDBSnapshotAttributesResult" *error-map*))) + common-lisp:nil "DescribeDBSnapshotAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbsnapshot-attributes)) (common-lisp:progn (common-lisp:defun describe-dbsnapshot-tenant-databases @@ -44174,7 +44223,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBSnapshotTenantDatabases")) - common-lisp:nil "DescribeDBSnapshotTenantDatabasesResult" *error-map*))) + common-lisp:nil "DescribeDBSnapshotTenantDatabasesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbsnapshot-tenant-databases)) (common-lisp:progn (common-lisp:defun describe-dbsnapshots @@ -44196,7 +44246,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBSnapshots")) - common-lisp:nil "DescribeDBSnapshotsResult" *error-map*))) + common-lisp:nil "DescribeDBSnapshotsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbsnapshots)) (common-lisp:progn (common-lisp:defun describe-dbsubnet-groups @@ -44215,7 +44266,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDBSubnetGroups")) - common-lisp:nil "DescribeDBSubnetGroupsResult" *error-map*))) + common-lisp:nil "DescribeDBSubnetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-dbsubnet-groups)) (common-lisp:progn (common-lisp:defun describe-engine-default-cluster-parameters @@ -44237,7 +44289,7 @@ "POST" "/" "DescribeEngineDefaultClusterParameters")) common-lisp:nil "DescribeEngineDefaultClusterParametersResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'describe-engine-default-cluster-parameters)) (common-lisp:progn (common-lisp:defun describe-engine-default-parameters @@ -44258,7 +44310,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEngineDefaultParameters")) - common-lisp:nil "DescribeEngineDefaultParametersResult" *error-map*))) + common-lisp:nil "DescribeEngineDefaultParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-engine-default-parameters)) (common-lisp:progn (common-lisp:defun describe-event-categories @@ -44276,7 +44329,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventCategories")) - common-lisp:nil "DescribeEventCategoriesResult" *error-map*))) + common-lisp:nil "DescribeEventCategoriesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-event-categories)) (common-lisp:progn (common-lisp:defun describe-event-subscriptions @@ -44296,7 +44350,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventSubscriptions")) - common-lisp:nil "DescribeEventSubscriptionsResult" *error-map*))) + common-lisp:nil "DescribeEventSubscriptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-event-subscriptions)) (common-lisp:progn (common-lisp:defun describe-events @@ -44317,7 +44372,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil "DescribeEventsResult" *error-map*))) + common-lisp:nil "DescribeEventsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-export-tasks @@ -44337,7 +44392,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExportTasks")) - common-lisp:nil "DescribeExportTasksResult" *error-map*))) + common-lisp:nil "DescribeExportTasksResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-export-tasks)) (common-lisp:progn (common-lisp:defun describe-global-clusters @@ -44357,7 +44413,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGlobalClusters")) - common-lisp:nil "DescribeGlobalClustersResult" *error-map*))) + common-lisp:nil "DescribeGlobalClustersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-global-clusters)) (common-lisp:progn (common-lisp:defun describe-integrations @@ -44376,7 +44433,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIntegrations")) - common-lisp:nil "DescribeIntegrationsResult" *error-map*))) + common-lisp:nil "DescribeIntegrationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-integrations)) (common-lisp:progn (common-lisp:defun describe-option-group-options @@ -44397,7 +44455,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOptionGroupOptions")) - common-lisp:nil "DescribeOptionGroupOptionsResult" *error-map*))) + common-lisp:nil "DescribeOptionGroupOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-option-group-options)) (common-lisp:progn (common-lisp:defun describe-option-groups @@ -44417,7 +44476,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOptionGroups")) - common-lisp:nil "DescribeOptionGroupsResult" *error-map*))) + common-lisp:nil "DescribeOptionGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-option-groups)) (common-lisp:progn (common-lisp:defun describe-orderable-dbinstance-options @@ -44439,7 +44499,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrderableDBInstanceOptions")) - common-lisp:nil "DescribeOrderableDBInstanceOptionsResult" *error-map*))) + common-lisp:nil "DescribeOrderableDBInstanceOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-orderable-dbinstance-options)) (common-lisp:progn (common-lisp:defun describe-pending-maintenance-actions @@ -44459,7 +44520,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePendingMaintenanceActions")) - common-lisp:nil "DescribePendingMaintenanceActionsResult" *error-map*))) + common-lisp:nil "DescribePendingMaintenanceActionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-pending-maintenance-actions)) (common-lisp:progn (common-lisp:defun describe-reserved-dbinstances @@ -44484,7 +44546,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedDBInstances")) - common-lisp:nil "DescribeReservedDBInstancesResult" *error-map*))) + common-lisp:nil "DescribeReservedDBInstancesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-reserved-dbinstances)) (common-lisp:progn (common-lisp:defun describe-reserved-dbinstances-offerings @@ -44507,8 +44570,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedDBInstancesOfferings")) - common-lisp:nil "DescribeReservedDBInstancesOfferingsResult" - *error-map*))) + common-lisp:nil "DescribeReservedDBInstancesOfferingsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-reserved-dbinstances-offerings)) (common-lisp:progn (common-lisp:defun describe-source-regions @@ -44526,7 +44589,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSourceRegions")) - common-lisp:nil "DescribeSourceRegionsResult" *error-map*))) + common-lisp:nil "DescribeSourceRegionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-source-regions)) (common-lisp:progn (common-lisp:defun describe-tenant-databases @@ -44547,7 +44611,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTenantDatabases")) - common-lisp:nil "DescribeTenantDatabasesResult" *error-map*))) + common-lisp:nil "DescribeTenantDatabasesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-tenant-databases)) (common-lisp:progn (common-lisp:defun describe-valid-dbinstance-modifications @@ -44565,8 +44630,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeValidDBInstanceModifications")) - common-lisp:nil "DescribeValidDBInstanceModificationsResult" - *error-map*))) + common-lisp:nil "DescribeValidDBInstanceModificationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-valid-dbinstance-modifications)) (common-lisp:progn (common-lisp:defun disable-http-endpoint @@ -44583,7 +44648,8 @@ aws-sdk/generator/operation::input "POST" "/" "DisableHttpEndpoint")) - common-lisp:nil "DisableHttpEndpointResult" *error-map*))) + common-lisp:nil "DisableHttpEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'disable-http-endpoint)) (common-lisp:progn (common-lisp:defun download-dblog-file-portion @@ -44604,7 +44670,8 @@ aws-sdk/generator/operation::input "POST" "/" "DownloadDBLogFilePortion")) - common-lisp:nil "DownloadDBLogFilePortionResult" *error-map*))) + common-lisp:nil "DownloadDBLogFilePortionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'download-dblog-file-portion)) (common-lisp:progn (common-lisp:defun enable-http-endpoint @@ -44621,7 +44688,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableHttpEndpoint")) - common-lisp:nil "EnableHttpEndpointResult" *error-map*))) + common-lisp:nil "EnableHttpEndpointResult" *error-map* common-lisp:nil))) (common-lisp:export 'enable-http-endpoint)) (common-lisp:progn (common-lisp:defun failover-dbcluster @@ -44640,7 +44707,7 @@ aws-sdk/generator/operation::input "POST" "/" "FailoverDBCluster")) - common-lisp:nil "FailoverDBClusterResult" *error-map*))) + common-lisp:nil "FailoverDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'failover-dbcluster)) (common-lisp:progn (common-lisp:defun failover-global-cluster @@ -44660,7 +44727,8 @@ aws-sdk/generator/operation::input "POST" "/" "FailoverGlobalCluster")) - common-lisp:nil "FailoverGlobalClusterResult" *error-map*))) + common-lisp:nil "FailoverGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'failover-global-cluster)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -44677,7 +44745,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil "ListTagsForResourceResult" *error-map*))) + common-lisp:nil "ListTagsForResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-activity-stream @@ -44695,7 +44764,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyActivityStream")) - common-lisp:nil "ModifyActivityStreamResult" *error-map*))) + common-lisp:nil "ModifyActivityStreamResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-activity-stream)) (common-lisp:progn (common-lisp:defun modify-certificates @@ -44714,7 +44784,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCertificates")) - common-lisp:nil "ModifyCertificatesResult" *error-map*))) + common-lisp:nil "ModifyCertificatesResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-certificates)) (common-lisp:progn (common-lisp:defun modify-current-dbcluster-capacity @@ -44735,7 +44805,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCurrentDBClusterCapacity")) - common-lisp:nil "ModifyCurrentDBClusterCapacityResult" *error-map*))) + common-lisp:nil "ModifyCurrentDBClusterCapacityResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-current-dbcluster-capacity)) (common-lisp:progn (common-lisp:defun modify-custom-dbengine-version @@ -44754,7 +44825,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCustomDBEngineVersion")) - common-lisp:nil "ModifyCustomDBEngineVersionResult" *error-map*))) + common-lisp:nil "ModifyCustomDBEngineVersionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-custom-dbengine-version)) (common-lisp:progn (common-lisp:defun modify-dbcluster @@ -44811,7 +44883,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBCluster")) - common-lisp:nil "ModifyDBClusterResult" *error-map*))) + common-lisp:nil "ModifyDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbcluster)) (common-lisp:progn (common-lisp:defun modify-dbcluster-endpoint @@ -44832,7 +44904,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBClusterEndpoint")) - common-lisp:nil "ModifyDBClusterEndpointResult" *error-map*))) + common-lisp:nil "ModifyDBClusterEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbcluster-endpoint)) (common-lisp:progn (common-lisp:defun modify-dbcluster-parameter-group @@ -44852,7 +44925,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBClusterParameterGroup")) - common-lisp:nil "ModifyDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "ModifyDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun modify-dbcluster-snapshot-attribute @@ -44873,7 +44947,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBClusterSnapshotAttribute")) - common-lisp:nil "ModifyDBClusterSnapshotAttributeResult" *error-map*))) + common-lisp:nil "ModifyDBClusterSnapshotAttributeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbcluster-snapshot-attribute)) (common-lisp:progn (common-lisp:defun modify-dbinstance @@ -44935,7 +45010,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBInstance")) - common-lisp:nil "ModifyDBInstanceResult" *error-map*))) + common-lisp:nil "ModifyDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbinstance)) (common-lisp:progn (common-lisp:defun modify-dbparameter-group @@ -44953,7 +45028,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBParameterGroup")) - common-lisp:nil "ModifyDBParameterGroupResult" *error-map*))) + common-lisp:nil "ModifyDBParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbparameter-group)) (common-lisp:progn (common-lisp:defun modify-dbproxy @@ -44974,7 +45050,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBProxy")) - common-lisp:nil "ModifyDBProxyResult" *error-map*))) + common-lisp:nil "ModifyDBProxyResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbproxy)) (common-lisp:progn (common-lisp:defun modify-dbproxy-endpoint @@ -44994,7 +45070,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBProxyEndpoint")) - common-lisp:nil "ModifyDBProxyEndpointResult" *error-map*))) + common-lisp:nil "ModifyDBProxyEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbproxy-endpoint)) (common-lisp:progn (common-lisp:defun modify-dbproxy-target-group @@ -45015,7 +45092,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBProxyTargetGroup")) - common-lisp:nil "ModifyDBProxyTargetGroupResult" *error-map*))) + common-lisp:nil "ModifyDBProxyTargetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbproxy-target-group)) (common-lisp:progn (common-lisp:defun modify-dbrecommendation @@ -45035,7 +45113,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBRecommendation")) - common-lisp:nil "ModifyDBRecommendationResult" *error-map*))) + common-lisp:nil "ModifyDBRecommendationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbrecommendation)) (common-lisp:progn (common-lisp:defun modify-dbshard-group @@ -45053,7 +45132,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBShardGroup")) - common-lisp:nil "ModifyDBShardGroupResult" *error-map*))) + common-lisp:nil "ModifyDBShardGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbshard-group)) (common-lisp:progn (common-lisp:defun modify-dbsnapshot @@ -45073,7 +45152,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBSnapshot")) - common-lisp:nil "ModifyDBSnapshotResult" *error-map*))) + common-lisp:nil "ModifyDBSnapshotResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-dbsnapshot)) (common-lisp:progn (common-lisp:defun modify-dbsnapshot-attribute @@ -45094,7 +45173,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBSnapshotAttribute")) - common-lisp:nil "ModifyDBSnapshotAttributeResult" *error-map*))) + common-lisp:nil "ModifyDBSnapshotAttributeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbsnapshot-attribute)) (common-lisp:progn (common-lisp:defun modify-dbsubnet-group @@ -45114,7 +45194,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDBSubnetGroup")) - common-lisp:nil "ModifyDBSubnetGroupResult" *error-map*))) + common-lisp:nil "ModifyDBSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-dbsubnet-group)) (common-lisp:progn (common-lisp:defun modify-event-subscription @@ -45135,7 +45216,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyEventSubscription")) - common-lisp:nil "ModifyEventSubscriptionResult" *error-map*))) + common-lisp:nil "ModifyEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-event-subscription)) (common-lisp:progn (common-lisp:defun modify-global-cluster @@ -45157,7 +45239,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyGlobalCluster")) - common-lisp:nil "ModifyGlobalClusterResult" *error-map*))) + common-lisp:nil "ModifyGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-global-cluster)) (common-lisp:progn (common-lisp:defun modify-option-group @@ -45177,7 +45260,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyOptionGroup")) - common-lisp:nil "ModifyOptionGroupResult" *error-map*))) + common-lisp:nil "ModifyOptionGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-option-group)) (common-lisp:progn (common-lisp:defun modify-tenant-database @@ -45197,7 +45280,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyTenantDatabase")) - common-lisp:nil "ModifyTenantDatabaseResult" *error-map*))) + common-lisp:nil "ModifyTenantDatabaseResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-tenant-database)) (common-lisp:progn (common-lisp:defun promote-read-replica @@ -45217,7 +45301,7 @@ aws-sdk/generator/operation::input "POST" "/" "PromoteReadReplica")) - common-lisp:nil "PromoteReadReplicaResult" *error-map*))) + common-lisp:nil "PromoteReadReplicaResult" *error-map* common-lisp:nil))) (common-lisp:export 'promote-read-replica)) (common-lisp:progn (common-lisp:defun promote-read-replica-dbcluster @@ -45235,7 +45319,8 @@ aws-sdk/generator/operation::input "POST" "/" "PromoteReadReplicaDBCluster")) - common-lisp:nil "PromoteReadReplicaDBClusterResult" *error-map*))) + common-lisp:nil "PromoteReadReplicaDBClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'promote-read-replica-dbcluster)) (common-lisp:progn (common-lisp:defun purchase-reserved-dbinstances-offering @@ -45256,8 +45341,8 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseReservedDBInstancesOffering")) - common-lisp:nil "PurchaseReservedDBInstancesOfferingResult" - *error-map*))) + common-lisp:nil "PurchaseReservedDBInstancesOfferingResult" *error-map* + common-lisp:nil))) (common-lisp:export 'purchase-reserved-dbinstances-offering)) (common-lisp:progn (common-lisp:defun reboot-dbcluster @@ -45274,7 +45359,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootDBCluster")) - common-lisp:nil "RebootDBClusterResult" *error-map*))) + common-lisp:nil "RebootDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'reboot-dbcluster)) (common-lisp:progn (common-lisp:defun reboot-dbinstance @@ -45292,7 +45377,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootDBInstance")) - common-lisp:nil "RebootDBInstanceResult" *error-map*))) + common-lisp:nil "RebootDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'reboot-dbinstance)) (common-lisp:progn (common-lisp:defun reboot-dbshard-group @@ -45309,7 +45394,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootDBShardGroup")) - common-lisp:nil "RebootDBShardGroupResult" *error-map*))) + common-lisp:nil "RebootDBShardGroupResult" *error-map* common-lisp:nil))) (common-lisp:export 'reboot-dbshard-group)) (common-lisp:progn (common-lisp:defun register-dbproxy-targets @@ -45329,7 +45414,8 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterDBProxyTargets")) - common-lisp:nil "RegisterDBProxyTargetsResult" *error-map*))) + common-lisp:nil "RegisterDBProxyTargetsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'register-dbproxy-targets)) (common-lisp:progn (common-lisp:defun remove-from-global-cluster @@ -45349,7 +45435,8 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveFromGlobalCluster")) - common-lisp:nil "RemoveFromGlobalClusterResult" *error-map*))) + common-lisp:nil "RemoveFromGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'remove-from-global-cluster)) (common-lisp:progn (common-lisp:defun remove-role-from-dbcluster @@ -45369,7 +45456,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveRoleFromDBCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-role-from-dbcluster)) (common-lisp:progn (common-lisp:defun remove-role-from-dbinstance @@ -45389,7 +45476,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveRoleFromDBInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-role-from-dbinstance)) (common-lisp:progn (common-lisp:defun remove-source-identifier-from-subscription @@ -45409,7 +45496,7 @@ "POST" "/" "RemoveSourceIdentifierFromSubscription")) common-lisp:nil "RemoveSourceIdentifierFromSubscriptionResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'remove-source-identifier-from-subscription)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -45427,7 +45514,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-tags-from-resource)) (common-lisp:progn (common-lisp:defun reset-dbcluster-parameter-group @@ -45448,7 +45535,8 @@ aws-sdk/generator/operation::input "POST" "/" "ResetDBClusterParameterGroup")) - common-lisp:nil "ResetDBClusterParameterGroupResult" *error-map*))) + common-lisp:nil "ResetDBClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reset-dbcluster-parameter-group)) (common-lisp:progn (common-lisp:defun reset-dbparameter-group @@ -45468,7 +45556,8 @@ aws-sdk/generator/operation::input "POST" "/" "ResetDBParameterGroup")) - common-lisp:nil "ResetDBParameterGroupResult" *error-map*))) + common-lisp:nil "ResetDBParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reset-dbparameter-group)) (common-lisp:progn (common-lisp:defun restore-dbcluster-from-s3 @@ -45510,7 +45599,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBClusterFromS3")) - common-lisp:nil "RestoreDBClusterFromS3Result" *error-map*))) + common-lisp:nil "RestoreDBClusterFromS3Result" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbcluster-from-s3)) (common-lisp:progn (common-lisp:defun restore-dbcluster-from-snapshot @@ -45548,7 +45638,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBClusterFromSnapshot")) - common-lisp:nil "RestoreDBClusterFromSnapshotResult" *error-map*))) + common-lisp:nil "RestoreDBClusterFromSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbcluster-from-snapshot)) (common-lisp:progn (common-lisp:defun restore-dbcluster-to-point-in-time @@ -45587,7 +45678,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBClusterToPointInTime")) - common-lisp:nil "RestoreDBClusterToPointInTimeResult" *error-map*))) + common-lisp:nil "RestoreDBClusterToPointInTimeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbcluster-to-point-in-time)) (common-lisp:progn (common-lisp:defun restore-dbinstance-from-dbsnapshot @@ -45632,7 +45724,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBInstanceFromDBSnapshot")) - common-lisp:nil "RestoreDBInstanceFromDBSnapshotResult" *error-map*))) + common-lisp:nil "RestoreDBInstanceFromDBSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbinstance-from-dbsnapshot)) (common-lisp:progn (common-lisp:defun restore-dbinstance-from-s3 @@ -45685,7 +45778,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBInstanceFromS3")) - common-lisp:nil "RestoreDBInstanceFromS3Result" *error-map*))) + common-lisp:nil "RestoreDBInstanceFromS3Result" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbinstance-from-s3)) (common-lisp:progn (common-lisp:defun restore-dbinstance-to-point-in-time @@ -45735,7 +45829,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreDBInstanceToPointInTime")) - common-lisp:nil "RestoreDBInstanceToPointInTimeResult" *error-map*))) + common-lisp:nil "RestoreDBInstanceToPointInTimeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-dbinstance-to-point-in-time)) (common-lisp:progn (common-lisp:defun revoke-dbsecurity-group-ingress @@ -45757,7 +45852,8 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeDBSecurityGroupIngress")) - common-lisp:nil "RevokeDBSecurityGroupIngressResult" *error-map*))) + common-lisp:nil "RevokeDBSecurityGroupIngressResult" *error-map* + common-lisp:nil))) (common-lisp:export 'revoke-dbsecurity-group-ingress)) (common-lisp:progn (common-lisp:defun start-activity-stream @@ -45777,7 +45873,8 @@ aws-sdk/generator/operation::input "POST" "/" "StartActivityStream")) - common-lisp:nil "StartActivityStreamResult" *error-map*))) + common-lisp:nil "StartActivityStreamResult" *error-map* + common-lisp:nil))) (common-lisp:export 'start-activity-stream)) (common-lisp:progn (common-lisp:defun start-dbcluster @@ -45794,7 +45891,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDBCluster")) - common-lisp:nil "StartDBClusterResult" *error-map*))) + common-lisp:nil "StartDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'start-dbcluster)) (common-lisp:progn (common-lisp:defun start-dbinstance @@ -45811,7 +45908,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDBInstance")) - common-lisp:nil "StartDBInstanceResult" *error-map*))) + common-lisp:nil "StartDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'start-dbinstance)) (common-lisp:progn (common-lisp:defun start-dbinstance-automated-backups-replication @@ -45833,7 +45930,7 @@ "POST" "/" "StartDBInstanceAutomatedBackupsReplication")) common-lisp:nil "StartDBInstanceAutomatedBackupsReplicationResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'start-dbinstance-automated-backups-replication)) (common-lisp:progn (common-lisp:defun start-export-task @@ -45854,7 +45951,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartExportTask")) - common-lisp:nil "StartExportTaskResult" *error-map*))) + common-lisp:nil "StartExportTaskResult" *error-map* common-lisp:nil))) (common-lisp:export 'start-export-task)) (common-lisp:progn (common-lisp:defun stop-activity-stream @@ -45871,7 +45968,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopActivityStream")) - common-lisp:nil "StopActivityStreamResult" *error-map*))) + common-lisp:nil "StopActivityStreamResult" *error-map* common-lisp:nil))) (common-lisp:export 'stop-activity-stream)) (common-lisp:progn (common-lisp:defun stop-dbcluster @@ -45888,7 +45985,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopDBCluster")) - common-lisp:nil "StopDBClusterResult" *error-map*))) + common-lisp:nil "StopDBClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'stop-dbcluster)) (common-lisp:progn (common-lisp:defun stop-dbinstance @@ -45907,7 +46004,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopDBInstance")) - common-lisp:nil "StopDBInstanceResult" *error-map*))) + common-lisp:nil "StopDBInstanceResult" *error-map* common-lisp:nil))) (common-lisp:export 'stop-dbinstance)) (common-lisp:progn (common-lisp:defun stop-dbinstance-automated-backups-replication @@ -45926,7 +46023,7 @@ "POST" "/" "StopDBInstanceAutomatedBackupsReplication")) common-lisp:nil "StopDBInstanceAutomatedBackupsReplicationResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'stop-dbinstance-automated-backups-replication)) (common-lisp:progn (common-lisp:defun switchover-blue-green-deployment @@ -45947,7 +46044,8 @@ aws-sdk/generator/operation::input "POST" "/" "SwitchoverBlueGreenDeployment")) - common-lisp:nil "SwitchoverBlueGreenDeploymentResult" *error-map*))) + common-lisp:nil "SwitchoverBlueGreenDeploymentResult" *error-map* + common-lisp:nil))) (common-lisp:export 'switchover-blue-green-deployment)) (common-lisp:progn (common-lisp:defun switchover-global-cluster @@ -45968,7 +46066,8 @@ aws-sdk/generator/operation::input "POST" "/" "SwitchoverGlobalCluster")) - common-lisp:nil "SwitchoverGlobalClusterResult" *error-map*))) + common-lisp:nil "SwitchoverGlobalClusterResult" *error-map* + common-lisp:nil))) (common-lisp:export 'switchover-global-cluster)) (common-lisp:progn (common-lisp:defun switchover-read-replica @@ -45985,5 +46084,6 @@ aws-sdk/generator/operation::input "POST" "/" "SwitchoverReadReplica")) - common-lisp:nil "SwitchoverReadReplicaResult" *error-map*))) + common-lisp:nil "SwitchoverReadReplicaResult" *error-map* + common-lisp:nil))) (common-lisp:export 'switchover-read-replica)) diff --git a/services/redshift-data/api.lisp b/services/redshift-data/api.lisp index 6a4d1dbd..bccb28ce 100644 --- a/services/redshift-data/api.lisp +++ b/services/redshift-data/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/redshift-data/api - (:use) - (:nicknames #:aws/redshift-data) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/redshift-data/api (:use) + (:nicknames #:aws/redshift-data) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/redshift-data/api) (common-lisp:progn (common-lisp:define-condition redshift-data-error @@ -2876,7 +2875,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchExecuteStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-execute-statement)) (common-lisp:progn (common-lisp:defun cancel-statement @@ -2893,7 +2892,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-statement)) (common-lisp:progn (common-lisp:defun describe-statement @@ -2910,7 +2909,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-statement)) (common-lisp:progn (common-lisp:defun describe-table @@ -2931,7 +2930,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-table)) (common-lisp:progn (common-lisp:defun execute-statement @@ -2952,7 +2951,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecuteStatement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-statement)) (common-lisp:progn (common-lisp:defun get-statement-result @@ -2969,7 +2968,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetStatementResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-statement-result)) (common-lisp:progn (common-lisp:defun list-databases @@ -2989,7 +2988,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-databases)) (common-lisp:progn (common-lisp:defun list-schemas @@ -3010,7 +3009,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schemas)) (common-lisp:progn (common-lisp:defun list-statements @@ -3030,7 +3029,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStatements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-statements)) (common-lisp:progn (common-lisp:defun list-tables @@ -3052,5 +3051,5 @@ aws-sdk/generator/operation::input "POST" "/" "ListTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tables)) diff --git a/services/redshift-serverless/api.lisp b/services/redshift-serverless/api.lisp index c0cc6725..5228d25d 100644 --- a/services/redshift-serverless/api.lisp +++ b/services/redshift-serverless/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/redshift-serverless/api - (:use) - (:nicknames #:aws/redshift-serverless) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/redshift-serverless/api (:use) + (:nicknames #:aws/redshift-serverless) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/redshift-serverless/api) (common-lisp:progn (common-lisp:define-condition redshift-serverless-error @@ -9392,7 +9391,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ConvertRecoveryPointToSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'convert-recovery-point-to-snapshot)) (common-lisp:progn (common-lisp:defun create-custom-domain-association @@ -9412,7 +9411,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "CreateCustomDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-domain-association)) (common-lisp:progn (common-lisp:defun create-endpoint-access @@ -9431,7 +9430,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "CreateEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-endpoint-access)) (common-lisp:progn (common-lisp:defun create-namespace @@ -9455,7 +9454,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "CreateNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-namespace)) (common-lisp:progn (common-lisp:defun create-scheduled-action @@ -9476,7 +9475,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "CreateScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-scheduled-action)) (common-lisp:progn (common-lisp:defun create-snapshot @@ -9494,7 +9493,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "CreateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-snapshot)) (common-lisp:progn (common-lisp:defun create-snapshot-copy-configuration @@ -9514,7 +9513,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "CreateSnapshotCopyConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-snapshot-copy-configuration)) (common-lisp:progn (common-lisp:defun create-usage-limit @@ -9533,7 +9532,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "CreateUsageLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-usage-limit)) (common-lisp:progn (common-lisp:defun create-workgroup @@ -9555,7 +9554,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "CreateWorkgroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workgroup)) (common-lisp:progn (common-lisp:defun delete-custom-domain-association @@ -9573,7 +9572,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteCustomDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-domain-association)) (common-lisp:progn (common-lisp:defun delete-endpoint-access @@ -9589,7 +9588,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint-access)) (common-lisp:progn (common-lisp:defun delete-namespace @@ -9608,7 +9607,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-namespace)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -9624,7 +9623,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-scheduled-action @@ -9640,7 +9639,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scheduled-action)) (common-lisp:progn (common-lisp:defun delete-snapshot @@ -9656,7 +9655,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-snapshot)) (common-lisp:progn (common-lisp:defun delete-snapshot-copy-configuration @@ -9673,7 +9672,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshotCopyConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-snapshot-copy-configuration)) (common-lisp:progn (common-lisp:defun delete-usage-limit @@ -9689,7 +9688,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteUsageLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-usage-limit)) (common-lisp:progn (common-lisp:defun delete-workgroup @@ -9705,7 +9704,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "DeleteWorkgroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workgroup)) (common-lisp:progn (common-lisp:defun get-credentials @@ -9724,7 +9723,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-credentials)) (common-lisp:progn (common-lisp:defun get-custom-domain-association @@ -9742,7 +9741,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetCustomDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-custom-domain-association)) (common-lisp:progn (common-lisp:defun get-endpoint-access @@ -9758,7 +9757,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-endpoint-access)) (common-lisp:progn (common-lisp:defun get-namespace @@ -9774,7 +9773,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-namespace)) (common-lisp:progn (common-lisp:defun get-recovery-point @@ -9790,7 +9789,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetRecoveryPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recovery-point)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -9806,7 +9805,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun get-scheduled-action @@ -9822,7 +9821,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-scheduled-action)) (common-lisp:progn (common-lisp:defun get-snapshot @@ -9839,7 +9838,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-snapshot)) (common-lisp:progn (common-lisp:defun get-table-restore-status @@ -9855,7 +9854,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetTableRestoreStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-table-restore-status)) (common-lisp:progn (common-lisp:defun get-usage-limit @@ -9871,7 +9870,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetUsageLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-usage-limit)) (common-lisp:progn (common-lisp:defun get-workgroup @@ -9887,7 +9886,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "GetWorkgroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workgroup)) (common-lisp:progn (common-lisp:defun list-custom-domain-associations @@ -9907,7 +9906,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListCustomDomainAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-domain-associations)) (common-lisp:progn (common-lisp:defun list-endpoint-access @@ -9926,7 +9925,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-endpoint-access)) (common-lisp:progn (common-lisp:defun list-namespaces @@ -9942,7 +9941,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListNamespaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-namespaces)) (common-lisp:progn (common-lisp:defun list-recovery-points @@ -9961,7 +9960,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListRecoveryPoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recovery-points)) (common-lisp:progn (common-lisp:defun list-scheduled-actions @@ -9978,7 +9977,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListScheduledActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scheduled-actions)) (common-lisp:progn (common-lisp:defun list-snapshot-copy-configurations @@ -9996,7 +9995,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListSnapshotCopyConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-snapshot-copy-configurations)) (common-lisp:progn (common-lisp:defun list-snapshots @@ -10015,7 +10014,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-snapshots)) (common-lisp:progn (common-lisp:defun list-table-restore-status @@ -10035,7 +10034,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListTableRestoreStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-table-restore-status)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10051,7 +10050,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-usage-limits @@ -10069,7 +10068,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListUsageLimits")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-usage-limits)) (common-lisp:progn (common-lisp:defun list-workgroups @@ -10086,7 +10085,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "ListWorkgroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workgroups)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -10102,7 +10101,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun restore-from-recovery-point @@ -10121,7 +10120,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "RestoreFromRecoveryPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-from-recovery-point)) (common-lisp:progn (common-lisp:defun restore-from-snapshot @@ -10142,7 +10141,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "RestoreFromSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-from-snapshot)) (common-lisp:progn (common-lisp:defun restore-table-from-recovery-point @@ -10165,7 +10164,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "RestoreTableFromRecoveryPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-table-from-recovery-point)) (common-lisp:progn (common-lisp:defun restore-table-from-snapshot @@ -10188,7 +10187,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "RestoreTableFromSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-table-from-snapshot)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10204,7 +10203,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10220,7 +10219,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-custom-domain-association @@ -10240,7 +10239,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateCustomDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-custom-domain-association)) (common-lisp:progn (common-lisp:defun update-endpoint-access @@ -10257,7 +10256,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateEndpointAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-endpoint-access)) (common-lisp:progn (common-lisp:defun update-namespace @@ -10279,7 +10278,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-namespace)) (common-lisp:progn (common-lisp:defun update-scheduled-action @@ -10300,7 +10299,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-scheduled-action)) (common-lisp:progn (common-lisp:defun update-snapshot @@ -10316,7 +10315,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-snapshot)) (common-lisp:progn (common-lisp:defun update-snapshot-copy-configuration @@ -10336,7 +10335,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateSnapshotCopyConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-snapshot-copy-configuration)) (common-lisp:progn (common-lisp:defun update-usage-limit @@ -10353,7 +10352,7 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateUsageLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-usage-limit)) (common-lisp:progn (common-lisp:defun update-workgroup @@ -10374,5 +10373,5 @@ (aws-sdk/generator/shape:make-request-with-input 'redshift-serverless-request aws-sdk/generator/operation::input "POST" "/" "UpdateWorkgroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workgroup)) diff --git a/services/redshift/api.lisp b/services/redshift/api.lisp index c763e8da..a26573e9 100644 --- a/services/redshift/api.lisp +++ b/services/redshift/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/redshift/api - (:use) - (:nicknames #:aws/redshift) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/redshift/api (:use) + (:nicknames #:aws/redshift) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/redshift/api) (common-lisp:progn (common-lisp:define-condition redshift-error @@ -25859,7 +25858,8 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptReservedNodeExchange")) - common-lisp:nil "AcceptReservedNodeExchangeResult" *error-map*))) + common-lisp:nil "AcceptReservedNodeExchangeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'accept-reserved-node-exchange)) (common-lisp:progn (common-lisp:defun add-partner @@ -25880,7 +25880,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddPartner")) - common-lisp:nil "AddPartnerResult" *error-map*))) + common-lisp:nil "AddPartnerResult" *error-map* common-lisp:nil))) (common-lisp:export 'add-partner)) (common-lisp:progn (common-lisp:defun associate-data-share-consumer @@ -25901,7 +25901,8 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateDataShareConsumer")) - common-lisp:nil "AssociateDataShareConsumerResult" *error-map*))) + common-lisp:nil "AssociateDataShareConsumerResult" *error-map* + common-lisp:nil))) (common-lisp:export 'associate-data-share-consumer)) (common-lisp:progn (common-lisp:defun authorize-cluster-security-group-ingress @@ -25922,8 +25923,8 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeClusterSecurityGroupIngress")) - common-lisp:nil "AuthorizeClusterSecurityGroupIngressResult" - *error-map*))) + common-lisp:nil "AuthorizeClusterSecurityGroupIngressResult" *error-map* + common-lisp:nil))) (common-lisp:export 'authorize-cluster-security-group-ingress)) (common-lisp:progn (common-lisp:defun authorize-data-share @@ -25942,7 +25943,7 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeDataShare")) - common-lisp:nil "AuthorizeDataShareResult" *error-map*))) + common-lisp:nil "AuthorizeDataShareResult" *error-map* common-lisp:nil))) (common-lisp:export 'authorize-data-share)) (common-lisp:progn (common-lisp:defun authorize-endpoint-access @@ -25961,7 +25962,8 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeEndpointAccess")) - common-lisp:nil "AuthorizeEndpointAccessResult" *error-map*))) + common-lisp:nil "AuthorizeEndpointAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'authorize-endpoint-access)) (common-lisp:progn (common-lisp:defun authorize-snapshot-access @@ -25982,7 +25984,8 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeSnapshotAccess")) - common-lisp:nil "AuthorizeSnapshotAccessResult" *error-map*))) + common-lisp:nil "AuthorizeSnapshotAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'authorize-snapshot-access)) (common-lisp:progn (common-lisp:defun batch-delete-cluster-snapshots @@ -26000,7 +26003,8 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteClusterSnapshots")) - common-lisp:nil "BatchDeleteClusterSnapshotsResult" *error-map*))) + common-lisp:nil "BatchDeleteClusterSnapshotsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'batch-delete-cluster-snapshots)) (common-lisp:progn (common-lisp:defun batch-modify-cluster-snapshots @@ -26021,7 +26025,8 @@ aws-sdk/generator/operation::input "POST" "/" "BatchModifyClusterSnapshots")) - common-lisp:nil "BatchModifyClusterSnapshotsResult" *error-map*))) + common-lisp:nil "BatchModifyClusterSnapshotsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'batch-modify-cluster-snapshots)) (common-lisp:progn (common-lisp:defun cancel-resize @@ -26038,7 +26043,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelResize")) - common-lisp:nil "CancelResizeResult" *error-map*))) + common-lisp:nil "CancelResizeResult" *error-map* common-lisp:nil))) (common-lisp:export 'cancel-resize)) (common-lisp:progn (common-lisp:defun copy-cluster-snapshot @@ -26061,7 +26066,8 @@ aws-sdk/generator/operation::input "POST" "/" "CopyClusterSnapshot")) - common-lisp:nil "CopyClusterSnapshotResult" *error-map*))) + common-lisp:nil "CopyClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'copy-cluster-snapshot)) (common-lisp:progn (common-lisp:defun create-authentication-profile @@ -26082,7 +26088,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAuthenticationProfile")) - common-lisp:nil "CreateAuthenticationProfileResult" *error-map*))) + common-lisp:nil "CreateAuthenticationProfileResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-authentication-profile)) (common-lisp:progn (common-lisp:defun create-cluster @@ -26127,7 +26134,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCluster")) - common-lisp:nil "CreateClusterResult" *error-map*))) + common-lisp:nil "CreateClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-cluster-parameter-group @@ -26148,7 +26155,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateClusterParameterGroup")) - common-lisp:nil "CreateClusterParameterGroupResult" *error-map*))) + common-lisp:nil "CreateClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-cluster-parameter-group)) (common-lisp:progn (common-lisp:defun create-cluster-security-group @@ -26168,7 +26176,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateClusterSecurityGroup")) - common-lisp:nil "CreateClusterSecurityGroupResult" *error-map*))) + common-lisp:nil "CreateClusterSecurityGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-cluster-security-group)) (common-lisp:progn (common-lisp:defun create-cluster-snapshot @@ -26188,7 +26197,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateClusterSnapshot")) - common-lisp:nil "CreateClusterSnapshotResult" *error-map*))) + common-lisp:nil "CreateClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-cluster-snapshot)) (common-lisp:progn (common-lisp:defun create-cluster-subnet-group @@ -26209,7 +26219,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateClusterSubnetGroup")) - common-lisp:nil "CreateClusterSubnetGroupResult" *error-map*))) + common-lisp:nil "CreateClusterSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-cluster-subnet-group)) (common-lisp:progn (common-lisp:defun create-custom-domain-association @@ -26230,7 +26241,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCustomDomainAssociation")) - common-lisp:nil "CreateCustomDomainAssociationResult" *error-map*))) + common-lisp:nil "CreateCustomDomainAssociationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-custom-domain-association)) (common-lisp:progn (common-lisp:defun create-endpoint-access @@ -26250,7 +26262,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEndpointAccess")) - common-lisp:nil "CreateEndpointAccessResult" *error-map*))) + common-lisp:nil "CreateEndpointAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-endpoint-access)) (common-lisp:progn (common-lisp:defun create-event-subscription @@ -26272,7 +26285,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEventSubscription")) - common-lisp:nil "CreateEventSubscriptionResult" *error-map*))) + common-lisp:nil "CreateEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-event-subscription)) (common-lisp:progn (common-lisp:defun create-hsm-client-certificate @@ -26291,7 +26305,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateHsmClientCertificate")) - common-lisp:nil "CreateHsmClientCertificateResult" *error-map*))) + common-lisp:nil "CreateHsmClientCertificateResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-hsm-client-certificate)) (common-lisp:progn (common-lisp:defun create-hsm-configuration @@ -26313,7 +26328,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateHsmConfiguration")) - common-lisp:nil "CreateHsmConfigurationResult" *error-map*))) + common-lisp:nil "CreateHsmConfigurationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-hsm-configuration)) (common-lisp:progn (common-lisp:defun create-redshift-idc-application @@ -26337,7 +26353,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRedshiftIdcApplication")) - common-lisp:nil "CreateRedshiftIdcApplicationResult" *error-map*))) + common-lisp:nil "CreateRedshiftIdcApplicationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-redshift-idc-application)) (common-lisp:progn (common-lisp:defun create-scheduled-action @@ -26358,7 +26375,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateScheduledAction")) - common-lisp:nil "CreateScheduledActionResult" *error-map*))) + common-lisp:nil "CreateScheduledActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-scheduled-action)) (common-lisp:progn (common-lisp:defun create-snapshot-copy-grant @@ -26377,7 +26395,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSnapshotCopyGrant")) - common-lisp:nil "CreateSnapshotCopyGrantResult" *error-map*))) + common-lisp:nil "CreateSnapshotCopyGrantResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-snapshot-copy-grant)) (common-lisp:progn (common-lisp:defun create-snapshot-schedule @@ -26397,7 +26416,8 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSnapshotSchedule")) - common-lisp:nil "CreateSnapshotScheduleResult" *error-map*))) + common-lisp:nil "CreateSnapshotScheduleResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-snapshot-schedule)) (common-lisp:progn (common-lisp:defun create-tags @@ -26414,7 +26434,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-tags)) (common-lisp:progn (common-lisp:defun create-usage-limit @@ -26434,7 +26454,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUsageLimit")) - common-lisp:nil "CreateUsageLimitResult" *error-map*))) + common-lisp:nil "CreateUsageLimitResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-usage-limit)) (common-lisp:progn (common-lisp:defun deauthorize-data-share @@ -26452,7 +26472,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeauthorizeDataShare")) - common-lisp:nil "DeauthorizeDataShareResult" *error-map*))) + common-lisp:nil "DeauthorizeDataShareResult" *error-map* + common-lisp:nil))) (common-lisp:export 'deauthorize-data-share)) (common-lisp:progn (common-lisp:defun delete-authentication-profile @@ -26470,7 +26491,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAuthenticationProfile")) - common-lisp:nil "DeleteAuthenticationProfileResult" *error-map*))) + common-lisp:nil "DeleteAuthenticationProfileResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-authentication-profile)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -26493,7 +26515,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCluster")) - common-lisp:nil "DeleteClusterResult" *error-map*))) + common-lisp:nil "DeleteClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-cluster-parameter-group @@ -26511,7 +26533,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteClusterParameterGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-cluster-parameter-group)) (common-lisp:progn (common-lisp:defun delete-cluster-security-group @@ -26529,7 +26551,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteClusterSecurityGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-cluster-security-group)) (common-lisp:progn (common-lisp:defun delete-cluster-snapshot @@ -26548,7 +26570,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteClusterSnapshot")) - common-lisp:nil "DeleteClusterSnapshotResult" *error-map*))) + common-lisp:nil "DeleteClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-cluster-snapshot)) (common-lisp:progn (common-lisp:defun delete-cluster-subnet-group @@ -26566,7 +26589,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteClusterSubnetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-cluster-subnet-group)) (common-lisp:progn (common-lisp:defun delete-custom-domain-association @@ -26585,7 +26608,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCustomDomainAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-custom-domain-association)) (common-lisp:progn (common-lisp:defun delete-endpoint-access @@ -26602,7 +26625,8 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEndpointAccess")) - common-lisp:nil "DeleteEndpointAccessResult" *error-map*))) + common-lisp:nil "DeleteEndpointAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-endpoint-access)) (common-lisp:progn (common-lisp:defun delete-event-subscription @@ -26620,7 +26644,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEventSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-event-subscription)) (common-lisp:progn (common-lisp:defun delete-hsm-client-certificate @@ -26639,7 +26663,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHsmClientCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-hsm-client-certificate)) (common-lisp:progn (common-lisp:defun delete-hsm-configuration @@ -26656,7 +26680,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHsmConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-hsm-configuration)) (common-lisp:progn (common-lisp:defun delete-partner @@ -26677,7 +26701,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePartner")) - common-lisp:nil "DeletePartnerResult" *error-map*))) + common-lisp:nil "DeletePartnerResult" *error-map* common-lisp:nil))) (common-lisp:export 'delete-partner)) (common-lisp:progn (common-lisp:defun delete-redshift-idc-application @@ -26695,7 +26719,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRedshiftIdcApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-redshift-idc-application)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -26712,7 +26736,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-scheduled-action @@ -26729,7 +26753,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteScheduledAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-scheduled-action)) (common-lisp:progn (common-lisp:defun delete-snapshot-copy-grant @@ -26747,7 +26771,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshotCopyGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-snapshot-copy-grant)) (common-lisp:progn (common-lisp:defun delete-snapshot-schedule @@ -26764,7 +26788,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshotSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-snapshot-schedule)) (common-lisp:progn (common-lisp:defun delete-tags @@ -26781,7 +26805,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun delete-usage-limit @@ -26798,7 +26822,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUsageLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-usage-limit)) (common-lisp:progn (common-lisp:defun describe-account-attributes @@ -26816,7 +26840,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccountAttributes")) - common-lisp:nil "DescribeAccountAttributesResult" *error-map*))) + common-lisp:nil "DescribeAccountAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-account-attributes)) (common-lisp:progn (common-lisp:defun describe-authentication-profiles @@ -26834,7 +26859,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAuthenticationProfiles")) - common-lisp:nil "DescribeAuthenticationProfilesResult" *error-map*))) + common-lisp:nil "DescribeAuthenticationProfilesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-authentication-profiles)) (common-lisp:progn (common-lisp:defun describe-cluster-db-revisions @@ -26853,7 +26879,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterDbRevisions")) - common-lisp:nil "DescribeClusterDbRevisionsResult" *error-map*))) + common-lisp:nil "DescribeClusterDbRevisionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cluster-db-revisions)) (common-lisp:progn (common-lisp:defun describe-cluster-parameter-groups @@ -26874,7 +26901,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterParameterGroups")) - common-lisp:nil "DescribeClusterParameterGroupsResult" *error-map*))) + common-lisp:nil "DescribeClusterParameterGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cluster-parameter-groups)) (common-lisp:progn (common-lisp:defun describe-cluster-parameters @@ -26894,7 +26922,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterParameters")) - common-lisp:nil "DescribeClusterParametersResult" *error-map*))) + common-lisp:nil "DescribeClusterParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cluster-parameters)) (common-lisp:progn (common-lisp:defun describe-cluster-security-groups @@ -26915,7 +26944,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterSecurityGroups")) - common-lisp:nil "DescribeClusterSecurityGroupsResult" *error-map*))) + common-lisp:nil "DescribeClusterSecurityGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cluster-security-groups)) (common-lisp:progn (common-lisp:defun describe-cluster-snapshots @@ -26939,7 +26969,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterSnapshots")) - common-lisp:nil "DescribeClusterSnapshotsResult" *error-map*))) + common-lisp:nil "DescribeClusterSnapshotsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cluster-snapshots)) (common-lisp:progn (common-lisp:defun describe-cluster-subnet-groups @@ -26960,7 +26991,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterSubnetGroups")) - common-lisp:nil "DescribeClusterSubnetGroupsResult" *error-map*))) + common-lisp:nil "DescribeClusterSubnetGroupsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cluster-subnet-groups)) (common-lisp:progn (common-lisp:defun describe-cluster-tracks @@ -26979,7 +27011,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterTracks")) - common-lisp:nil "DescribeClusterTracksResult" *error-map*))) + common-lisp:nil "DescribeClusterTracksResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cluster-tracks)) (common-lisp:progn (common-lisp:defun describe-cluster-versions @@ -27000,7 +27033,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterVersions")) - common-lisp:nil "DescribeClusterVersionsResult" *error-map*))) + common-lisp:nil "DescribeClusterVersionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-cluster-versions)) (common-lisp:progn (common-lisp:defun describe-clusters @@ -27020,7 +27054,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusters")) - common-lisp:nil "DescribeClustersResult" *error-map*))) + common-lisp:nil "DescribeClustersResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-clusters)) (common-lisp:progn (common-lisp:defun describe-custom-domain-associations @@ -27041,7 +27075,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCustomDomainAssociations")) - common-lisp:nil "DescribeCustomDomainAssociationsResult" *error-map*))) + common-lisp:nil "DescribeCustomDomainAssociationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-custom-domain-associations)) (common-lisp:progn (common-lisp:defun describe-data-shares @@ -27059,7 +27094,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataShares")) - common-lisp:nil "DescribeDataSharesResult" *error-map*))) + common-lisp:nil "DescribeDataSharesResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-data-shares)) (common-lisp:progn (common-lisp:defun describe-data-shares-for-consumer @@ -27078,7 +27113,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataSharesForConsumer")) - common-lisp:nil "DescribeDataSharesForConsumerResult" *error-map*))) + common-lisp:nil "DescribeDataSharesForConsumerResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-data-shares-for-consumer)) (common-lisp:progn (common-lisp:defun describe-data-shares-for-producer @@ -27097,7 +27133,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataSharesForProducer")) - common-lisp:nil "DescribeDataSharesForProducerResult" *error-map*))) + common-lisp:nil "DescribeDataSharesForProducerResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-data-shares-for-producer)) (common-lisp:progn (common-lisp:defun describe-default-cluster-parameters @@ -27117,7 +27154,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDefaultClusterParameters")) - common-lisp:nil "DescribeDefaultClusterParametersResult" *error-map*))) + common-lisp:nil "DescribeDefaultClusterParametersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-default-cluster-parameters)) (common-lisp:progn (common-lisp:defun describe-endpoint-access @@ -27137,7 +27175,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpointAccess")) - common-lisp:nil "DescribeEndpointAccessResult" *error-map*))) + common-lisp:nil "DescribeEndpointAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-endpoint-access)) (common-lisp:progn (common-lisp:defun describe-endpoint-authorization @@ -27158,7 +27197,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpointAuthorization")) - common-lisp:nil "DescribeEndpointAuthorizationResult" *error-map*))) + common-lisp:nil "DescribeEndpointAuthorizationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-endpoint-authorization)) (common-lisp:progn (common-lisp:defun describe-event-categories @@ -27176,7 +27216,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventCategories")) - common-lisp:nil "DescribeEventCategoriesResult" *error-map*))) + common-lisp:nil "DescribeEventCategoriesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-event-categories)) (common-lisp:progn (common-lisp:defun describe-event-subscriptions @@ -27197,7 +27238,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEventSubscriptions")) - common-lisp:nil "DescribeEventSubscriptionsResult" *error-map*))) + common-lisp:nil "DescribeEventSubscriptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-event-subscriptions)) (common-lisp:progn (common-lisp:defun describe-events @@ -27217,7 +27259,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEvents")) - common-lisp:nil "DescribeEventsResult" *error-map*))) + common-lisp:nil "DescribeEventsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-events)) (common-lisp:progn (common-lisp:defun describe-hsm-client-certificates @@ -27238,7 +27280,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHsmClientCertificates")) - common-lisp:nil "DescribeHsmClientCertificatesResult" *error-map*))) + common-lisp:nil "DescribeHsmClientCertificatesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-hsm-client-certificates)) (common-lisp:progn (common-lisp:defun describe-hsm-configurations @@ -27259,7 +27302,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHsmConfigurations")) - common-lisp:nil "DescribeHsmConfigurationsResult" *error-map*))) + common-lisp:nil "DescribeHsmConfigurationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-hsm-configurations)) (common-lisp:progn (common-lisp:defun describe-inbound-integrations @@ -27279,7 +27323,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInboundIntegrations")) - common-lisp:nil "DescribeInboundIntegrationsResult" *error-map*))) + common-lisp:nil "DescribeInboundIntegrationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-inbound-integrations)) (common-lisp:progn (common-lisp:defun describe-logging-status @@ -27296,7 +27341,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLoggingStatus")) - common-lisp:nil "DescribeLoggingStatusResult" *error-map*))) + common-lisp:nil "DescribeLoggingStatusResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-logging-status)) (common-lisp:progn (common-lisp:defun describe-node-configuration-options @@ -27318,7 +27364,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNodeConfigurationOptions")) - common-lisp:nil "DescribeNodeConfigurationOptionsResult" *error-map*))) + common-lisp:nil "DescribeNodeConfigurationOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-node-configuration-options)) (common-lisp:progn (common-lisp:defun describe-orderable-cluster-options @@ -27338,7 +27385,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrderableClusterOptions")) - common-lisp:nil "DescribeOrderableClusterOptionsResult" *error-map*))) + common-lisp:nil "DescribeOrderableClusterOptionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-orderable-cluster-options)) (common-lisp:progn (common-lisp:defun describe-partners @@ -27358,7 +27406,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePartners")) - common-lisp:nil "DescribePartnersResult" *error-map*))) + common-lisp:nil "DescribePartnersResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-partners)) (common-lisp:progn (common-lisp:defun describe-redshift-idc-applications @@ -27378,7 +27426,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRedshiftIdcApplications")) - common-lisp:nil "DescribeRedshiftIdcApplicationsResult" *error-map*))) + common-lisp:nil "DescribeRedshiftIdcApplicationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-redshift-idc-applications)) (common-lisp:progn (common-lisp:defun describe-reserved-node-exchange-status @@ -27399,7 +27448,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedNodeExchangeStatus")) - common-lisp:nil "DescribeReservedNodeExchangeStatusResult" *error-map*))) + common-lisp:nil "DescribeReservedNodeExchangeStatusResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-reserved-node-exchange-status)) (common-lisp:progn (common-lisp:defun describe-reserved-node-offerings @@ -27419,7 +27469,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedNodeOfferings")) - common-lisp:nil "DescribeReservedNodeOfferingsResult" *error-map*))) + common-lisp:nil "DescribeReservedNodeOfferingsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-reserved-node-offerings)) (common-lisp:progn (common-lisp:defun describe-reserved-nodes @@ -27437,7 +27488,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReservedNodes")) - common-lisp:nil "DescribeReservedNodesResult" *error-map*))) + common-lisp:nil "DescribeReservedNodesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-reserved-nodes)) (common-lisp:progn (common-lisp:defun describe-resize @@ -27454,7 +27506,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeResize")) - common-lisp:nil "DescribeResizeResult" *error-map*))) + common-lisp:nil "DescribeResizeResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-resize)) (common-lisp:progn (common-lisp:defun describe-scheduled-actions @@ -27475,7 +27527,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeScheduledActions")) - common-lisp:nil "DescribeScheduledActionsResult" *error-map*))) + common-lisp:nil "DescribeScheduledActionsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-scheduled-actions)) (common-lisp:progn (common-lisp:defun describe-snapshot-copy-grants @@ -27496,7 +27549,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshotCopyGrants")) - common-lisp:nil "DescribeSnapshotCopyGrantsResult" *error-map*))) + common-lisp:nil "DescribeSnapshotCopyGrantsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-snapshot-copy-grants)) (common-lisp:progn (common-lisp:defun describe-snapshot-schedules @@ -27517,7 +27571,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshotSchedules")) - common-lisp:nil "DescribeSnapshotSchedulesResult" *error-map*))) + common-lisp:nil "DescribeSnapshotSchedulesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-snapshot-schedules)) (common-lisp:progn (common-lisp:defun describe-storage () @@ -27546,7 +27601,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTableRestoreStatus")) - common-lisp:nil "DescribeTableRestoreStatusResult" *error-map*))) + common-lisp:nil "DescribeTableRestoreStatusResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-table-restore-status)) (common-lisp:progn (common-lisp:defun describe-tags @@ -27566,7 +27622,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil "DescribeTagsResult" *error-map*))) + common-lisp:nil "DescribeTagsResult" *error-map* common-lisp:nil))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun describe-usage-limits @@ -27586,7 +27642,8 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUsageLimits")) - common-lisp:nil "DescribeUsageLimitsResult" *error-map*))) + common-lisp:nil "DescribeUsageLimitsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'describe-usage-limits)) (common-lisp:progn (common-lisp:defun disable-logging @@ -27603,7 +27660,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableLogging")) - common-lisp:nil "DisableLoggingResult" *error-map*))) + common-lisp:nil "DisableLoggingResult" *error-map* common-lisp:nil))) (common-lisp:export 'disable-logging)) (common-lisp:progn (common-lisp:defun disable-snapshot-copy @@ -27620,7 +27677,8 @@ aws-sdk/generator/operation::input "POST" "/" "DisableSnapshotCopy")) - common-lisp:nil "DisableSnapshotCopyResult" *error-map*))) + common-lisp:nil "DisableSnapshotCopyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'disable-snapshot-copy)) (common-lisp:progn (common-lisp:defun disassociate-data-share-consumer @@ -27641,7 +27699,8 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateDataShareConsumer")) - common-lisp:nil "DisassociateDataShareConsumerResult" *error-map*))) + common-lisp:nil "DisassociateDataShareConsumerResult" *error-map* + common-lisp:nil))) (common-lisp:export 'disassociate-data-share-consumer)) (common-lisp:progn (common-lisp:defun enable-logging @@ -27661,7 +27720,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableLogging")) - common-lisp:nil "EnableLoggingResult" *error-map*))) + common-lisp:nil "EnableLoggingResult" *error-map* common-lisp:nil))) (common-lisp:export 'enable-logging)) (common-lisp:progn (common-lisp:defun enable-snapshot-copy @@ -27683,7 +27742,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableSnapshotCopy")) - common-lisp:nil "EnableSnapshotCopyResult" *error-map*))) + common-lisp:nil "EnableSnapshotCopyResult" *error-map* common-lisp:nil))) (common-lisp:export 'enable-snapshot-copy)) (common-lisp:progn (common-lisp:defun failover-primary-compute @@ -27701,7 +27760,8 @@ aws-sdk/generator/operation::input "POST" "/" "FailoverPrimaryCompute")) - common-lisp:nil "FailoverPrimaryComputeResult" *error-map*))) + common-lisp:nil "FailoverPrimaryComputeResult" *error-map* + common-lisp:nil))) (common-lisp:export 'failover-primary-compute)) (common-lisp:progn (common-lisp:defun get-cluster-credentials @@ -27721,7 +27781,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetClusterCredentials")) - common-lisp:nil "GetClusterCredentialsResult" *error-map*))) + common-lisp:nil "GetClusterCredentialsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-cluster-credentials)) (common-lisp:progn (common-lisp:defun get-cluster-credentials-with-iam @@ -27742,7 +27803,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetClusterCredentialsWithIAM")) - common-lisp:nil "GetClusterCredentialsWithIAMResult" *error-map*))) + common-lisp:nil "GetClusterCredentialsWithIAMResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-cluster-credentials-with-iam)) (common-lisp:progn (common-lisp:defun get-reserved-node-exchange-configuration-options @@ -27764,7 +27826,7 @@ "POST" "/" "GetReservedNodeExchangeConfigurationOptions")) common-lisp:nil "GetReservedNodeExchangeConfigurationOptionsResult" - *error-map*))) + *error-map* common-lisp:nil))) (common-lisp:export 'get-reserved-node-exchange-configuration-options)) (common-lisp:progn (common-lisp:defun get-reserved-node-exchange-offerings @@ -27783,7 +27845,8 @@ aws-sdk/generator/operation::input "POST" "/" "GetReservedNodeExchangeOfferings")) - common-lisp:nil "GetReservedNodeExchangeOfferingsResult" *error-map*))) + common-lisp:nil "GetReservedNodeExchangeOfferingsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-reserved-node-exchange-offerings)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -27800,7 +27863,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicy")) - common-lisp:nil "GetResourcePolicyResult" *error-map*))) + common-lisp:nil "GetResourcePolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun list-recommendations @@ -27820,7 +27883,8 @@ aws-sdk/generator/operation::input "POST" "/" "ListRecommendations")) - common-lisp:nil "ListRecommendationsResult" *error-map*))) + common-lisp:nil "ListRecommendationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-recommendations)) (common-lisp:progn (common-lisp:defun modify-aqua-configuration @@ -27839,7 +27903,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyAquaConfiguration")) - common-lisp:nil "ModifyAquaConfigurationResult" *error-map*))) + common-lisp:nil "ModifyAquaConfigurationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-aqua-configuration)) (common-lisp:progn (common-lisp:defun modify-authentication-profile @@ -27860,7 +27925,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyAuthenticationProfile")) - common-lisp:nil "ModifyAuthenticationProfileResult" *error-map*))) + common-lisp:nil "ModifyAuthenticationProfileResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-authentication-profile)) (common-lisp:progn (common-lisp:defun modify-cluster @@ -27900,7 +27966,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCluster")) - common-lisp:nil "ModifyClusterResult" *error-map*))) + common-lisp:nil "ModifyClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-cluster)) (common-lisp:progn (common-lisp:defun modify-cluster-db-revision @@ -27919,7 +27985,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClusterDbRevision")) - common-lisp:nil "ModifyClusterDbRevisionResult" *error-map*))) + common-lisp:nil "ModifyClusterDbRevisionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-cluster-db-revision)) (common-lisp:progn (common-lisp:defun modify-cluster-iam-roles @@ -27939,7 +28006,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClusterIamRoles")) - common-lisp:nil "ModifyClusterIamRolesResult" *error-map*))) + common-lisp:nil "ModifyClusterIamRolesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-cluster-iam-roles)) (common-lisp:progn (common-lisp:defun modify-cluster-maintenance @@ -27962,7 +28030,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClusterMaintenance")) - common-lisp:nil "ModifyClusterMaintenanceResult" *error-map*))) + common-lisp:nil "ModifyClusterMaintenanceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-cluster-maintenance)) (common-lisp:progn (common-lisp:defun modify-cluster-parameter-group @@ -27981,7 +28050,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClusterParameterGroup")) - common-lisp:nil "ModifyClusterParameterGroupResult" *error-map*))) + common-lisp:nil "ModifyClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-cluster-parameter-group)) (common-lisp:progn (common-lisp:defun modify-cluster-snapshot @@ -28001,7 +28071,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClusterSnapshot")) - common-lisp:nil "ModifyClusterSnapshotResult" *error-map*))) + common-lisp:nil "ModifyClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-cluster-snapshot)) (common-lisp:progn (common-lisp:defun modify-cluster-snapshot-schedule @@ -28022,7 +28093,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClusterSnapshotSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'modify-cluster-snapshot-schedule)) (common-lisp:progn (common-lisp:defun modify-cluster-subnet-group @@ -28042,7 +28113,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClusterSubnetGroup")) - common-lisp:nil "ModifyClusterSubnetGroupResult" *error-map*))) + common-lisp:nil "ModifyClusterSubnetGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-cluster-subnet-group)) (common-lisp:progn (common-lisp:defun modify-custom-domain-association @@ -28063,7 +28135,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCustomDomainAssociation")) - common-lisp:nil "ModifyCustomDomainAssociationResult" *error-map*))) + common-lisp:nil "ModifyCustomDomainAssociationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-custom-domain-association)) (common-lisp:progn (common-lisp:defun modify-endpoint-access @@ -28081,7 +28154,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyEndpointAccess")) - common-lisp:nil "ModifyEndpointAccessResult" *error-map*))) + common-lisp:nil "ModifyEndpointAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-endpoint-access)) (common-lisp:progn (common-lisp:defun modify-event-subscription @@ -28102,7 +28176,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyEventSubscription")) - common-lisp:nil "ModifyEventSubscriptionResult" *error-map*))) + common-lisp:nil "ModifyEventSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-event-subscription)) (common-lisp:progn (common-lisp:defun modify-redshift-idc-application @@ -28125,7 +28200,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyRedshiftIdcApplication")) - common-lisp:nil "ModifyRedshiftIdcApplicationResult" *error-map*))) + common-lisp:nil "ModifyRedshiftIdcApplicationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-redshift-idc-application)) (common-lisp:progn (common-lisp:defun modify-scheduled-action @@ -28146,7 +28222,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyScheduledAction")) - common-lisp:nil "ModifyScheduledActionResult" *error-map*))) + common-lisp:nil "ModifyScheduledActionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-scheduled-action)) (common-lisp:progn (common-lisp:defun modify-snapshot-copy-retention-period @@ -28166,7 +28243,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySnapshotCopyRetentionPeriod")) - common-lisp:nil "ModifySnapshotCopyRetentionPeriodResult" *error-map*))) + common-lisp:nil "ModifySnapshotCopyRetentionPeriodResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-snapshot-copy-retention-period)) (common-lisp:progn (common-lisp:defun modify-snapshot-schedule @@ -28184,7 +28262,8 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySnapshotSchedule")) - common-lisp:nil "ModifySnapshotScheduleResult" *error-map*))) + common-lisp:nil "ModifySnapshotScheduleResult" *error-map* + common-lisp:nil))) (common-lisp:export 'modify-snapshot-schedule)) (common-lisp:progn (common-lisp:defun modify-usage-limit @@ -28202,7 +28281,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyUsageLimit")) - common-lisp:nil "ModifyUsageLimitResult" *error-map*))) + common-lisp:nil "ModifyUsageLimitResult" *error-map* common-lisp:nil))) (common-lisp:export 'modify-usage-limit)) (common-lisp:progn (common-lisp:defun pause-cluster @@ -28219,7 +28298,7 @@ aws-sdk/generator/operation::input "POST" "/" "PauseCluster")) - common-lisp:nil "PauseClusterResult" *error-map*))) + common-lisp:nil "PauseClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'pause-cluster)) (common-lisp:progn (common-lisp:defun purchase-reserved-node-offering @@ -28238,7 +28317,8 @@ aws-sdk/generator/operation::input "POST" "/" "PurchaseReservedNodeOffering")) - common-lisp:nil "PurchaseReservedNodeOfferingResult" *error-map*))) + common-lisp:nil "PurchaseReservedNodeOfferingResult" *error-map* + common-lisp:nil))) (common-lisp:export 'purchase-reserved-node-offering)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -28255,7 +28335,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil "PutResourcePolicyResult" *error-map*))) + common-lisp:nil "PutResourcePolicyResult" *error-map* common-lisp:nil))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun reboot-cluster @@ -28272,7 +28352,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootCluster")) - common-lisp:nil "RebootClusterResult" *error-map*))) + common-lisp:nil "RebootClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'reboot-cluster)) (common-lisp:progn (common-lisp:defun reject-data-share @@ -28289,7 +28369,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectDataShare")) - common-lisp:nil "RejectDataShareResult" *error-map*))) + common-lisp:nil "RejectDataShareResult" *error-map* common-lisp:nil))) (common-lisp:export 'reject-data-share)) (common-lisp:progn (common-lisp:defun reset-cluster-parameter-group @@ -28310,7 +28390,8 @@ aws-sdk/generator/operation::input "POST" "/" "ResetClusterParameterGroup")) - common-lisp:nil "ResetClusterParameterGroupResult" *error-map*))) + common-lisp:nil "ResetClusterParameterGroupResult" *error-map* + common-lisp:nil))) (common-lisp:export 'reset-cluster-parameter-group)) (common-lisp:progn (common-lisp:defun resize-cluster @@ -28332,7 +28413,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResizeCluster")) - common-lisp:nil "ResizeClusterResult" *error-map*))) + common-lisp:nil "ResizeClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'resize-cluster)) (common-lisp:progn (common-lisp:defun restore-from-cluster-snapshot @@ -28380,7 +28461,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreFromClusterSnapshot")) - common-lisp:nil "RestoreFromClusterSnapshotResult" *error-map*))) + common-lisp:nil "RestoreFromClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-from-cluster-snapshot)) (common-lisp:progn (common-lisp:defun restore-table-from-cluster-snapshot @@ -28405,7 +28487,8 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreTableFromClusterSnapshot")) - common-lisp:nil "RestoreTableFromClusterSnapshotResult" *error-map*))) + common-lisp:nil "RestoreTableFromClusterSnapshotResult" *error-map* + common-lisp:nil))) (common-lisp:export 'restore-table-from-cluster-snapshot)) (common-lisp:progn (common-lisp:defun resume-cluster @@ -28422,7 +28505,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResumeCluster")) - common-lisp:nil "ResumeClusterResult" *error-map*))) + common-lisp:nil "ResumeClusterResult" *error-map* common-lisp:nil))) (common-lisp:export 'resume-cluster)) (common-lisp:progn (common-lisp:defun revoke-cluster-security-group-ingress @@ -28443,7 +28526,8 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeClusterSecurityGroupIngress")) - common-lisp:nil "RevokeClusterSecurityGroupIngressResult" *error-map*))) + common-lisp:nil "RevokeClusterSecurityGroupIngressResult" *error-map* + common-lisp:nil))) (common-lisp:export 'revoke-cluster-security-group-ingress)) (common-lisp:progn (common-lisp:defun revoke-endpoint-access @@ -28461,7 +28545,8 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeEndpointAccess")) - common-lisp:nil "RevokeEndpointAccessResult" *error-map*))) + common-lisp:nil "RevokeEndpointAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'revoke-endpoint-access)) (common-lisp:progn (common-lisp:defun revoke-snapshot-access @@ -28481,7 +28566,8 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeSnapshotAccess")) - common-lisp:nil "RevokeSnapshotAccessResult" *error-map*))) + common-lisp:nil "RevokeSnapshotAccessResult" *error-map* + common-lisp:nil))) (common-lisp:export 'revoke-snapshot-access)) (common-lisp:progn (common-lisp:defun rotate-encryption-key @@ -28498,7 +28584,8 @@ aws-sdk/generator/operation::input "POST" "/" "RotateEncryptionKey")) - common-lisp:nil "RotateEncryptionKeyResult" *error-map*))) + common-lisp:nil "RotateEncryptionKeyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'rotate-encryption-key)) (common-lisp:progn (common-lisp:defun update-partner-status @@ -28519,5 +28606,6 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePartnerStatus")) - common-lisp:nil "UpdatePartnerStatusResult" *error-map*))) + common-lisp:nil "UpdatePartnerStatusResult" *error-map* + common-lisp:nil))) (common-lisp:export 'update-partner-status)) diff --git a/services/rekognition/api.lisp b/services/rekognition/api.lisp index f7ee5334..459d7e0e 100644 --- a/services/rekognition/api.lisp +++ b/services/rekognition/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/rekognition/api - (:use) - (:nicknames #:aws/rekognition) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/rekognition/api (:use) + (:nicknames #:aws/rekognition) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/rekognition/api) (common-lisp:progn (common-lisp:define-condition rekognition-error @@ -19667,7 +19666,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateFaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-faces)) (common-lisp:progn (common-lisp:defun compare-faces @@ -19687,7 +19686,7 @@ aws-sdk/generator/operation::input "POST" "/" "CompareFaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'compare-faces)) (common-lisp:progn (common-lisp:defun copy-project-version @@ -19708,7 +19707,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyProjectVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-project-version)) (common-lisp:progn (common-lisp:defun create-collection @@ -19725,7 +19724,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-collection)) (common-lisp:progn (common-lisp:defun create-dataset @@ -19743,7 +19742,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dataset)) (common-lisp:progn (common-lisp:defun create-face-liveness-session @@ -19762,7 +19761,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFaceLivenessSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-face-liveness-session)) (common-lisp:progn (common-lisp:defun create-project @@ -19780,7 +19779,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun create-project-version @@ -19801,7 +19800,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProjectVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project-version)) (common-lisp:progn (common-lisp:defun create-stream-processor @@ -19823,7 +19822,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStreamProcessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-stream-processor)) (common-lisp:progn (common-lisp:defun create-user @@ -19842,7 +19841,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun delete-collection @@ -19859,7 +19858,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-collection)) (common-lisp:progn (common-lisp:defun delete-dataset @@ -19876,7 +19875,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dataset)) (common-lisp:progn (common-lisp:defun delete-faces @@ -19893,7 +19892,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-faces)) (common-lisp:progn (common-lisp:defun delete-project @@ -19910,7 +19909,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-project-policy @@ -19929,7 +19928,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProjectPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project-policy)) (common-lisp:progn (common-lisp:defun delete-project-version @@ -19946,7 +19945,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProjectVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project-version)) (common-lisp:progn (common-lisp:defun delete-stream-processor @@ -19963,7 +19962,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStreamProcessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-stream-processor)) (common-lisp:progn (common-lisp:defun delete-user @@ -19982,7 +19981,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun describe-collection @@ -19999,7 +19998,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-collection)) (common-lisp:progn (common-lisp:defun describe-dataset @@ -20016,7 +20015,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataset")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-dataset)) (common-lisp:progn (common-lisp:defun describe-project-versions @@ -20036,7 +20035,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProjectVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-project-versions)) (common-lisp:progn (common-lisp:defun describe-projects @@ -20055,7 +20054,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-projects)) (common-lisp:progn (common-lisp:defun describe-stream-processor @@ -20073,7 +20072,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStreamProcessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stream-processor)) (common-lisp:progn (common-lisp:defun detect-custom-labels @@ -20093,7 +20092,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectCustomLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-custom-labels)) (common-lisp:progn (common-lisp:defun detect-faces @@ -20110,7 +20109,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectFaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-faces)) (common-lisp:progn (common-lisp:defun detect-labels @@ -20129,7 +20128,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-labels)) (common-lisp:progn (common-lisp:defun detect-moderation-labels @@ -20149,7 +20148,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectModerationLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-moderation-labels)) (common-lisp:progn (common-lisp:defun detect-protective-equipment @@ -20167,7 +20166,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectProtectiveEquipment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-protective-equipment)) (common-lisp:progn (common-lisp:defun detect-text @@ -20184,7 +20183,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectText")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-text)) (common-lisp:progn (common-lisp:defun disassociate-faces @@ -20204,7 +20203,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateFaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-faces)) (common-lisp:progn (common-lisp:defun distribute-dataset-entries @@ -20222,7 +20221,7 @@ aws-sdk/generator/operation::input "POST" "/" "DistributeDatasetEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'distribute-dataset-entries)) (common-lisp:progn (common-lisp:defun get-celebrity-info @@ -20239,7 +20238,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCelebrityInfo")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-celebrity-info)) (common-lisp:progn (common-lisp:defun get-celebrity-recognition @@ -20258,7 +20257,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCelebrityRecognition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-celebrity-recognition)) (common-lisp:progn (common-lisp:defun get-content-moderation @@ -20277,7 +20276,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetContentModeration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-content-moderation)) (common-lisp:progn (common-lisp:defun get-face-detection @@ -20294,7 +20293,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetFaceDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-face-detection)) (common-lisp:progn (common-lisp:defun get-face-liveness-session-results @@ -20312,7 +20311,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetFaceLivenessSessionResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-face-liveness-session-results)) (common-lisp:progn (common-lisp:defun get-face-search @@ -20330,7 +20329,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetFaceSearch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-face-search)) (common-lisp:progn (common-lisp:defun get-label-detection @@ -20349,7 +20348,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLabelDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-label-detection)) (common-lisp:progn (common-lisp:defun get-media-analysis-job @@ -20366,7 +20365,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMediaAnalysisJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-media-analysis-job)) (common-lisp:progn (common-lisp:defun get-person-tracking @@ -20384,7 +20383,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPersonTracking")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-person-tracking)) (common-lisp:progn (common-lisp:defun get-segment-detection @@ -20401,7 +20400,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSegmentDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-segment-detection)) (common-lisp:progn (common-lisp:defun get-text-detection @@ -20418,7 +20417,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTextDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-text-detection)) (common-lisp:progn (common-lisp:defun index-faces @@ -20438,7 +20437,7 @@ aws-sdk/generator/operation::input "POST" "/" "IndexFaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'index-faces)) (common-lisp:progn (common-lisp:defun list-collections @@ -20455,7 +20454,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCollections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-collections)) (common-lisp:progn (common-lisp:defun list-dataset-entries @@ -20475,7 +20474,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasetEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-entries)) (common-lisp:progn (common-lisp:defun list-dataset-labels @@ -20493,7 +20492,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDatasetLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dataset-labels)) (common-lisp:progn (common-lisp:defun list-faces @@ -20513,7 +20512,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-faces)) (common-lisp:progn (common-lisp:defun list-media-analysis-jobs @@ -20530,7 +20529,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMediaAnalysisJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-media-analysis-jobs)) (common-lisp:progn (common-lisp:defun list-project-policies @@ -20548,7 +20547,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProjectPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-project-policies)) (common-lisp:progn (common-lisp:defun list-stream-processors @@ -20565,7 +20564,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStreamProcessors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stream-processors)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -20582,7 +20581,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-users @@ -20600,7 +20599,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun put-project-policy @@ -20620,7 +20619,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutProjectPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-project-policy)) (common-lisp:progn (common-lisp:defun recognize-celebrities @@ -20637,7 +20636,7 @@ aws-sdk/generator/operation::input "POST" "/" "RecognizeCelebrities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'recognize-celebrities)) (common-lisp:progn (common-lisp:defun search-faces @@ -20657,7 +20656,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchFaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-faces)) (common-lisp:progn (common-lisp:defun search-faces-by-image @@ -20677,7 +20676,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchFacesByImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-faces-by-image)) (common-lisp:progn (common-lisp:defun search-users @@ -20697,7 +20696,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-users)) (common-lisp:progn (common-lisp:defun search-users-by-image @@ -20717,7 +20716,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchUsersByImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-users-by-image)) (common-lisp:progn (common-lisp:defun start-celebrity-recognition @@ -20738,7 +20737,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartCelebrityRecognition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-celebrity-recognition)) (common-lisp:progn (common-lisp:defun start-content-moderation @@ -20758,7 +20757,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartContentModeration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-content-moderation)) (common-lisp:progn (common-lisp:defun start-face-detection @@ -20778,7 +20777,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFaceDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-face-detection)) (common-lisp:progn (common-lisp:defun start-face-search @@ -20799,7 +20798,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFaceSearch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-face-search)) (common-lisp:progn (common-lisp:defun start-label-detection @@ -20819,7 +20818,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartLabelDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-label-detection)) (common-lisp:progn (common-lisp:defun start-media-analysis-job @@ -20839,7 +20838,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMediaAnalysisJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-media-analysis-job)) (common-lisp:progn (common-lisp:defun start-person-tracking @@ -20859,7 +20858,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartPersonTracking")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-person-tracking)) (common-lisp:progn (common-lisp:defun start-project-version @@ -20879,7 +20878,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartProjectVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-project-version)) (common-lisp:progn (common-lisp:defun start-segment-detection @@ -20899,7 +20898,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartSegmentDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-segment-detection)) (common-lisp:progn (common-lisp:defun start-stream-processor @@ -20917,7 +20916,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartStreamProcessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-stream-processor)) (common-lisp:progn (common-lisp:defun start-text-detection @@ -20937,7 +20936,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartTextDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-text-detection)) (common-lisp:progn (common-lisp:defun stop-project-version @@ -20954,7 +20953,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopProjectVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-project-version)) (common-lisp:progn (common-lisp:defun stop-stream-processor @@ -20971,7 +20970,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopStreamProcessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-stream-processor)) (common-lisp:progn (common-lisp:defun tag-resource @@ -20988,7 +20987,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -21005,7 +21004,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-dataset-entries @@ -21022,7 +21021,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDatasetEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-dataset-entries)) (common-lisp:progn (common-lisp:defun update-stream-processor @@ -21044,5 +21043,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStreamProcessor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-stream-processor)) diff --git a/services/repostspace/api.lisp b/services/repostspace/api.lisp index 462b1921..0afcddc6 100644 --- a/services/repostspace/api.lisp +++ b/services/repostspace/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/repostspace/api - (:use) - (:nicknames #:aws/repostspace) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/repostspace/api (:use) + (:nicknames #:aws/repostspace) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/repostspace/api) (common-lisp:progn (common-lisp:define-condition repostspace-error @@ -20,7 +19,7 @@ (common-lisp:export 'repostspace-error)) (common-lisp:progn (common-lisp:defclass repostspace-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "repostspace" :api-version "2022-05-13" :host-prefix "repostspace" :signing-name @@ -1430,7 +1429,7 @@ aws-sdk/generator/operation::input "POST" "/spaces" "CreateSpace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-space)) (common-lisp:progn (common-lisp:defun delete-space @@ -1452,12 +1451,13 @@ (common-lisp:format common-lisp:nil "/spaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'space-id)))) + 'space-id) + common-lisp:t))) "DeleteSpace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-space)) (common-lisp:progn (common-lisp:defun deregister-admin @@ -1479,16 +1479,18 @@ (common-lisp:format common-lisp:nil "/spaces/~A/admins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'space-id)) - (quri.encode:url-encode + 'space-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'admin-id)))) + 'admin-id) + common-lisp:t))) "DeregisterAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-admin)) (common-lisp:progn (common-lisp:defun get-space @@ -1510,12 +1512,13 @@ (common-lisp:format common-lisp:nil "/spaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'space-id)))) + 'space-id) + common-lisp:t))) "GetSpace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-space)) (common-lisp:progn (common-lisp:defun list-spaces @@ -1532,7 +1535,7 @@ aws-sdk/generator/operation::input "GET" "/spaces" "ListSpaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-spaces)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -1554,12 +1557,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun register-admin @@ -1581,16 +1585,18 @@ (common-lisp:format common-lisp:nil "/spaces/~A/admins/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'space-id)) - (quri.encode:url-encode + 'space-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'admin-id)))) + 'admin-id) + common-lisp:t))) "RegisterAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-admin)) (common-lisp:progn (common-lisp:defun send-invites @@ -1613,12 +1619,13 @@ (common-lisp:format common-lisp:nil "/spaces/~A/invite" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'space-id)))) + 'space-id) + common-lisp:t))) "SendInvites")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-invites)) (common-lisp:progn (common-lisp:defun tag-resource @@ -1640,12 +1647,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -1667,12 +1675,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-space @@ -1695,10 +1704,11 @@ (common-lisp:format common-lisp:nil "/spaces/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'space-id)))) + 'space-id) + common-lisp:t))) "UpdateSpace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-space)) diff --git a/services/resiliencehub/api.lisp b/services/resiliencehub/api.lisp index ea8ce094..bf49e722 100644 --- a/services/resiliencehub/api.lisp +++ b/services/resiliencehub/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/resiliencehub/api - (:use) - (:nicknames #:aws/resiliencehub) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/resiliencehub/api (:use) + (:nicknames #:aws/resiliencehub) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/resiliencehub/api) (common-lisp:progn (common-lisp:define-condition resiliencehub-error @@ -20,7 +19,7 @@ (common-lisp:export 'resiliencehub-error)) (common-lisp:progn (common-lisp:defclass resiliencehub-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "resiliencehub" :api-version "2020-04-30" :host-prefix "resiliencehub" :signing-name @@ -12085,7 +12084,7 @@ "POST" "/add-draft-app-version-resource-mappings" "AddDraftAppVersionResourceMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-draft-app-version-resource-mappings)) (common-lisp:progn (common-lisp:defun batch-update-recommendation-status @@ -12104,7 +12103,7 @@ "POST" "/batch-update-recommendation-status" "BatchUpdateRecommendationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-recommendation-status)) (common-lisp:progn (common-lisp:defun create-app @@ -12125,7 +12124,7 @@ aws-sdk/generator/operation::input "POST" "/create-app" "CreateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app)) (common-lisp:progn (common-lisp:defun create-app-version-app-component @@ -12146,7 +12145,7 @@ "POST" "/create-app-version-app-component" "CreateAppVersionAppComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-version-app-component)) (common-lisp:progn (common-lisp:defun create-app-version-resource @@ -12170,7 +12169,7 @@ "POST" "/create-app-version-resource" "CreateAppVersionResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-version-resource)) (common-lisp:progn (common-lisp:defun create-recommendation-template @@ -12192,7 +12191,7 @@ "POST" "/create-recommendation-template" "CreateRecommendationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-recommendation-template)) (common-lisp:progn (common-lisp:defun create-resiliency-policy @@ -12213,7 +12212,7 @@ "POST" "/create-resiliency-policy" "CreateResiliencyPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resiliency-policy)) (common-lisp:progn (common-lisp:defun delete-app @@ -12231,7 +12230,7 @@ aws-sdk/generator/operation::input "POST" "/delete-app" "DeleteApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app)) (common-lisp:progn (common-lisp:defun delete-app-assessment @@ -12249,7 +12248,7 @@ "POST" "/delete-app-assessment" "DeleteAppAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-assessment)) (common-lisp:progn (common-lisp:defun delete-app-input-source @@ -12270,7 +12269,7 @@ "POST" "/delete-app-input-source" "DeleteAppInputSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-input-source)) (common-lisp:progn (common-lisp:defun delete-app-version-app-component @@ -12289,7 +12288,7 @@ "POST" "/delete-app-version-app-component" "DeleteAppVersionAppComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-version-app-component)) (common-lisp:progn (common-lisp:defun delete-app-version-resource @@ -12312,7 +12311,7 @@ "POST" "/delete-app-version-resource" "DeleteAppVersionResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-version-resource)) (common-lisp:progn (common-lisp:defun delete-recommendation-template @@ -12332,7 +12331,7 @@ "POST" "/delete-recommendation-template" "DeleteRecommendationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recommendation-template)) (common-lisp:progn (common-lisp:defun delete-resiliency-policy @@ -12350,7 +12349,7 @@ "POST" "/delete-resiliency-policy" "DeleteResiliencyPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resiliency-policy)) (common-lisp:progn (common-lisp:defun describe-app @@ -12367,7 +12366,7 @@ aws-sdk/generator/operation::input "POST" "/describe-app" "DescribeApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app)) (common-lisp:progn (common-lisp:defun describe-app-assessment @@ -12385,7 +12384,7 @@ "POST" "/describe-app-assessment" "DescribeAppAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-assessment)) (common-lisp:progn (common-lisp:defun describe-app-version @@ -12403,7 +12402,7 @@ "POST" "/describe-app-version" "DescribeAppVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-version)) (common-lisp:progn (common-lisp:defun describe-app-version-app-component @@ -12422,7 +12421,7 @@ "POST" "/describe-app-version-app-component" "DescribeAppVersionAppComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-version-app-component)) (common-lisp:progn (common-lisp:defun describe-app-version-resource @@ -12445,7 +12444,7 @@ "POST" "/describe-app-version-resource" "DescribeAppVersionResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-version-resource)) (common-lisp:progn (common-lisp:defun describe-app-version-resources-resolution-status @@ -12465,7 +12464,7 @@ "POST" "/describe-app-version-resources-resolution-status" "DescribeAppVersionResourcesResolutionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-version-resources-resolution-status)) (common-lisp:progn (common-lisp:defun describe-app-version-template @@ -12484,7 +12483,7 @@ "POST" "/describe-app-version-template" "DescribeAppVersionTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-version-template)) (common-lisp:progn (common-lisp:defun describe-draft-app-version-resources-import-status @@ -12503,7 +12502,7 @@ "POST" "/describe-draft-app-version-resources-import-status" "DescribeDraftAppVersionResourcesImportStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-draft-app-version-resources-import-status)) (common-lisp:progn (common-lisp:defun describe-resiliency-policy @@ -12522,7 +12521,7 @@ "POST" "/describe-resiliency-policy" "DescribeResiliencyPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resiliency-policy)) (common-lisp:progn (common-lisp:defun import-resources-to-draft-app-version @@ -12544,7 +12543,7 @@ "POST" "/import-resources-to-draft-app-version" "ImportResourcesToDraftAppVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-resources-to-draft-app-version)) (common-lisp:progn (common-lisp:defun list-alarm-recommendations @@ -12564,7 +12563,7 @@ "POST" "/list-alarm-recommendations" "ListAlarmRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-alarm-recommendations)) (common-lisp:progn (common-lisp:defun list-app-assessment-compliance-drifts @@ -12584,7 +12583,7 @@ "POST" "/list-app-assessment-compliance-drifts" "ListAppAssessmentComplianceDrifts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-assessment-compliance-drifts)) (common-lisp:progn (common-lisp:defun list-app-assessments @@ -12606,7 +12605,7 @@ "GET" "/list-app-assessments" "ListAppAssessments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-assessments)) (common-lisp:progn (common-lisp:defun list-app-component-compliances @@ -12626,7 +12625,7 @@ "POST" "/list-app-component-compliances" "ListAppComponentCompliances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-component-compliances)) (common-lisp:progn (common-lisp:defun list-app-component-recommendations @@ -12646,7 +12645,7 @@ "POST" "/list-app-component-recommendations" "ListAppComponentRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-component-recommendations)) (common-lisp:progn (common-lisp:defun list-app-input-sources @@ -12666,7 +12665,7 @@ "POST" "/list-app-input-sources" "ListAppInputSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-input-sources)) (common-lisp:progn (common-lisp:defun list-app-version-app-components @@ -12687,7 +12686,7 @@ "POST" "/list-app-version-app-components" "ListAppVersionAppComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-version-app-components)) (common-lisp:progn (common-lisp:defun list-app-version-resource-mappings @@ -12708,7 +12707,7 @@ "POST" "/list-app-version-resource-mappings" "ListAppVersionResourceMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-version-resource-mappings)) (common-lisp:progn (common-lisp:defun list-app-version-resources @@ -12730,7 +12729,7 @@ "POST" "/list-app-version-resources" "ListAppVersionResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-version-resources)) (common-lisp:progn (common-lisp:defun list-app-versions @@ -12750,7 +12749,7 @@ "POST" "/list-app-versions" "ListAppVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-versions)) (common-lisp:progn (common-lisp:defun list-apps @@ -12771,7 +12770,7 @@ aws-sdk/generator/operation::input "GET" "/list-apps" "ListApps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-apps)) (common-lisp:progn (common-lisp:defun list-recommendation-templates @@ -12794,7 +12793,7 @@ "GET" "/list-recommendation-templates" "ListRecommendationTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendation-templates)) (common-lisp:progn (common-lisp:defun list-resiliency-policies @@ -12813,7 +12812,7 @@ "GET" "/list-resiliency-policies" "ListResiliencyPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resiliency-policies)) (common-lisp:progn (common-lisp:defun list-sop-recommendations @@ -12832,7 +12831,7 @@ "POST" "/list-sop-recommendations" "ListSopRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sop-recommendations)) (common-lisp:progn (common-lisp:defun list-suggested-resiliency-policies @@ -12851,7 +12850,7 @@ "GET" "/list-suggested-resiliency-policies" "ListSuggestedResiliencyPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-suggested-resiliency-policies)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12873,12 +12872,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-test-recommendations @@ -12898,7 +12898,7 @@ "POST" "/list-test-recommendations" "ListTestRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-test-recommendations)) (common-lisp:progn (common-lisp:defun list-unsupported-app-version-resources @@ -12920,7 +12920,7 @@ "POST" "/list-unsupported-app-version-resources" "ListUnsupportedAppVersionResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-unsupported-app-version-resources)) (common-lisp:progn (common-lisp:defun publish-app-version @@ -12938,7 +12938,7 @@ "POST" "/publish-app-version" "PublishAppVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish-app-version)) (common-lisp:progn (common-lisp:defun put-draft-app-version-template @@ -12957,7 +12957,7 @@ "POST" "/put-draft-app-version-template" "PutDraftAppVersionTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-draft-app-version-template)) (common-lisp:progn (common-lisp:defun remove-draft-app-version-resource-mappings @@ -12981,7 +12981,7 @@ "POST" "/remove-draft-app-version-resource-mappings" "RemoveDraftAppVersionResourceMappings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-draft-app-version-resource-mappings)) (common-lisp:progn (common-lisp:defun resolve-app-version-resources @@ -13000,7 +13000,7 @@ "POST" "/resolve-app-version-resources" "ResolveAppVersionResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resolve-app-version-resources)) (common-lisp:progn (common-lisp:defun start-app-assessment @@ -13021,7 +13021,7 @@ "POST" "/start-app-assessment" "StartAppAssessment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-app-assessment)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13043,12 +13043,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13070,12 +13071,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-app @@ -13097,7 +13099,7 @@ aws-sdk/generator/operation::input "POST" "/update-app" "UpdateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app)) (common-lisp:progn (common-lisp:defun update-app-version @@ -13115,7 +13117,7 @@ "POST" "/update-app-version" "UpdateAppVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-version)) (common-lisp:progn (common-lisp:defun update-app-version-app-component @@ -13135,7 +13137,7 @@ "POST" "/update-app-version-app-component" "UpdateAppVersionAppComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-version-app-component)) (common-lisp:progn (common-lisp:defun update-app-version-resource @@ -13159,7 +13161,7 @@ "POST" "/update-app-version-resource" "UpdateAppVersionResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-version-resource)) (common-lisp:progn (common-lisp:defun update-resiliency-policy @@ -13180,5 +13182,5 @@ "POST" "/update-resiliency-policy" "UpdateResiliencyPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resiliency-policy)) diff --git a/services/resource-explorer-2/api.lisp b/services/resource-explorer-2/api.lisp index 5d204ebb..20c50768 100644 --- a/services/resource-explorer-2/api.lisp +++ b/services/resource-explorer-2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/resource-explorer-2/api - (:use) - (:nicknames #:aws/resource-explorer-2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/resource-explorer-2/api (:use) + (:nicknames #:aws/resource-explorer-2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/resource-explorer-2/api) (common-lisp:progn (common-lisp:define-condition resource-explorer-2-error @@ -20,7 +19,7 @@ (common-lisp:export 'resource-explorer-2-error)) (common-lisp:progn (common-lisp:defclass resource-explorer-2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "resource-explorer-2" :api-version "2022-07-28" :host-prefix @@ -2722,7 +2721,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/AssociateDefaultView" "AssociateDefaultView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-default-view)) (common-lisp:progn (common-lisp:defun batch-get-view @@ -2738,7 +2737,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/BatchGetView" "BatchGetView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-view)) (common-lisp:progn (common-lisp:defun create-index @@ -2754,7 +2753,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/CreateIndex" "CreateIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-index)) (common-lisp:progn (common-lisp:defun create-view @@ -2773,7 +2772,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/CreateView" "CreateView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-view)) (common-lisp:progn (common-lisp:defun delete-index @@ -2789,7 +2788,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/DeleteIndex" "DeleteIndex")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-index)) (common-lisp:progn (common-lisp:defun delete-view @@ -2805,7 +2804,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/DeleteView" "DeleteView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-view)) (common-lisp:progn (common-lisp:defun disassociate-default-view () @@ -2857,7 +2856,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/GetView" "GetView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-view)) (common-lisp:progn (common-lisp:defun list-indexes @@ -2874,7 +2873,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/ListIndexes" "ListIndexes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-indexes)) (common-lisp:progn (common-lisp:defun list-indexes-for-members @@ -2891,7 +2890,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/ListIndexesForMembers" "ListIndexesForMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-indexes-for-members)) (common-lisp:progn (common-lisp:defun list-supported-resource-types @@ -2908,7 +2907,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/ListSupportedResourceTypes" "ListSupportedResourceTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-supported-resource-types)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2925,12 +2924,13 @@ 'resource-explorer-2-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-views @@ -2946,7 +2946,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/ListViews" "ListViews")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-views)) (common-lisp:progn (common-lisp:defun search @@ -2964,7 +2964,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/Search" "Search")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2981,12 +2981,13 @@ 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3004,12 +3005,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-index-type @@ -3025,7 +3027,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/UpdateIndexType" "UpdateIndexType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-index-type)) (common-lisp:progn (common-lisp:defun update-view @@ -3042,5 +3044,5 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-explorer-2-request aws-sdk/generator/operation::input "POST" "/UpdateView" "UpdateView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-view)) diff --git a/services/resource-groups/api.lisp b/services/resource-groups/api.lisp index 7690eb4b..49dd5c6d 100644 --- a/services/resource-groups/api.lisp +++ b/services/resource-groups/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/resource-groups/api - (:use) - (:nicknames #:aws/resource-groups) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/resource-groups/api (:use) + (:nicknames #:aws/resource-groups) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/resource-groups/api) (common-lisp:progn (common-lisp:define-condition resource-groups-error @@ -20,7 +19,7 @@ (common-lisp:export 'resource-groups-error)) (common-lisp:progn (common-lisp:defclass resource-groups-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "resource-groups" :api-version "2017-11-27" :host-prefix @@ -2771,7 +2770,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/groups" "CreateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun delete-group @@ -2787,7 +2786,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/delete-group" "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun get-account-settings () @@ -2812,7 +2811,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/get-group" "GetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group)) (common-lisp:progn (common-lisp:defun get-group-configuration @@ -2828,7 +2827,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/get-group-configuration" "GetGroupConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group-configuration)) (common-lisp:progn (common-lisp:defun get-group-query @@ -2844,7 +2843,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/get-group-query" "GetGroupQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group-query)) (common-lisp:progn (common-lisp:defun get-tags @@ -2861,11 +2860,12 @@ 'resource-groups-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resources/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "GetTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tags)) (common-lisp:progn (common-lisp:defun group-resources @@ -2881,7 +2881,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/group-resources" "GroupResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'group-resources)) (common-lisp:progn (common-lisp:defun list-group-resources @@ -2899,7 +2899,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/list-group-resources" "ListGroupResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-group-resources)) (common-lisp:progn (common-lisp:defun list-groups @@ -2915,7 +2915,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/groups-list" "ListGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun put-group-configuration @@ -2931,7 +2931,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/put-group-configuration" "PutGroupConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-group-configuration)) (common-lisp:progn (common-lisp:defun search-resources @@ -2948,7 +2948,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/resources/search" "SearchResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-resources)) (common-lisp:progn (common-lisp:defun tag @@ -2965,11 +2965,12 @@ 'resource-groups-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resources/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "Tag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag)) (common-lisp:progn (common-lisp:defun ungroup-resources @@ -2985,7 +2986,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/ungroup-resources" "UngroupResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'ungroup-resources)) (common-lisp:progn (common-lisp:defun untag @@ -3002,11 +3003,12 @@ 'resource-groups-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resources/~A/tags" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "Untag")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag)) (common-lisp:progn (common-lisp:defun update-account-settings @@ -3023,7 +3025,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/update-account-settings" "UpdateAccountSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-account-settings)) (common-lisp:progn (common-lisp:defun update-group @@ -3039,7 +3041,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/update-group" "UpdateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group)) (common-lisp:progn (common-lisp:defun update-group-query @@ -3056,5 +3058,5 @@ (aws-sdk/generator/shape:make-request-with-input 'resource-groups-request aws-sdk/generator/operation::input "POST" "/update-group-query" "UpdateGroupQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group-query)) diff --git a/services/resourcegroupstaggingapi/api.lisp b/services/resourcegroupstaggingapi/api.lisp index b430929f..14c07d72 100644 --- a/services/resourcegroupstaggingapi/api.lisp +++ b/services/resourcegroupstaggingapi/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/resourcegroupstaggingapi/api - (:use) - (:nicknames #:aws/resourcegroupstaggingapi) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/resourcegroupstaggingapi/api + (:use) (:nicknames #:aws/resourcegroupstaggingapi) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/resourcegroupstaggingapi/api) (common-lisp:progn (common-lisp:define-condition resourcegroupstaggingapi-error @@ -1489,7 +1488,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resourcegroupstaggingapi-request aws-sdk/generator/operation::input "POST" "/" "GetComplianceSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-compliance-summary)) (common-lisp:progn (common-lisp:defun get-resources @@ -1511,7 +1510,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resourcegroupstaggingapi-request aws-sdk/generator/operation::input "POST" "/" "GetResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resources)) (common-lisp:progn (common-lisp:defun get-tag-keys @@ -1527,7 +1526,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resourcegroupstaggingapi-request aws-sdk/generator/operation::input "POST" "/" "GetTagKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tag-keys)) (common-lisp:progn (common-lisp:defun get-tag-values @@ -1543,7 +1542,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resourcegroupstaggingapi-request aws-sdk/generator/operation::input "POST" "/" "GetTagValues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tag-values)) (common-lisp:progn (common-lisp:defun start-report-creation @@ -1559,7 +1558,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resourcegroupstaggingapi-request aws-sdk/generator/operation::input "POST" "/" "StartReportCreation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-report-creation)) (common-lisp:progn (common-lisp:defun tag-resources @@ -1575,7 +1574,7 @@ (aws-sdk/generator/shape:make-request-with-input 'resourcegroupstaggingapi-request aws-sdk/generator/operation::input "POST" "/" "TagResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resources)) (common-lisp:progn (common-lisp:defun untag-resources @@ -1591,5 +1590,5 @@ (aws-sdk/generator/shape:make-request-with-input 'resourcegroupstaggingapi-request aws-sdk/generator/operation::input "POST" "/" "UntagResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resources)) diff --git a/services/robomaker/api.lisp b/services/robomaker/api.lisp index a7fbfd1a..14955130 100644 --- a/services/robomaker/api.lisp +++ b/services/robomaker/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/robomaker/api - (:use) - (:nicknames #:aws/robomaker) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/robomaker/api (:use) + (:nicknames #:aws/robomaker) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/robomaker/api) (common-lisp:progn (common-lisp:define-condition robomaker-error @@ -20,7 +19,7 @@ (common-lisp:export 'robomaker-error)) (common-lisp:progn (common-lisp:defclass robomaker-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "robomaker" :api-version "2018-06-29" :host-prefix "robomaker" :signing-name @@ -13393,7 +13392,7 @@ "POST" "/batchDeleteWorlds" "BatchDeleteWorlds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-worlds)) (common-lisp:progn (common-lisp:defun batch-describe-simulation-job @@ -13412,7 +13411,7 @@ "POST" "/batchDescribeSimulationJob" "BatchDescribeSimulationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-describe-simulation-job)) (common-lisp:progn (common-lisp:defun cancel-deployment-job @@ -13430,7 +13429,7 @@ "POST" "/cancelDeploymentJob" "CancelDeploymentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-deployment-job)) (common-lisp:progn (common-lisp:defun cancel-simulation-job @@ -13448,7 +13447,7 @@ "POST" "/cancelSimulationJob" "CancelSimulationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-simulation-job)) (common-lisp:progn (common-lisp:defun cancel-simulation-job-batch @@ -13467,7 +13466,7 @@ "POST" "/cancelSimulationJobBatch" "CancelSimulationJobBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-simulation-job-batch)) (common-lisp:progn (common-lisp:defun cancel-world-export-job @@ -13485,7 +13484,7 @@ "POST" "/cancelWorldExportJob" "CancelWorldExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-world-export-job)) (common-lisp:progn (common-lisp:defun cancel-world-generation-job @@ -13504,7 +13503,7 @@ "POST" "/cancelWorldGenerationJob" "CancelWorldGenerationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-world-generation-job)) (common-lisp:progn (common-lisp:defun create-deployment-job @@ -13525,7 +13524,7 @@ "POST" "/createDeploymentJob" "CreateDeploymentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deployment-job)) (common-lisp:progn (common-lisp:defun create-fleet @@ -13542,7 +13541,7 @@ aws-sdk/generator/operation::input "POST" "/createFleet" "CreateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet)) (common-lisp:progn (common-lisp:defun create-robot @@ -13561,7 +13560,7 @@ aws-sdk/generator/operation::input "POST" "/createRobot" "CreateRobot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-robot)) (common-lisp:progn (common-lisp:defun create-robot-application @@ -13581,7 +13580,7 @@ "POST" "/createRobotApplication" "CreateRobotApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-robot-application)) (common-lisp:progn (common-lisp:defun create-robot-application-version @@ -13603,7 +13602,7 @@ "POST" "/createRobotApplicationVersion" "CreateRobotApplicationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-robot-application-version)) (common-lisp:progn (common-lisp:defun create-simulation-application @@ -13625,7 +13624,7 @@ "POST" "/createSimulationApplication" "CreateSimulationApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-simulation-application)) (common-lisp:progn (common-lisp:defun create-simulation-application-version @@ -13647,7 +13646,7 @@ "POST" "/createSimulationApplicationVersion" "CreateSimulationApplicationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-simulation-application-version)) (common-lisp:progn (common-lisp:defun create-simulation-job @@ -13672,7 +13671,7 @@ "POST" "/createSimulationJob" "CreateSimulationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-simulation-job)) (common-lisp:progn (common-lisp:defun create-world-export-job @@ -13693,7 +13692,7 @@ "POST" "/createWorldExportJob" "CreateWorldExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-world-export-job)) (common-lisp:progn (common-lisp:defun create-world-generation-job @@ -13715,7 +13714,7 @@ "POST" "/createWorldGenerationJob" "CreateWorldGenerationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-world-generation-job)) (common-lisp:progn (common-lisp:defun create-world-template @@ -13736,7 +13735,7 @@ "POST" "/createWorldTemplate" "CreateWorldTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-world-template)) (common-lisp:progn (common-lisp:defun delete-fleet @@ -13753,7 +13752,7 @@ aws-sdk/generator/operation::input "POST" "/deleteFleet" "DeleteFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet)) (common-lisp:progn (common-lisp:defun delete-robot @@ -13770,7 +13769,7 @@ aws-sdk/generator/operation::input "POST" "/deleteRobot" "DeleteRobot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-robot)) (common-lisp:progn (common-lisp:defun delete-robot-application @@ -13789,7 +13788,7 @@ "POST" "/deleteRobotApplication" "DeleteRobotApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-robot-application)) (common-lisp:progn (common-lisp:defun delete-simulation-application @@ -13809,7 +13808,7 @@ "POST" "/deleteSimulationApplication" "DeleteSimulationApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-simulation-application)) (common-lisp:progn (common-lisp:defun delete-world-template @@ -13827,7 +13826,7 @@ "POST" "/deleteWorldTemplate" "DeleteWorldTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-world-template)) (common-lisp:progn (common-lisp:defun deregister-robot @@ -13845,7 +13844,7 @@ "POST" "/deregisterRobot" "DeregisterRobot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-robot)) (common-lisp:progn (common-lisp:defun describe-deployment-job @@ -13863,7 +13862,7 @@ "POST" "/describeDeploymentJob" "DescribeDeploymentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-deployment-job)) (common-lisp:progn (common-lisp:defun describe-fleet @@ -13880,7 +13879,7 @@ aws-sdk/generator/operation::input "POST" "/describeFleet" "DescribeFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet)) (common-lisp:progn (common-lisp:defun describe-robot @@ -13897,7 +13896,7 @@ aws-sdk/generator/operation::input "POST" "/describeRobot" "DescribeRobot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-robot)) (common-lisp:progn (common-lisp:defun describe-robot-application @@ -13917,7 +13916,7 @@ "POST" "/describeRobotApplication" "DescribeRobotApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-robot-application)) (common-lisp:progn (common-lisp:defun describe-simulation-application @@ -13937,7 +13936,7 @@ "POST" "/describeSimulationApplication" "DescribeSimulationApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-simulation-application)) (common-lisp:progn (common-lisp:defun describe-simulation-job @@ -13955,7 +13954,7 @@ "POST" "/describeSimulationJob" "DescribeSimulationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-simulation-job)) (common-lisp:progn (common-lisp:defun describe-simulation-job-batch @@ -13974,7 +13973,7 @@ "POST" "/describeSimulationJobBatch" "DescribeSimulationJobBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-simulation-job-batch)) (common-lisp:progn (common-lisp:defun describe-world @@ -13991,7 +13990,7 @@ aws-sdk/generator/operation::input "POST" "/describeWorld" "DescribeWorld")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-world)) (common-lisp:progn (common-lisp:defun describe-world-export-job @@ -14010,7 +14009,7 @@ "POST" "/describeWorldExportJob" "DescribeWorldExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-world-export-job)) (common-lisp:progn (common-lisp:defun describe-world-generation-job @@ -14029,7 +14028,7 @@ "POST" "/describeWorldGenerationJob" "DescribeWorldGenerationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-world-generation-job)) (common-lisp:progn (common-lisp:defun describe-world-template @@ -14047,7 +14046,7 @@ "POST" "/describeWorldTemplate" "DescribeWorldTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-world-template)) (common-lisp:progn (common-lisp:defun get-world-template-body @@ -14065,7 +14064,7 @@ "POST" "/getWorldTemplateBody" "GetWorldTemplateBody")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-world-template-body)) (common-lisp:progn (common-lisp:defun list-deployment-jobs @@ -14083,7 +14082,7 @@ "POST" "/listDeploymentJobs" "ListDeploymentJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deployment-jobs)) (common-lisp:progn (common-lisp:defun list-fleets @@ -14100,7 +14099,7 @@ aws-sdk/generator/operation::input "POST" "/listFleets" "ListFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fleets)) (common-lisp:progn (common-lisp:defun list-robot-applications @@ -14120,7 +14119,7 @@ "POST" "/listRobotApplications" "ListRobotApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-robot-applications)) (common-lisp:progn (common-lisp:defun list-robots @@ -14137,7 +14136,7 @@ aws-sdk/generator/operation::input "POST" "/listRobots" "ListRobots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-robots)) (common-lisp:progn (common-lisp:defun list-simulation-applications @@ -14158,7 +14157,7 @@ "POST" "/listSimulationApplications" "ListSimulationApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-simulation-applications)) (common-lisp:progn (common-lisp:defun list-simulation-job-batches @@ -14177,7 +14176,7 @@ "POST" "/listSimulationJobBatches" "ListSimulationJobBatches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-simulation-job-batches)) (common-lisp:progn (common-lisp:defun list-simulation-jobs @@ -14195,7 +14194,7 @@ "POST" "/listSimulationJobs" "ListSimulationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-simulation-jobs)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14217,12 +14216,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-world-export-jobs @@ -14240,7 +14240,7 @@ "POST" "/listWorldExportJobs" "ListWorldExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-world-export-jobs)) (common-lisp:progn (common-lisp:defun list-world-generation-jobs @@ -14259,7 +14259,7 @@ "POST" "/listWorldGenerationJobs" "ListWorldGenerationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-world-generation-jobs)) (common-lisp:progn (common-lisp:defun list-world-templates @@ -14277,7 +14277,7 @@ "POST" "/listWorldTemplates" "ListWorldTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-world-templates)) (common-lisp:progn (common-lisp:defun list-worlds @@ -14294,7 +14294,7 @@ aws-sdk/generator/operation::input "POST" "/listWorlds" "ListWorlds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-worlds)) (common-lisp:progn (common-lisp:defun register-robot @@ -14311,7 +14311,7 @@ aws-sdk/generator/operation::input "POST" "/registerRobot" "RegisterRobot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-robot)) (common-lisp:progn (common-lisp:defun restart-simulation-job @@ -14329,7 +14329,7 @@ "POST" "/restartSimulationJob" "RestartSimulationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restart-simulation-job)) (common-lisp:progn (common-lisp:defun start-simulation-job-batch @@ -14351,7 +14351,7 @@ "POST" "/startSimulationJobBatch" "StartSimulationJobBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-simulation-job-batch)) (common-lisp:progn (common-lisp:defun sync-deployment-job @@ -14369,7 +14369,7 @@ "POST" "/syncDeploymentJob" "SyncDeploymentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'sync-deployment-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -14391,12 +14391,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14418,12 +14419,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-robot-application @@ -14444,7 +14446,7 @@ "POST" "/updateRobotApplication" "UpdateRobotApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-robot-application)) (common-lisp:progn (common-lisp:defun update-simulation-application @@ -14467,7 +14469,7 @@ "POST" "/updateSimulationApplication" "UpdateSimulationApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-simulation-application)) (common-lisp:progn (common-lisp:defun update-world-template @@ -14487,5 +14489,5 @@ "POST" "/updateWorldTemplate" "UpdateWorldTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-world-template)) diff --git a/services/rolesanywhere/api.lisp b/services/rolesanywhere/api.lisp index c271c1c5..fba20ba4 100644 --- a/services/rolesanywhere/api.lisp +++ b/services/rolesanywhere/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/rolesanywhere/api - (:use) - (:nicknames #:aws/rolesanywhere) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/rolesanywhere/api (:use) + (:nicknames #:aws/rolesanywhere) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/rolesanywhere/api) (common-lisp:progn (common-lisp:define-condition rolesanywhere-error @@ -20,7 +19,7 @@ (common-lisp:export 'rolesanywhere-error)) (common-lisp:progn (common-lisp:defclass rolesanywhere-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "rolesanywhere" :api-version "2018-05-10" :host-prefix "rolesanywhere" :signing-name @@ -2806,7 +2805,7 @@ aws-sdk/generator/operation::input "POST" "/profiles" "CreateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profile)) (common-lisp:progn (common-lisp:defun create-trust-anchor @@ -2825,7 +2824,7 @@ aws-sdk/generator/operation::input "POST" "/trustanchors" "CreateTrustAnchor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-trust-anchor)) (common-lisp:progn (common-lisp:defun delete-crl @@ -2847,12 +2846,13 @@ (common-lisp:format common-lisp:nil "/crl/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'crl-id)))) + 'crl-id) + common-lisp:t))) "DeleteCrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-crl)) (common-lisp:progn (common-lisp:defun delete-profile @@ -2874,12 +2874,13 @@ (common-lisp:format common-lisp:nil "/profile/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-id)))) + 'profile-id) + common-lisp:t))) "DeleteProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile)) (common-lisp:progn (common-lisp:defun delete-trust-anchor @@ -2901,12 +2902,13 @@ (common-lisp:format common-lisp:nil "/trustanchor/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'trust-anchor-id)))) + 'trust-anchor-id) + common-lisp:t))) "DeleteTrustAnchor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-trust-anchor)) (common-lisp:progn (common-lisp:defun disable-crl @@ -2928,12 +2930,13 @@ (common-lisp:format common-lisp:nil "/crl/~A/disable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'crl-id)))) + 'crl-id) + common-lisp:t))) "DisableCrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-crl)) (common-lisp:progn (common-lisp:defun disable-profile @@ -2955,12 +2958,13 @@ (common-lisp:format common-lisp:nil "/profile/~A/disable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-id)))) + 'profile-id) + common-lisp:t))) "DisableProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-profile)) (common-lisp:progn (common-lisp:defun disable-trust-anchor @@ -2982,12 +2986,13 @@ (common-lisp:format common-lisp:nil "/trustanchor/~A/disable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'trust-anchor-id)))) + 'trust-anchor-id) + common-lisp:t))) "DisableTrustAnchor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-trust-anchor)) (common-lisp:progn (common-lisp:defun enable-crl @@ -3009,12 +3014,13 @@ (common-lisp:format common-lisp:nil "/crl/~A/enable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'crl-id)))) + 'crl-id) + common-lisp:t))) "EnableCrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-crl)) (common-lisp:progn (common-lisp:defun enable-profile @@ -3036,12 +3042,13 @@ (common-lisp:format common-lisp:nil "/profile/~A/enable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-id)))) + 'profile-id) + common-lisp:t))) "EnableProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-profile)) (common-lisp:progn (common-lisp:defun enable-trust-anchor @@ -3063,12 +3070,13 @@ (common-lisp:format common-lisp:nil "/trustanchor/~A/enable" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'trust-anchor-id)))) + 'trust-anchor-id) + common-lisp:t))) "EnableTrustAnchor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-trust-anchor)) (common-lisp:progn (common-lisp:defun get-crl @@ -3090,12 +3098,13 @@ (common-lisp:format common-lisp:nil "/crl/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'crl-id)))) + 'crl-id) + common-lisp:t))) "GetCrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-crl)) (common-lisp:progn (common-lisp:defun get-profile @@ -3117,12 +3126,13 @@ (common-lisp:format common-lisp:nil "/profile/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-id)))) + 'profile-id) + common-lisp:t))) "GetProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-profile)) (common-lisp:progn (common-lisp:defun get-subject @@ -3144,12 +3154,13 @@ (common-lisp:format common-lisp:nil "/subject/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subject-id)))) + 'subject-id) + common-lisp:t))) "GetSubject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-subject)) (common-lisp:progn (common-lisp:defun get-trust-anchor @@ -3171,12 +3182,13 @@ (common-lisp:format common-lisp:nil "/trustanchor/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'trust-anchor-id)))) + 'trust-anchor-id) + common-lisp:t))) "GetTrustAnchor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-trust-anchor)) (common-lisp:progn (common-lisp:defun import-crl @@ -3195,7 +3207,7 @@ aws-sdk/generator/operation::input "POST" "/crls" "ImportCrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-crl)) (common-lisp:progn (common-lisp:defun list-crls @@ -3212,7 +3224,7 @@ aws-sdk/generator/operation::input "GET" "/crls" "ListCrls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-crls)) (common-lisp:progn (common-lisp:defun list-profiles @@ -3229,7 +3241,7 @@ aws-sdk/generator/operation::input "GET" "/profiles" "ListProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profiles)) (common-lisp:progn (common-lisp:defun list-subjects @@ -3246,7 +3258,7 @@ aws-sdk/generator/operation::input "GET" "/subjects" "ListSubjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subjects)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3264,7 +3276,7 @@ "GET" "/ListTagsForResource" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-trust-anchors @@ -3281,7 +3293,7 @@ aws-sdk/generator/operation::input "GET" "/trustanchors" "ListTrustAnchors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-trust-anchors)) (common-lisp:progn (common-lisp:defun put-notification-settings @@ -3301,7 +3313,7 @@ "PATCH" "/put-notifications-settings" "PutNotificationSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-notification-settings)) (common-lisp:progn (common-lisp:defun reset-notification-settings @@ -3322,7 +3334,7 @@ "PATCH" "/reset-notifications-settings" "ResetNotificationSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-notification-settings)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3339,7 +3351,7 @@ aws-sdk/generator/operation::input "POST" "/TagResource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3356,7 +3368,7 @@ aws-sdk/generator/operation::input "POST" "/UntagResource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-crl @@ -3378,12 +3390,13 @@ (common-lisp:format common-lisp:nil "/crl/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'crl-id)))) + 'crl-id) + common-lisp:t))) "UpdateCrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-crl)) (common-lisp:progn (common-lisp:defun update-profile @@ -3408,12 +3421,13 @@ (common-lisp:format common-lisp:nil "/profile/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-id)))) + 'profile-id) + common-lisp:t))) "UpdateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-profile)) (common-lisp:progn (common-lisp:defun update-trust-anchor @@ -3435,10 +3449,11 @@ (common-lisp:format common-lisp:nil "/trustanchor/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'trust-anchor-id)))) + 'trust-anchor-id) + common-lisp:t))) "UpdateTrustAnchor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-trust-anchor)) diff --git a/services/route53-recovery-cluster/api.lisp b/services/route53-recovery-cluster/api.lisp index 40b4484c..949446a9 100644 --- a/services/route53-recovery-cluster/api.lisp +++ b/services/route53-recovery-cluster/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/route53-recovery-cluster/api - (:use) - (:nicknames #:aws/route53-recovery-cluster) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/route53-recovery-cluster/api + (:use) (:nicknames #:aws/route53-recovery-cluster) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/route53-recovery-cluster/api) (common-lisp:progn (common-lisp:define-condition route53-recovery-cluster-error @@ -821,7 +820,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-cluster-request aws-sdk/generator/operation::input "POST" "/" "GetRoutingControlState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-routing-control-state)) (common-lisp:progn (common-lisp:defun list-routing-controls @@ -838,7 +837,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-cluster-request aws-sdk/generator/operation::input "POST" "/" "ListRoutingControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-routing-controls)) (common-lisp:progn (common-lisp:defun update-routing-control-state @@ -858,7 +857,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-cluster-request aws-sdk/generator/operation::input "POST" "/" "UpdateRoutingControlState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-routing-control-state)) (common-lisp:progn (common-lisp:defun update-routing-control-states @@ -878,5 +877,5 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-cluster-request aws-sdk/generator/operation::input "POST" "/" "UpdateRoutingControlStates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-routing-control-states)) diff --git a/services/route53-recovery-control-config/api.lisp b/services/route53-recovery-control-config/api.lisp index b006c634..f00665ab 100644 --- a/services/route53-recovery-control-config/api.lisp +++ b/services/route53-recovery-control-config/api.lisp @@ -1,17 +1,14 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/route53-recovery-control-config/api - (:use) - (:nicknames #:aws/route53-recovery-control-config) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package + #:aws-sdk/services/route53-recovery-control-config/api (:use) + (:nicknames #:aws/route53-recovery-control-config) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/route53-recovery-control-config/api) (common-lisp:progn (common-lisp:define-condition route53-recovery-control-config-error @@ -20,7 +17,7 @@ (common-lisp:export 'route53-recovery-control-config-error)) (common-lisp:progn (common-lisp:defclass route53-recovery-control-config-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "route53-recovery-control-config" :api-version @@ -3329,7 +3326,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-control-config-request aws-sdk/generator/operation::input "POST" "/cluster" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-control-panel @@ -3348,7 +3345,7 @@ 'route53-recovery-control-config-request aws-sdk/generator/operation::input "POST" "/controlpanel" "CreateControlPanel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-control-panel)) (common-lisp:progn (common-lisp:defun create-routing-control @@ -3368,7 +3365,7 @@ 'route53-recovery-control-config-request aws-sdk/generator/operation::input "POST" "/routingcontrol" "CreateRoutingControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-routing-control)) (common-lisp:progn (common-lisp:defun create-safety-rule @@ -3387,7 +3384,7 @@ 'route53-recovery-control-config-request aws-sdk/generator/operation::input "POST" "/safetyrule" "CreateSafetyRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-safety-rule)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -3405,12 +3402,13 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/cluster/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-control-panel @@ -3428,12 +3426,13 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/controlpanel/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-panel-arn)))) + 'control-panel-arn) + common-lisp:t))) "DeleteControlPanel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-control-panel)) (common-lisp:progn (common-lisp:defun delete-routing-control @@ -3451,12 +3450,13 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/routingcontrol/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-control-arn)))) + 'routing-control-arn) + common-lisp:t))) "DeleteRoutingControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-routing-control)) (common-lisp:progn (common-lisp:defun delete-safety-rule @@ -3474,12 +3474,13 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/safetyrule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'safety-rule-arn)))) + 'safety-rule-arn) + common-lisp:t))) "DeleteSafetyRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-safety-rule)) (common-lisp:progn (common-lisp:defun describe-cluster @@ -3497,12 +3498,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/cluster/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cluster-arn)))) + 'cluster-arn) + common-lisp:t))) "DescribeCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster)) (common-lisp:progn (common-lisp:defun describe-control-panel @@ -3520,12 +3522,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/controlpanel/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-panel-arn)))) + 'control-panel-arn) + common-lisp:t))) "DescribeControlPanel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-control-panel)) (common-lisp:progn (common-lisp:defun describe-routing-control @@ -3543,12 +3546,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/routingcontrol/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-control-arn)))) + 'routing-control-arn) + common-lisp:t))) "DescribeRoutingControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-routing-control)) (common-lisp:progn (common-lisp:defun describe-safety-rule @@ -3566,12 +3570,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/safetyrule/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'safety-rule-arn)))) + 'safety-rule-arn) + common-lisp:t))) "DescribeSafetyRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-safety-rule)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -3589,12 +3594,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resourcePolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun list-associated-route53health-checks @@ -3616,12 +3622,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/routingcontrol/~A/associatedRoute53HealthChecks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'routing-control-arn)))) + 'routing-control-arn) + common-lisp:t))) "ListAssociatedRoute53HealthChecks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-route53health-checks)) (common-lisp:progn (common-lisp:defun list-clusters @@ -3637,7 +3644,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-control-config-request aws-sdk/generator/operation::input "GET" "/cluster" "ListClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters)) (common-lisp:progn (common-lisp:defun list-control-panels @@ -3655,7 +3662,7 @@ 'route53-recovery-control-config-request aws-sdk/generator/operation::input "GET" "/controlpanels" "ListControlPanels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-control-panels)) (common-lisp:progn (common-lisp:defun list-routing-controls @@ -3675,12 +3682,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/controlpanel/~A/routingcontrols" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-panel-arn)))) + 'control-panel-arn) + common-lisp:t))) "ListRoutingControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-routing-controls)) (common-lisp:progn (common-lisp:defun list-safety-rules @@ -3699,12 +3707,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/controlpanel/~A/safetyrules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'control-panel-arn)))) + 'control-panel-arn) + common-lisp:t))) "ListSafetyRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-safety-rules)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3722,12 +3731,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3745,12 +3755,13 @@ aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3768,12 +3779,13 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-control-panel @@ -3791,7 +3803,7 @@ 'route53-recovery-control-config-request aws-sdk/generator/operation::input "PUT" "/controlpanel" "UpdateControlPanel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-control-panel)) (common-lisp:progn (common-lisp:defun update-routing-control @@ -3809,7 +3821,7 @@ 'route53-recovery-control-config-request aws-sdk/generator/operation::input "PUT" "/routingcontrol" "UpdateRoutingControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-routing-control)) (common-lisp:progn (common-lisp:defun update-safety-rule @@ -3827,5 +3839,5 @@ 'route53-recovery-control-config-request aws-sdk/generator/operation::input "PUT" "/safetyrule" "UpdateSafetyRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-safety-rule)) diff --git a/services/route53-recovery-readiness/api.lisp b/services/route53-recovery-readiness/api.lisp index fca41890..9bcdc211 100644 --- a/services/route53-recovery-readiness/api.lisp +++ b/services/route53-recovery-readiness/api.lisp @@ -1,17 +1,17 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/route53-recovery-readiness/api - (:use) - (:nicknames #:aws/route53-recovery-readiness) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/route53-recovery-readiness/api + (:use) + (:nicknames #:aws/route53-recovery-readiness) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/route53-recovery-readiness/api) (common-lisp:progn (common-lisp:define-condition route53-recovery-readiness-error @@ -20,7 +20,7 @@ (common-lisp:export 'route53-recovery-readiness-error)) (common-lisp:progn (common-lisp:defclass route53-recovery-readiness-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "route53-recovery-readiness" :api-version "2019-12-02" :host-prefix @@ -4330,7 +4330,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "POST" "/cells" "CreateCell")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cell)) (common-lisp:progn (common-lisp:defun create-cross-account-authorization @@ -4348,7 +4348,7 @@ 'route53-recovery-readiness-request aws-sdk/generator/operation::input "POST" "/crossaccountauthorizations" "CreateCrossAccountAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cross-account-authorization)) (common-lisp:progn (common-lisp:defun create-readiness-check @@ -4366,7 +4366,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "POST" "/readinesschecks" "CreateReadinessCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-readiness-check)) (common-lisp:progn (common-lisp:defun create-recovery-group @@ -4382,7 +4382,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "POST" "/recoverygroups" "CreateRecoveryGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-recovery-group)) (common-lisp:progn (common-lisp:defun create-resource-set @@ -4400,7 +4400,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "POST" "/resourcesets" "CreateResourceSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-set)) (common-lisp:progn (common-lisp:defun delete-cell @@ -4418,12 +4418,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/cells/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'cell-name)))) + aws-sdk/generator/operation::input 'cell-name) + common-lisp:t))) "DeleteCell")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cell)) (common-lisp:progn (common-lisp:defun delete-cross-account-authorization @@ -4442,12 +4442,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/crossaccountauthorizations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cross-account-authorization)))) + 'cross-account-authorization) + common-lisp:t))) "DeleteCrossAccountAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cross-account-authorization)) (common-lisp:progn (common-lisp:defun delete-readiness-check @@ -4465,12 +4466,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/readinesschecks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'readiness-check-name)))) + 'readiness-check-name) + common-lisp:t))) "DeleteReadinessCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-readiness-check)) (common-lisp:progn (common-lisp:defun delete-recovery-group @@ -4488,12 +4490,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/recoverygroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-group-name)))) + 'recovery-group-name) + common-lisp:t))) "DeleteRecoveryGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-recovery-group)) (common-lisp:progn (common-lisp:defun delete-resource-set @@ -4511,12 +4514,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resourcesets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-set-name)))) + 'resource-set-name) + common-lisp:t))) "DeleteResourceSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-set)) (common-lisp:progn (common-lisp:defun get-architecture-recommendations @@ -4538,12 +4542,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/recoverygroups/~A/architectureRecommendations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-group-name)))) + 'recovery-group-name) + common-lisp:t))) "GetArchitectureRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-architecture-recommendations)) (common-lisp:progn (common-lisp:defun get-cell @@ -4561,12 +4566,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/cells/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'cell-name)))) + aws-sdk/generator/operation::input 'cell-name) + common-lisp:t))) "GetCell")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cell)) (common-lisp:progn (common-lisp:defun get-cell-readiness-summary @@ -4586,12 +4591,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/cellreadiness/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'cell-name)))) + aws-sdk/generator/operation::input 'cell-name) + common-lisp:t))) "GetCellReadinessSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cell-readiness-summary)) (common-lisp:progn (common-lisp:defun get-readiness-check @@ -4609,12 +4614,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/readinesschecks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'readiness-check-name)))) + 'readiness-check-name) + common-lisp:t))) "GetReadinessCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-readiness-check)) (common-lisp:progn (common-lisp:defun get-readiness-check-resource-status @@ -4637,16 +4643,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/readinesschecks/~A/resource/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'readiness-check-name)) - (quri.encode:url-encode + 'readiness-check-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "GetReadinessCheckResourceStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-readiness-check-resource-status)) (common-lisp:progn (common-lisp:defun get-readiness-check-status @@ -4667,12 +4675,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/readinesschecks/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'readiness-check-name)))) + 'readiness-check-name) + common-lisp:t))) "GetReadinessCheckStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-readiness-check-status)) (common-lisp:progn (common-lisp:defun get-recovery-group @@ -4690,12 +4699,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/recoverygroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-group-name)))) + 'recovery-group-name) + common-lisp:t))) "GetRecoveryGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recovery-group)) (common-lisp:progn (common-lisp:defun get-recovery-group-readiness-summary @@ -4716,12 +4726,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/recoverygroupreadiness/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-group-name)))) + 'recovery-group-name) + common-lisp:t))) "GetRecoveryGroupReadinessSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recovery-group-readiness-summary)) (common-lisp:progn (common-lisp:defun get-resource-set @@ -4739,12 +4750,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resourcesets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-set-name)))) + 'resource-set-name) + common-lisp:t))) "GetResourceSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-set)) (common-lisp:progn (common-lisp:defun list-cells @@ -4760,7 +4772,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "GET" "/cells" "ListCells")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cells)) (common-lisp:progn (common-lisp:defun list-cross-account-authorizations @@ -4777,7 +4789,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "GET" "/crossaccountauthorizations" "ListCrossAccountAuthorizations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cross-account-authorizations)) (common-lisp:progn (common-lisp:defun list-readiness-checks @@ -4793,7 +4805,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "GET" "/readinesschecks" "ListReadinessChecks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-readiness-checks)) (common-lisp:progn (common-lisp:defun list-recovery-groups @@ -4809,7 +4821,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "GET" "/recoverygroups" "ListRecoveryGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recovery-groups)) (common-lisp:progn (common-lisp:defun list-resource-sets @@ -4825,7 +4837,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "GET" "/resourcesets" "ListResourceSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-sets)) (common-lisp:progn (common-lisp:defun list-rules @@ -4842,7 +4854,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53-recovery-readiness-request aws-sdk/generator/operation::input "GET" "/rules" "ListRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules)) (common-lisp:progn (common-lisp:defun list-tags-for-resources @@ -4860,12 +4872,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resources)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4883,12 +4896,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4906,12 +4920,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-cell @@ -4929,12 +4944,12 @@ "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/cells/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'cell-name)))) + aws-sdk/generator/operation::input 'cell-name) + common-lisp:t))) "UpdateCell")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cell)) (common-lisp:progn (common-lisp:defun update-readiness-check @@ -4953,12 +4968,13 @@ "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/readinesschecks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'readiness-check-name)))) + 'readiness-check-name) + common-lisp:t))) "UpdateReadinessCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-readiness-check)) (common-lisp:progn (common-lisp:defun update-recovery-group @@ -4976,12 +4992,13 @@ "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/recoverygroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recovery-group-name)))) + 'recovery-group-name) + common-lisp:t))) "UpdateRecoveryGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-recovery-group)) (common-lisp:progn (common-lisp:defun update-resource-set @@ -5001,10 +5018,11 @@ "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/resourcesets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-set-name)))) + 'resource-set-name) + common-lisp:t))) "UpdateResourceSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-set)) diff --git a/services/route53/api.lisp b/services/route53/api.lisp index b91ba955..8d63e922 100644 --- a/services/route53/api.lisp +++ b/services/route53/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/route53/api - (:use) - (:nicknames #:aws/route53) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/route53/api (:use) + (:nicknames #:aws/route53) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/route53/api) (common-lisp:progn (common-lisp:define-condition route53-error @@ -1556,7 +1555,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1662,7 +1663,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1823,7 +1826,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2003,7 +2008,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2123,7 +2130,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2229,7 +2238,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2385,7 +2396,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2507,7 +2520,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2621,7 +2636,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11511,16 +11528,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/keysigningkey/~A/~A/activate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hosted-zone-id)) - (quri.encode:url-encode + 'hosted-zone-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "ActivateKeySigningKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'activate-key-signing-key)) (common-lisp:progn (common-lisp:defun associate-vpcwith-hosted-zone @@ -11543,12 +11562,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/associatevpc" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "AssociateVPCWithHostedZone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'associate-vpcwith-hosted-zone)) (common-lisp:progn (common-lisp:defun change-cidr-collection @@ -11570,12 +11590,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/cidrcollection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cidr-collection-id)))) + 'cidr-collection-id) + common-lisp:t))) "ChangeCidrCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'change-cidr-collection)) (common-lisp:progn (common-lisp:defun change-resource-record-sets @@ -11598,12 +11619,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/rrset/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ChangeResourceRecordSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'change-resource-record-sets)) (common-lisp:progn (common-lisp:defun change-tags-for-resource @@ -11627,16 +11649,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/tags/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)) - (quri.encode:url-encode + 'resource-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "ChangeTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'change-tags-for-resource)) (common-lisp:progn (common-lisp:defun create-cidr-collection @@ -11654,7 +11678,7 @@ "POST" "/2013-04-01/cidrcollection" "CreateCidrCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-cidr-collection)) (common-lisp:progn (common-lisp:defun create-health-check @@ -11673,7 +11697,7 @@ "POST" "/2013-04-01/healthcheck" "CreateHealthCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-health-check)) (common-lisp:progn (common-lisp:defun create-hosted-zone @@ -11694,7 +11718,7 @@ "POST" "/2013-04-01/hostedzone" "CreateHostedZone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-hosted-zone)) (common-lisp:progn (common-lisp:defun create-key-signing-key @@ -11715,7 +11739,7 @@ "POST" "/2013-04-01/keysigningkey" "CreateKeySigningKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-key-signing-key)) (common-lisp:progn (common-lisp:defun create-query-logging-config @@ -11736,7 +11760,7 @@ "POST" "/2013-04-01/queryloggingconfig" "CreateQueryLoggingConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-query-logging-config)) (common-lisp:progn (common-lisp:defun create-reusable-delegation-set @@ -11756,7 +11780,7 @@ "POST" "/2013-04-01/delegationset" "CreateReusableDelegationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-reusable-delegation-set)) (common-lisp:progn (common-lisp:defun create-traffic-policy @@ -11774,7 +11798,7 @@ "POST" "/2013-04-01/trafficpolicy" "CreateTrafficPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-traffic-policy)) (common-lisp:progn (common-lisp:defun create-traffic-policy-instance @@ -11796,7 +11820,7 @@ "POST" "/2013-04-01/trafficpolicyinstance" "CreateTrafficPolicyInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-traffic-policy-instance)) (common-lisp:progn (common-lisp:defun create-traffic-policy-version @@ -11819,12 +11843,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/trafficpolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CreateTrafficPolicyVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-traffic-policy-version)) (common-lisp:progn (common-lisp:defun create-vpcassociation-authorization @@ -11847,12 +11872,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/authorizevpcassociation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "CreateVPCAssociationAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-vpcassociation-authorization)) (common-lisp:progn (common-lisp:defun deactivate-key-signing-key @@ -11875,16 +11901,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/keysigningkey/~A/~A/deactivate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hosted-zone-id)) - (quri.encode:url-encode + 'hosted-zone-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeactivateKeySigningKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'deactivate-key-signing-key)) (common-lisp:progn (common-lisp:defun delete-cidr-collection @@ -11906,12 +11934,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/cidrcollection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cidr-collection-id)))) + 'cidr-collection-id) + common-lisp:t))) "DeleteCidrCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-cidr-collection)) (common-lisp:progn (common-lisp:defun delete-health-check @@ -11933,12 +11962,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/healthcheck/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'health-check-id)))) + 'health-check-id) + common-lisp:t))) "DeleteHealthCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-health-check)) (common-lisp:progn (common-lisp:defun delete-hosted-zone @@ -11960,12 +11990,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteHostedZone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-hosted-zone)) (common-lisp:progn (common-lisp:defun delete-key-signing-key @@ -11987,16 +12018,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/keysigningkey/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'hosted-zone-id)) - (quri.encode:url-encode + 'hosted-zone-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteKeySigningKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-key-signing-key)) (common-lisp:progn (common-lisp:defun delete-query-logging-config @@ -12019,12 +12052,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/queryloggingconfig/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteQueryLoggingConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-query-logging-config)) (common-lisp:progn (common-lisp:defun delete-reusable-delegation-set @@ -12047,12 +12081,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/delegationset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteReusableDelegationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-reusable-delegation-set)) (common-lisp:progn (common-lisp:defun delete-traffic-policy @@ -12074,16 +12109,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/trafficpolicy/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "DeleteTrafficPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-traffic-policy)) (common-lisp:progn (common-lisp:defun delete-traffic-policy-instance @@ -12106,12 +12143,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/trafficpolicyinstance/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteTrafficPolicyInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-traffic-policy-instance)) (common-lisp:progn (common-lisp:defun delete-vpcassociation-authorization @@ -12134,12 +12172,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/deauthorizevpcassociation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteVPCAssociationAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-vpcassociation-authorization)) (common-lisp:progn (common-lisp:defun disable-hosted-zone-dnssec @@ -12162,12 +12201,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/disable-dnssec" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DisableHostedZoneDNSSEC")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'disable-hosted-zone-dnssec)) (common-lisp:progn (common-lisp:defun disassociate-vpcfrom-hosted-zone @@ -12190,12 +12230,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/disassociatevpc" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DisassociateVPCFromHostedZone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'disassociate-vpcfrom-hosted-zone)) (common-lisp:progn (common-lisp:defun enable-hosted-zone-dnssec @@ -12217,12 +12258,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/enable-dnssec" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "EnableHostedZoneDNSSEC")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'enable-hosted-zone-dnssec)) (common-lisp:progn (common-lisp:defun get-account-limit @@ -12244,12 +12286,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/accountlimit/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type)))) + 'type) + common-lisp:t))) "GetAccountLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-account-limit)) (common-lisp:progn (common-lisp:defun get-change @@ -12271,12 +12314,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/change/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetChange")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-change)) (common-lisp:progn (common-lisp:defun get-checker-ip-ranges () @@ -12307,12 +12351,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/dnssec" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetDNSSEC")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-dnssec)) (common-lisp:progn (common-lisp:defun get-geo-location @@ -12332,7 +12377,7 @@ "GET" "/2013-04-01/geolocation" "GetGeoLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-geo-location)) (common-lisp:progn (common-lisp:defun get-health-check @@ -12354,12 +12399,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/healthcheck/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'health-check-id)))) + 'health-check-id) + common-lisp:t))) "GetHealthCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-health-check)) (common-lisp:progn (common-lisp:defun get-health-check-count () @@ -12391,12 +12437,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/healthcheck/~A/lastfailurereason" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'health-check-id)))) + 'health-check-id) + common-lisp:t))) "GetHealthCheckLastFailureReason")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-health-check-last-failure-reason)) (common-lisp:progn (common-lisp:defun get-health-check-status @@ -12418,12 +12465,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/healthcheck/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'health-check-id)))) + 'health-check-id) + common-lisp:t))) "GetHealthCheckStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-health-check-status)) (common-lisp:progn (common-lisp:defun get-hosted-zone @@ -12445,12 +12493,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetHostedZone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-hosted-zone)) (common-lisp:progn (common-lisp:defun get-hosted-zone-count () @@ -12481,16 +12530,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzonelimit/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type)))) + 'type) + common-lisp:t))) "GetHostedZoneLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-hosted-zone-limit)) (common-lisp:progn (common-lisp:defun get-query-logging-config @@ -12512,12 +12563,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/queryloggingconfig/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetQueryLoggingConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-query-logging-config)) (common-lisp:progn (common-lisp:defun get-reusable-delegation-set @@ -12540,12 +12592,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/delegationset/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetReusableDelegationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-reusable-delegation-set)) (common-lisp:progn (common-lisp:defun get-reusable-delegation-set-limit @@ -12568,16 +12621,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/reusabledelegationsetlimit/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'type)))) + 'type) + common-lisp:t))) "GetReusableDelegationSetLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-reusable-delegation-set-limit)) (common-lisp:progn (common-lisp:defun get-traffic-policy @@ -12599,16 +12654,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/trafficpolicy/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "GetTrafficPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-traffic-policy)) (common-lisp:progn (common-lisp:defun get-traffic-policy-instance @@ -12631,12 +12688,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/trafficpolicyinstance/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetTrafficPolicyInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-traffic-policy-instance)) (common-lisp:progn (common-lisp:defun get-traffic-policy-instance-count () @@ -12669,12 +12727,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/cidrcollection/~A/cidrblocks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cidr-collection-id)))) + 'cidr-collection-id) + common-lisp:t))) "ListCidrBlocks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-cidr-blocks)) (common-lisp:progn (common-lisp:defun list-cidr-collections @@ -12692,7 +12751,7 @@ "GET" "/2013-04-01/cidrcollection" "ListCidrCollections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-cidr-collections)) (common-lisp:progn (common-lisp:defun list-cidr-locations @@ -12715,12 +12774,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/cidrcollection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'cidr-collection-id)))) + 'cidr-collection-id) + common-lisp:t))) "ListCidrLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-cidr-locations)) (common-lisp:progn (common-lisp:defun list-geo-locations @@ -12741,7 +12801,7 @@ "GET" "/2013-04-01/geolocations" "ListGeoLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-geo-locations)) (common-lisp:progn (common-lisp:defun list-health-checks @@ -12759,7 +12819,7 @@ "GET" "/2013-04-01/healthcheck" "ListHealthChecks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-health-checks)) (common-lisp:progn (common-lisp:defun list-hosted-zones @@ -12780,7 +12840,7 @@ "GET" "/2013-04-01/hostedzone" "ListHostedZones")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-hosted-zones)) (common-lisp:progn (common-lisp:defun list-hosted-zones-by-name @@ -12800,7 +12860,7 @@ "GET" "/2013-04-01/hostedzonesbyname" "ListHostedZonesByName")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-hosted-zones-by-name)) (common-lisp:progn (common-lisp:defun list-hosted-zones-by-vpc @@ -12819,7 +12879,7 @@ "GET" "/2013-04-01/hostedzonesbyvpc" "ListHostedZonesByVPC")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-hosted-zones-by-vpc)) (common-lisp:progn (common-lisp:defun list-query-logging-configs @@ -12839,7 +12899,7 @@ "GET" "/2013-04-01/queryloggingconfig" "ListQueryLoggingConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-query-logging-configs)) (common-lisp:progn (common-lisp:defun list-resource-record-sets @@ -12865,12 +12925,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/rrset" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListResourceRecordSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-resource-record-sets)) (common-lisp:progn (common-lisp:defun list-reusable-delegation-sets @@ -12889,7 +12950,7 @@ "GET" "/2013-04-01/delegationset" "ListReusableDelegationSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-reusable-delegation-sets)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12911,16 +12972,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/tags/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)) - (quri.encode:url-encode + 'resource-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-tags-for-resources @@ -12942,12 +13005,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)))) + 'resource-type) + common-lisp:t))) "ListTagsForResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-tags-for-resources)) (common-lisp:progn (common-lisp:defun list-traffic-policies @@ -12966,7 +13030,7 @@ "GET" "/2013-04-01/trafficpolicies" "ListTrafficPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-traffic-policies)) (common-lisp:progn (common-lisp:defun list-traffic-policy-instances @@ -12990,7 +13054,7 @@ "GET" "/2013-04-01/trafficpolicyinstances" "ListTrafficPolicyInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-traffic-policy-instances)) (common-lisp:progn (common-lisp:defun list-traffic-policy-instances-by-hosted-zone @@ -13013,7 +13077,7 @@ "GET" "/2013-04-01/trafficpolicyinstances/hostedzone" "ListTrafficPolicyInstancesByHostedZone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-traffic-policy-instances-by-hosted-zone)) (common-lisp:progn (common-lisp:defun list-traffic-policy-instances-by-policy @@ -13037,7 +13101,7 @@ "GET" "/2013-04-01/trafficpolicyinstances/trafficpolicy" "ListTrafficPolicyInstancesByPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-traffic-policy-instances-by-policy)) (common-lisp:progn (common-lisp:defun list-traffic-policy-versions @@ -13062,12 +13126,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/trafficpolicies/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListTrafficPolicyVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-traffic-policy-versions)) (common-lisp:progn (common-lisp:defun list-vpcassociation-authorizations @@ -13091,12 +13156,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A/authorizevpcassociation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "ListVPCAssociationAuthorizations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-vpcassociation-authorizations)) (common-lisp:progn (common-lisp:defun test-dnsanswer @@ -13117,7 +13183,7 @@ "GET" "/2013-04-01/testdnsanswer" "TestDNSAnswer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'test-dnsanswer)) (common-lisp:progn (common-lisp:defun update-health-check @@ -13148,12 +13214,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/healthcheck/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'health-check-id)))) + 'health-check-id) + common-lisp:t))) "UpdateHealthCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-health-check)) (common-lisp:progn (common-lisp:defun update-hosted-zone-comment @@ -13176,12 +13243,13 @@ (common-lisp:format common-lisp:nil "/2013-04-01/hostedzone/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateHostedZoneComment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-hosted-zone-comment)) (common-lisp:progn (common-lisp:defun update-traffic-policy-comment @@ -13204,16 +13272,18 @@ (common-lisp:format common-lisp:nil "/2013-04-01/trafficpolicy/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)) - (quri.encode:url-encode + 'id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version)))) + 'version) + common-lisp:t))) "UpdateTrafficPolicyComment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-traffic-policy-comment)) (common-lisp:progn (common-lisp:defun update-traffic-policy-instance @@ -13238,10 +13308,11 @@ (common-lisp:format common-lisp:nil "/2013-04-01/trafficpolicyinstance/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateTrafficPolicyInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-traffic-policy-instance)) diff --git a/services/route53domains/api.lisp b/services/route53domains/api.lisp index 806732b6..8d9b087d 100644 --- a/services/route53domains/api.lisp +++ b/services/route53domains/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/route53domains/api - (:use) - (:nicknames #:aws/route53domains) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/route53domains/api (:use) + (:nicknames #:aws/route53domains) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/route53domains/api) (common-lisp:progn (common-lisp:define-condition route53domains-error @@ -5316,7 +5315,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptDomainTransferFromAnotherAwsAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-domain-transfer-from-another-aws-account)) (common-lisp:progn (common-lisp:defun associate-delegation-signer-to-domain @@ -5334,7 +5333,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateDelegationSignerToDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-delegation-signer-to-domain)) (common-lisp:progn (common-lisp:defun cancel-domain-transfer-to-another-aws-account @@ -5352,7 +5351,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelDomainTransferToAnotherAwsAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-domain-transfer-to-another-aws-account)) (common-lisp:progn (common-lisp:defun check-domain-availability @@ -5370,7 +5369,7 @@ aws-sdk/generator/operation::input "POST" "/" "CheckDomainAvailability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'check-domain-availability)) (common-lisp:progn (common-lisp:defun check-domain-transferability @@ -5388,7 +5387,7 @@ aws-sdk/generator/operation::input "POST" "/" "CheckDomainTransferability")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'check-domain-transferability)) (common-lisp:progn (common-lisp:defun delete-domain @@ -5405,7 +5404,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-tags-for-domain @@ -5422,7 +5421,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTagsForDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tags-for-domain)) (common-lisp:progn (common-lisp:defun disable-domain-auto-renew @@ -5440,7 +5439,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableDomainAutoRenew")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-domain-auto-renew)) (common-lisp:progn (common-lisp:defun disable-domain-transfer-lock @@ -5458,7 +5457,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableDomainTransferLock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-domain-transfer-lock)) (common-lisp:progn (common-lisp:defun disassociate-delegation-signer-from-domain @@ -5476,7 +5475,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateDelegationSignerFromDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-delegation-signer-from-domain)) (common-lisp:progn (common-lisp:defun enable-domain-auto-renew @@ -5493,7 +5492,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableDomainAutoRenew")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-domain-auto-renew)) (common-lisp:progn (common-lisp:defun enable-domain-transfer-lock @@ -5511,7 +5510,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableDomainTransferLock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-domain-transfer-lock)) (common-lisp:progn (common-lisp:defun get-contact-reachability-status @@ -5529,7 +5528,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetContactReachabilityStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact-reachability-status)) (common-lisp:progn (common-lisp:defun get-domain-detail @@ -5546,7 +5545,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDomainDetail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-detail)) (common-lisp:progn (common-lisp:defun get-domain-suggestions @@ -5565,7 +5564,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDomainSuggestions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-suggestions)) (common-lisp:progn (common-lisp:defun get-operation-detail @@ -5582,7 +5581,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOperationDetail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-operation-detail)) (common-lisp:progn (common-lisp:defun list-domains @@ -5601,7 +5600,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-operations @@ -5621,7 +5620,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-operations)) (common-lisp:progn (common-lisp:defun list-prices @@ -5638,7 +5637,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPrices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-prices)) (common-lisp:progn (common-lisp:defun list-tags-for-domain @@ -5655,7 +5654,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-domain)) (common-lisp:progn (common-lisp:defun push-domain @@ -5672,7 +5671,7 @@ aws-sdk/generator/operation::input "POST" "/" "PushDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'push-domain)) (common-lisp:progn (common-lisp:defun register-domain @@ -5700,7 +5699,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-domain)) (common-lisp:progn (common-lisp:defun reject-domain-transfer-from-another-aws-account @@ -5718,7 +5717,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectDomainTransferFromAnotherAwsAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-domain-transfer-from-another-aws-account)) (common-lisp:progn (common-lisp:defun renew-domain @@ -5737,7 +5736,7 @@ aws-sdk/generator/operation::input "POST" "/" "RenewDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'renew-domain)) (common-lisp:progn (common-lisp:defun resend-contact-reachability-email @@ -5755,7 +5754,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResendContactReachabilityEmail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resend-contact-reachability-email)) (common-lisp:progn (common-lisp:defun resend-operation-authorization @@ -5773,7 +5772,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResendOperationAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resend-operation-authorization)) (common-lisp:progn (common-lisp:defun retrieve-domain-auth-code @@ -5791,7 +5790,7 @@ aws-sdk/generator/operation::input "POST" "/" "RetrieveDomainAuthCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retrieve-domain-auth-code)) (common-lisp:progn (common-lisp:defun transfer-domain @@ -5819,7 +5818,7 @@ aws-sdk/generator/operation::input "POST" "/" "TransferDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'transfer-domain)) (common-lisp:progn (common-lisp:defun transfer-domain-to-another-aws-account @@ -5837,7 +5836,7 @@ aws-sdk/generator/operation::input "POST" "/" "TransferDomainToAnotherAwsAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'transfer-domain-to-another-aws-account)) (common-lisp:progn (common-lisp:defun update-domain-contact @@ -5857,7 +5856,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDomainContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-contact)) (common-lisp:progn (common-lisp:defun update-domain-contact-privacy @@ -5878,7 +5877,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDomainContactPrivacy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-contact-privacy)) (common-lisp:progn (common-lisp:defun update-domain-nameservers @@ -5897,7 +5896,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDomainNameservers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-nameservers)) (common-lisp:progn (common-lisp:defun update-tags-for-domain @@ -5914,7 +5913,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTagsForDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-tags-for-domain)) (common-lisp:progn (common-lisp:defun view-billing @@ -5931,5 +5930,5 @@ aws-sdk/generator/operation::input "POST" "/" "ViewBilling")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'view-billing)) diff --git a/services/route53resolver/api.lisp b/services/route53resolver/api.lisp index aed802a8..b18c7e26 100644 --- a/services/route53resolver/api.lisp +++ b/services/route53resolver/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/route53resolver/api - (:use) - (:nicknames #:aws/route53resolver) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/route53resolver/api (:use) + (:nicknames #:aws/route53resolver) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/route53resolver/api) (common-lisp:progn (common-lisp:define-condition route53resolver-error @@ -10749,7 +10748,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "AssociateFirewallRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-firewall-rule-group)) (common-lisp:progn (common-lisp:defun associate-resolver-endpoint-ip-address @@ -10767,7 +10766,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "AssociateResolverEndpointIpAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-resolver-endpoint-ip-address)) (common-lisp:progn (common-lisp:defun associate-resolver-query-log-config @@ -10785,7 +10784,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "AssociateResolverQueryLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-resolver-query-log-config)) (common-lisp:progn (common-lisp:defun associate-resolver-rule @@ -10801,7 +10800,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "AssociateResolverRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-resolver-rule)) (common-lisp:progn (common-lisp:defun create-firewall-domain-list @@ -10818,7 +10817,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "CreateFirewallDomainList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-firewall-domain-list)) (common-lisp:progn (common-lisp:defun create-firewall-rule @@ -10841,7 +10840,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "CreateFirewallRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-firewall-rule)) (common-lisp:progn (common-lisp:defun create-firewall-rule-group @@ -10858,7 +10857,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "CreateFirewallRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-firewall-rule-group)) (common-lisp:progn (common-lisp:defun create-outpost-resolver @@ -10877,7 +10876,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "CreateOutpostResolver")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-outpost-resolver)) (common-lisp:progn (common-lisp:defun create-resolver-endpoint @@ -10899,7 +10898,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "CreateResolverEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resolver-endpoint)) (common-lisp:progn (common-lisp:defun create-resolver-query-log-config @@ -10918,7 +10917,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "CreateResolverQueryLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resolver-query-log-config)) (common-lisp:progn (common-lisp:defun create-resolver-rule @@ -10937,7 +10936,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "CreateResolverRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resolver-rule)) (common-lisp:progn (common-lisp:defun delete-firewall-domain-list @@ -10954,7 +10953,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DeleteFirewallDomainList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-firewall-domain-list)) (common-lisp:progn (common-lisp:defun delete-firewall-rule @@ -10973,7 +10972,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DeleteFirewallRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-firewall-rule)) (common-lisp:progn (common-lisp:defun delete-firewall-rule-group @@ -10990,7 +10989,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DeleteFirewallRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-firewall-rule-group)) (common-lisp:progn (common-lisp:defun delete-outpost-resolver @@ -11006,7 +11005,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DeleteOutpostResolver")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-outpost-resolver)) (common-lisp:progn (common-lisp:defun delete-resolver-endpoint @@ -11022,7 +11021,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DeleteResolverEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resolver-endpoint)) (common-lisp:progn (common-lisp:defun delete-resolver-query-log-config @@ -11039,7 +11038,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DeleteResolverQueryLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resolver-query-log-config)) (common-lisp:progn (common-lisp:defun delete-resolver-rule @@ -11055,7 +11054,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DeleteResolverRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resolver-rule)) (common-lisp:progn (common-lisp:defun disassociate-firewall-rule-group @@ -11073,7 +11072,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DisassociateFirewallRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-firewall-rule-group)) (common-lisp:progn (common-lisp:defun disassociate-resolver-endpoint-ip-address @@ -11091,7 +11090,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DisassociateResolverEndpointIpAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-resolver-endpoint-ip-address)) (common-lisp:progn (common-lisp:defun disassociate-resolver-query-log-config @@ -11109,7 +11108,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DisassociateResolverQueryLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-resolver-query-log-config)) (common-lisp:progn (common-lisp:defun disassociate-resolver-rule @@ -11126,7 +11125,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "DisassociateResolverRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-resolver-rule)) (common-lisp:progn (common-lisp:defun get-firewall-config @@ -11142,7 +11141,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetFirewallConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-firewall-config)) (common-lisp:progn (common-lisp:defun get-firewall-domain-list @@ -11158,7 +11157,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetFirewallDomainList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-firewall-domain-list)) (common-lisp:progn (common-lisp:defun get-firewall-rule-group @@ -11174,7 +11173,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetFirewallRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-firewall-rule-group)) (common-lisp:progn (common-lisp:defun get-firewall-rule-group-association @@ -11192,7 +11191,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetFirewallRuleGroupAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-firewall-rule-group-association)) (common-lisp:progn (common-lisp:defun get-firewall-rule-group-policy @@ -11209,7 +11208,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetFirewallRuleGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-firewall-rule-group-policy)) (common-lisp:progn (common-lisp:defun get-outpost-resolver @@ -11225,7 +11224,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetOutpostResolver")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-outpost-resolver)) (common-lisp:progn (common-lisp:defun get-resolver-config @@ -11241,7 +11240,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-config)) (common-lisp:progn (common-lisp:defun get-resolver-dnssec-config @@ -11258,7 +11257,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverDnssecConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-dnssec-config)) (common-lisp:progn (common-lisp:defun get-resolver-endpoint @@ -11274,7 +11273,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-endpoint)) (common-lisp:progn (common-lisp:defun get-resolver-query-log-config @@ -11291,7 +11290,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverQueryLogConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-query-log-config)) (common-lisp:progn (common-lisp:defun get-resolver-query-log-config-association @@ -11309,7 +11308,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverQueryLogConfigAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-query-log-config-association)) (common-lisp:progn (common-lisp:defun get-resolver-query-log-config-policy @@ -11326,7 +11325,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverQueryLogConfigPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-query-log-config-policy)) (common-lisp:progn (common-lisp:defun get-resolver-rule @@ -11342,7 +11341,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-rule)) (common-lisp:progn (common-lisp:defun get-resolver-rule-association @@ -11359,7 +11358,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverRuleAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-rule-association)) (common-lisp:progn (common-lisp:defun get-resolver-rule-policy @@ -11375,7 +11374,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "GetResolverRulePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resolver-rule-policy)) (common-lisp:progn (common-lisp:defun import-firewall-domains @@ -11393,7 +11392,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ImportFirewallDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-firewall-domains)) (common-lisp:progn (common-lisp:defun list-firewall-configs @@ -11409,7 +11408,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListFirewallConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-firewall-configs)) (common-lisp:progn (common-lisp:defun list-firewall-domain-lists @@ -11426,7 +11425,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListFirewallDomainLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-firewall-domain-lists)) (common-lisp:progn (common-lisp:defun list-firewall-domains @@ -11444,7 +11443,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListFirewallDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-firewall-domains)) (common-lisp:progn (common-lisp:defun list-firewall-rule-group-associations @@ -11464,7 +11463,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListFirewallRuleGroupAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-firewall-rule-group-associations)) (common-lisp:progn (common-lisp:defun list-firewall-rule-groups @@ -11481,7 +11480,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListFirewallRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-firewall-rule-groups)) (common-lisp:progn (common-lisp:defun list-firewall-rules @@ -11500,7 +11499,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListFirewallRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-firewall-rules)) (common-lisp:progn (common-lisp:defun list-outpost-resolvers @@ -11517,7 +11516,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListOutpostResolvers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-outpost-resolvers)) (common-lisp:progn (common-lisp:defun list-resolver-configs @@ -11533,7 +11532,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListResolverConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolver-configs)) (common-lisp:progn (common-lisp:defun list-resolver-dnssec-configs @@ -11550,7 +11549,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListResolverDnssecConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolver-dnssec-configs)) (common-lisp:progn (common-lisp:defun list-resolver-endpoint-ip-addresses @@ -11569,7 +11568,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListResolverEndpointIpAddresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolver-endpoint-ip-addresses)) (common-lisp:progn (common-lisp:defun list-resolver-endpoints @@ -11585,7 +11584,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListResolverEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolver-endpoints)) (common-lisp:progn (common-lisp:defun list-resolver-query-log-config-associations @@ -11604,7 +11603,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListResolverQueryLogConfigAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolver-query-log-config-associations)) (common-lisp:progn (common-lisp:defun list-resolver-query-log-configs @@ -11623,7 +11622,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListResolverQueryLogConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolver-query-log-configs)) (common-lisp:progn (common-lisp:defun list-resolver-rule-associations @@ -11640,7 +11639,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListResolverRuleAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolver-rule-associations)) (common-lisp:progn (common-lisp:defun list-resolver-rules @@ -11656,7 +11655,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListResolverRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resolver-rules)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11673,7 +11672,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-firewall-rule-group-policy @@ -11690,7 +11689,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "PutFirewallRuleGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-firewall-rule-group-policy)) (common-lisp:progn (common-lisp:defun put-resolver-query-log-config-policy @@ -11708,7 +11707,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "PutResolverQueryLogConfigPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resolver-query-log-config-policy)) (common-lisp:progn (common-lisp:defun put-resolver-rule-policy @@ -11724,7 +11723,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "PutResolverRulePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resolver-rule-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -11740,7 +11739,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -11756,7 +11755,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-firewall-config @@ -11772,7 +11771,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-config)) (common-lisp:progn (common-lisp:defun update-firewall-domains @@ -11790,7 +11789,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-domains)) (common-lisp:progn (common-lisp:defun update-firewall-rule @@ -11812,7 +11811,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-rule)) (common-lisp:progn (common-lisp:defun update-firewall-rule-group-association @@ -11832,7 +11831,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateFirewallRuleGroupAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-firewall-rule-group-association)) (common-lisp:progn (common-lisp:defun update-outpost-resolver @@ -11850,7 +11849,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateOutpostResolver")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-outpost-resolver)) (common-lisp:progn (common-lisp:defun update-resolver-config @@ -11867,7 +11866,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateResolverConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resolver-config)) (common-lisp:progn (common-lisp:defun update-resolver-dnssec-config @@ -11884,7 +11883,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateResolverDnssecConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resolver-dnssec-config)) (common-lisp:progn (common-lisp:defun update-resolver-endpoint @@ -11903,7 +11902,7 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateResolverEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resolver-endpoint)) (common-lisp:progn (common-lisp:defun update-resolver-rule @@ -11919,5 +11918,5 @@ (aws-sdk/generator/shape:make-request-with-input 'route53resolver-request aws-sdk/generator/operation::input "POST" "/" "UpdateResolverRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resolver-rule)) diff --git a/services/rum/api.lisp b/services/rum/api.lisp index 752dcc2e..ee9937ce 100644 --- a/services/rum/api.lisp +++ b/services/rum/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/rum/api - (:use) - (:nicknames #:aws/rum) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/rum/api (:use) + (:nicknames #:aws/rum) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/rum/api) (common-lisp:progn (common-lisp:define-condition rum-error @@ -20,7 +19,7 @@ (common-lisp:export 'rum-error)) (common-lisp:progn (common-lisp:defclass rum-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "rum" :api-version "2018-05-10" :host-prefix "rum" :signing-name "rum" @@ -3187,12 +3186,13 @@ (common-lisp:format common-lisp:nil "/rummetrics/~A/metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-monitor-name)))) + 'app-monitor-name) + common-lisp:t))) "BatchCreateRumMetricDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-create-rum-metric-definitions)) (common-lisp:progn (common-lisp:defun batch-delete-rum-metric-definitions @@ -3218,12 +3218,13 @@ (common-lisp:format common-lisp:nil "/rummetrics/~A/metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-monitor-name)))) + 'app-monitor-name) + common-lisp:t))) "BatchDeleteRumMetricDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-rum-metric-definitions)) (common-lisp:progn (common-lisp:defun batch-get-rum-metric-definitions @@ -3249,12 +3250,13 @@ (common-lisp:format common-lisp:nil "/rummetrics/~A/metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-monitor-name)))) + 'app-monitor-name) + common-lisp:t))) "BatchGetRumMetricDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-rum-metric-definitions)) (common-lisp:progn (common-lisp:defun create-app-monitor @@ -3274,7 +3276,7 @@ aws-sdk/generator/operation::input "POST" "/appmonitor" "CreateAppMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-monitor)) (common-lisp:progn (common-lisp:defun delete-app-monitor @@ -3296,12 +3298,13 @@ (common-lisp:format common-lisp:nil "/appmonitor/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteAppMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-monitor)) (common-lisp:progn (common-lisp:defun delete-rum-metrics-destination @@ -3326,12 +3329,13 @@ (common-lisp:format common-lisp:nil "/rummetrics/~A/metricsdestination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-monitor-name)))) + 'app-monitor-name) + common-lisp:t))) "DeleteRumMetricsDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rum-metrics-destination)) (common-lisp:progn (common-lisp:defun get-app-monitor @@ -3353,12 +3357,13 @@ (common-lisp:format common-lisp:nil "/appmonitor/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAppMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-monitor)) (common-lisp:progn (common-lisp:defun get-app-monitor-data @@ -3382,12 +3387,13 @@ (common-lisp:format common-lisp:nil "/appmonitor/~A/data" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAppMonitorData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-monitor-data)) (common-lisp:progn (common-lisp:defun list-app-monitors @@ -3404,7 +3410,7 @@ aws-sdk/generator/operation::input "POST" "/appmonitors" "ListAppMonitors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-monitors)) (common-lisp:progn (common-lisp:defun list-rum-metrics-destinations @@ -3428,12 +3434,13 @@ (common-lisp:format common-lisp:nil "/rummetrics/~A/metricsdestination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-monitor-name)))) + 'app-monitor-name) + common-lisp:t))) "ListRumMetricsDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rum-metrics-destinations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3455,12 +3462,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-rum-events @@ -3485,12 +3493,13 @@ (common-lisp:format common-lisp:nil "/appmonitors/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "PutRumEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-rum-events)) (common-lisp:progn (common-lisp:defun put-rum-metrics-destination @@ -3516,12 +3525,13 @@ (common-lisp:format common-lisp:nil "/rummetrics/~A/metricsdestination" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-monitor-name)))) + 'app-monitor-name) + common-lisp:t))) "PutRumMetricsDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-rum-metrics-destination)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3543,12 +3553,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3570,12 +3581,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-app-monitor @@ -3600,12 +3612,13 @@ (common-lisp:format common-lisp:nil "/appmonitor/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateAppMonitor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-monitor)) (common-lisp:progn (common-lisp:defun update-rum-metric-definition @@ -3631,10 +3644,11 @@ (common-lisp:format common-lisp:nil "/rummetrics/~A/metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'app-monitor-name)))) + 'app-monitor-name) + common-lisp:t))) "UpdateRumMetricDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rum-metric-definition)) diff --git a/services/runtime.lex.v2/api.lisp b/services/runtime.lex.v2/api.lisp index 2f5fa29b..0786e0bc 100644 --- a/services/runtime.lex.v2/api.lisp +++ b/services/runtime.lex.v2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/runtime.lex.v2/api - (:use) - (:nicknames #:aws/runtime.lex.v2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/runtime.lex.v2/api (:use) + (:nicknames #:aws/runtime.lex.v2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/runtime.lex.v2/api) (common-lisp:progn (common-lisp:define-condition runtime.lex.v2-error @@ -20,7 +19,7 @@ (common-lisp:export 'runtime.lex.v2-error)) (common-lisp:progn (common-lisp:defclass runtime.lex.v2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "runtime.lex.v2" :api-version "2020-08-07" :host-prefix "runtime-v2-lex" @@ -1619,8 +1618,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'response-content-type)) - (common-lisp:cons "ResponseContentType" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "ResponseContentType" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input put-session-request)) (common-lisp:append @@ -1703,26 +1703,35 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'messages)) - (common-lisp:cons "x-amz-lex-messages" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-messages" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-state)) - (common-lisp:cons "x-amz-lex-session-state" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-state" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-attributes)) - (common-lisp:cons "x-amz-lex-request-attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-request-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amz-lex-session-id" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input put-session-response)) (common-lisp:append @@ -1735,7 +1744,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-session-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-session-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass recognize-text-request common-lisp:nil ((bot-id :initarg :bot-id :initform @@ -2014,24 +2027,32 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-state)) - (common-lisp:cons "x-amz-lex-session-state" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-state" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-attributes)) - (common-lisp:cons "x-amz-lex-request-attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-request-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'response-content-type)) - (common-lisp:cons "Response-Content-Type" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Response-Content-Type" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2048,7 +2069,13 @@ ( (aws-sdk/generator/shape::input recognize-utterance-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'input-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'input-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + recognize-utterance-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass recognize-utterance-response common-lisp:nil ((input-mode :initarg :input-mode :initform @@ -2136,45 +2163,63 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'input-mode)) - (common-lisp:cons "x-amz-lex-input-mode" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-input-mode" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'messages)) - (common-lisp:cons "x-amz-lex-messages" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-messages" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'interpretations)) - (common-lisp:cons "x-amz-lex-interpretations" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-interpretations" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-state)) - (common-lisp:cons "x-amz-lex-session-state" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-state" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-attributes)) - (common-lisp:cons "x-amz-lex-request-attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-request-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amz-lex-session-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'input-transcript)) - (common-lisp:cons "x-amz-lex-input-transcript" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-input-transcript" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'recognized-bot-member)) - (common-lisp:cons "x-amz-lex-recognized-bot-member" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-recognized-bot-member" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2191,7 +2236,13 @@ ( (aws-sdk/generator/shape::input recognize-utterance-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + recognize-utterance-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass recognized-bot-member common-lisp:nil ((bot-id :initarg :bot-id :initform @@ -2725,8 +2776,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'conversation-mode)) - (common-lisp:cons "x-amz-lex-conversation-mode" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-conversation-mode" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2745,7 +2798,13 @@ (aws-sdk/generator/shape::input start-conversation-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'request-event-stream))) + 'request-event-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-conversation-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass start-conversation-request-event-stream common-lisp:nil ((configuration-event :initarg :configuration-event @@ -2902,7 +2961,13 @@ (aws-sdk/generator/shape::input start-conversation-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'response-event-stream))) + 'response-event-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-conversation-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass start-conversation-response-event-stream common-lisp:nil ((playback-interruption-event :initarg @@ -3406,24 +3471,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botAliases/~A/botLocales/~A/sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)) - (quri.encode:url-encode + 'bot-alias-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "DeleteSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-session)) (common-lisp:progn (common-lisp:defun get-session @@ -3446,24 +3515,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botAliases/~A/botLocales/~A/sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)) - (quri.encode:url-encode + 'bot-alias-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "GetSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-session)) (common-lisp:progn (common-lisp:defun put-session @@ -3489,25 +3562,29 @@ (common-lisp:format common-lisp:nil "/bots/~A/botAliases/~A/botLocales/~A/sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)) - (quri.encode:url-encode + 'bot-alias-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "PutSession") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-session)) (common-lisp:progn (common-lisp:defun recognize-text @@ -3532,24 +3609,28 @@ (common-lisp:format common-lisp:nil "/bots/~A/botAliases/~A/botLocales/~A/sessions/~A/text" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)) - (quri.encode:url-encode + 'bot-alias-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "RecognizeText")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'recognize-text)) (common-lisp:progn (common-lisp:defun recognize-utterance @@ -3576,25 +3657,29 @@ (common-lisp:format common-lisp:nil "/bots/~A/botAliases/~A/botLocales/~A/sessions/~A/utterance" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)) - (quri.encode:url-encode + 'bot-alias-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "RecognizeUtterance") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'recognize-utterance)) (common-lisp:progn (common-lisp:defun start-conversation @@ -3619,22 +3704,26 @@ (common-lisp:format common-lisp:nil "/bots/~A/botAliases/~A/botLocales/~A/sessions/~A/conversation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-id)) - (quri.encode:url-encode + 'bot-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias-id)) - (quri.encode:url-encode + 'bot-alias-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'locale-id)) - (quri.encode:url-encode + 'locale-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "StartConversation")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-conversation)) diff --git a/services/runtime.lex/api.lisp b/services/runtime.lex/api.lisp index 8a26010f..13d31e2b 100644 --- a/services/runtime.lex/api.lisp +++ b/services/runtime.lex/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/runtime.lex/api - (:use) - (:nicknames #:aws/runtime.lex) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/runtime.lex/api (:use) + (:nicknames #:aws/runtime.lex) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/runtime.lex/api) (common-lisp:progn (common-lisp:define-condition runtime.lex-error @@ -20,7 +19,7 @@ (common-lisp:export 'runtime.lex-error)) (common-lisp:progn (common-lisp:defclass runtime.lex-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "runtime.lex" :api-version "2016-11-28" :host-prefix "runtime.lex" :signing-name @@ -975,26 +974,36 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-attributes)) - (common-lisp:cons "x-amz-lex-session-attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-attributes)) - (common-lisp:cons "x-amz-lex-request-attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-request-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'active-contexts)) - (common-lisp:cons "x-amz-lex-active-contexts" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-active-contexts" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input post-content-request)) (common-lisp:append @@ -1007,7 +1016,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input post-content-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'input-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'input-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input post-content-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass post-content-response common-lisp:nil ((content-type :initarg :content-type :initform @@ -1143,85 +1156,119 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'intent-name)) - (common-lisp:cons "x-amz-lex-intent-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-intent-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'nlu-intent-confidence)) - (common-lisp:cons "x-amz-lex-nlu-intent-confidence" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-nlu-intent-confidence" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'alternative-intents)) - (common-lisp:cons "x-amz-lex-alternative-intents" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-alternative-intents" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'slots)) - (common-lisp:cons "x-amz-lex-slots" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-slots" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-attributes)) - (common-lisp:cons "x-amz-lex-session-attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'sentiment-response)) - (common-lisp:cons "x-amz-lex-sentiment" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-sentiment" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'message)) - (common-lisp:cons "x-amz-lex-message" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-message" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'encoded-message)) - (common-lisp:cons "x-amz-lex-encoded-message" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-encoded-message" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'message-format)) - (common-lisp:cons "x-amz-lex-message-format" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-message-format" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'dialog-state)) - (common-lisp:cons "x-amz-lex-dialog-state" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-dialog-state" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'slot-to-elicit)) - (common-lisp:cons "x-amz-lex-slot-to-elicit" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-slot-to-elicit" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'input-transcript)) - (common-lisp:cons "x-amz-lex-input-transcript" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-input-transcript" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'encoded-input-transcript)) - (common-lisp:cons "x-amz-lex-encoded-input-transcript" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-encoded-input-transcript" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bot-version)) - (common-lisp:cons "x-amz-lex-bot-version" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-bot-version" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amz-lex-session-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'active-contexts)) - (common-lisp:cons "x-amz-lex-active-contexts" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-active-contexts" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1238,7 +1285,13 @@ ( (aws-sdk/generator/shape::input post-content-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + post-content-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass post-text-request common-lisp:nil ((bot-name :initarg :bot-name :initform @@ -1651,7 +1704,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input put-session-request)) (common-lisp:append @@ -1780,54 +1835,76 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'intent-name)) - (common-lisp:cons "x-amz-lex-intent-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-intent-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'slots)) - (common-lisp:cons "x-amz-lex-slots" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-slots" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-attributes)) - (common-lisp:cons "x-amz-lex-session-attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'message)) - (common-lisp:cons "x-amz-lex-message" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-message" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'encoded-message)) - (common-lisp:cons "x-amz-lex-encoded-message" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-encoded-message" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'message-format)) - (common-lisp:cons "x-amz-lex-message-format" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-message-format" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'dialog-state)) - (common-lisp:cons "x-amz-lex-dialog-state" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-dialog-state" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'slot-to-elicit)) - (common-lisp:cons "x-amz-lex-slot-to-elicit" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-slot-to-elicit" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amz-lex-session-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-session-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'active-contexts)) - (common-lisp:cons "x-amz-lex-active-contexts" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-lex-active-contexts" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input put-session-response)) (common-lisp:append @@ -1840,7 +1917,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-session-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-session-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:define-condition request-timeout-exception (runtime.lex-error) @@ -2011,20 +2092,23 @@ (common-lisp:format common-lisp:nil "/bot/~A/alias/~A/user/~A/session" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias)) - (quri.encode:url-encode + 'bot-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DeleteSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-session)) (common-lisp:progn (common-lisp:defun get-session @@ -2048,20 +2132,23 @@ (common-lisp:format common-lisp:nil "/bot/~A/alias/~A/user/~A/session/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias)) - (quri.encode:url-encode + 'bot-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "GetSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-session)) (common-lisp:progn (common-lisp:defun post-content @@ -2087,21 +2174,24 @@ (common-lisp:format common-lisp:nil "/bot/~A/alias/~A/user/~A/content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias)) - (quri.encode:url-encode + 'bot-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "PostContent") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'post-content)) (common-lisp:progn (common-lisp:defun post-text @@ -2127,20 +2217,23 @@ (common-lisp:format common-lisp:nil "/bot/~A/alias/~A/user/~A/text" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias)) - (quri.encode:url-encode + 'bot-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "PostText")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'post-text)) (common-lisp:progn (common-lisp:defun put-session @@ -2166,19 +2259,22 @@ (common-lisp:format common-lisp:nil "/bot/~A/alias/~A/user/~A/session" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-name)) - (quri.encode:url-encode + 'bot-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bot-alias)) - (quri.encode:url-encode + 'bot-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "PutSession") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-session)) diff --git a/services/runtime.sagemaker/api.lisp b/services/runtime.sagemaker/api.lisp index 12adf304..dad126c2 100644 --- a/services/runtime.sagemaker/api.lisp +++ b/services/runtime.sagemaker/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/runtime.sagemaker/api - (:use) - (:nicknames #:aws/runtime.sagemaker) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/runtime.sagemaker/api (:use) + (:nicknames #:aws/runtime.sagemaker) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/runtime.sagemaker/api) (common-lisp:progn (common-lisp:define-condition runtime.sagemaker-error @@ -20,7 +19,7 @@ (common-lisp:export 'runtime.sagemaker-error)) (common-lisp:progn (common-lisp:defclass runtime.sagemaker-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "runtime.sagemaker" :api-version "2017-05-13" :host-prefix @@ -148,39 +147,53 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "X-Amzn-SageMaker-Content-Type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Content-Type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "X-Amzn-SageMaker-Accept" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Accept" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'custom-attributes)) - (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'inference-id)) - (common-lisp:cons "X-Amzn-SageMaker-Inference-Id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Inference-Id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'input-location)) - (common-lisp:cons "X-Amzn-SageMaker-InputLocation" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-InputLocation" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-ttlseconds)) - (common-lisp:cons "X-Amzn-SageMaker-RequestTTLSeconds" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-RequestTTLSeconds" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'invocation-timeout-seconds)) - (common-lisp:cons "X-Amzn-SageMaker-InvocationTimeoutSeconds" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-InvocationTimeoutSeconds" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -227,13 +240,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'output-location)) - (common-lisp:cons "X-Amzn-SageMaker-OutputLocation" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-OutputLocation" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'failure-location)) - (common-lisp:cons "X-Amzn-SageMaker-FailureLocation" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-FailureLocation" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -350,48 +367,66 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'custom-attributes)) - (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'target-model)) - (common-lisp:cons "X-Amzn-SageMaker-Target-Model" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Target-Model" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'target-variant)) - (common-lisp:cons "X-Amzn-SageMaker-Target-Variant" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Target-Variant" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'target-container-hostname)) - (common-lisp:cons "X-Amzn-SageMaker-Target-Container-Hostname" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Target-Container-Hostname" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'inference-id)) - (common-lisp:cons "X-Amzn-SageMaker-Inference-Id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Inference-Id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-explanations)) - (common-lisp:cons "X-Amzn-SageMaker-Enable-Explanations" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Enable-Explanations" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'inference-component-name)) - (common-lisp:cons "X-Amzn-SageMaker-Inference-Component" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Inference-Component" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -408,7 +443,13 @@ ( (aws-sdk/generator/shape::input invoke-endpoint-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-endpoint-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-endpoint-output common-lisp:nil ((body :initarg :body :initform @@ -453,18 +494,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'invoked-production-variant)) - (common-lisp:cons "x-Amzn-Invoked-Production-Variant" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-Amzn-Invoked-Production-Variant" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'custom-attributes)) - (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -481,7 +528,13 @@ ( (aws-sdk/generator/shape::input invoke-endpoint-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-endpoint-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-endpoint-with-response-stream-input common-lisp:nil @@ -570,39 +623,53 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "X-Amzn-SageMaker-Accept" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Accept" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'custom-attributes)) - (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'target-variant)) - (common-lisp:cons "X-Amzn-SageMaker-Target-Variant" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Target-Variant" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'target-container-hostname)) - (common-lisp:cons "X-Amzn-SageMaker-Target-Container-Hostname" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Target-Container-Hostname" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'inference-id)) - (common-lisp:cons "X-Amzn-SageMaker-Inference-Id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Inference-Id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'inference-component-name)) - (common-lisp:cons "X-Amzn-SageMaker-Inference-Component" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Inference-Component" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -619,7 +686,13 @@ ( (aws-sdk/generator/shape::input invoke-endpoint-with-response-stream-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-endpoint-with-response-stream-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass invoke-endpoint-with-response-stream-output common-lisp:nil @@ -668,19 +741,25 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "X-Amzn-SageMaker-Content-Type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Content-Type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'invoked-production-variant)) - (common-lisp:cons "x-Amzn-Invoked-Production-Variant" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-Amzn-Invoked-Production-Variant" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'custom-attributes)) - (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "X-Amzn-SageMaker-Custom-Attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -697,7 +776,13 @@ ( (aws-sdk/generator/shape::input invoke-endpoint-with-response-stream-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + invoke-endpoint-with-response-stream-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype log-stream-arn () 'common-lisp:string) (common-lisp:deftype message () 'common-lisp:string) (common-lisp:progn @@ -865,13 +950,14 @@ 'runtime.sagemaker-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/endpoints/~A/invocations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-name)))) + 'endpoint-name) + common-lisp:t))) "InvokeEndpoint") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-endpoint)) (common-lisp:progn (common-lisp:defun invoke-endpoint-async @@ -893,12 +979,13 @@ 'runtime.sagemaker-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/endpoints/~A/async-invocations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-name)))) + 'endpoint-name) + common-lisp:t))) "InvokeEndpointAsync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-endpoint-async)) (common-lisp:progn (common-lisp:defun invoke-endpoint-with-response-stream @@ -922,10 +1009,11 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/endpoints/~A/invocations-response-stream" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'endpoint-name)))) + 'endpoint-name) + common-lisp:t))) "InvokeEndpointWithResponseStream")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invoke-endpoint-with-response-stream)) diff --git a/services/s3/api.lisp b/services/s3/api.lisp index cf3ed80f..d311310a 100644 --- a/services/s3/api.lisp +++ b/services/s3/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/s3/api - (:use) - (:nicknames #:aws/s3) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/s3/api (:use) + (:nicknames #:aws/s3) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/s3/api) (common-lisp:progn (common-lisp:define-condition s3-error @@ -102,8 +101,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -165,13 +166,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1505,32 +1510,44 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expiration)) - (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1711,47 +1728,65 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32)) - (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32c)) - (common-lisp:cons "x-amz-checksum-crc32c" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32c" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha1)) - (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha256)) - (common-lisp:cons "x-amz-checksum-sha256" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha256" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1768,7 +1803,14 @@ ( (aws-sdk/generator/shape::input complete-multipart-upload-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'multipart-upload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'multipart-upload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + complete-multipart-upload-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "CompleteMultipartUpload" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass completed-multipart-upload common-lisp:nil ((parts :initarg :parts :initform common-lisp:nil :type @@ -2082,55 +2124,75 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expiration)) - (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-version-id)) - (common-lisp:cons "x-amz-copy-source-version-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-version-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmsencryption-context)) - (common-lisp:cons "x-amz-server-side-encryption-context" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-context" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input copy-object-output)) (common-lisp:append @@ -2143,7 +2205,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input copy-object-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-object-result))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-object-result)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input copy-object-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass copy-object-request common-lisp:nil ((acl :initarg :acl :initform common-lisp:nil :type @@ -2463,197 +2529,274 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'acl)) - (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-disposition)) - (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-encoding)) - (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-language)) - (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source)) - (common-lisp:cons "x-amz-copy-source" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-if-match)) - (common-lisp:cons "x-amz-copy-source-if-match" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-if-match" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-if-modified-since)) - (common-lisp:cons "x-amz-copy-source-if-modified-since" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-if-modified-since" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-if-none-match)) - (common-lisp:cons "x-amz-copy-source-if-none-match" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-if-none-match" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-if-unmodified-since)) - (common-lisp:cons "x-amz-copy-source-if-unmodified-since" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-if-unmodified-since" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expires)) - (common-lisp:cons "Expires" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Expires" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-full-control)) - (common-lisp:cons "x-amz-grant-full-control" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-full-control" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read)) - (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read-acp)) - (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write-acp)) - (common-lisp:cons "x-amz-grant-write-acp" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write-acp" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata-directive)) - (common-lisp:cons "x-amz-metadata-directive" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-metadata-directive" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging-directive)) - (common-lisp:cons "x-amz-tagging-directive" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-tagging-directive" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-class)) - (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'website-redirect-location)) - (common-lisp:cons "x-amz-website-redirect-location" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-website-redirect-location" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmsencryption-context)) - (common-lisp:cons "x-amz-server-side-encryption-context" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-context" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-ssecustomer-algorithm)) (common-lisp:cons - "x-amz-copy-source-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amz-copy-source-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-ssecustomer-key)) - (common-lisp:cons "x-amz-copy-source-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons + "x-amz-copy-source-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-ssecustomer-key-md5)) (common-lisp:cons - "x-amz-copy-source-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amz-copy-source-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging)) - (common-lisp:cons "x-amz-tagging" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-tagging" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-mode)) - (common-lisp:cons "x-amz-object-lock-mode" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-mode" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-retain-until-date)) - (common-lisp:cons "x-amz-object-lock-retain-until-date" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-retain-until-date" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-legal-hold-status)) - (common-lisp:cons "x-amz-object-lock-legal-hold" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-legal-hold" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-source-bucket-owner)) - (common-lisp:cons "x-amz-source-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-source-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (common-lisp:when (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata) (common-lisp:loop aws-sdk/generator/shape::for aws-sdk/generator/shape::key aws-sdk/generator/shape::being aws-sdk/generator/shape::each aws-sdk/generator/shape::hash-key aws-sdk/generator/shape::of (common-lisp:slot-value @@ -2965,7 +3108,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-bucket-output)) (common-lisp:append)) @@ -3060,40 +3205,56 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'acl)) - (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-full-control)) - (common-lisp:cons "x-amz-grant-full-control" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-full-control" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read)) - (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read-acp)) - (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write)) - (common-lisp:cons "x-amz-grant-write" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write-acp)) - (common-lisp:cons "x-amz-grant-write-acp" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write-acp" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-enabled-for-bucket)) - (common-lisp:cons "x-amz-bucket-object-lock-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bucket-object-lock-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-ownership)) - (common-lisp:cons "x-amz-object-ownership" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-object-ownership" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3112,7 +3273,14 @@ (aws-sdk/generator/shape::input create-bucket-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'create-bucket-configuration))) + 'create-bucket-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-bucket-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "CreateBucketConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass create-multipart-upload-output common-lisp:nil ((abort-date :initarg :abort-date :initform @@ -3227,54 +3395,74 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'abort-date)) - (common-lisp:cons "x-amz-abort-date" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-abort-date" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'abort-rule-id)) - (common-lisp:cons "x-amz-abort-rule-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-abort-rule-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmsencryption-context)) - (common-lisp:cons "x-amz-server-side-encryption-context" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-context" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-checksum-algorithm" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3543,133 +3731,187 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'acl)) - (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-disposition)) - (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-encoding)) - (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-language)) - (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expires)) - (common-lisp:cons "Expires" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Expires" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-full-control)) - (common-lisp:cons "x-amz-grant-full-control" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-full-control" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read)) - (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read-acp)) - (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write-acp)) - (common-lisp:cons "x-amz-grant-write-acp" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write-acp" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-class)) - (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'website-redirect-location)) - (common-lisp:cons "x-amz-website-redirect-location" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-website-redirect-location" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmsencryption-context)) - (common-lisp:cons "x-amz-server-side-encryption-context" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-context" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging)) - (common-lisp:cons "x-amz-tagging" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-tagging" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-mode)) - (common-lisp:cons "x-amz-object-lock-mode" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-mode" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-retain-until-date)) - (common-lisp:cons "x-amz-object-lock-retain-until-date" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-retain-until-date" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-legal-hold-status)) - (common-lisp:cons "x-amz-object-lock-legal-hold" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-legal-hold" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (common-lisp:when (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata) (common-lisp:loop aws-sdk/generator/shape::for aws-sdk/generator/shape::key aws-sdk/generator/shape::being aws-sdk/generator/shape::each aws-sdk/generator/shape::hash-key aws-sdk/generator/shape::of (common-lisp:slot-value @@ -3760,8 +4002,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-mode)) - (common-lisp:cons "x-amz-create-session-mode" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-create-session-mode" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3915,8 +4159,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3958,8 +4204,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4003,8 +4251,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4098,8 +4348,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4143,8 +4395,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4195,8 +4449,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4240,8 +4496,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4284,8 +4542,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4329,8 +4589,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4371,8 +4633,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4416,8 +4680,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4461,8 +4727,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4641,16 +4909,22 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'delete-marker)) - (common-lisp:cons "x-amz-delete-marker" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-delete-marker" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input delete-object-output)) (common-lisp:append)) @@ -4718,23 +4992,31 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'mfa)) - (common-lisp:cons "x-amz-mfa" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-mfa" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bypass-governance-retention)) - (common-lisp:cons "x-amz-bypass-governance-retention" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bypass-governance-retention" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4770,7 +5052,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4826,8 +5110,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4873,8 +5159,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4961,28 +5249,38 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'mfa)) - (common-lisp:cons "x-amz-mfa" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-mfa" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bypass-governance-retention)) - (common-lisp:cons "x-amz-bypass-governance-retention" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bypass-governance-retention" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4999,7 +5297,14 @@ ( (aws-sdk/generator/shape::input delete-objects-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'delete))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'delete)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + delete-objects-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "Delete" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass delete-public-access-block-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -5033,8 +5338,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5643,8 +5950,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5703,13 +6012,16 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5798,8 +6110,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5854,7 +6168,13 @@ (aws-sdk/generator/shape::input get-bucket-analytics-configuration-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'analytics-configuration))) + 'analytics-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-analytics-configuration-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-analytics-configuration-request common-lisp:nil @@ -5896,8 +6216,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5975,8 +6297,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6029,7 +6353,13 @@ (aws-sdk/generator/shape::input get-bucket-encryption-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'server-side-encryption-configuration))) + 'server-side-encryption-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-encryption-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-encryption-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -6063,8 +6393,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6119,7 +6451,13 @@ (aws-sdk/generator/shape::input get-bucket-intelligent-tiering-configuration-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'intelligent-tiering-configuration))) + 'intelligent-tiering-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-intelligent-tiering-configuration-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-intelligent-tiering-configuration-request common-lisp:nil @@ -6206,7 +6544,13 @@ (aws-sdk/generator/shape::input get-bucket-inventory-configuration-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'inventory-configuration))) + 'inventory-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-inventory-configuration-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-inventory-configuration-request common-lisp:nil @@ -6248,8 +6592,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6334,8 +6680,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6415,8 +6763,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6498,8 +6848,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6580,8 +6932,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6634,7 +6988,13 @@ (aws-sdk/generator/shape::input get-bucket-metrics-configuration-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'metrics-configuration))) + 'metrics-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-metrics-configuration-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-metrics-configuration-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -6674,8 +7034,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6720,8 +7082,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6771,7 +7135,13 @@ ( (aws-sdk/generator/shape::input get-bucket-ownership-controls-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'ownership-controls))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'ownership-controls)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-ownership-controls-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-ownership-controls-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -6805,8 +7175,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6852,7 +7224,13 @@ ( (aws-sdk/generator/shape::input get-bucket-policy-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'policy))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-policy-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-policy-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -6884,8 +7262,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6935,7 +7315,13 @@ ( (aws-sdk/generator/shape::input get-bucket-policy-status-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'policy-status))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'policy-status)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-policy-status-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-policy-status-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -6969,8 +7355,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7024,7 +7412,13 @@ (aws-sdk/generator/shape::input get-bucket-replication-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'replication-configuration))) + 'replication-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-bucket-replication-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-bucket-replication-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -7058,8 +7452,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7141,8 +7537,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7222,8 +7620,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7321,8 +7721,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7448,8 +7850,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7494,8 +7898,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7568,13 +7974,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7664,20 +8074,28 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'delete-marker)) - (common-lisp:cons "x-amz-delete-marker" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-delete-marker" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'last-modified)) - (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7931,43 +8349,59 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'max-parts)) - (common-lisp:cons "x-amz-max-parts" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-max-parts" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'part-number-marker)) - (common-lisp:cons "x-amz-part-number-marker" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-part-number-marker" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-attributes)) - (common-lisp:cons "x-amz-object-attributes" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-object-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8017,7 +8451,13 @@ ( (aws-sdk/generator/shape::input get-object-legal-hold-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'legal-hold))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'legal-hold)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-object-legal-hold-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-object-legal-hold-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -8069,13 +8509,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8129,7 +8573,13 @@ (aws-sdk/generator/shape::input get-object-lock-configuration-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'object-lock-configuration))) + 'object-lock-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-object-lock-configuration-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-object-lock-configuration-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -8163,8 +8613,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8431,157 +8883,225 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'delete-marker)) - (common-lisp:cons "x-amz-delete-marker" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-delete-marker" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept-ranges)) - (common-lisp:cons "accept-ranges" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "accept-ranges" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expiration)) - (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'restore)) - (common-lisp:cons "x-amz-restore" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-restore" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'last-modified)) - (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-length)) - (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32)) - (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32c)) - (common-lisp:cons "x-amz-checksum-crc32c" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32c" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha1)) - (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha256)) - (common-lisp:cons "x-amz-checksum-sha256" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha256" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'missing-meta)) - (common-lisp:cons "x-amz-missing-meta" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-missing-meta" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-disposition)) - (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-encoding)) - (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-language)) - (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-range)) - (common-lisp:cons "Content-Range" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Range" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expires)) - (common-lisp:cons "Expires" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Expires" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'website-redirect-location)) - (common-lisp:cons "x-amz-website-redirect-location" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-website-redirect-location" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-class)) - (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'replication-status)) - (common-lisp:cons "x-amz-replication-status" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-replication-status" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'parts-count)) - (common-lisp:cons "x-amz-mp-parts-count" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-mp-parts-count" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'tag-count)) - (common-lisp:cons "x-amz-tagging-count" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-tagging-count" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-mode)) - (common-lisp:cons "x-amz-object-lock-mode" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-mode" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-retain-until-date)) - (common-lisp:cons "x-amz-object-lock-retain-until-date" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-retain-until-date" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-legal-hold-status)) - (common-lisp:cons "x-amz-object-lock-legal-hold" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-legal-hold" + aws-sdk/generator/shape::value) + common-lisp:nil)) (common-lisp:when (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata) (common-lisp:loop aws-sdk/generator/shape::for aws-sdk/generator/shape::key aws-sdk/generator/shape::being aws-sdk/generator/shape::each aws-sdk/generator/shape::hash-key aws-sdk/generator/shape::of (common-lisp:slot-value @@ -8599,7 +9119,11 @@ (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-object-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-object-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-object-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -8766,54 +9290,75 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-modified-since)) - (common-lisp:cons "If-Modified-Since" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "If-Modified-Since" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-none-match)) - (common-lisp:cons "If-None-Match" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "If-None-Match" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-unmodified-since)) - (common-lisp:cons "If-Unmodified-Since" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "If-Unmodified-Since" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'range)) - (common-lisp:cons "Range" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Range" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-mode)) - (common-lisp:cons "x-amz-checksum-mode" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-mode" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-object-request)) (common-lisp:append)) @@ -8860,7 +9405,13 @@ ( (aws-sdk/generator/shape::input get-object-retention-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'retention))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'retention)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-object-retention-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-object-retention-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -8911,13 +9462,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -8959,7 +9514,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9027,13 +9584,16 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9076,8 +9636,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9087,7 +9649,13 @@ ( (aws-sdk/generator/shape::input get-object-torrent-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-object-torrent-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-object-torrent-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -9130,13 +9698,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9190,7 +9762,13 @@ (aws-sdk/generator/shape::input get-public-access-block-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'public-access-block-configuration))) + 'public-access-block-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-public-access-block-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-public-access-block-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -9224,8 +9802,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9447,23 +10027,31 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-location-type)) - (common-lisp:cons "x-amz-bucket-location-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bucket-location-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-location-name)) - (common-lisp:cons "x-amz-bucket-location-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bucket-location-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-region)) - (common-lisp:cons "x-amz-bucket-region" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bucket-region" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'access-point-alias)) - (common-lisp:cons "x-amz-access-point-alias" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-access-point-alias" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input head-bucket-output)) (common-lisp:append)) @@ -9498,8 +10086,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input head-bucket-request)) (common-lisp:append)) @@ -9756,153 +10346,219 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'delete-marker)) - (common-lisp:cons "x-amz-delete-marker" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-delete-marker" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept-ranges)) - (common-lisp:cons "accept-ranges" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "accept-ranges" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expiration)) - (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'restore)) - (common-lisp:cons "x-amz-restore" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-restore" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'archive-status)) - (common-lisp:cons "x-amz-archive-status" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-archive-status" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'last-modified)) - (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Last-Modified" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-length)) - (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32)) - (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32c)) - (common-lisp:cons "x-amz-checksum-crc32c" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32c" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha1)) - (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha256)) - (common-lisp:cons "x-amz-checksum-sha256" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha256" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'missing-meta)) - (common-lisp:cons "x-amz-missing-meta" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-missing-meta" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-disposition)) - (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-encoding)) - (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-language)) - (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expires)) - (common-lisp:cons "Expires" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Expires" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'website-redirect-location)) - (common-lisp:cons "x-amz-website-redirect-location" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-website-redirect-location" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-class)) - (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'replication-status)) - (common-lisp:cons "x-amz-replication-status" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-replication-status" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'parts-count)) - (common-lisp:cons "x-amz-mp-parts-count" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-mp-parts-count" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-mode)) - (common-lisp:cons "x-amz-object-lock-mode" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-mode" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-retain-until-date)) - (common-lisp:cons "x-amz-object-lock-retain-until-date" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-retain-until-date" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-legal-hold-status)) - (common-lisp:cons "x-amz-object-lock-legal-hold" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-legal-hold" + aws-sdk/generator/shape::value) + common-lisp:nil)) (common-lisp:when (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata) (common-lisp:loop aws-sdk/generator/shape::for aws-sdk/generator/shape::key aws-sdk/generator/shape::being aws-sdk/generator/shape::each aws-sdk/generator/shape::hash-key aws-sdk/generator/shape::of (common-lisp:slot-value @@ -10034,54 +10690,75 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-match)) - (common-lisp:cons "If-Match" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "If-Match" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-modified-since)) - (common-lisp:cons "If-Modified-Since" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "If-Modified-Since" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-none-match)) - (common-lisp:cons "If-None-Match" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "If-None-Match" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'if-unmodified-since)) - (common-lisp:cons "If-Unmodified-Since" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "If-Unmodified-Since" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'range)) - (common-lisp:cons "Range" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Range" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-mode)) - (common-lisp:cons "x-amz-checksum-mode" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-mode" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input head-object-request)) (common-lisp:append)) @@ -11562,8 +12239,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11828,8 +12507,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -11967,8 +12648,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12225,8 +12908,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12401,13 +13086,16 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12531,8 +13219,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12722,18 +13412,24 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'optional-object-attributes)) - (common-lisp:cons "x-amz-optional-object-attributes" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-optional-object-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12824,8 +13520,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input list-objects-output)) (common-lisp:append @@ -12974,19 +13672,25 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'optional-object-attributes)) - (common-lisp:cons "x-amz-optional-object-attributes" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-optional-object-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input list-objects-request)) (common-lisp:append)) @@ -13090,8 +13794,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13276,19 +13982,25 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'optional-object-attributes)) - (common-lisp:cons "x-amz-optional-object-attributes" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-optional-object-attributes" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13405,16 +14117,22 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'abort-date)) - (common-lisp:cons "x-amz-abort-date" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-abort-date" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'abort-rule-id)) - (common-lisp:cons "x-amz-abort-rule-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-abort-rule-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input list-parts-output)) (common-lisp:append @@ -13588,29 +14306,39 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input list-parts-request)) (common-lisp:append)) @@ -15763,13 +16491,17 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -15788,7 +16520,14 @@ (aws-sdk/generator/shape::input put-bucket-accelerate-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'accelerate-configuration))) + 'accelerate-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-accelerate-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "AccelerateConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-acl-request common-lisp:nil ((acl :initarg :acl :initform common-lisp:nil :type @@ -15879,44 +16618,62 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'acl)) - (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-full-control)) - (common-lisp:cons "x-amz-grant-full-control" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-full-control" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read)) - (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read-acp)) - (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write)) - (common-lisp:cons "x-amz-grant-write" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write-acp)) - (common-lisp:cons "x-amz-grant-write-acp" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write-acp" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -15935,7 +16692,14 @@ (aws-sdk/generator/shape::input put-bucket-acl-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'access-control-policy))) + 'access-control-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-acl-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "AccessControlPolicy" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-analytics-configuration-request common-lisp:nil @@ -15989,8 +16753,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16009,7 +16775,14 @@ (aws-sdk/generator/shape::input put-bucket-analytics-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'analytics-configuration))) + 'analytics-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-analytics-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "AnalyticsConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-cors-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -16062,18 +16835,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16090,7 +16869,14 @@ ( (aws-sdk/generator/shape::input put-bucket-cors-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'corsconfiguration))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'corsconfiguration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-cors-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "CORSConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-encryption-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -16149,18 +16935,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16179,7 +16971,14 @@ (aws-sdk/generator/shape::input put-bucket-encryption-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'server-side-encryption-configuration))) + 'server-side-encryption-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-encryption-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "ServerSideEncryptionConfiguration" + :xml-namespace "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-intelligent-tiering-configuration-request common-lisp:nil @@ -16242,7 +17041,14 @@ (aws-sdk/generator/shape::input put-bucket-intelligent-tiering-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'intelligent-tiering-configuration))) + 'intelligent-tiering-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-intelligent-tiering-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "IntelligentTieringConfiguration" + :xml-namespace "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-inventory-configuration-request common-lisp:nil @@ -16296,8 +17102,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16316,7 +17124,14 @@ (aws-sdk/generator/shape::input put-bucket-inventory-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'inventory-configuration))) + 'inventory-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-inventory-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "InventoryConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-lifecycle-configuration-request common-lisp:nil @@ -16367,14 +17182,18 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16393,7 +17212,14 @@ (aws-sdk/generator/shape::input put-bucket-lifecycle-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'lifecycle-configuration))) + 'lifecycle-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-lifecycle-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "LifecycleConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-lifecycle-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -16449,18 +17275,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16479,7 +17311,14 @@ (aws-sdk/generator/shape::input put-bucket-lifecycle-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'lifecycle-configuration))) + 'lifecycle-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-lifecycle-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "LifecycleConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-logging-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -16535,18 +17374,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16565,7 +17410,14 @@ (aws-sdk/generator/shape::input put-bucket-logging-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'bucket-logging-status))) + 'bucket-logging-status)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-logging-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "BucketLoggingStatus" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-metrics-configuration-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -16616,8 +17468,10 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16636,7 +17490,14 @@ (aws-sdk/generator/shape::input put-bucket-metrics-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'metrics-configuration))) + 'metrics-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-metrics-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "MetricsConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-notification-configuration-request common-lisp:nil @@ -16691,14 +17552,18 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'skip-destination-validation)) - (common-lisp:cons "x-amz-skip-destination-validation" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-skip-destination-validation" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16717,7 +17582,14 @@ (aws-sdk/generator/shape::input put-bucket-notification-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'notification-configuration))) + 'notification-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-notification-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "NotificationConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-notification-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -16776,18 +17648,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16806,7 +17684,14 @@ (aws-sdk/generator/shape::input put-bucket-notification-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'notification-configuration))) + 'notification-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-notification-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "NotificationConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-ownership-controls-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -16855,13 +17740,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16878,7 +17767,14 @@ ( (aws-sdk/generator/shape::input put-bucket-ownership-controls-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'ownership-controls))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'ownership-controls)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-ownership-controls-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "OwnershipControls" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-policy-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -16939,24 +17835,32 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'confirm-remove-self-bucket-access)) - (common-lisp:cons "x-amz-confirm-remove-self-bucket-access" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-confirm-remove-self-bucket-access" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16973,7 +17877,13 @@ ( (aws-sdk/generator/shape::input put-bucket-policy-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'policy))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-policy-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-bucket-replication-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -17038,23 +17948,31 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'token)) - (common-lisp:cons "x-amz-bucket-object-lock-token" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bucket-object-lock-token" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17073,7 +17991,14 @@ (aws-sdk/generator/shape::input put-bucket-replication-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'replication-configuration))) + 'replication-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-replication-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "ReplicationConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-request-payment-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -17132,18 +18057,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17162,7 +18093,14 @@ (aws-sdk/generator/shape::input put-bucket-request-payment-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'request-payment-configuration))) + 'request-payment-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-request-payment-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "RequestPaymentConfiguration" + :xml-namespace "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-tagging-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -17213,18 +18151,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17241,7 +18185,14 @@ ( (aws-sdk/generator/shape::input put-bucket-tagging-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-tagging-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "Tagging" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-versioning-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -17304,22 +18255,30 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'mfa)) - (common-lisp:cons "x-amz-mfa" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-mfa" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17338,7 +18297,14 @@ (aws-sdk/generator/shape::input put-bucket-versioning-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'versioning-configuration))) + 'versioning-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-versioning-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "VersioningConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-bucket-website-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -17394,18 +18360,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17424,7 +18396,14 @@ (aws-sdk/generator/shape::input put-bucket-website-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'website-configuration))) + 'website-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-website-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "WebsiteConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-object-acl-output common-lisp:nil ((request-charged :initarg :request-charged :initform @@ -17449,8 +18428,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17570,48 +18551,68 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'acl)) - (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-full-control)) - (common-lisp:cons "x-amz-grant-full-control" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-full-control" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read)) - (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read-acp)) - (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write)) - (common-lisp:cons "x-amz-grant-write" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write-acp)) - (common-lisp:cons "x-amz-grant-write-acp" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write-acp" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17630,7 +18631,14 @@ (aws-sdk/generator/shape::input put-object-acl-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'access-control-policy))) + 'access-control-policy)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-object-acl-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "AccessControlPolicy" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-object-legal-hold-output common-lisp:nil ((request-charged :initarg :request-charged :initform @@ -17656,8 +18664,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17741,22 +18751,30 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17773,7 +18791,14 @@ ( (aws-sdk/generator/shape::input put-object-legal-hold-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'legal-hold))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'legal-hold)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-object-legal-hold-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "LegalHold" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-object-lock-configuration-output common-lisp:nil ((request-charged :initarg :request-charged :initform @@ -17800,8 +18825,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17881,27 +18908,37 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'token)) - (common-lisp:cons "x-amz-bucket-object-lock-token" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bucket-object-lock-token" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17920,7 +18957,14 @@ (aws-sdk/generator/shape::input put-object-lock-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'object-lock-configuration))) + 'object-lock-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-object-lock-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "ObjectLockConfiguration" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-object-output common-lisp:nil ((expiration :initarg :expiration :initform @@ -18035,71 +19079,99 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expiration)) - (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expiration" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32)) - (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32c)) - (common-lisp:cons "x-amz-checksum-crc32c" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32c" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha1)) - (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha256)) - (common-lisp:cons "x-amz-checksum-sha256" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha256" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmsencryption-context)) - (common-lisp:cons "x-amz-server-side-encryption-context" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-context" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input put-object-output)) (common-lisp:append)) @@ -18378,159 +19450,225 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'acl)) - (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Cache-Control" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-disposition)) - (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Disposition" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-encoding)) - (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Encoding" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-language)) - (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Language" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-length)) - (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32)) - (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32c)) - (common-lisp:cons "x-amz-checksum-crc32c" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32c" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha1)) - (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha256)) - (common-lisp:cons "x-amz-checksum-sha256" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha256" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expires)) - (common-lisp:cons "Expires" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Expires" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-full-control)) - (common-lisp:cons "x-amz-grant-full-control" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-full-control" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read)) - (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read-acp)) - (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write-acp)) - (common-lisp:cons "x-amz-grant-write-acp" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write-acp" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-class)) - (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-storage-class" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'website-redirect-location)) - (common-lisp:cons "x-amz-website-redirect-location" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-website-redirect-location" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmsencryption-context)) - (common-lisp:cons "x-amz-server-side-encryption-context" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-context" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging)) - (common-lisp:cons "x-amz-tagging" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-tagging" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-mode)) - (common-lisp:cons "x-amz-object-lock-mode" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-mode" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-retain-until-date)) - (common-lisp:cons "x-amz-object-lock-retain-until-date" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-retain-until-date" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-legal-hold-status)) - (common-lisp:cons "x-amz-object-lock-legal-hold" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-object-lock-legal-hold" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (common-lisp:when (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata) (common-lisp:loop aws-sdk/generator/shape::for aws-sdk/generator/shape::key aws-sdk/generator/shape::being aws-sdk/generator/shape::each aws-sdk/generator/shape::hash-key aws-sdk/generator/shape::of (common-lisp:slot-value @@ -18548,7 +19686,11 @@ (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input put-object-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input put-object-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-object-retention-output common-lisp:nil ((request-charged :initarg :request-charged :initform @@ -18574,8 +19716,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -18667,28 +19811,38 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bypass-governance-retention)) - (common-lisp:cons "x-amz-bypass-governance-retention" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bypass-governance-retention" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -18705,7 +19859,14 @@ ( (aws-sdk/generator/shape::input put-object-retention-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'retention))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'retention)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-object-retention-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "Retention" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-object-tagging-output common-lisp:nil ((version-id :initarg :version-id :initform @@ -18731,7 +19892,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-version-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -18811,23 +19974,30 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -18844,7 +20014,14 @@ ( (aws-sdk/generator/shape::input put-object-tagging-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-object-tagging-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "Tagging" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:progn (common-lisp:defclass put-public-access-block-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -18903,18 +20080,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -18933,7 +20116,14 @@ (aws-sdk/generator/shape::input put-public-access-block-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'public-access-block-configuration))) + 'public-access-block-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-public-access-block-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "PublicAccessBlockConfiguration" + :xml-namespace "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:deftype queue-arn () 'common-lisp:string) (common-lisp:progn (common-lisp:defclass queue-configuration common-lisp:nil @@ -19113,14 +20303,7 @@ (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input records-event)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input records-event)) common-lisp:nil)) @@ -19817,13 +21000,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'restore-output-path)) - (common-lisp:cons "x-amz-restore-output-path" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-restore-output-path" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -19896,18 +21083,24 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -19924,7 +21117,14 @@ ( (aws-sdk/generator/shape::input restore-object-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'restore-request))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'restore-request)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + restore-object-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "RestoreRequest" :xml-namespace + "http://s3.amazonaws.com/doc/2006-03-01/"))) (common-lisp:deftype restore-output-path () 'common-lisp:string) (common-lisp:progn (common-lisp:defclass restore-request common-lisp:nil @@ -20631,19 +21831,18 @@ ( (aws-sdk/generator/shape::input select-object-content-output)) - (common-lisp:append - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))))) + (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ( (aws-sdk/generator/shape::input select-object-content-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'payload))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'payload)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + select-object-content-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass select-object-content-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -20753,24 +21952,32 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -21995,40 +23202,54 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-version-id)) - (common-lisp:cons "x-amz-copy-source-version-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-version-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22045,7 +23266,13 @@ ( (aws-sdk/generator/shape::input upload-part-copy-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-part-result))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-part-result)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + upload-part-copy-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass upload-part-copy-request common-lisp:nil ((bucket :initarg :bucket :initform @@ -22212,88 +23439,119 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source)) - (common-lisp:cons "x-amz-copy-source" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-if-match)) - (common-lisp:cons "x-amz-copy-source-if-match" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-if-match" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-if-modified-since)) - (common-lisp:cons "x-amz-copy-source-if-modified-since" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-if-modified-since" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-if-none-match)) - (common-lisp:cons "x-amz-copy-source-if-none-match" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-if-none-match" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-if-unmodified-since)) - (common-lisp:cons "x-amz-copy-source-if-unmodified-since" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-if-unmodified-since" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-range)) - (common-lisp:cons "x-amz-copy-source-range" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-copy-source-range" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-ssecustomer-algorithm)) (common-lisp:cons - "x-amz-copy-source-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amz-copy-source-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-ssecustomer-key)) - (common-lisp:cons "x-amz-copy-source-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons + "x-amz-copy-source-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'copy-source-ssecustomer-key-md5)) (common-lisp:cons - "x-amz-copy-source-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amz-copy-source-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-source-bucket-owner)) - (common-lisp:cons "x-amz-source-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-source-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -22399,56 +23657,78 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "ETag" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "ETag" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32)) - (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32c)) - (common-lisp:cons "x-amz-checksum-crc32c" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32c" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha1)) - (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha256)) - (common-lisp:cons "x-amz-checksum-sha256" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha256" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) - (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) - (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-request-charged" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input upload-part-output)) (common-lisp:append)) @@ -22586,66 +23866,94 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-length)) - (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-md5)) - (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-MD5" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-algorithm)) - (common-lisp:cons "x-amz-sdk-checksum-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-sdk-checksum-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32)) - (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32c)) - (common-lisp:cons "x-amz-checksum-crc32c" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-crc32c" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha1)) - (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha1" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha256)) - (common-lisp:cons "x-amz-checksum-sha256" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-checksum-sha256" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) - (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) - (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-payer)) - (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-payer" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expected-bucket-owner)) - (common-lisp:cons "x-amz-expected-bucket-owner" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-expected-bucket-owner" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input upload-part-request)) (common-lisp:append)) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input upload-part-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input upload-part-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:deftype user-metadata () '(trivial-types:proper-list metadata-entry)) @@ -23104,196 +24412,272 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-route)) - (common-lisp:cons "x-amz-request-route" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-route" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-token)) - (common-lisp:cons "x-amz-request-token" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-request-token" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'status-code)) - (common-lisp:cons "x-amz-fwd-status" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-status" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'error-code)) - (common-lisp:cons "x-amz-fwd-error-code" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-error-code" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'error-message)) - (common-lisp:cons "x-amz-fwd-error-message" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-error-message" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept-ranges)) - (common-lisp:cons "x-amz-fwd-header-accept-ranges" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-accept-ranges" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'cache-control)) - (common-lisp:cons "x-amz-fwd-header-Cache-Control" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-Cache-Control" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-disposition)) - (common-lisp:cons "x-amz-fwd-header-Content-Disposition" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-Content-Disposition" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-encoding)) - (common-lisp:cons "x-amz-fwd-header-Content-Encoding" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-Content-Encoding" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-language)) - (common-lisp:cons "x-amz-fwd-header-Content-Language" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-Content-Language" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-length)) - (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "Content-Length" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-range)) - (common-lisp:cons "x-amz-fwd-header-Content-Range" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-Content-Range" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "x-amz-fwd-header-Content-Type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-Content-Type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32)) - (common-lisp:cons "x-amz-fwd-header-x-amz-checksum-crc32" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-checksum-crc32" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-crc32c)) - (common-lisp:cons "x-amz-fwd-header-x-amz-checksum-crc32c" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-checksum-crc32c" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha1)) - (common-lisp:cons "x-amz-fwd-header-x-amz-checksum-sha1" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-checksum-sha1" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'checksum-sha256)) - (common-lisp:cons "x-amz-fwd-header-x-amz-checksum-sha256" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-checksum-sha256" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'delete-marker)) - (common-lisp:cons "x-amz-fwd-header-x-amz-delete-marker" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-delete-marker" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'etag)) - (common-lisp:cons "x-amz-fwd-header-ETag" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-ETag" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expires)) - (common-lisp:cons "x-amz-fwd-header-Expires" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-Expires" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'expiration)) - (common-lisp:cons "x-amz-fwd-header-x-amz-expiration" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-expiration" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'last-modified)) - (common-lisp:cons "x-amz-fwd-header-Last-Modified" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-Last-Modified" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'missing-meta)) - (common-lisp:cons "x-amz-fwd-header-x-amz-missing-meta" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-missing-meta" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-mode)) - (common-lisp:cons "x-amz-fwd-header-x-amz-object-lock-mode" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-object-lock-mode" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-legal-hold-status)) - (common-lisp:cons "x-amz-fwd-header-x-amz-object-lock-legal-hold" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-object-lock-legal-hold" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-retain-until-date)) - (common-lisp:cons "x-amz-fwd-header-x-amz-object-lock-retain-until-date" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-object-lock-retain-until-date" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'parts-count)) - (common-lisp:cons "x-amz-fwd-header-x-amz-mp-parts-count" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-mp-parts-count" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'replication-status)) - (common-lisp:cons "x-amz-fwd-header-x-amz-replication-status" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-replication-status" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-charged)) - (common-lisp:cons "x-amz-fwd-header-x-amz-request-charged" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-request-charged" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'restore)) - (common-lisp:cons "x-amz-fwd-header-x-amz-restore" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-restore" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'server-side-encryption)) - (common-lisp:cons "x-amz-fwd-header-x-amz-server-side-encryption" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-server-side-encryption" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-algorithm)) (common-lisp:cons - "x-amz-fwd-header-x-amz-server-side-encryption-customer-algorithm" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amz-fwd-header-x-amz-server-side-encryption-customer-algorithm" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssekmskey-id)) (common-lisp:cons - "x-amz-fwd-header-x-amz-server-side-encryption-aws-kms-key-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amz-fwd-header-x-amz-server-side-encryption-aws-kms-key-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'ssecustomer-key-md5)) (common-lisp:cons - "x-amz-fwd-header-x-amz-server-side-encryption-customer-key-MD5" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amz-fwd-header-x-amz-server-side-encryption-customer-key-MD5" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-class)) - (common-lisp:cons "x-amz-fwd-header-x-amz-storage-class" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-storage-class" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'tag-count)) - (common-lisp:cons "x-amz-fwd-header-x-amz-tagging-count" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-tagging-count" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'version-id)) - (common-lisp:cons "x-amz-fwd-header-x-amz-version-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-fwd-header-x-amz-version-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'bucket-key-enabled)) (common-lisp:cons - "x-amz-fwd-header-x-amz-server-side-encryption-bucket-key-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amz-fwd-header-x-amz-server-side-encryption-bucket-key-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (common-lisp:when (common-lisp:slot-value aws-sdk/generator/shape::input 'metadata) (common-lisp:loop aws-sdk/generator/shape::for aws-sdk/generator/shape::key aws-sdk/generator/shape::being aws-sdk/generator/shape::each aws-sdk/generator/shape::hash-key aws-sdk/generator/shape::of (common-lisp:slot-value @@ -23315,7 +24699,13 @@ ( (aws-sdk/generator/shape::input write-get-object-response-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + write-get-object-response-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype years () 'common-lisp:integer) (common-lisp:progn (common-lisp:defun abort-multipart-upload @@ -23340,15 +24730,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "AbortMultipartUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'abort-multipart-upload)) (common-lisp:progn (common-lisp:defun complete-multipart-upload @@ -23378,15 +24769,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "CompleteMultipartUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'complete-multipart-upload)) (common-lisp:progn (common-lisp:defun copy-object @@ -23437,15 +24829,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "CopyObject")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'copy-object)) (common-lisp:progn (common-lisp:defun create-bucket @@ -23473,12 +24866,13 @@ (common-lisp:format common-lisp:nil "/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "CreateBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-bucket)) (common-lisp:progn (common-lisp:defun create-multipart-upload @@ -23518,15 +24912,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?uploads" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "CreateMultipartUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-multipart-upload)) (common-lisp:progn (common-lisp:defun create-session @@ -23548,12 +24943,13 @@ (common-lisp:format common-lisp:nil "/~A?session" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "CreateSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-session)) (common-lisp:progn (common-lisp:defun delete-bucket @@ -23575,12 +24971,13 @@ (common-lisp:format common-lisp:nil "/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket)) (common-lisp:progn (common-lisp:defun delete-bucket-analytics-configuration @@ -23604,12 +25001,13 @@ (common-lisp:format common-lisp:nil "/~A?analytics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketAnalyticsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-analytics-configuration)) (common-lisp:progn (common-lisp:defun delete-bucket-cors @@ -23631,12 +25029,13 @@ (common-lisp:format common-lisp:nil "/~A?cors" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketCors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-cors)) (common-lisp:progn (common-lisp:defun delete-bucket-encryption @@ -23658,12 +25057,13 @@ (common-lisp:format common-lisp:nil "/~A?encryption" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketEncryption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-encryption)) (common-lisp:progn (common-lisp:defun delete-bucket-intelligent-tiering-configuration @@ -23686,12 +25086,13 @@ (common-lisp:format common-lisp:nil "/~A?intelligent-tiering" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketIntelligentTieringConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-intelligent-tiering-configuration)) (common-lisp:progn (common-lisp:defun delete-bucket-inventory-configuration @@ -23715,12 +25116,13 @@ (common-lisp:format common-lisp:nil "/~A?inventory" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketInventoryConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-inventory-configuration)) (common-lisp:progn (common-lisp:defun delete-bucket-lifecycle @@ -23742,12 +25144,13 @@ (common-lisp:format common-lisp:nil "/~A?lifecycle" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketLifecycle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-lifecycle)) (common-lisp:progn (common-lisp:defun delete-bucket-metrics-configuration @@ -23771,12 +25174,13 @@ (common-lisp:format common-lisp:nil "/~A?metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketMetricsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-metrics-configuration)) (common-lisp:progn (common-lisp:defun delete-bucket-ownership-controls @@ -23799,12 +25203,13 @@ (common-lisp:format common-lisp:nil "/~A?ownershipControls" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketOwnershipControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-ownership-controls)) (common-lisp:progn (common-lisp:defun delete-bucket-policy @@ -23826,12 +25231,13 @@ (common-lisp:format common-lisp:nil "/~A?policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-policy)) (common-lisp:progn (common-lisp:defun delete-bucket-replication @@ -23854,12 +25260,13 @@ (common-lisp:format common-lisp:nil "/~A?replication" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-replication)) (common-lisp:progn (common-lisp:defun delete-bucket-tagging @@ -23881,12 +25288,13 @@ (common-lisp:format common-lisp:nil "/~A?tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-tagging)) (common-lisp:progn (common-lisp:defun delete-bucket-website @@ -23908,12 +25316,13 @@ (common-lisp:format common-lisp:nil "/~A?website" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteBucketWebsite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-website)) (common-lisp:progn (common-lisp:defun delete-object @@ -23938,15 +25347,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "DeleteObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-object)) (common-lisp:progn (common-lisp:defun delete-object-tagging @@ -23970,15 +25380,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "DeleteObjectTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-object-tagging)) (common-lisp:progn (common-lisp:defun delete-objects @@ -24004,12 +25415,13 @@ (common-lisp:format common-lisp:nil "/~A?delete" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeleteObjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-objects)) (common-lisp:progn (common-lisp:defun delete-public-access-block @@ -24032,12 +25444,13 @@ (common-lisp:format common-lisp:nil "/~A?publicAccessBlock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "DeletePublicAccessBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-public-access-block)) (common-lisp:progn (common-lisp:defun get-bucket-accelerate-configuration @@ -24062,12 +25475,13 @@ (common-lisp:format common-lisp:nil "/~A?accelerate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketAccelerateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-accelerate-configuration)) (common-lisp:progn (common-lisp:defun get-bucket-acl @@ -24089,12 +25503,13 @@ (common-lisp:format common-lisp:nil "/~A?acl" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketAcl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-acl)) (common-lisp:progn (common-lisp:defun get-bucket-analytics-configuration @@ -24118,12 +25533,13 @@ (common-lisp:format common-lisp:nil "/~A?analytics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketAnalyticsConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-analytics-configuration)) (common-lisp:progn (common-lisp:defun get-bucket-cors @@ -24145,12 +25561,13 @@ (common-lisp:format common-lisp:nil "/~A?cors" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketCors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-cors)) (common-lisp:progn (common-lisp:defun get-bucket-encryption @@ -24172,12 +25589,13 @@ (common-lisp:format common-lisp:nil "/~A?encryption" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketEncryption")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-encryption)) (common-lisp:progn (common-lisp:defun get-bucket-intelligent-tiering-configuration @@ -24200,12 +25618,13 @@ (common-lisp:format common-lisp:nil "/~A?intelligent-tiering" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketIntelligentTieringConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-intelligent-tiering-configuration)) (common-lisp:progn (common-lisp:defun get-bucket-inventory-configuration @@ -24229,12 +25648,13 @@ (common-lisp:format common-lisp:nil "/~A?inventory" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketInventoryConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-inventory-configuration)) (common-lisp:progn (common-lisp:defun get-bucket-lifecycle @@ -24256,12 +25676,13 @@ (common-lisp:format common-lisp:nil "/~A?lifecycle" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketLifecycle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-lifecycle)) (common-lisp:progn (common-lisp:defun get-bucket-lifecycle-configuration @@ -24284,12 +25705,13 @@ (common-lisp:format common-lisp:nil "/~A?lifecycle" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketLifecycleConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-lifecycle-configuration)) (common-lisp:progn (common-lisp:defun get-bucket-location @@ -24311,12 +25733,13 @@ (common-lisp:format common-lisp:nil "/~A?location" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-location)) (common-lisp:progn (common-lisp:defun get-bucket-logging @@ -24338,12 +25761,13 @@ (common-lisp:format common-lisp:nil "/~A?logging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketLogging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-logging)) (common-lisp:progn (common-lisp:defun get-bucket-metrics-configuration @@ -24367,12 +25791,13 @@ (common-lisp:format common-lisp:nil "/~A?metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketMetricsConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-metrics-configuration)) (common-lisp:progn (common-lisp:defun get-bucket-notification @@ -24395,12 +25820,13 @@ (common-lisp:format common-lisp:nil "/~A?notification" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-notification)) (common-lisp:progn (common-lisp:defun get-bucket-notification-configuration @@ -24423,12 +25849,13 @@ (common-lisp:format common-lisp:nil "/~A?notification" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketNotificationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-notification-configuration)) (common-lisp:progn (common-lisp:defun get-bucket-ownership-controls @@ -24451,12 +25878,13 @@ (common-lisp:format common-lisp:nil "/~A?ownershipControls" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketOwnershipControls")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-ownership-controls)) (common-lisp:progn (common-lisp:defun get-bucket-policy @@ -24478,12 +25906,13 @@ (common-lisp:format common-lisp:nil "/~A?policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketPolicy")) - "string" common-lisp:nil *error-map*))) + "string" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-policy)) (common-lisp:progn (common-lisp:defun get-bucket-policy-status @@ -24505,12 +25934,13 @@ (common-lisp:format common-lisp:nil "/~A?policyStatus" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketPolicyStatus")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-policy-status)) (common-lisp:progn (common-lisp:defun get-bucket-replication @@ -24532,12 +25962,13 @@ (common-lisp:format common-lisp:nil "/~A?replication" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketReplication")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-replication)) (common-lisp:progn (common-lisp:defun get-bucket-request-payment @@ -24560,12 +25991,13 @@ (common-lisp:format common-lisp:nil "/~A?requestPayment" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketRequestPayment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-request-payment)) (common-lisp:progn (common-lisp:defun get-bucket-tagging @@ -24587,12 +26019,13 @@ (common-lisp:format common-lisp:nil "/~A?tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-tagging)) (common-lisp:progn (common-lisp:defun get-bucket-versioning @@ -24614,12 +26047,13 @@ (common-lisp:format common-lisp:nil "/~A?versioning" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketVersioning")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-versioning)) (common-lisp:progn (common-lisp:defun get-bucket-website @@ -24641,12 +26075,13 @@ (common-lisp:format common-lisp:nil "/~A?website" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetBucketWebsite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-website)) (common-lisp:progn (common-lisp:defun get-object @@ -24681,16 +26116,17 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "GetObject") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-object)) (common-lisp:progn (common-lisp:defun get-object-acl @@ -24715,15 +26151,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?acl" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "GetObjectAcl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-object-acl)) (common-lisp:progn (common-lisp:defun get-object-attributes @@ -24751,15 +26188,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?attributes" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "GetObjectAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-object-attributes)) (common-lisp:progn (common-lisp:defun get-object-legal-hold @@ -24784,15 +26222,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?legal-hold" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "GetObjectLegalHold")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-object-legal-hold)) (common-lisp:progn (common-lisp:defun get-object-lock-configuration @@ -24815,12 +26254,13 @@ (common-lisp:format common-lisp:nil "/~A?object-lock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetObjectLockConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-object-lock-configuration)) (common-lisp:progn (common-lisp:defun get-object-retention @@ -24845,15 +26285,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?retention" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "GetObjectRetention")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-object-retention)) (common-lisp:progn (common-lisp:defun get-object-tagging @@ -24878,15 +26319,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "GetObjectTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-object-tagging)) (common-lisp:progn (common-lisp:defun get-object-torrent @@ -24910,16 +26352,17 @@ (common-lisp:format common-lisp:nil "/~A/~A?torrent" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "GetObjectTorrent") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-object-torrent)) (common-lisp:progn (common-lisp:defun get-public-access-block @@ -24941,12 +26384,13 @@ (common-lisp:format common-lisp:nil "/~A?publicAccessBlock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "GetPublicAccessBlock")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-public-access-block)) (common-lisp:progn (common-lisp:defun head-bucket @@ -24968,12 +26412,13 @@ (common-lisp:format common-lisp:nil "/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "HeadBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'head-bucket)) (common-lisp:progn (common-lisp:defun head-object @@ -25003,15 +26448,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "HeadObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'head-object)) (common-lisp:progn (common-lisp:defun list-bucket-analytics-configurations @@ -25036,12 +26482,13 @@ (common-lisp:format common-lisp:nil "/~A?analytics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "ListBucketAnalyticsConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-bucket-analytics-configurations)) (common-lisp:progn (common-lisp:defun list-bucket-intelligent-tiering-configurations @@ -25064,12 +26511,13 @@ (common-lisp:format common-lisp:nil "/~A?intelligent-tiering" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "ListBucketIntelligentTieringConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-bucket-intelligent-tiering-configurations)) (common-lisp:progn (common-lisp:defun list-bucket-inventory-configurations @@ -25094,12 +26542,13 @@ (common-lisp:format common-lisp:nil "/~A?inventory" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "ListBucketInventoryConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-bucket-inventory-configurations)) (common-lisp:progn (common-lisp:defun list-bucket-metrics-configurations @@ -25124,12 +26573,13 @@ (common-lisp:format common-lisp:nil "/~A?metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "ListBucketMetricsConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-bucket-metrics-configurations)) (common-lisp:progn (common-lisp:defun list-buckets () @@ -25155,7 +26605,7 @@ aws-sdk/generator/operation::input "GET" "/" "ListDirectoryBuckets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-directory-buckets)) (common-lisp:progn (common-lisp:defun list-multipart-uploads @@ -25181,12 +26631,13 @@ (common-lisp:format common-lisp:nil "/~A?uploads" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "ListMultipartUploads")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-multipart-uploads)) (common-lisp:progn (common-lisp:defun list-object-versions @@ -25213,12 +26664,13 @@ (common-lisp:format common-lisp:nil "/~A?versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "ListObjectVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-object-versions)) (common-lisp:progn (common-lisp:defun list-objects @@ -25244,12 +26696,13 @@ (common-lisp:format common-lisp:nil "/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "ListObjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-objects)) (common-lisp:progn (common-lisp:defun list-objects-v2 @@ -25277,12 +26730,13 @@ (common-lisp:format common-lisp:nil "/~A?list-type=2" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "ListObjectsV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-objects-v2)) (common-lisp:progn (common-lisp:defun list-parts @@ -25309,15 +26763,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "ListParts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-parts)) (common-lisp:progn (common-lisp:defun put-bucket-accelerate-configuration @@ -25343,12 +26798,13 @@ (common-lisp:format common-lisp:nil "/~A?accelerate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketAccelerateConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-accelerate-configuration)) (common-lisp:progn (common-lisp:defun put-bucket-acl @@ -25376,12 +26832,13 @@ (common-lisp:format common-lisp:nil "/~A?acl" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketAcl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-acl)) (common-lisp:progn (common-lisp:defun put-bucket-analytics-configuration @@ -25407,12 +26864,13 @@ (common-lisp:format common-lisp:nil "/~A?analytics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketAnalyticsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-analytics-configuration)) (common-lisp:progn (common-lisp:defun put-bucket-cors @@ -25437,12 +26895,13 @@ (common-lisp:format common-lisp:nil "/~A?cors" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketCors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-cors)) (common-lisp:progn (common-lisp:defun put-bucket-encryption @@ -25468,12 +26927,13 @@ (common-lisp:format common-lisp:nil "/~A?encryption" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketEncryption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-encryption)) (common-lisp:progn (common-lisp:defun put-bucket-intelligent-tiering-configuration @@ -25498,12 +26958,13 @@ (common-lisp:format common-lisp:nil "/~A?intelligent-tiering" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketIntelligentTieringConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-intelligent-tiering-configuration)) (common-lisp:progn (common-lisp:defun put-bucket-inventory-configuration @@ -25529,12 +26990,13 @@ (common-lisp:format common-lisp:nil "/~A?inventory" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketInventoryConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-inventory-configuration)) (common-lisp:progn (common-lisp:defun put-bucket-lifecycle @@ -25559,12 +27021,13 @@ (common-lisp:format common-lisp:nil "/~A?lifecycle" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketLifecycle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-lifecycle)) (common-lisp:progn (common-lisp:defun put-bucket-lifecycle-configuration @@ -25590,12 +27053,13 @@ (common-lisp:format common-lisp:nil "/~A?lifecycle" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketLifecycleConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-lifecycle-configuration)) (common-lisp:progn (common-lisp:defun put-bucket-logging @@ -25620,12 +27084,13 @@ (common-lisp:format common-lisp:nil "/~A?logging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketLogging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-logging)) (common-lisp:progn (common-lisp:defun put-bucket-metrics-configuration @@ -25651,12 +27116,13 @@ (common-lisp:format common-lisp:nil "/~A?metrics" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketMetricsConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-metrics-configuration)) (common-lisp:progn (common-lisp:defun put-bucket-notification @@ -25681,12 +27147,13 @@ (common-lisp:format common-lisp:nil "/~A?notification" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-notification)) (common-lisp:progn (common-lisp:defun put-bucket-notification-configuration @@ -25712,12 +27179,13 @@ (common-lisp:format common-lisp:nil "/~A?notification" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketNotificationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-notification-configuration)) (common-lisp:progn (common-lisp:defun put-bucket-ownership-controls @@ -25743,12 +27211,13 @@ (common-lisp:format common-lisp:nil "/~A?ownershipControls" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketOwnershipControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-ownership-controls)) (common-lisp:progn (common-lisp:defun put-bucket-policy @@ -25774,12 +27243,13 @@ (common-lisp:format common-lisp:nil "/~A?policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-policy)) (common-lisp:progn (common-lisp:defun put-bucket-replication @@ -25804,12 +27274,13 @@ (common-lisp:format common-lisp:nil "/~A?replication" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-replication)) (common-lisp:progn (common-lisp:defun put-bucket-request-payment @@ -25835,12 +27306,13 @@ (common-lisp:format common-lisp:nil "/~A?requestPayment" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketRequestPayment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-request-payment)) (common-lisp:progn (common-lisp:defun put-bucket-tagging @@ -25865,12 +27337,13 @@ (common-lisp:format common-lisp:nil "/~A?tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-tagging)) (common-lisp:progn (common-lisp:defun put-bucket-versioning @@ -25895,12 +27368,13 @@ (common-lisp:format common-lisp:nil "/~A?versioning" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketVersioning")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-versioning)) (common-lisp:progn (common-lisp:defun put-bucket-website @@ -25925,12 +27399,13 @@ (common-lisp:format common-lisp:nil "/~A?website" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutBucketWebsite")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-website)) (common-lisp:progn (common-lisp:defun put-object @@ -25973,15 +27448,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "PutObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-object)) (common-lisp:progn (common-lisp:defun put-object-acl @@ -26010,15 +27486,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?acl" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "PutObjectAcl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-object-acl)) (common-lisp:progn (common-lisp:defun put-object-legal-hold @@ -26044,15 +27521,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?legal-hold" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "PutObjectLegalHold")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-object-legal-hold)) (common-lisp:progn (common-lisp:defun put-object-lock-configuration @@ -26079,12 +27557,13 @@ (common-lisp:format common-lisp:nil "/~A?object-lock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutObjectLockConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-object-lock-configuration)) (common-lisp:progn (common-lisp:defun put-object-retention @@ -26111,15 +27590,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?retention" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "PutObjectRetention")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-object-retention)) (common-lisp:progn (common-lisp:defun put-object-tagging @@ -26145,15 +27625,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "PutObjectTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-object-tagging)) (common-lisp:progn (common-lisp:defun put-public-access-block @@ -26178,12 +27659,13 @@ (common-lisp:format common-lisp:nil "/~A?publicAccessBlock" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)))) + 'bucket) + common-lisp:t))) "PutPublicAccessBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-public-access-block)) (common-lisp:progn (common-lisp:defun restore-object @@ -26208,15 +27690,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?restore" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "RestoreObject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'restore-object)) (common-lisp:progn (common-lisp:defun select-object-content @@ -26245,15 +27728,16 @@ (common-lisp:format common-lisp:nil "/~A/~A?select&select-type=2" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "SelectObjectContent")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'select-object-content)) (common-lisp:progn (common-lisp:defun upload-part @@ -26283,15 +27767,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "UploadPart")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'upload-part)) (common-lisp:progn (common-lisp:defun upload-part-copy @@ -26328,15 +27813,16 @@ (common-lisp:format common-lisp:nil "/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'bucket)) + 'bucket) + common-lisp:t) (common-lisp:slot-value aws-sdk/generator/operation::input 'key))) "UploadPartCopy")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'upload-part-copy)) (common-lisp:progn (common-lisp:defun write-get-object-response @@ -26377,5 +27863,5 @@ "POST" "/WriteGetObjectResponse" "WriteGetObjectResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'write-get-object-response)) diff --git a/services/s3control/api.lisp b/services/s3control/api.lisp index ea1d5d9e..646d7176 100644 --- a/services/s3control/api.lisp +++ b/services/s3control/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/s3control/api - (:use) - (:nicknames #:aws/s3control) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/s3control/api (:use) + (:nicknames #:aws/s3control) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/s3control/api) (common-lisp:progn (common-lisp:define-condition s3control-error @@ -566,7 +565,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1185,7 +1186,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1439,7 +1442,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1596,7 +1601,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1771,7 +1778,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1907,7 +1916,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2127,39 +2138,55 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'acl)) - (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-acl" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-full-control)) - (common-lisp:cons "x-amz-grant-full-control" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-full-control" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read)) - (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-read-acp)) - (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-read-acp" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write)) - (common-lisp:cons "x-amz-grant-write" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'grant-write-acp)) - (common-lisp:cons "x-amz-grant-write-acp" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-grant-write-acp" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'object-lock-enabled-for-bucket)) - (common-lisp:cons "x-amz-bucket-object-lock-enabled" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-bucket-object-lock-enabled" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'outpost-id)) - (common-lisp:cons "x-amz-outpost-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-outpost-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2178,7 +2205,14 @@ (aws-sdk/generator/shape::input create-bucket-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'create-bucket-configuration))) + 'create-bucket-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + create-bucket-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "CreateBucketConfiguration" :xml-namespace + "http://awss3control.amazonaws.com/doc/2018-08-20/"))) (common-lisp:progn (common-lisp:defclass create-bucket-result common-lisp:nil ((location :initarg :location :initform common-lisp:nil @@ -2206,7 +2240,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'location)) - (common-lisp:cons "Location" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Location" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-bucket-result)) (common-lisp:append @@ -2309,7 +2345,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-job-request)) (common-lisp:append @@ -2529,7 +2567,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2634,7 +2674,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2765,7 +2807,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2801,7 +2845,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2838,7 +2884,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2885,7 +2933,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2930,7 +2980,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2975,7 +3027,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3018,7 +3072,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3060,7 +3116,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3104,7 +3162,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3146,7 +3206,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3189,7 +3251,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3229,7 +3293,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3272,7 +3338,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3312,7 +3380,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3472,7 +3542,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3563,7 +3635,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3606,7 +3680,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3649,7 +3725,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3720,7 +3798,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3757,7 +3837,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input describe-job-request)) (common-lisp:append)) @@ -3830,7 +3912,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4063,7 +4147,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4333,7 +4419,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4529,7 +4617,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4626,7 +4716,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4663,7 +4755,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4867,7 +4961,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5013,7 +5109,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5100,7 +5198,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5231,7 +5331,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5315,7 +5417,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5399,7 +5503,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5483,7 +5589,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5563,7 +5671,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5766,7 +5876,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5847,7 +5959,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5926,7 +6040,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6007,7 +6123,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-bucket-request)) (common-lisp:append)) @@ -6104,7 +6222,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6185,7 +6305,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6305,7 +6427,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6396,7 +6520,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6477,7 +6603,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6566,7 +6694,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6651,7 +6781,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6737,7 +6869,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6845,7 +6979,13 @@ (aws-sdk/generator/shape::input get-public-access-block-output)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'public-access-block-configuration))) + 'public-access-block-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-public-access-block-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-public-access-block-request common-lisp:nil ((account-id :initarg :account-id :initform @@ -6871,7 +7011,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6913,7 +7055,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6967,7 +7111,13 @@ (aws-sdk/generator/shape::input get-storage-lens-configuration-result)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'storage-lens-configuration))) + 'storage-lens-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-storage-lens-configuration-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-storage-lens-configuration-tagging-request common-lisp:nil @@ -7000,7 +7150,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7084,7 +7236,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -7134,7 +7288,13 @@ ( (aws-sdk/generator/shape::input get-storage-lens-group-result)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-lens-group))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'storage-lens-group)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-storage-lens-group-result)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype grant-full-control () 'common-lisp:string) (common-lisp:deftype grant-read () 'common-lisp:string) (common-lisp:deftype grant-read-acp () 'common-lisp:string) @@ -9280,7 +9440,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9494,7 +9656,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9634,7 +9798,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9739,7 +9905,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9854,7 +10022,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -9959,7 +10129,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input list-jobs-request)) (common-lisp:append)) @@ -10051,7 +10223,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10166,11 +10340,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'outpost-id)) - (common-lisp:cons "x-amz-outpost-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-outpost-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10349,7 +10527,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10523,7 +10703,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -10623,7 +10805,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12023,7 +12207,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12159,7 +12345,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12218,7 +12406,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12274,7 +12464,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12335,7 +12527,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12354,7 +12548,14 @@ (aws-sdk/generator/shape::input put-bucket-lifecycle-configuration-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'lifecycle-configuration))) + 'lifecycle-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-lifecycle-configuration-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "LifecycleConfiguration" :xml-namespace + "http://awss3control.amazonaws.com/doc/2018-08-20/"))) (common-lisp:progn (common-lisp:defclass put-bucket-policy-request common-lisp:nil ((account-id :initarg :account-id :initform @@ -12401,13 +12602,17 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'confirm-remove-self-bucket-access)) - (common-lisp:cons "x-amz-confirm-remove-self-bucket-access" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-confirm-remove-self-bucket-access" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12469,7 +12674,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12488,7 +12695,14 @@ (aws-sdk/generator/shape::input put-bucket-replication-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'replication-configuration))) + 'replication-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-replication-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "ReplicationConfiguration" :xml-namespace + "http://awss3control.amazonaws.com/doc/2018-08-20/"))) (common-lisp:progn (common-lisp:defclass put-bucket-tagging-request common-lisp:nil ((account-id :initarg :account-id :initform @@ -12525,7 +12739,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12542,7 +12758,14 @@ ( (aws-sdk/generator/shape::input put-bucket-tagging-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'tagging)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-tagging-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "Tagging" :xml-namespace + "http://awss3control.amazonaws.com/doc/2018-08-20/"))) (common-lisp:progn (common-lisp:defclass put-bucket-versioning-request common-lisp:nil ((account-id :initarg :account-id :initform @@ -12591,11 +12814,15 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'mfa)) - (common-lisp:cons "x-amz-mfa" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-mfa" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12614,7 +12841,14 @@ (aws-sdk/generator/shape::input put-bucket-versioning-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'versioning-configuration))) + 'versioning-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-bucket-versioning-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "VersioningConfiguration" :xml-namespace + "http://awss3control.amazonaws.com/doc/2018-08-20/"))) (common-lisp:progn (common-lisp:defclass put-job-tagging-request common-lisp:nil ((account-id :initarg :account-id :initform @@ -12649,7 +12883,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12790,7 +13026,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12894,7 +13132,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -12913,7 +13153,15 @@ (aws-sdk/generator/shape::input put-public-access-block-request)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'public-access-block-configuration))) + 'public-access-block-configuration)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-public-access-block-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list :location-name "PublicAccessBlockConfiguration" + :xml-namespace + "http://awss3control.amazonaws.com/doc/2018-08-20/"))) (common-lisp:progn (common-lisp:defclass put-storage-lens-configuration-request common-lisp:nil ((config-id :initarg :config-id :initform @@ -12962,7 +13210,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -13027,7 +13277,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16431,7 +16683,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16571,7 +16825,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input tag-resource-request)) (common-lisp:append @@ -16749,7 +17005,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16827,7 +17085,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -16982,7 +17242,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17092,7 +17354,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17209,7 +17473,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'account-id)) - (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-account-id" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -17334,7 +17600,7 @@ "POST" "/v20180820/accessgrantsinstance/identitycenter" "AssociateAccessGrantsIdentityCenter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'associate-access-grants-identity-center)) (common-lisp:progn (common-lisp:defun create-access-grant @@ -17357,7 +17623,7 @@ "POST" "/v20180820/accessgrantsinstance/grant" "CreateAccessGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-access-grant)) (common-lisp:progn (common-lisp:defun create-access-grants-instance @@ -17377,7 +17643,7 @@ "POST" "/v20180820/accessgrantsinstance" "CreateAccessGrantsInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-access-grants-instance)) (common-lisp:progn (common-lisp:defun create-access-grants-location @@ -17398,7 +17664,7 @@ "POST" "/v20180820/accessgrantsinstance/location" "CreateAccessGrantsLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-access-grants-location)) (common-lisp:progn (common-lisp:defun create-access-point @@ -17423,12 +17689,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspoint/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-access-point)) (common-lisp:progn (common-lisp:defun create-access-point-for-object-lambda @@ -17451,12 +17718,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateAccessPointForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-access-point-for-object-lambda)) (common-lisp:progn (common-lisp:defun create-bucket @@ -17483,12 +17751,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-bucket)) (common-lisp:progn (common-lisp:defun create-job @@ -17511,7 +17780,7 @@ "POST" "/v20180820/jobs" "CreateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun create-multi-region-access-point @@ -17531,7 +17800,7 @@ "POST" "/v20180820/async-requests/mrap/create" "CreateMultiRegionAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-multi-region-access-point)) (common-lisp:progn (common-lisp:defun create-storage-lens-group @@ -17551,7 +17820,7 @@ "POST" "/v20180820/storagelensgroup" "CreateStorageLensGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'create-storage-lens-group)) (common-lisp:progn (common-lisp:defun delete-access-grant @@ -17573,12 +17842,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accessgrantsinstance/grant/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteAccessGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-access-grant)) (common-lisp:progn (common-lisp:defun delete-access-grants-instance @@ -17597,7 +17867,7 @@ "DELETE" "/v20180820/accessgrantsinstance" "DeleteAccessGrantsInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-access-grants-instance)) (common-lisp:progn (common-lisp:defun delete-access-grants-instance-resource-policy @@ -17616,7 +17886,7 @@ "DELETE" "/v20180820/accessgrantsinstance/resourcepolicy" "DeleteAccessGrantsInstanceResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-access-grants-instance-resource-policy)) (common-lisp:progn (common-lisp:defun delete-access-grants-location @@ -17640,12 +17910,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accessgrantsinstance/location/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteAccessGrantsLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-access-grants-location)) (common-lisp:progn (common-lisp:defun delete-access-point @@ -17667,12 +17938,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspoint/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-access-point)) (common-lisp:progn (common-lisp:defun delete-access-point-for-object-lambda @@ -17695,12 +17967,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteAccessPointForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-access-point-for-object-lambda)) (common-lisp:progn (common-lisp:defun delete-access-point-policy @@ -17723,12 +17996,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspoint/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteAccessPointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-access-point-policy)) (common-lisp:progn (common-lisp:defun delete-access-point-policy-for-object-lambda @@ -17751,12 +18025,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteAccessPointPolicyForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-access-point-policy-for-object-lambda)) (common-lisp:progn (common-lisp:defun delete-bucket @@ -17778,12 +18053,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket)) (common-lisp:progn (common-lisp:defun delete-bucket-lifecycle-configuration @@ -17806,12 +18082,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/lifecycleconfiguration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteBucketLifecycleConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-lifecycle-configuration)) (common-lisp:progn (common-lisp:defun delete-bucket-policy @@ -17833,12 +18110,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteBucketPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-policy)) (common-lisp:progn (common-lisp:defun delete-bucket-replication @@ -17861,12 +18139,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/replication" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteBucketReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-replication)) (common-lisp:progn (common-lisp:defun delete-bucket-tagging @@ -17888,12 +18167,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteBucketTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-bucket-tagging)) (common-lisp:progn (common-lisp:defun delete-job-tagging @@ -17915,12 +18195,13 @@ (common-lisp:format common-lisp:nil "/v20180820/jobs/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DeleteJobTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-job-tagging)) (common-lisp:progn (common-lisp:defun delete-multi-region-access-point @@ -17940,7 +18221,7 @@ "POST" "/v20180820/async-requests/mrap/delete" "DeleteMultiRegionAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-multi-region-access-point)) (common-lisp:progn (common-lisp:defun delete-public-access-block @@ -17959,7 +18240,7 @@ "DELETE" "/v20180820/configuration/publicAccessBlock" "DeletePublicAccessBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-public-access-block)) (common-lisp:progn (common-lisp:defun delete-storage-lens-configuration @@ -17982,12 +18263,13 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelens/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'storagelensid)))) + 'storagelensid) + common-lisp:t))) "DeleteStorageLensConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-storage-lens-configuration)) (common-lisp:progn (common-lisp:defun delete-storage-lens-configuration-tagging @@ -18010,12 +18292,13 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelens/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'storagelensid)))) + 'storagelensid) + common-lisp:t))) "DeleteStorageLensConfigurationTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-storage-lens-configuration-tagging)) (common-lisp:progn (common-lisp:defun delete-storage-lens-group @@ -18038,12 +18321,13 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelensgroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteStorageLensGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'delete-storage-lens-group)) (common-lisp:progn (common-lisp:defun describe-job @@ -18065,12 +18349,13 @@ (common-lisp:format common-lisp:nil "/v20180820/jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "DescribeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'describe-job)) (common-lisp:progn (common-lisp:defun describe-multi-region-access-point-operation @@ -18097,7 +18382,7 @@ aws-sdk/generator/operation::input 'request-token))) "DescribeMultiRegionAccessPointOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'describe-multi-region-access-point-operation)) (common-lisp:progn (common-lisp:defun dissociate-access-grants-identity-center @@ -18116,7 +18401,7 @@ "DELETE" "/v20180820/accessgrantsinstance/identitycenter" "DissociateAccessGrantsIdentityCenter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'dissociate-access-grants-identity-center)) (common-lisp:progn (common-lisp:defun get-access-grant @@ -18138,12 +18423,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accessgrantsinstance/grant/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetAccessGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-grant)) (common-lisp:progn (common-lisp:defun get-access-grants-instance @@ -18162,7 +18448,7 @@ "GET" "/v20180820/accessgrantsinstance" "GetAccessGrantsInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-grants-instance)) (common-lisp:progn (common-lisp:defun get-access-grants-instance-for-prefix @@ -18181,7 +18467,7 @@ "GET" "/v20180820/accessgrantsinstance/prefix" "GetAccessGrantsInstanceForPrefix")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-grants-instance-for-prefix)) (common-lisp:progn (common-lisp:defun get-access-grants-instance-resource-policy @@ -18200,7 +18486,7 @@ "GET" "/v20180820/accessgrantsinstance/resourcepolicy" "GetAccessGrantsInstanceResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-grants-instance-resource-policy)) (common-lisp:progn (common-lisp:defun get-access-grants-location @@ -18224,12 +18510,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accessgrantsinstance/location/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetAccessGrantsLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-grants-location)) (common-lisp:progn (common-lisp:defun get-access-point @@ -18251,12 +18538,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspoint/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-point)) (common-lisp:progn (common-lisp:defun get-access-point-configuration-for-object-lambda @@ -18279,12 +18567,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAccessPointConfigurationForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-point-configuration-for-object-lambda)) (common-lisp:progn (common-lisp:defun get-access-point-for-object-lambda @@ -18307,12 +18596,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAccessPointForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-point-for-object-lambda)) (common-lisp:progn (common-lisp:defun get-access-point-policy @@ -18334,12 +18624,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspoint/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAccessPointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-point-policy)) (common-lisp:progn (common-lisp:defun get-access-point-policy-for-object-lambda @@ -18362,12 +18653,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAccessPointPolicyForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-point-policy-for-object-lambda)) (common-lisp:progn (common-lisp:defun get-access-point-policy-status @@ -18390,12 +18682,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspoint/~A/policyStatus" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAccessPointPolicyStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-point-policy-status)) (common-lisp:progn (common-lisp:defun get-access-point-policy-status-for-object-lambda @@ -18418,12 +18711,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A/policyStatus" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetAccessPointPolicyStatusForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-access-point-policy-status-for-object-lambda)) (common-lisp:progn (common-lisp:defun get-bucket @@ -18445,12 +18739,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket)) (common-lisp:progn (common-lisp:defun get-bucket-lifecycle-configuration @@ -18473,12 +18768,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/lifecycleconfiguration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBucketLifecycleConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-lifecycle-configuration)) (common-lisp:progn (common-lisp:defun get-bucket-policy @@ -18500,12 +18796,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBucketPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-policy)) (common-lisp:progn (common-lisp:defun get-bucket-replication @@ -18527,12 +18824,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/replication" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBucketReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-replication)) (common-lisp:progn (common-lisp:defun get-bucket-tagging @@ -18554,12 +18852,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBucketTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-tagging)) (common-lisp:progn (common-lisp:defun get-bucket-versioning @@ -18581,12 +18880,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/versioning" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetBucketVersioning")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-bucket-versioning)) (common-lisp:progn (common-lisp:defun get-data-access @@ -18607,7 +18907,7 @@ "GET" "/v20180820/accessgrantsinstance/dataaccess" "GetDataAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-data-access)) (common-lisp:progn (common-lisp:defun get-job-tagging @@ -18629,12 +18929,13 @@ (common-lisp:format common-lisp:nil "/v20180820/jobs/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "GetJobTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-job-tagging)) (common-lisp:progn (common-lisp:defun get-multi-region-access-point @@ -18661,7 +18962,7 @@ aws-sdk/generator/operation::input 'name))) "GetMultiRegionAccessPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-multi-region-access-point)) (common-lisp:progn (common-lisp:defun get-multi-region-access-point-policy @@ -18688,7 +18989,7 @@ aws-sdk/generator/operation::input 'name))) "GetMultiRegionAccessPointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-multi-region-access-point-policy)) (common-lisp:progn (common-lisp:defun get-multi-region-access-point-policy-status @@ -18715,7 +19016,7 @@ aws-sdk/generator/operation::input 'name))) "GetMultiRegionAccessPointPolicyStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-multi-region-access-point-policy-status)) (common-lisp:progn (common-lisp:defun get-multi-region-access-point-routes @@ -18742,7 +19043,7 @@ aws-sdk/generator/operation::input 'mrap))) "GetMultiRegionAccessPointRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-multi-region-access-point-routes)) (common-lisp:progn (common-lisp:defun get-public-access-block @@ -18760,7 +19061,7 @@ "GET" "/v20180820/configuration/publicAccessBlock" "GetPublicAccessBlock")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-public-access-block)) (common-lisp:progn (common-lisp:defun get-storage-lens-configuration @@ -18783,12 +19084,13 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelens/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'storagelensid)))) + 'storagelensid) + common-lisp:t))) "GetStorageLensConfiguration")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-storage-lens-configuration)) (common-lisp:progn (common-lisp:defun get-storage-lens-configuration-tagging @@ -18811,12 +19113,13 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelens/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'storagelensid)))) + 'storagelensid) + common-lisp:t))) "GetStorageLensConfigurationTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-storage-lens-configuration-tagging)) (common-lisp:progn (common-lisp:defun get-storage-lens-group @@ -18838,12 +19141,13 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelensgroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetStorageLensGroup")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'get-storage-lens-group)) (common-lisp:progn (common-lisp:defun list-access-grants @@ -18865,7 +19169,7 @@ "GET" "/v20180820/accessgrantsinstance/grants" "ListAccessGrants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-access-grants)) (common-lisp:progn (common-lisp:defun list-access-grants-instances @@ -18885,7 +19189,7 @@ "GET" "/v20180820/accessgrantsinstances" "ListAccessGrantsInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-access-grants-instances)) (common-lisp:progn (common-lisp:defun list-access-grants-locations @@ -18906,7 +19210,7 @@ "GET" "/v20180820/accessgrantsinstance/locations" "ListAccessGrantsLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-access-grants-locations)) (common-lisp:progn (common-lisp:defun list-access-points @@ -18925,7 +19229,7 @@ "GET" "/v20180820/accesspoint" "ListAccessPoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-access-points)) (common-lisp:progn (common-lisp:defun list-access-points-for-object-lambda @@ -18945,7 +19249,7 @@ "GET" "/v20180820/accesspointforobjectlambda" "ListAccessPointsForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-access-points-for-object-lambda)) (common-lisp:progn (common-lisp:defun list-jobs @@ -18964,7 +19268,7 @@ aws-sdk/generator/operation::input "GET" "/v20180820/jobs" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-multi-region-access-points @@ -18984,7 +19288,7 @@ "GET" "/v20180820/mrap/instances" "ListMultiRegionAccessPoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-multi-region-access-points)) (common-lisp:progn (common-lisp:defun list-regional-buckets @@ -19004,7 +19308,7 @@ "GET" "/v20180820/bucket" "ListRegionalBuckets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-regional-buckets)) (common-lisp:progn (common-lisp:defun list-storage-lens-configurations @@ -19023,7 +19327,7 @@ "GET" "/v20180820/storagelens" "ListStorageLensConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-storage-lens-configurations)) (common-lisp:progn (common-lisp:defun list-storage-lens-groups @@ -19041,7 +19345,7 @@ "GET" "/v20180820/storagelensgroup" "ListStorageLensGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-storage-lens-groups)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -19067,7 +19371,7 @@ aws-sdk/generator/operation::input 'resource-arn))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-access-grants-instance-resource-policy @@ -19086,7 +19390,7 @@ "PUT" "/v20180820/accessgrantsinstance/resourcepolicy" "PutAccessGrantsInstanceResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-access-grants-instance-resource-policy)) (common-lisp:progn (common-lisp:defun put-access-point-configuration-for-object-lambda @@ -19109,12 +19413,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A/configuration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutAccessPointConfigurationForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-access-point-configuration-for-object-lambda)) (common-lisp:progn (common-lisp:defun put-access-point-policy @@ -19136,12 +19441,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspoint/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutAccessPointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-access-point-policy)) (common-lisp:progn (common-lisp:defun put-access-point-policy-for-object-lambda @@ -19164,12 +19470,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accesspointforobjectlambda/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutAccessPointPolicyForObjectLambda")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-access-point-policy-for-object-lambda)) (common-lisp:progn (common-lisp:defun put-bucket-lifecycle-configuration @@ -19194,12 +19501,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/lifecycleconfiguration" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutBucketLifecycleConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-lifecycle-configuration)) (common-lisp:progn (common-lisp:defun put-bucket-policy @@ -19224,12 +19532,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutBucketPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-policy)) (common-lisp:progn (common-lisp:defun put-bucket-replication @@ -19253,12 +19562,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/replication" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutBucketReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-replication)) (common-lisp:progn (common-lisp:defun put-bucket-tagging @@ -19280,12 +19590,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutBucketTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-tagging)) (common-lisp:progn (common-lisp:defun put-bucket-versioning @@ -19309,12 +19620,13 @@ (common-lisp:format common-lisp:nil "/v20180820/bucket/~A/versioning" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "PutBucketVersioning")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-bucket-versioning)) (common-lisp:progn (common-lisp:defun put-job-tagging @@ -19336,12 +19648,13 @@ (common-lisp:format common-lisp:nil "/v20180820/jobs/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "PutJobTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-job-tagging)) (common-lisp:progn (common-lisp:defun put-multi-region-access-point-policy @@ -19361,7 +19674,7 @@ "POST" "/v20180820/async-requests/mrap/put-policy" "PutMultiRegionAccessPointPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-multi-region-access-point-policy)) (common-lisp:progn (common-lisp:defun put-public-access-block @@ -19381,7 +19694,7 @@ "PUT" "/v20180820/configuration/publicAccessBlock" "PutPublicAccessBlock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-public-access-block)) (common-lisp:progn (common-lisp:defun put-storage-lens-configuration @@ -19407,12 +19720,13 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelens/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'storagelensid)))) + 'storagelensid) + common-lisp:t))) "PutStorageLensConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-storage-lens-configuration)) (common-lisp:progn (common-lisp:defun put-storage-lens-configuration-tagging @@ -19435,12 +19749,13 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelens/~A/tagging" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'storagelensid)))) + 'storagelensid) + common-lisp:t))) "PutStorageLensConfigurationTagging")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'put-storage-lens-configuration-tagging)) (common-lisp:progn (common-lisp:defun submit-multi-region-access-point-routes @@ -19467,7 +19782,7 @@ aws-sdk/generator/operation::input 'mrap))) "SubmitMultiRegionAccessPointRoutes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'submit-multi-region-access-point-routes)) (common-lisp:progn (common-lisp:defun tag-resource @@ -19493,7 +19808,7 @@ aws-sdk/generator/operation::input 'resource-arn))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -19520,7 +19835,7 @@ aws-sdk/generator/operation::input 'resource-arn))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-access-grants-location @@ -19545,12 +19860,13 @@ (common-lisp:format common-lisp:nil "/v20180820/accessgrantsinstance/location/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateAccessGrantsLocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-access-grants-location)) (common-lisp:progn (common-lisp:defun update-job-priority @@ -19572,12 +19888,13 @@ (common-lisp:format common-lisp:nil "/v20180820/jobs/~A/priority" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateJobPriority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-job-priority)) (common-lisp:progn (common-lisp:defun update-job-status @@ -19602,12 +19919,13 @@ (common-lisp:format common-lisp:nil "/v20180820/jobs/~A/status" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'id)))) + 'id) + common-lisp:t))) "UpdateJobStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-job-status)) (common-lisp:progn (common-lisp:defun update-storage-lens-group @@ -19631,10 +19949,11 @@ (common-lisp:format common-lisp:nil "/v20180820/storagelensgroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateStorageLensGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/xml"))) (common-lisp:export 'update-storage-lens-group)) diff --git a/services/s3outposts/api.lisp b/services/s3outposts/api.lisp index fc480f43..3309e68f 100644 --- a/services/s3outposts/api.lisp +++ b/services/s3outposts/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/s3outposts/api - (:use) - (:nicknames #:aws/s3outposts) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/s3outposts/api (:use) + (:nicknames #:aws/s3outposts) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/s3outposts/api) (common-lisp:progn (common-lisp:define-condition s3outposts-error @@ -20,7 +19,7 @@ (common-lisp:export 's3outposts-error)) (common-lisp:progn (common-lisp:defclass s3outposts-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "s3outposts" :api-version "2017-07-25" :host-prefix "s3-outposts" :signing-name @@ -924,7 +923,7 @@ "POST" "/S3Outposts/CreateEndpoint" "CreateEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-endpoint)) (common-lisp:progn (common-lisp:defun delete-endpoint @@ -942,7 +941,7 @@ "DELETE" "/S3Outposts/DeleteEndpoint" "DeleteEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint)) (common-lisp:progn (common-lisp:defun list-endpoints @@ -960,7 +959,7 @@ "GET" "/S3Outposts/ListEndpoints" "ListEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-endpoints)) (common-lisp:progn (common-lisp:defun list-outposts-with-s3 @@ -978,7 +977,7 @@ "GET" "/S3Outposts/ListOutpostsWithS3" "ListOutpostsWithS3")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-outposts-with-s3)) (common-lisp:progn (common-lisp:defun list-shared-endpoints @@ -997,5 +996,5 @@ "GET" "/S3Outposts/ListSharedEndpoints" "ListSharedEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-shared-endpoints)) diff --git a/services/sagemaker-a2i-runtime/api.lisp b/services/sagemaker-a2i-runtime/api.lisp index 8406547a..e3bc5299 100644 --- a/services/sagemaker-a2i-runtime/api.lisp +++ b/services/sagemaker-a2i-runtime/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sagemaker-a2i-runtime/api - (:use) - (:nicknames #:aws/sagemaker-a2i-runtime) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sagemaker-a2i-runtime/api + (:use) (:nicknames #:aws/sagemaker-a2i-runtime) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sagemaker-a2i-runtime/api) (common-lisp:progn (common-lisp:define-condition sagemaker-a2i-runtime-error @@ -20,7 +19,7 @@ (common-lisp:export 'sagemaker-a2i-runtime-error)) (common-lisp:progn (common-lisp:defclass sagemaker-a2i-runtime-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sagemaker-a2i-runtime" :api-version "2019-11-07" :host-prefix @@ -851,12 +850,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/human-loops/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'human-loop-name)))) + 'human-loop-name) + common-lisp:t))) "DeleteHumanLoop")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-human-loop)) (common-lisp:progn (common-lisp:defun describe-human-loop @@ -873,12 +873,13 @@ 'sagemaker-a2i-runtime-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/human-loops/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'human-loop-name)))) + 'human-loop-name) + common-lisp:t))) "DescribeHumanLoop")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-human-loop)) (common-lisp:progn (common-lisp:defun list-human-loops @@ -897,7 +898,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-a2i-runtime-request aws-sdk/generator/operation::input "GET" "/human-loops" "ListHumanLoops")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-human-loops)) (common-lisp:progn (common-lisp:defun start-human-loop @@ -916,7 +917,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-a2i-runtime-request aws-sdk/generator/operation::input "POST" "/human-loops" "StartHumanLoop")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-human-loop)) (common-lisp:progn (common-lisp:defun stop-human-loop @@ -932,5 +933,5 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-a2i-runtime-request aws-sdk/generator/operation::input "POST" "/human-loops/stop" "StopHumanLoop")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-human-loop)) diff --git a/services/sagemaker-edge/api.lisp b/services/sagemaker-edge/api.lisp index f86d95e6..d7a6aaac 100644 --- a/services/sagemaker-edge/api.lisp +++ b/services/sagemaker-edge/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sagemaker-edge/api - (:use) - (:nicknames #:aws/sagemaker-edge) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sagemaker-edge/api (:use) + (:nicknames #:aws/sagemaker-edge) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sagemaker-edge/api) (common-lisp:progn (common-lisp:define-condition sagemaker-edge-error @@ -20,7 +19,7 @@ (common-lisp:export 'sagemaker-edge-error)) (common-lisp:progn (common-lisp:defclass sagemaker-edge-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sagemaker-edge" :api-version "2020-09-23" :host-prefix "edge.sagemaker" @@ -972,7 +971,7 @@ "POST" "/GetDeployments" "GetDeployments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployments)) (common-lisp:progn (common-lisp:defun get-device-registration @@ -990,7 +989,7 @@ "POST" "/GetDeviceRegistration" "GetDeviceRegistration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-registration)) (common-lisp:progn (common-lisp:defun send-heartbeat @@ -1010,5 +1009,5 @@ aws-sdk/generator/operation::input "POST" "/SendHeartbeat" "SendHeartbeat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-heartbeat)) diff --git a/services/sagemaker-featurestore-runtime/api.lisp b/services/sagemaker-featurestore-runtime/api.lisp index 4706bd79..89d2199d 100644 --- a/services/sagemaker-featurestore-runtime/api.lisp +++ b/services/sagemaker-featurestore-runtime/api.lisp @@ -1,17 +1,14 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sagemaker-featurestore-runtime/api - (:use) - (:nicknames #:aws/sagemaker-featurestore-runtime) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package + #:aws-sdk/services/sagemaker-featurestore-runtime/api (:use) + (:nicknames #:aws/sagemaker-featurestore-runtime) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sagemaker-featurestore-runtime/api) (common-lisp:progn (common-lisp:define-condition sagemaker-featurestore-runtime-error @@ -20,7 +17,7 @@ (common-lisp:export 'sagemaker-featurestore-runtime-error)) (common-lisp:progn (common-lisp:defclass sagemaker-featurestore-runtime-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sagemaker-featurestore-runtime" :api-version @@ -876,7 +873,7 @@ 'sagemaker-featurestore-runtime-request aws-sdk/generator/operation::input "POST" "/BatchGetRecord" "BatchGetRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-record)) (common-lisp:progn (common-lisp:defun delete-record @@ -898,12 +895,13 @@ aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/FeatureGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'feature-group-name)))) + 'feature-group-name) + common-lisp:t))) "DeleteRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-record)) (common-lisp:progn (common-lisp:defun get-record @@ -925,12 +923,13 @@ aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/FeatureGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'feature-group-name)))) + 'feature-group-name) + common-lisp:t))) "GetRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-record)) (common-lisp:progn (common-lisp:defun put-record @@ -951,10 +950,11 @@ aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/FeatureGroup/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'feature-group-name)))) + 'feature-group-name) + common-lisp:t))) "PutRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-record)) diff --git a/services/sagemaker-geospatial/api.lisp b/services/sagemaker-geospatial/api.lisp index 0a38ca6a..c55f73d8 100644 --- a/services/sagemaker-geospatial/api.lisp +++ b/services/sagemaker-geospatial/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sagemaker-geospatial/api - (:use) - (:nicknames #:aws/sagemaker-geospatial) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sagemaker-geospatial/api (:use) + (:nicknames #:aws/sagemaker-geospatial) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sagemaker-geospatial/api) (common-lisp:progn (common-lisp:define-condition sagemaker-geospatial-error @@ -20,7 +19,7 @@ (common-lisp:export 'sagemaker-geospatial-error)) (common-lisp:progn (common-lisp:defclass sagemaker-geospatial-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sagemaker-geospatial" :api-version "2020-05-27" :host-prefix @@ -1940,7 +1939,11 @@ aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload ((aws-sdk/generator/shape::input get-tile-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'binary-file))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'binary-file)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ((aws-sdk/generator/shape::input get-tile-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-vector-enrichment-job-input common-lisp:nil ((arn :initarg :arn :initform @@ -6606,11 +6609,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/earth-observation-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "DeleteEarthObservationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-earth-observation-job)) (common-lisp:progn (common-lisp:defun delete-vector-enrichment-job @@ -6629,11 +6633,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/vector-enrichment-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "DeleteVectorEnrichmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vector-enrichment-job)) (common-lisp:progn (common-lisp:defun export-earth-observation-job @@ -6653,7 +6658,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/export-earth-observation-job" "ExportEarthObservationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-earth-observation-job)) (common-lisp:progn (common-lisp:defun export-vector-enrichment-job @@ -6672,7 +6677,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/export-vector-enrichment-jobs" "ExportVectorEnrichmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-vector-enrichment-job)) (common-lisp:progn (common-lisp:defun get-earth-observation-job @@ -6689,11 +6694,12 @@ 'sagemaker-geospatial-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/earth-observation-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "GetEarthObservationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-earth-observation-job)) (common-lisp:progn (common-lisp:defun get-raster-data-collection @@ -6710,11 +6716,12 @@ 'sagemaker-geospatial-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/raster-data-collection/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "GetRasterDataCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-raster-data-collection)) (common-lisp:progn (common-lisp:defun get-tile @@ -6736,18 +6743,21 @@ 'sagemaker-geospatial-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tile/~A/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'z)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'z) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'x)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'x) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'y)))) + aws-sdk/generator/operation::input 'y) + common-lisp:t))) "GetTile") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-tile)) (common-lisp:progn (common-lisp:defun get-vector-enrichment-job @@ -6764,11 +6774,12 @@ 'sagemaker-geospatial-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/vector-enrichment-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'arn)))) + aws-sdk/generator/operation::input 'arn) + common-lisp:t))) "GetVectorEnrichmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vector-enrichment-job)) (common-lisp:progn (common-lisp:defun list-earth-observation-jobs @@ -6787,7 +6798,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/list-earth-observation-jobs" "ListEarthObservationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-earth-observation-jobs)) (common-lisp:progn (common-lisp:defun list-raster-data-collections @@ -6804,7 +6815,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "GET" "/raster-data-collections" "ListRasterDataCollections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-raster-data-collections)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6821,12 +6832,13 @@ 'sagemaker-geospatial-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-vector-enrichment-jobs @@ -6845,7 +6857,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/list-vector-enrichment-jobs" "ListVectorEnrichmentJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vector-enrichment-jobs)) (common-lisp:progn (common-lisp:defun search-raster-data-collection @@ -6864,7 +6876,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/search-raster-data-collection" "SearchRasterDataCollection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-raster-data-collection)) (common-lisp:progn (common-lisp:defun start-earth-observation-job @@ -6884,7 +6896,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/earth-observation-jobs" "StartEarthObservationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-earth-observation-job)) (common-lisp:progn (common-lisp:defun start-vector-enrichment-job @@ -6904,7 +6916,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/vector-enrichment-jobs" "StartVectorEnrichmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-vector-enrichment-job)) (common-lisp:progn (common-lisp:defun stop-earth-observation-job @@ -6920,7 +6932,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/earth-observation-jobs/stop" "StopEarthObservationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-earth-observation-job)) (common-lisp:progn (common-lisp:defun stop-vector-enrichment-job @@ -6936,7 +6948,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-geospatial-request aws-sdk/generator/operation::input "POST" "/vector-enrichment-jobs/stop" "StopVectorEnrichmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-vector-enrichment-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6953,12 +6965,13 @@ 'sagemaker-geospatial-request aws-sdk/generator/operation::input "PUT" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6976,10 +6989,11 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/sagemaker-metrics/api.lisp b/services/sagemaker-metrics/api.lisp index c003e94c..a241e9d8 100644 --- a/services/sagemaker-metrics/api.lisp +++ b/services/sagemaker-metrics/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sagemaker-metrics/api - (:use) - (:nicknames #:aws/sagemaker-metrics) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sagemaker-metrics/api (:use) + (:nicknames #:aws/sagemaker-metrics) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sagemaker-metrics/api) (common-lisp:progn (common-lisp:define-condition sagemaker-metrics-error @@ -20,7 +19,7 @@ (common-lisp:export 'sagemaker-metrics-error)) (common-lisp:progn (common-lisp:defclass sagemaker-metrics-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sagemaker-metrics" :api-version "2022-09-30" :host-prefix @@ -282,5 +281,5 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-metrics-request aws-sdk/generator/operation::input "PUT" "/BatchPutMetrics" "BatchPutMetrics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-put-metrics)) diff --git a/services/sagemaker/api.lisp b/services/sagemaker/api.lisp index d7e5ddc3..d882c317 100644 --- a/services/sagemaker/api.lisp +++ b/services/sagemaker/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sagemaker/api - (:use) - (:nicknames #:aws/sagemaker) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sagemaker/api (:use) + (:nicknames #:aws/sagemaker) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sagemaker/api) (common-lisp:progn (common-lisp:define-condition sagemaker-error @@ -99969,7 +99968,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-association)) (common-lisp:progn (common-lisp:defun add-tags @@ -99985,7 +99984,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-request aws-sdk/generator/operation::input "POST" "/" "AddTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags)) (common-lisp:progn (common-lisp:defun associate-trial-component @@ -100004,7 +100003,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateTrialComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-trial-component)) (common-lisp:progn (common-lisp:defun batch-describe-model-package @@ -100022,7 +100021,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDescribeModelPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-describe-model-package)) (common-lisp:progn (common-lisp:defun create-action @@ -100042,7 +100041,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-action)) (common-lisp:progn (common-lisp:defun create-algorithm @@ -100064,7 +100063,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAlgorithm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-algorithm)) (common-lisp:progn (common-lisp:defun create-app @@ -100084,7 +100083,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app)) (common-lisp:progn (common-lisp:defun create-app-image-config @@ -100104,7 +100103,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAppImageConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app-image-config)) (common-lisp:progn (common-lisp:defun create-artifact @@ -100124,7 +100123,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-artifact)) (common-lisp:progn (common-lisp:defun create-auto-mljob @@ -100148,7 +100147,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAutoMLJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-auto-mljob)) (common-lisp:progn (common-lisp:defun create-auto-mljob-v2 @@ -100173,7 +100172,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAutoMLJobV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-auto-mljob-v2)) (common-lisp:progn (common-lisp:defun create-cluster @@ -100192,7 +100191,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-code-repository @@ -100210,7 +100209,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCodeRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-code-repository)) (common-lisp:progn (common-lisp:defun create-compilation-job @@ -100232,7 +100231,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCompilationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-compilation-job)) (common-lisp:progn (common-lisp:defun create-context @@ -100252,7 +100251,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateContext")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-context)) (common-lisp:progn (common-lisp:defun create-data-quality-job-definition @@ -100278,7 +100277,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDataQualityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-quality-job-definition)) (common-lisp:progn (common-lisp:defun create-device-fleet @@ -100298,7 +100297,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDeviceFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-device-fleet)) (common-lisp:progn (common-lisp:defun create-domain @@ -100323,7 +100322,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun create-edge-deployment-plan @@ -100344,7 +100343,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEdgeDeploymentPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-edge-deployment-plan)) (common-lisp:progn (common-lisp:defun create-edge-deployment-stage @@ -100363,7 +100362,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEdgeDeploymentStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-edge-deployment-stage)) (common-lisp:progn (common-lisp:defun create-edge-packaging-job @@ -100385,7 +100384,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEdgePackagingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-edge-packaging-job)) (common-lisp:progn (common-lisp:defun create-endpoint @@ -100405,7 +100404,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-endpoint)) (common-lisp:progn (common-lisp:defun create-endpoint-config @@ -100429,7 +100428,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateEndpointConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-endpoint-config)) (common-lisp:progn (common-lisp:defun create-experiment @@ -100448,7 +100447,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-experiment)) (common-lisp:progn (common-lisp:defun create-feature-group @@ -100472,7 +100471,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFeatureGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-feature-group)) (common-lisp:progn (common-lisp:defun create-flow-definition @@ -100494,7 +100493,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateFlowDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-flow-definition)) (common-lisp:progn (common-lisp:defun create-hub @@ -100514,7 +100513,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateHub")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hub)) (common-lisp:progn (common-lisp:defun create-human-task-ui @@ -100532,7 +100531,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateHumanTaskUi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-human-task-ui)) (common-lisp:progn (common-lisp:defun create-hyper-parameter-tuning-job @@ -100555,7 +100554,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateHyperParameterTuningJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-hyper-parameter-tuning-job)) (common-lisp:progn (common-lisp:defun create-image @@ -100574,7 +100573,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-image)) (common-lisp:progn (common-lisp:defun create-image-version @@ -100596,7 +100595,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateImageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-image-version)) (common-lisp:progn (common-lisp:defun create-inference-component @@ -100616,7 +100615,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInferenceComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-inference-component)) (common-lisp:progn (common-lisp:defun create-inference-experiment @@ -100639,7 +100638,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInferenceExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-inference-experiment)) (common-lisp:progn (common-lisp:defun create-inference-recommendations-job @@ -100660,7 +100659,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInferenceRecommendationsJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-inference-recommendations-job)) (common-lisp:progn (common-lisp:defun create-labeling-job @@ -100683,7 +100682,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLabelingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-labeling-job)) (common-lisp:progn (common-lisp:defun create-model @@ -100705,7 +100704,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model)) (common-lisp:progn (common-lisp:defun create-model-bias-job-definition @@ -100731,7 +100730,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateModelBiasJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-bias-job-definition)) (common-lisp:progn (common-lisp:defun create-model-card @@ -100751,7 +100750,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateModelCard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-card)) (common-lisp:progn (common-lisp:defun create-model-card-export-job @@ -100772,7 +100771,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateModelCardExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-card-export-job)) (common-lisp:progn (common-lisp:defun create-model-explainability-job-definition @@ -100800,7 +100799,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateModelExplainabilityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-explainability-job-definition)) (common-lisp:progn (common-lisp:defun create-model-package @@ -100832,7 +100831,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateModelPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-package)) (common-lisp:progn (common-lisp:defun create-model-package-group @@ -100852,7 +100851,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateModelPackageGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-package-group)) (common-lisp:progn (common-lisp:defun create-model-quality-job-definition @@ -100878,7 +100877,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateModelQualityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-model-quality-job-definition)) (common-lisp:progn (common-lisp:defun create-monitoring-schedule @@ -100899,7 +100898,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMonitoringSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-monitoring-schedule)) (common-lisp:progn (common-lisp:defun create-notebook-instance @@ -100927,7 +100926,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNotebookInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-notebook-instance)) (common-lisp:progn (common-lisp:defun create-notebook-instance-lifecycle-config @@ -100948,7 +100947,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateNotebookInstanceLifecycleConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-notebook-instance-lifecycle-config)) (common-lisp:progn (common-lisp:defun create-pipeline @@ -100971,7 +100970,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-pipeline)) (common-lisp:progn (common-lisp:defun create-presigned-domain-url @@ -100994,7 +100993,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePresignedDomainUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-presigned-domain-url)) (common-lisp:progn (common-lisp:defun create-presigned-notebook-instance-url @@ -101015,7 +101014,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePresignedNotebookInstanceUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-presigned-notebook-instance-url)) (common-lisp:progn (common-lisp:defun create-processing-job @@ -101040,7 +101039,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProcessingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-processing-job)) (common-lisp:progn (common-lisp:defun create-project @@ -101060,7 +101059,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-project)) (common-lisp:progn (common-lisp:defun create-space @@ -101081,7 +101080,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSpace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-space)) (common-lisp:progn (common-lisp:defun create-studio-lifecycle-config @@ -101103,7 +101102,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStudioLifecycleConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-studio-lifecycle-config)) (common-lisp:progn (common-lisp:defun create-training-job @@ -101137,7 +101136,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrainingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-training-job)) (common-lisp:progn (common-lisp:defun create-transform-job @@ -101164,7 +101163,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTransformJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-transform-job)) (common-lisp:progn (common-lisp:defun create-trial @@ -101184,7 +101183,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrial")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-trial)) (common-lisp:progn (common-lisp:defun create-trial-component @@ -101206,7 +101205,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrialComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-trial-component)) (common-lisp:progn (common-lisp:defun create-user-profile @@ -101228,7 +101227,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-profile)) (common-lisp:progn (common-lisp:defun create-workforce @@ -101248,7 +101247,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWorkforce")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workforce)) (common-lisp:progn (common-lisp:defun create-workteam @@ -101269,7 +101268,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWorkteam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workteam)) (common-lisp:progn (common-lisp:defun delete-action @@ -101286,7 +101285,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-action)) (common-lisp:progn (common-lisp:defun delete-algorithm @@ -101303,7 +101302,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAlgorithm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-algorithm)) (common-lisp:progn (common-lisp:defun delete-app @@ -101323,7 +101322,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app)) (common-lisp:progn (common-lisp:defun delete-app-image-config @@ -101340,7 +101339,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAppImageConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-image-config)) (common-lisp:progn (common-lisp:defun delete-artifact @@ -101357,7 +101356,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-artifact)) (common-lisp:progn (common-lisp:defun delete-association @@ -101374,7 +101373,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-association)) (common-lisp:progn (common-lisp:defun delete-cluster @@ -101391,7 +101390,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-cluster)) (common-lisp:progn (common-lisp:defun delete-code-repository @@ -101408,7 +101407,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCodeRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-code-repository)) (common-lisp:progn (common-lisp:defun delete-compilation-job @@ -101425,7 +101424,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCompilationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-compilation-job)) (common-lisp:progn (common-lisp:defun delete-context @@ -101442,7 +101441,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteContext")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-context)) (common-lisp:progn (common-lisp:defun delete-data-quality-job-definition @@ -101460,7 +101459,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDataQualityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-quality-job-definition)) (common-lisp:progn (common-lisp:defun delete-device-fleet @@ -101477,7 +101476,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDeviceFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device-fleet)) (common-lisp:progn (common-lisp:defun delete-domain @@ -101494,7 +101493,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-edge-deployment-plan @@ -101512,7 +101511,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEdgeDeploymentPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-edge-deployment-plan)) (common-lisp:progn (common-lisp:defun delete-edge-deployment-stage @@ -101531,7 +101530,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEdgeDeploymentStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-edge-deployment-stage)) (common-lisp:progn (common-lisp:defun delete-endpoint @@ -101548,7 +101547,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint)) (common-lisp:progn (common-lisp:defun delete-endpoint-config @@ -101565,7 +101564,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEndpointConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-endpoint-config)) (common-lisp:progn (common-lisp:defun delete-experiment @@ -101582,7 +101581,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-experiment)) (common-lisp:progn (common-lisp:defun delete-feature-group @@ -101599,7 +101598,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFeatureGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-feature-group)) (common-lisp:progn (common-lisp:defun delete-flow-definition @@ -101616,7 +101615,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFlowDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-flow-definition)) (common-lisp:progn (common-lisp:defun delete-hub @@ -101633,7 +101632,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHub")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hub)) (common-lisp:progn (common-lisp:defun delete-hub-content @@ -101653,7 +101652,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHubContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hub-content)) (common-lisp:progn (common-lisp:defun delete-human-task-ui @@ -101670,7 +101669,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHumanTaskUi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-human-task-ui)) (common-lisp:progn (common-lisp:defun delete-hyper-parameter-tuning-job @@ -101689,7 +101688,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHyperParameterTuningJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-hyper-parameter-tuning-job)) (common-lisp:progn (common-lisp:defun delete-image @@ -101706,7 +101705,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image)) (common-lisp:progn (common-lisp:defun delete-image-version @@ -101723,7 +101722,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteImageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-image-version)) (common-lisp:progn (common-lisp:defun delete-inference-component @@ -101740,7 +101739,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInferenceComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-inference-component)) (common-lisp:progn (common-lisp:defun delete-inference-experiment @@ -101758,7 +101757,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInferenceExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-inference-experiment)) (common-lisp:progn (common-lisp:defun delete-model @@ -101775,7 +101774,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model)) (common-lisp:progn (common-lisp:defun delete-model-bias-job-definition @@ -101793,7 +101792,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteModelBiasJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-bias-job-definition)) (common-lisp:progn (common-lisp:defun delete-model-card @@ -101810,7 +101809,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteModelCard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-card)) (common-lisp:progn (common-lisp:defun delete-model-explainability-job-definition @@ -101828,7 +101827,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteModelExplainabilityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-explainability-job-definition)) (common-lisp:progn (common-lisp:defun delete-model-package @@ -101845,7 +101844,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteModelPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-package)) (common-lisp:progn (common-lisp:defun delete-model-package-group @@ -101862,7 +101861,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteModelPackageGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-package-group)) (common-lisp:progn (common-lisp:defun delete-model-package-group-policy @@ -101880,7 +101879,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteModelPackageGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-package-group-policy)) (common-lisp:progn (common-lisp:defun delete-model-quality-job-definition @@ -101898,7 +101897,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteModelQualityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-model-quality-job-definition)) (common-lisp:progn (common-lisp:defun delete-monitoring-schedule @@ -101916,7 +101915,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMonitoringSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-monitoring-schedule)) (common-lisp:progn (common-lisp:defun delete-notebook-instance @@ -101933,7 +101932,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNotebookInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-notebook-instance)) (common-lisp:progn (common-lisp:defun delete-notebook-instance-lifecycle-config @@ -101952,7 +101951,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteNotebookInstanceLifecycleConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-notebook-instance-lifecycle-config)) (common-lisp:progn (common-lisp:defun delete-pipeline @@ -101970,7 +101969,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-pipeline)) (common-lisp:progn (common-lisp:defun delete-project @@ -101987,7 +101986,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-project)) (common-lisp:progn (common-lisp:defun delete-space @@ -102004,7 +102003,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSpace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-space)) (common-lisp:progn (common-lisp:defun delete-studio-lifecycle-config @@ -102022,7 +102021,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStudioLifecycleConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-studio-lifecycle-config)) (common-lisp:progn (common-lisp:defun delete-tags @@ -102039,7 +102038,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun delete-trial @@ -102056,7 +102055,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrial")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-trial)) (common-lisp:progn (common-lisp:defun delete-trial-component @@ -102073,7 +102072,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrialComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-trial-component)) (common-lisp:progn (common-lisp:defun delete-user-profile @@ -102090,7 +102089,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-profile)) (common-lisp:progn (common-lisp:defun delete-workforce @@ -102107,7 +102106,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWorkforce")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workforce)) (common-lisp:progn (common-lisp:defun delete-workteam @@ -102124,7 +102123,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWorkteam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workteam)) (common-lisp:progn (common-lisp:defun deregister-devices @@ -102141,7 +102140,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-devices)) (common-lisp:progn (common-lisp:defun describe-action @@ -102158,7 +102157,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-action)) (common-lisp:progn (common-lisp:defun describe-algorithm @@ -102175,7 +102174,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAlgorithm")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-algorithm)) (common-lisp:progn (common-lisp:defun describe-app @@ -102195,7 +102194,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app)) (common-lisp:progn (common-lisp:defun describe-app-image-config @@ -102213,7 +102212,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAppImageConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app-image-config)) (common-lisp:progn (common-lisp:defun describe-artifact @@ -102230,7 +102229,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-artifact)) (common-lisp:progn (common-lisp:defun describe-auto-mljob @@ -102247,7 +102246,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAutoMLJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-auto-mljob)) (common-lisp:progn (common-lisp:defun describe-auto-mljob-v2 @@ -102264,7 +102263,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAutoMLJobV2")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-auto-mljob-v2)) (common-lisp:progn (common-lisp:defun describe-cluster @@ -102281,7 +102280,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster)) (common-lisp:progn (common-lisp:defun describe-cluster-node @@ -102298,7 +102297,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClusterNode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster-node)) (common-lisp:progn (common-lisp:defun describe-code-repository @@ -102315,7 +102314,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCodeRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-code-repository)) (common-lisp:progn (common-lisp:defun describe-compilation-job @@ -102332,7 +102331,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCompilationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-compilation-job)) (common-lisp:progn (common-lisp:defun describe-context @@ -102349,7 +102348,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeContext")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-context)) (common-lisp:progn (common-lisp:defun describe-data-quality-job-definition @@ -102367,7 +102366,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDataQualityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-data-quality-job-definition)) (common-lisp:progn (common-lisp:defun describe-device @@ -102385,7 +102384,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device)) (common-lisp:progn (common-lisp:defun describe-device-fleet @@ -102402,7 +102401,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDeviceFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device-fleet)) (common-lisp:progn (common-lisp:defun describe-domain @@ -102419,7 +102418,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain)) (common-lisp:progn (common-lisp:defun describe-edge-deployment-plan @@ -102439,7 +102438,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEdgeDeploymentPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-edge-deployment-plan)) (common-lisp:progn (common-lisp:defun describe-edge-packaging-job @@ -102457,7 +102456,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEdgePackagingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-edge-packaging-job)) (common-lisp:progn (common-lisp:defun describe-endpoint @@ -102474,7 +102473,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoint)) (common-lisp:progn (common-lisp:defun describe-endpoint-config @@ -102491,7 +102490,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEndpointConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-endpoint-config)) (common-lisp:progn (common-lisp:defun describe-experiment @@ -102508,7 +102507,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-experiment)) (common-lisp:progn (common-lisp:defun describe-feature-group @@ -102525,7 +102524,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFeatureGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-feature-group)) (common-lisp:progn (common-lisp:defun describe-feature-metadata @@ -102544,7 +102543,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFeatureMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-feature-metadata)) (common-lisp:progn (common-lisp:defun describe-flow-definition @@ -102561,7 +102560,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFlowDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-flow-definition)) (common-lisp:progn (common-lisp:defun describe-hub @@ -102578,7 +102577,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHub")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-hub)) (common-lisp:progn (common-lisp:defun describe-hub-content @@ -102598,7 +102597,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHubContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-hub-content)) (common-lisp:progn (common-lisp:defun describe-human-task-ui @@ -102615,7 +102614,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHumanTaskUi")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-human-task-ui)) (common-lisp:progn (common-lisp:defun describe-hyper-parameter-tuning-job @@ -102634,7 +102633,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHyperParameterTuningJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-hyper-parameter-tuning-job)) (common-lisp:progn (common-lisp:defun describe-image @@ -102651,7 +102650,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image)) (common-lisp:progn (common-lisp:defun describe-image-version @@ -102668,7 +102667,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image-version)) (common-lisp:progn (common-lisp:defun describe-inference-component @@ -102686,7 +102685,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInferenceComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-inference-component)) (common-lisp:progn (common-lisp:defun describe-inference-experiment @@ -102704,7 +102703,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInferenceExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-inference-experiment)) (common-lisp:progn (common-lisp:defun describe-inference-recommendations-job @@ -102722,7 +102721,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInferenceRecommendationsJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-inference-recommendations-job)) (common-lisp:progn (common-lisp:defun describe-labeling-job @@ -102739,7 +102738,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLabelingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-labeling-job)) (common-lisp:progn (common-lisp:defun describe-lineage-group @@ -102756,7 +102755,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLineageGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-lineage-group)) (common-lisp:progn (common-lisp:defun describe-model @@ -102773,7 +102772,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model)) (common-lisp:progn (common-lisp:defun describe-model-bias-job-definition @@ -102791,7 +102790,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeModelBiasJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-bias-job-definition)) (common-lisp:progn (common-lisp:defun describe-model-card @@ -102809,7 +102808,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeModelCard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-card)) (common-lisp:progn (common-lisp:defun describe-model-card-export-job @@ -102827,7 +102826,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeModelCardExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-card-export-job)) (common-lisp:progn (common-lisp:defun describe-model-explainability-job-definition @@ -102845,7 +102844,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeModelExplainabilityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-explainability-job-definition)) (common-lisp:progn (common-lisp:defun describe-model-package @@ -102862,7 +102861,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeModelPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-package)) (common-lisp:progn (common-lisp:defun describe-model-package-group @@ -102880,7 +102879,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeModelPackageGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-package-group)) (common-lisp:progn (common-lisp:defun describe-model-quality-job-definition @@ -102898,7 +102897,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeModelQualityJobDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-model-quality-job-definition)) (common-lisp:progn (common-lisp:defun describe-monitoring-schedule @@ -102916,7 +102915,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMonitoringSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-monitoring-schedule)) (common-lisp:progn (common-lisp:defun describe-notebook-instance @@ -102933,7 +102932,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNotebookInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-notebook-instance)) (common-lisp:progn (common-lisp:defun describe-notebook-instance-lifecycle-config @@ -102952,7 +102951,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeNotebookInstanceLifecycleConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-notebook-instance-lifecycle-config)) (common-lisp:progn (common-lisp:defun describe-pipeline @@ -102969,7 +102968,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pipeline)) (common-lisp:progn (common-lisp:defun describe-pipeline-definition-for-execution @@ -102987,7 +102986,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePipelineDefinitionForExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pipeline-definition-for-execution)) (common-lisp:progn (common-lisp:defun describe-pipeline-execution @@ -103005,7 +103004,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-pipeline-execution)) (common-lisp:progn (common-lisp:defun describe-processing-job @@ -103022,7 +103021,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProcessingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-processing-job)) (common-lisp:progn (common-lisp:defun describe-project @@ -103039,7 +103038,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-project)) (common-lisp:progn (common-lisp:defun describe-space @@ -103056,7 +103055,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-space)) (common-lisp:progn (common-lisp:defun describe-studio-lifecycle-config @@ -103074,7 +103073,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStudioLifecycleConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-studio-lifecycle-config)) (common-lisp:progn (common-lisp:defun describe-subscribed-workteam @@ -103092,7 +103091,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSubscribedWorkteam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-subscribed-workteam)) (common-lisp:progn (common-lisp:defun describe-training-job @@ -103109,7 +103108,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrainingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-training-job)) (common-lisp:progn (common-lisp:defun describe-transform-job @@ -103126,7 +103125,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTransformJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-transform-job)) (common-lisp:progn (common-lisp:defun describe-trial @@ -103143,7 +103142,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrial")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trial)) (common-lisp:progn (common-lisp:defun describe-trial-component @@ -103160,7 +103159,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrialComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trial-component)) (common-lisp:progn (common-lisp:defun describe-user-profile @@ -103177,7 +103176,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user-profile)) (common-lisp:progn (common-lisp:defun describe-workforce @@ -103194,7 +103193,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkforce")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workforce)) (common-lisp:progn (common-lisp:defun describe-workteam @@ -103211,7 +103210,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkteam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workteam)) (common-lisp:progn (common-lisp:defun disable-sagemaker-servicecatalog-portfolio () @@ -103239,7 +103238,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateTrialComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-trial-component)) (common-lisp:progn (common-lisp:defun enable-sagemaker-servicecatalog-portfolio () @@ -103265,7 +103264,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeviceFleetReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device-fleet-report)) (common-lisp:progn (common-lisp:defun get-lineage-group-policy @@ -103282,7 +103281,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLineageGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lineage-group-policy)) (common-lisp:progn (common-lisp:defun get-model-package-group-policy @@ -103300,7 +103299,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetModelPackageGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-model-package-group-policy)) (common-lisp:progn (common-lisp:defun get-sagemaker-servicecatalog-portfolio-status () @@ -103331,7 +103330,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetScalingConfigurationRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-scaling-configuration-recommendation)) (common-lisp:progn (common-lisp:defun get-search-suggestions @@ -103348,7 +103347,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSearchSuggestions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-search-suggestions)) (common-lisp:progn (common-lisp:defun import-hub-content @@ -103373,7 +103372,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportHubContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-hub-content)) (common-lisp:progn (common-lisp:defun list-actions @@ -103393,7 +103392,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-actions)) (common-lisp:progn (common-lisp:defun list-algorithms @@ -103413,7 +103412,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAlgorithms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-algorithms)) (common-lisp:progn (common-lisp:defun list-aliases @@ -103432,7 +103431,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-aliases)) (common-lisp:progn (common-lisp:defun list-app-image-configs @@ -103455,7 +103454,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAppImageConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-app-image-configs)) (common-lisp:progn (common-lisp:defun list-apps @@ -103475,7 +103474,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-request aws-sdk/generator/operation::input "POST" "/" "ListApps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-apps)) (common-lisp:progn (common-lisp:defun list-artifacts @@ -103495,7 +103494,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListArtifacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-artifacts)) (common-lisp:progn (common-lisp:defun list-associations @@ -103517,7 +103516,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associations)) (common-lisp:progn (common-lisp:defun list-auto-mljobs @@ -103540,7 +103539,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAutoMLJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-auto-mljobs)) (common-lisp:progn (common-lisp:defun list-candidates-for-auto-mljob @@ -103562,7 +103561,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCandidatesForAutoMLJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-candidates-for-auto-mljob)) (common-lisp:progn (common-lisp:defun list-cluster-nodes @@ -103584,7 +103583,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListClusterNodes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cluster-nodes)) (common-lisp:progn (common-lisp:defun list-clusters @@ -103604,7 +103603,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters)) (common-lisp:progn (common-lisp:defun list-code-repositories @@ -103626,7 +103625,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCodeRepositories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-code-repositories)) (common-lisp:progn (common-lisp:defun list-compilation-jobs @@ -103649,7 +103648,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCompilationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-compilation-jobs)) (common-lisp:progn (common-lisp:defun list-contexts @@ -103669,7 +103668,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListContexts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contexts)) (common-lisp:progn (common-lisp:defun list-data-quality-job-definitions @@ -103691,7 +103690,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDataQualityJobDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-quality-job-definitions)) (common-lisp:progn (common-lisp:defun list-device-fleets @@ -103714,7 +103713,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeviceFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-fleets)) (common-lisp:progn (common-lisp:defun list-devices @@ -103734,7 +103733,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices)) (common-lisp:progn (common-lisp:defun list-domains @@ -103751,7 +103750,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-edge-deployment-plans @@ -103776,7 +103775,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEdgeDeploymentPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-edge-deployment-plans)) (common-lisp:progn (common-lisp:defun list-edge-packaging-jobs @@ -103800,7 +103799,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEdgePackagingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-edge-packaging-jobs)) (common-lisp:progn (common-lisp:defun list-endpoint-configs @@ -103820,7 +103819,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEndpointConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-endpoint-configs)) (common-lisp:progn (common-lisp:defun list-endpoints @@ -103843,7 +103842,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEndpoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-endpoints)) (common-lisp:progn (common-lisp:defun list-experiments @@ -103863,7 +103862,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExperiments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-experiments)) (common-lisp:progn (common-lisp:defun list-feature-groups @@ -103886,7 +103885,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFeatureGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-feature-groups)) (common-lisp:progn (common-lisp:defun list-flow-definitions @@ -103906,7 +103905,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFlowDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-flow-definitions)) (common-lisp:progn (common-lisp:defun list-hub-content-versions @@ -103930,7 +103929,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListHubContentVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hub-content-versions)) (common-lisp:progn (common-lisp:defun list-hub-contents @@ -103953,7 +103952,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListHubContents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hub-contents)) (common-lisp:progn (common-lisp:defun list-hubs @@ -103975,7 +103974,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-request aws-sdk/generator/operation::input "POST" "/" "ListHubs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hubs)) (common-lisp:progn (common-lisp:defun list-human-task-uis @@ -103995,7 +103994,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListHumanTaskUis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-human-task-uis)) (common-lisp:progn (common-lisp:defun list-hyper-parameter-tuning-jobs @@ -104019,7 +104018,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListHyperParameterTuningJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-hyper-parameter-tuning-jobs)) (common-lisp:progn (common-lisp:defun list-image-versions @@ -104042,7 +104041,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImageVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-image-versions)) (common-lisp:progn (common-lisp:defun list-images @@ -104064,7 +104063,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-images)) (common-lisp:progn (common-lisp:defun list-inference-components @@ -104088,7 +104087,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListInferenceComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inference-components)) (common-lisp:progn (common-lisp:defun list-inference-experiments @@ -104112,7 +104111,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListInferenceExperiments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inference-experiments)) (common-lisp:progn (common-lisp:defun list-inference-recommendations-job-steps @@ -104132,7 +104131,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListInferenceRecommendationsJobSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inference-recommendations-job-steps)) (common-lisp:progn (common-lisp:defun list-inference-recommendations-jobs @@ -104158,7 +104157,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListInferenceRecommendationsJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inference-recommendations-jobs)) (common-lisp:progn (common-lisp:defun list-labeling-jobs @@ -104181,7 +104180,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLabelingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-labeling-jobs)) (common-lisp:progn (common-lisp:defun list-labeling-jobs-for-workteam @@ -104204,7 +104203,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLabelingJobsForWorkteam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-labeling-jobs-for-workteam)) (common-lisp:progn (common-lisp:defun list-lineage-groups @@ -104224,7 +104223,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLineageGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lineage-groups)) (common-lisp:progn (common-lisp:defun list-model-bias-job-definitions @@ -104246,7 +104245,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelBiasJobDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-bias-job-definitions)) (common-lisp:progn (common-lisp:defun list-model-card-export-jobs @@ -104271,7 +104270,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelCardExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-card-export-jobs)) (common-lisp:progn (common-lisp:defun list-model-card-versions @@ -104292,7 +104291,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelCardVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-card-versions)) (common-lisp:progn (common-lisp:defun list-model-cards @@ -104313,7 +104312,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelCards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-cards)) (common-lisp:progn (common-lisp:defun list-model-explainability-job-definitions @@ -104335,7 +104334,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelExplainabilityJobDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-explainability-job-definitions)) (common-lisp:progn (common-lisp:defun list-model-metadata @@ -104353,7 +104352,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-metadata)) (common-lisp:progn (common-lisp:defun list-model-package-groups @@ -104373,7 +104372,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelPackageGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-package-groups)) (common-lisp:progn (common-lisp:defun list-model-packages @@ -104396,7 +104395,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelPackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-packages)) (common-lisp:progn (common-lisp:defun list-model-quality-job-definitions @@ -104418,7 +104417,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModelQualityJobDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-model-quality-job-definitions)) (common-lisp:progn (common-lisp:defun list-models @@ -104438,7 +104437,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-models)) (common-lisp:progn (common-lisp:defun list-monitoring-alert-history @@ -104462,7 +104461,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMonitoringAlertHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitoring-alert-history)) (common-lisp:progn (common-lisp:defun list-monitoring-alerts @@ -104481,7 +104480,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMonitoringAlerts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitoring-alerts)) (common-lisp:progn (common-lisp:defun list-monitoring-executions @@ -104510,7 +104509,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMonitoringExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitoring-executions)) (common-lisp:progn (common-lisp:defun list-monitoring-schedules @@ -104536,7 +104535,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMonitoringSchedules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-monitoring-schedules)) (common-lisp:progn (common-lisp:defun list-notebook-instance-lifecycle-configs @@ -104559,7 +104558,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListNotebookInstanceLifecycleConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notebook-instance-lifecycle-configs)) (common-lisp:progn (common-lisp:defun list-notebook-instances @@ -104587,7 +104586,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListNotebookInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notebook-instances)) (common-lisp:progn (common-lisp:defun list-pipeline-execution-steps @@ -104608,7 +104607,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPipelineExecutionSteps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipeline-execution-steps)) (common-lisp:progn (common-lisp:defun list-pipeline-executions @@ -104628,7 +104627,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPipelineExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipeline-executions)) (common-lisp:progn (common-lisp:defun list-pipeline-parameters-for-execution @@ -104648,7 +104647,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPipelineParametersForExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipeline-parameters-for-execution)) (common-lisp:progn (common-lisp:defun list-pipelines @@ -104668,7 +104667,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPipelines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pipelines)) (common-lisp:progn (common-lisp:defun list-processing-jobs @@ -104691,7 +104690,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProcessingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-processing-jobs)) (common-lisp:progn (common-lisp:defun list-projects @@ -104711,7 +104710,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProjects")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-projects)) (common-lisp:progn (common-lisp:defun list-resource-catalogs @@ -104732,7 +104731,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceCatalogs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-catalogs)) (common-lisp:progn (common-lisp:defun list-spaces @@ -104752,7 +104751,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSpaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-spaces)) (common-lisp:progn (common-lisp:defun list-stage-devices @@ -104773,7 +104772,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStageDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stage-devices)) (common-lisp:progn (common-lisp:defun list-studio-lifecycle-configs @@ -104797,7 +104796,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStudioLifecycleConfigs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-studio-lifecycle-configs)) (common-lisp:progn (common-lisp:defun list-subscribed-workteams @@ -104816,7 +104815,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSubscribedWorkteams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscribed-workteams)) (common-lisp:progn (common-lisp:defun list-tags @@ -104833,7 +104832,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-request aws-sdk/generator/operation::input "POST" "/" "ListTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags)) (common-lisp:progn (common-lisp:defun list-training-jobs @@ -104857,7 +104856,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTrainingJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-training-jobs)) (common-lisp:progn (common-lisp:defun list-training-jobs-for-hyper-parameter-tuning-job @@ -104878,7 +104877,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTrainingJobsForHyperParameterTuningJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-training-jobs-for-hyper-parameter-tuning-job)) (common-lisp:progn (common-lisp:defun list-transform-jobs @@ -104901,7 +104900,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTransformJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-transform-jobs)) (common-lisp:progn (common-lisp:defun list-trial-components @@ -104922,7 +104921,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTrialComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-trial-components)) (common-lisp:progn (common-lisp:defun list-trials @@ -104943,7 +104942,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTrials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-trials)) (common-lisp:progn (common-lisp:defun list-user-profiles @@ -104963,7 +104962,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUserProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-profiles)) (common-lisp:progn (common-lisp:defun list-workforces @@ -104983,7 +104982,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWorkforces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workforces)) (common-lisp:progn (common-lisp:defun list-workteams @@ -105003,7 +105002,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWorkteams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workteams)) (common-lisp:progn (common-lisp:defun put-model-package-group-policy @@ -105022,7 +105021,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutModelPackageGroupPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-model-package-group-policy)) (common-lisp:progn (common-lisp:defun query-lineage @@ -105042,7 +105041,7 @@ aws-sdk/generator/operation::input "POST" "/" "QueryLineage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query-lineage)) (common-lisp:progn (common-lisp:defun register-devices @@ -105059,7 +105058,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-devices)) (common-lisp:progn (common-lisp:defun render-ui-template @@ -105078,7 +105077,7 @@ aws-sdk/generator/operation::input "POST" "/" "RenderUiTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'render-ui-template)) (common-lisp:progn (common-lisp:defun retry-pipeline-execution @@ -105098,7 +105097,7 @@ aws-sdk/generator/operation::input "POST" "/" "RetryPipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retry-pipeline-execution)) (common-lisp:progn (common-lisp:defun search @@ -105118,7 +105117,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sagemaker-request aws-sdk/generator/operation::input "POST" "/" "Search")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search)) (common-lisp:progn (common-lisp:defun send-pipeline-execution-step-failure @@ -105138,7 +105137,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendPipelineExecutionStepFailure")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-pipeline-execution-step-failure)) (common-lisp:progn (common-lisp:defun send-pipeline-execution-step-success @@ -105159,7 +105158,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendPipelineExecutionStepSuccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-pipeline-execution-step-success)) (common-lisp:progn (common-lisp:defun start-edge-deployment-stage @@ -105178,7 +105177,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartEdgeDeploymentStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-edge-deployment-stage)) (common-lisp:progn (common-lisp:defun start-inference-experiment @@ -105196,7 +105195,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartInferenceExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-inference-experiment)) (common-lisp:progn (common-lisp:defun start-monitoring-schedule @@ -105214,7 +105213,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMonitoringSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-monitoring-schedule)) (common-lisp:progn (common-lisp:defun start-notebook-instance @@ -105231,7 +105230,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartNotebookInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-notebook-instance)) (common-lisp:progn (common-lisp:defun start-pipeline-execution @@ -105254,7 +105253,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartPipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-pipeline-execution)) (common-lisp:progn (common-lisp:defun stop-auto-mljob @@ -105271,7 +105270,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopAutoMLJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-auto-mljob)) (common-lisp:progn (common-lisp:defun stop-compilation-job @@ -105288,7 +105287,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopCompilationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-compilation-job)) (common-lisp:progn (common-lisp:defun stop-edge-deployment-stage @@ -105307,7 +105306,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopEdgeDeploymentStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-edge-deployment-stage)) (common-lisp:progn (common-lisp:defun stop-edge-packaging-job @@ -105324,7 +105323,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopEdgePackagingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-edge-packaging-job)) (common-lisp:progn (common-lisp:defun stop-hyper-parameter-tuning-job @@ -105343,7 +105342,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopHyperParameterTuningJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-hyper-parameter-tuning-job)) (common-lisp:progn (common-lisp:defun stop-inference-experiment @@ -105364,7 +105363,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopInferenceExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-inference-experiment)) (common-lisp:progn (common-lisp:defun stop-inference-recommendations-job @@ -105382,7 +105381,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopInferenceRecommendationsJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-inference-recommendations-job)) (common-lisp:progn (common-lisp:defun stop-labeling-job @@ -105399,7 +105398,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopLabelingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-labeling-job)) (common-lisp:progn (common-lisp:defun stop-monitoring-schedule @@ -105416,7 +105415,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopMonitoringSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-monitoring-schedule)) (common-lisp:progn (common-lisp:defun stop-notebook-instance @@ -105433,7 +105432,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopNotebookInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-notebook-instance)) (common-lisp:progn (common-lisp:defun stop-pipeline-execution @@ -105452,7 +105451,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopPipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-pipeline-execution)) (common-lisp:progn (common-lisp:defun stop-processing-job @@ -105469,7 +105468,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopProcessingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-processing-job)) (common-lisp:progn (common-lisp:defun stop-training-job @@ -105486,7 +105485,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopTrainingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-training-job)) (common-lisp:progn (common-lisp:defun stop-transform-job @@ -105503,7 +105502,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopTransformJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-transform-job)) (common-lisp:progn (common-lisp:defun update-action @@ -105523,7 +105522,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-action)) (common-lisp:progn (common-lisp:defun update-app-image-config @@ -105543,7 +105542,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAppImageConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app-image-config)) (common-lisp:progn (common-lisp:defun update-artifact @@ -105563,7 +105562,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-artifact)) (common-lisp:progn (common-lisp:defun update-cluster @@ -105580,7 +105579,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster)) (common-lisp:progn (common-lisp:defun update-cluster-software @@ -105597,7 +105596,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateClusterSoftware")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster-software)) (common-lisp:progn (common-lisp:defun update-code-repository @@ -105615,7 +105614,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCodeRepository")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-code-repository)) (common-lisp:progn (common-lisp:defun update-context @@ -105635,7 +105634,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateContext")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-context)) (common-lisp:progn (common-lisp:defun update-device-fleet @@ -105655,7 +105654,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDeviceFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device-fleet)) (common-lisp:progn (common-lisp:defun update-devices @@ -105672,7 +105671,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-devices)) (common-lisp:progn (common-lisp:defun update-domain @@ -105694,7 +105693,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain)) (common-lisp:progn (common-lisp:defun update-endpoint @@ -105717,7 +105716,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-endpoint)) (common-lisp:progn (common-lisp:defun update-endpoint-weights-and-capacities @@ -105737,7 +105736,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEndpointWeightsAndCapacities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-endpoint-weights-and-capacities)) (common-lisp:progn (common-lisp:defun update-experiment @@ -105755,7 +105754,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-experiment)) (common-lisp:progn (common-lisp:defun update-feature-group @@ -105775,7 +105774,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFeatureGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-feature-group)) (common-lisp:progn (common-lisp:defun update-feature-metadata @@ -105795,7 +105794,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateFeatureMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-feature-metadata)) (common-lisp:progn (common-lisp:defun update-hub @@ -105815,7 +105814,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateHub")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-hub)) (common-lisp:progn (common-lisp:defun update-image @@ -105835,7 +105834,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-image)) (common-lisp:progn (common-lisp:defun update-image-version @@ -105857,7 +105856,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateImageVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-image-version)) (common-lisp:progn (common-lisp:defun update-inference-component @@ -105877,7 +105876,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateInferenceComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-inference-component)) (common-lisp:progn (common-lisp:defun update-inference-component-runtime-config @@ -105897,7 +105896,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateInferenceComponentRuntimeConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-inference-component-runtime-config)) (common-lisp:progn (common-lisp:defun update-inference-experiment @@ -105918,7 +105917,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateInferenceExperiment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-inference-experiment)) (common-lisp:progn (common-lisp:defun update-model-card @@ -105937,7 +105936,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateModelCard")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model-card)) (common-lisp:progn (common-lisp:defun update-model-package @@ -105963,7 +105962,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateModelPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-model-package)) (common-lisp:progn (common-lisp:defun update-monitoring-alert @@ -105984,7 +105983,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMonitoringAlert")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-monitoring-alert)) (common-lisp:progn (common-lisp:defun update-monitoring-schedule @@ -106005,7 +106004,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMonitoringSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-monitoring-schedule)) (common-lisp:progn (common-lisp:defun update-notebook-instance @@ -106035,7 +106034,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateNotebookInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-notebook-instance)) (common-lisp:progn (common-lisp:defun update-notebook-instance-lifecycle-config @@ -106056,7 +106055,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateNotebookInstanceLifecycleConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-notebook-instance-lifecycle-config)) (common-lisp:progn (common-lisp:defun update-pipeline @@ -106078,7 +106077,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePipeline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipeline)) (common-lisp:progn (common-lisp:defun update-pipeline-execution @@ -106101,7 +106100,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePipelineExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-pipeline-execution)) (common-lisp:progn (common-lisp:defun update-project @@ -106121,7 +106120,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProject")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-project)) (common-lisp:progn (common-lisp:defun update-space @@ -106141,7 +106140,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSpace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-space)) (common-lisp:progn (common-lisp:defun update-training-job @@ -106162,7 +106161,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTrainingJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-training-job)) (common-lisp:progn (common-lisp:defun update-trial @@ -106179,7 +106178,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTrial")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-trial)) (common-lisp:progn (common-lisp:defun update-trial-component @@ -106202,7 +106201,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTrialComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-trial-component)) (common-lisp:progn (common-lisp:defun update-user-profile @@ -106221,7 +106220,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUserProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-profile)) (common-lisp:progn (common-lisp:defun update-workforce @@ -106241,7 +106240,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWorkforce")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workforce)) (common-lisp:progn (common-lisp:defun update-workteam @@ -106261,5 +106260,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWorkteam")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workteam)) diff --git a/services/savingsplans/api.lisp b/services/savingsplans/api.lisp index ccb00ad2..99b8284d 100644 --- a/services/savingsplans/api.lisp +++ b/services/savingsplans/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/savingsplans/api - (:use) - (:nicknames #:aws/savingsplans) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/savingsplans/api (:use) + (:nicknames #:aws/savingsplans) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/savingsplans/api) (common-lisp:progn (common-lisp:define-condition savingsplans-error @@ -20,7 +19,7 @@ (common-lisp:export 'savingsplans-error)) (common-lisp:progn (common-lisp:defclass savingsplans-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "savingsplans" :api-version "2019-06-28" :host-prefix "savingsplans" :signing-name @@ -2819,7 +2818,7 @@ "POST" "/CreateSavingsPlan" "CreateSavingsPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-savings-plan)) (common-lisp:progn (common-lisp:defun delete-queued-savings-plan @@ -2838,7 +2837,7 @@ "POST" "/DeleteQueuedSavingsPlan" "DeleteQueuedSavingsPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-queued-savings-plan)) (common-lisp:progn (common-lisp:defun describe-savings-plan-rates @@ -2859,7 +2858,7 @@ "POST" "/DescribeSavingsPlanRates" "DescribeSavingsPlanRates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-savings-plan-rates)) (common-lisp:progn (common-lisp:defun describe-savings-plans @@ -2880,7 +2879,7 @@ "POST" "/DescribeSavingsPlans" "DescribeSavingsPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-savings-plans)) (common-lisp:progn (common-lisp:defun describe-savings-plans-offering-rates @@ -2905,7 +2904,7 @@ "POST" "/DescribeSavingsPlansOfferingRates" "DescribeSavingsPlansOfferingRates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-savings-plans-offering-rates)) (common-lisp:progn (common-lisp:defun describe-savings-plans-offerings @@ -2929,7 +2928,7 @@ "POST" "/DescribeSavingsPlansOfferings" "DescribeSavingsPlansOfferings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-savings-plans-offerings)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2947,7 +2946,7 @@ "POST" "/ListTagsForResource" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2964,7 +2963,7 @@ aws-sdk/generator/operation::input "POST" "/TagResource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2981,5 +2980,5 @@ aws-sdk/generator/operation::input "POST" "/UntagResource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/scheduler/api.lisp b/services/scheduler/api.lisp index 5b6671be..eb0b0cb1 100644 --- a/services/scheduler/api.lisp +++ b/services/scheduler/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/scheduler/api - (:use) - (:nicknames #:aws/scheduler) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/scheduler/api (:use) + (:nicknames #:aws/scheduler) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/scheduler/api) (common-lisp:progn (common-lisp:define-condition scheduler-error @@ -20,7 +19,7 @@ (common-lisp:export 'scheduler-error)) (common-lisp:progn (common-lisp:defclass scheduler-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "scheduler" :api-version "2021-06-30" :host-prefix "scheduler" :signing-name @@ -2971,12 +2970,13 @@ (common-lisp:format common-lisp:nil "/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-schedule)) (common-lisp:progn (common-lisp:defun create-schedule-group @@ -2998,12 +2998,13 @@ (common-lisp:format common-lisp:nil "/schedule-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "CreateScheduleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-schedule-group)) (common-lisp:progn (common-lisp:defun delete-schedule @@ -3025,12 +3026,13 @@ (common-lisp:format common-lisp:nil "/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schedule)) (common-lisp:progn (common-lisp:defun delete-schedule-group @@ -3052,12 +3054,13 @@ (common-lisp:format common-lisp:nil "/schedule-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteScheduleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schedule-group)) (common-lisp:progn (common-lisp:defun get-schedule @@ -3079,12 +3082,13 @@ (common-lisp:format common-lisp:nil "/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schedule)) (common-lisp:progn (common-lisp:defun get-schedule-group @@ -3106,12 +3110,13 @@ (common-lisp:format common-lisp:nil "/schedule-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetScheduleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schedule-group)) (common-lisp:progn (common-lisp:defun list-schedule-groups @@ -3130,7 +3135,7 @@ "GET" "/schedule-groups" "ListScheduleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schedule-groups)) (common-lisp:progn (common-lisp:defun list-schedules @@ -3150,7 +3155,7 @@ aws-sdk/generator/operation::input "GET" "/schedules" "ListSchedules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schedules)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3172,12 +3177,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3199,12 +3205,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3226,12 +3233,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-schedule @@ -3259,10 +3267,11 @@ (common-lisp:format common-lisp:nil "/schedules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-schedule)) diff --git a/services/schemas/api.lisp b/services/schemas/api.lisp index 4f21e4b4..e60eccfc 100644 --- a/services/schemas/api.lisp +++ b/services/schemas/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/schemas/api - (:use) - (:nicknames #:aws/schemas) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/schemas/api (:use) + (:nicknames #:aws/schemas) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/schemas/api) (common-lisp:progn (common-lisp:define-condition schemas-error @@ -20,7 +19,7 @@ (common-lisp:export 'schemas-error)) (common-lisp:progn (common-lisp:defclass schemas-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "schemas" :api-version "2019-12-02" :host-prefix "schemas" :signing-name @@ -2146,7 +2145,13 @@ ( (aws-sdk/generator/shape::input get-code-binding-source-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'body))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'body)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-code-binding-source-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-discovered-schema-input common-lisp:nil ((events :initarg :events :initform @@ -5532,7 +5537,7 @@ "POST" "/v1/discoverers" "CreateDiscoverer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-discoverer)) (common-lisp:progn (common-lisp:defun create-registry @@ -5554,12 +5559,13 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)))) + 'registry-name) + common-lisp:t))) "CreateRegistry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-registry)) (common-lisp:progn (common-lisp:defun create-schema @@ -5584,16 +5590,18 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "CreateSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-schema)) (common-lisp:progn (common-lisp:defun delete-discoverer @@ -5615,12 +5623,13 @@ (common-lisp:format common-lisp:nil "/v1/discoverers/id/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'discoverer-id)))) + 'discoverer-id) + common-lisp:t))) "DeleteDiscoverer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-discoverer)) (common-lisp:progn (common-lisp:defun delete-registry @@ -5642,12 +5651,13 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)))) + 'registry-name) + common-lisp:t))) "DeleteRegistry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-registry)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -5664,7 +5674,7 @@ aws-sdk/generator/operation::input "DELETE" "/v1/policy" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-schema @@ -5686,16 +5696,18 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "DeleteSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schema)) (common-lisp:progn (common-lisp:defun delete-schema-version @@ -5718,20 +5730,23 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A/version/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)) - (quri.encode:url-encode + 'schema-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-version)))) + 'schema-version) + common-lisp:t))) "DeleteSchemaVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-schema-version)) (common-lisp:progn (common-lisp:defun describe-code-binding @@ -5755,20 +5770,23 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A/language/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)) - (quri.encode:url-encode + 'schema-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'language)))) + 'language) + common-lisp:t))) "DescribeCodeBinding")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-code-binding)) (common-lisp:progn (common-lisp:defun describe-discoverer @@ -5790,12 +5808,13 @@ (common-lisp:format common-lisp:nil "/v1/discoverers/id/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'discoverer-id)))) + 'discoverer-id) + common-lisp:t))) "DescribeDiscoverer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-discoverer)) (common-lisp:progn (common-lisp:defun describe-registry @@ -5817,12 +5836,13 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)))) + 'registry-name) + common-lisp:t))) "DescribeRegistry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-registry)) (common-lisp:progn (common-lisp:defun describe-schema @@ -5845,16 +5865,18 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "DescribeSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-schema)) (common-lisp:progn (common-lisp:defun get-code-binding-source @@ -5878,21 +5900,24 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A/language/~A/source" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)) - (quri.encode:url-encode + 'schema-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'language)))) + 'language) + common-lisp:t))) "GetCodeBindingSource") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-code-binding-source)) (common-lisp:progn (common-lisp:defun get-discovered-schema @@ -5909,7 +5934,7 @@ aws-sdk/generator/operation::input "POST" "/v1/discover" "GetDiscoveredSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-discovered-schema)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -5926,7 +5951,7 @@ aws-sdk/generator/operation::input "GET" "/v1/policy" "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun list-discoverers @@ -5946,7 +5971,7 @@ aws-sdk/generator/operation::input "GET" "/v1/discoverers" "ListDiscoverers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-discoverers)) (common-lisp:progn (common-lisp:defun list-registries @@ -5965,7 +5990,7 @@ aws-sdk/generator/operation::input "GET" "/v1/registries" "ListRegistries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-registries)) (common-lisp:progn (common-lisp:defun list-schema-versions @@ -5989,16 +6014,18 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "ListSchemaVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schema-versions)) (common-lisp:progn (common-lisp:defun list-schemas @@ -6022,12 +6049,13 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)))) + 'registry-name) + common-lisp:t))) "ListSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-schemas)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6049,12 +6077,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-code-binding @@ -6078,20 +6107,23 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A/language/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)) - (quri.encode:url-encode + 'schema-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'language)))) + 'language) + common-lisp:t))) "PutCodeBinding")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-code-binding)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -6109,7 +6141,7 @@ aws-sdk/generator/operation::input "PUT" "/v1/policy" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun search-schemas @@ -6132,12 +6164,13 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)))) + 'registry-name) + common-lisp:t))) "SearchSchemas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-schemas)) (common-lisp:progn (common-lisp:defun start-discoverer @@ -6159,12 +6192,13 @@ (common-lisp:format common-lisp:nil "/v1/discoverers/id/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'discoverer-id)))) + 'discoverer-id) + common-lisp:t))) "StartDiscoverer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-discoverer)) (common-lisp:progn (common-lisp:defun stop-discoverer @@ -6186,12 +6220,13 @@ (common-lisp:format common-lisp:nil "/v1/discoverers/id/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'discoverer-id)))) + 'discoverer-id) + common-lisp:t))) "StopDiscoverer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-discoverer)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6213,12 +6248,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6240,12 +6276,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-discoverer @@ -6268,12 +6305,13 @@ (common-lisp:format common-lisp:nil "/v1/discoverers/id/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'discoverer-id)))) + 'discoverer-id) + common-lisp:t))) "UpdateDiscoverer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-discoverer)) (common-lisp:progn (common-lisp:defun update-registry @@ -6295,12 +6333,13 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)))) + 'registry-name) + common-lisp:t))) "UpdateRegistry")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-registry)) (common-lisp:progn (common-lisp:defun update-schema @@ -6325,16 +6364,18 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "UpdateSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-schema)) (common-lisp:progn (common-lisp:defun export-schema @@ -6358,14 +6399,16 @@ (common-lisp:format common-lisp:nil "/v1/registries/name/~A/schemas/name/~A/export" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'registry-name)) - (quri.encode:url-encode + 'registry-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'schema-name)))) + 'schema-name) + common-lisp:t))) "ExportSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-schema)) diff --git a/services/sdb/api.lisp b/services/sdb/api.lisp index 47402909..17c45768 100644 --- a/services/sdb/api.lisp +++ b/services/sdb/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sdb/api - (:use) - (:nicknames #:aws/sdb) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sdb/api (:use) + (:nicknames #:aws/sdb) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sdb/api) (common-lisp:progn (common-lisp:define-condition sdb-error @@ -1427,7 +1426,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDeleteAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'batch-delete-attributes)) (common-lisp:progn (common-lisp:defun batch-put-attributes @@ -1444,7 +1443,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchPutAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'batch-put-attributes)) (common-lisp:progn (common-lisp:defun create-domain @@ -1461,7 +1460,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun delete-attributes @@ -1480,7 +1479,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-attributes)) (common-lisp:progn (common-lisp:defun delete-domain @@ -1497,7 +1496,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun domain-metadata @@ -1514,7 +1513,7 @@ aws-sdk/generator/operation::input "POST" "/" "DomainMetadata")) - common-lisp:nil "DomainMetadataResult" *error-map*))) + common-lisp:nil "DomainMetadataResult" *error-map* common-lisp:nil))) (common-lisp:export 'domain-metadata)) (common-lisp:progn (common-lisp:defun get-attributes @@ -1534,7 +1533,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAttributes")) - common-lisp:nil "GetAttributesResult" *error-map*))) + common-lisp:nil "GetAttributesResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-attributes)) (common-lisp:progn (common-lisp:defun list-domains @@ -1552,7 +1551,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDomains")) - common-lisp:nil "ListDomainsResult" *error-map*))) + common-lisp:nil "ListDomainsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun put-attributes @@ -1571,7 +1570,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-attributes)) (common-lisp:progn (common-lisp:defun select @@ -1589,5 +1588,5 @@ (aws-sdk/generator/shape:make-request-with-input 'sdb-request aws-sdk/generator/operation::input "POST" "/" "Select")) - common-lisp:nil "SelectResult" *error-map*))) + common-lisp:nil "SelectResult" *error-map* common-lisp:nil))) (common-lisp:export 'select)) diff --git a/services/secretsmanager/api.lisp b/services/secretsmanager/api.lisp index a7933320..578d16f0 100644 --- a/services/secretsmanager/api.lisp +++ b/services/secretsmanager/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/secretsmanager/api - (:use) - (:nicknames #:aws/secretsmanager) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/secretsmanager/api (:use) + (:nicknames #:aws/secretsmanager) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/secretsmanager/api) (common-lisp:progn (common-lisp:define-condition secretsmanager-error @@ -4363,7 +4362,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchGetSecretValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-secret-value)) (common-lisp:progn (common-lisp:defun cancel-rotate-secret @@ -4380,7 +4379,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelRotateSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-rotate-secret)) (common-lisp:progn (common-lisp:defun create-secret @@ -4402,7 +4401,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-secret)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -4419,7 +4418,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-secret @@ -4439,7 +4438,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-secret)) (common-lisp:progn (common-lisp:defun describe-secret @@ -4456,7 +4455,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-secret)) (common-lisp:progn (common-lisp:defun get-random-password @@ -4479,7 +4478,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRandomPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-random-password)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -4496,7 +4495,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun get-secret-value @@ -4514,7 +4513,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSecretValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-secret-value)) (common-lisp:progn (common-lisp:defun list-secret-version-ids @@ -4534,7 +4533,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSecretVersionIds")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-secret-version-ids)) (common-lisp:progn (common-lisp:defun list-secrets @@ -4554,7 +4553,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSecrets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-secrets)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -4573,7 +4572,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun put-secret-value @@ -4593,7 +4592,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutSecretValue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-secret-value)) (common-lisp:progn (common-lisp:defun remove-regions-from-replication @@ -4612,7 +4611,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveRegionsFromReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-regions-from-replication)) (common-lisp:progn (common-lisp:defun replicate-secret-to-regions @@ -4633,7 +4632,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReplicateSecretToRegions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'replicate-secret-to-regions)) (common-lisp:progn (common-lisp:defun restore-secret @@ -4650,7 +4649,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-secret)) (common-lisp:progn (common-lisp:defun rotate-secret @@ -4670,7 +4669,7 @@ aws-sdk/generator/operation::input "POST" "/" "RotateSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'rotate-secret)) (common-lisp:progn (common-lisp:defun stop-replication-to-replica @@ -4688,7 +4687,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopReplicationToReplica")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-replication-to-replica)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4705,7 +4704,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4722,7 +4721,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-secret @@ -4742,7 +4741,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSecret")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-secret)) (common-lisp:progn (common-lisp:defun update-secret-version-stage @@ -4763,7 +4762,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSecretVersionStage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-secret-version-stage)) (common-lisp:progn (common-lisp:defun validate-resource-policy @@ -4780,5 +4779,5 @@ aws-sdk/generator/operation::input "POST" "/" "ValidateResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-resource-policy)) diff --git a/services/securityhub/api.lisp b/services/securityhub/api.lisp index de3ceef4..d890467d 100644 --- a/services/securityhub/api.lisp +++ b/services/securityhub/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/securityhub/api - (:use) - (:nicknames #:aws/securityhub) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/securityhub/api (:use) + (:nicknames #:aws/securityhub) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/securityhub/api) (common-lisp:progn (common-lisp:define-condition securityhub-error @@ -20,7 +19,7 @@ (common-lisp:export 'securityhub-error)) (common-lisp:progn (common-lisp:defclass securityhub-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "securityhub" :api-version "2018-10-26" :host-prefix "securityhub" :signing-name @@ -72752,7 +72751,7 @@ aws-sdk/generator/operation::input "POST" "/administrator" "AcceptAdministratorInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-administrator-invitation)) (common-lisp:progn (common-lisp:defun accept-invitation @@ -72769,7 +72768,7 @@ aws-sdk/generator/operation::input "POST" "/master" "AcceptInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-invitation)) (common-lisp:progn (common-lisp:defun batch-delete-automation-rules @@ -72788,7 +72787,7 @@ "POST" "/automationrules/delete" "BatchDeleteAutomationRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-delete-automation-rules)) (common-lisp:progn (common-lisp:defun batch-disable-standards @@ -72806,7 +72805,7 @@ "POST" "/standards/deregister" "BatchDisableStandards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disable-standards)) (common-lisp:progn (common-lisp:defun batch-enable-standards @@ -72825,7 +72824,7 @@ "POST" "/standards/register" "BatchEnableStandards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-enable-standards)) (common-lisp:progn (common-lisp:defun batch-get-automation-rules @@ -72844,7 +72843,7 @@ "POST" "/automationrules/get" "BatchGetAutomationRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-automation-rules)) (common-lisp:progn (common-lisp:defun batch-get-configuration-policy-associations @@ -72865,7 +72864,7 @@ "POST" "/configurationPolicyAssociation/batchget" "BatchGetConfigurationPolicyAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-configuration-policy-associations)) (common-lisp:progn (common-lisp:defun batch-get-security-controls @@ -72884,7 +72883,7 @@ "POST" "/securityControls/batchGet" "BatchGetSecurityControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-security-controls)) (common-lisp:progn (common-lisp:defun batch-get-standards-control-associations @@ -72904,7 +72903,7 @@ "POST" "/associations/batchGet" "BatchGetStandardsControlAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-standards-control-associations)) (common-lisp:progn (common-lisp:defun batch-import-findings @@ -72922,7 +72921,7 @@ "POST" "/findings/import" "BatchImportFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-import-findings)) (common-lisp:progn (common-lisp:defun batch-update-automation-rules @@ -72942,7 +72941,7 @@ "PATCH" "/automationrules/update" "BatchUpdateAutomationRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-automation-rules)) (common-lisp:progn (common-lisp:defun batch-update-findings @@ -72965,7 +72964,7 @@ "PATCH" "/findings/batchupdate" "BatchUpdateFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-findings)) (common-lisp:progn (common-lisp:defun batch-update-standards-control-associations @@ -72984,7 +72983,7 @@ aws-sdk/generator/operation::input "PATCH" "/associations" "BatchUpdateStandardsControlAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-standards-control-associations)) (common-lisp:progn (common-lisp:defun create-action-target @@ -73001,7 +73000,7 @@ aws-sdk/generator/operation::input "POST" "/actionTargets" "CreateActionTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-action-target)) (common-lisp:progn (common-lisp:defun create-automation-rule @@ -73022,7 +73021,7 @@ "POST" "/automationrules/create" "CreateAutomationRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-automation-rule)) (common-lisp:progn (common-lisp:defun create-configuration-policy @@ -73043,7 +73042,7 @@ "POST" "/configurationPolicy/create" "CreateConfigurationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-policy)) (common-lisp:progn (common-lisp:defun create-finding-aggregator @@ -73062,7 +73061,7 @@ "POST" "/findingAggregator/create" "CreateFindingAggregator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-finding-aggregator)) (common-lisp:progn (common-lisp:defun create-insight @@ -73080,7 +73079,7 @@ aws-sdk/generator/operation::input "POST" "/insights" "CreateInsight")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-insight)) (common-lisp:progn (common-lisp:defun create-members @@ -73097,7 +73096,7 @@ aws-sdk/generator/operation::input "POST" "/members" "CreateMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-members)) (common-lisp:progn (common-lisp:defun decline-invitations @@ -73115,7 +73114,7 @@ "POST" "/invitations/decline" "DeclineInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'decline-invitations)) (common-lisp:progn (common-lisp:defun delete-action-target @@ -73141,7 +73140,7 @@ aws-sdk/generator/operation::input 'action-target-arn))) "DeleteActionTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-action-target)) (common-lisp:progn (common-lisp:defun delete-configuration-policy @@ -73164,12 +73163,13 @@ (common-lisp:format common-lisp:nil "/configurationPolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "DeleteConfigurationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-policy)) (common-lisp:progn (common-lisp:defun delete-finding-aggregator @@ -73196,7 +73196,7 @@ aws-sdk/generator/operation::input 'finding-aggregator-arn))) "DeleteFindingAggregator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-finding-aggregator)) (common-lisp:progn (common-lisp:defun delete-insight @@ -73222,7 +73222,7 @@ aws-sdk/generator/operation::input 'insight-arn))) "DeleteInsight")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-insight)) (common-lisp:progn (common-lisp:defun delete-invitations @@ -73240,7 +73240,7 @@ "POST" "/invitations/delete" "DeleteInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-invitations)) (common-lisp:progn (common-lisp:defun delete-members @@ -73258,7 +73258,7 @@ "POST" "/members/delete" "DeleteMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-members)) (common-lisp:progn (common-lisp:defun describe-action-targets @@ -73278,7 +73278,7 @@ "POST" "/actionTargets/get" "DescribeActionTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-action-targets)) (common-lisp:progn (common-lisp:defun describe-hub @@ -73295,7 +73295,7 @@ aws-sdk/generator/operation::input "GET" "/accounts" "DescribeHub")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-hub)) (common-lisp:progn (common-lisp:defun describe-organization-configuration () @@ -73322,7 +73322,7 @@ aws-sdk/generator/operation::input "GET" "/products" "DescribeProducts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-products)) (common-lisp:progn (common-lisp:defun describe-standards @@ -73339,7 +73339,7 @@ aws-sdk/generator/operation::input "GET" "/standards" "DescribeStandards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-standards)) (common-lisp:progn (common-lisp:defun describe-standards-controls @@ -73368,7 +73368,7 @@ aws-sdk/generator/operation::input 'standards-subscription-arn))) "DescribeStandardsControls")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-standards-controls)) (common-lisp:progn (common-lisp:defun disable-import-findings-for-product @@ -73395,7 +73395,7 @@ aws-sdk/generator/operation::input 'product-subscription-arn))) "DisableImportFindingsForProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-import-findings-for-product)) (common-lisp:progn (common-lisp:defun disable-organization-admin-account @@ -73414,7 +73414,7 @@ "POST" "/organization/admin/disable" "DisableOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-organization-admin-account)) (common-lisp:progn (common-lisp:defun disable-security-hub () @@ -73458,7 +73458,7 @@ "POST" "/members/disassociate" "DisassociateMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-members)) (common-lisp:progn (common-lisp:defun enable-import-findings-for-product @@ -73477,7 +73477,7 @@ "POST" "/productSubscriptions" "EnableImportFindingsForProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-import-findings-for-product)) (common-lisp:progn (common-lisp:defun enable-organization-admin-account @@ -73496,7 +73496,7 @@ "POST" "/organization/admin/enable" "EnableOrganizationAdminAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-organization-admin-account)) (common-lisp:progn (common-lisp:defun enable-security-hub @@ -73516,7 +73516,7 @@ aws-sdk/generator/operation::input "POST" "/accounts" "EnableSecurityHub")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-security-hub)) (common-lisp:progn (common-lisp:defun get-administrator-account () @@ -73547,12 +73547,13 @@ (common-lisp:format common-lisp:nil "/configurationPolicy/get/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "GetConfigurationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration-policy)) (common-lisp:progn (common-lisp:defun get-configuration-policy-association @@ -73571,7 +73572,7 @@ "POST" "/configurationPolicyAssociation/get" "GetConfigurationPolicyAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration-policy-association)) (common-lisp:progn (common-lisp:defun get-enabled-standards @@ -73590,7 +73591,7 @@ aws-sdk/generator/operation::input "POST" "/standards/get" "GetEnabledStandards")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-enabled-standards)) (common-lisp:progn (common-lisp:defun get-finding-aggregator @@ -73616,7 +73617,7 @@ aws-sdk/generator/operation::input 'finding-aggregator-arn))) "GetFindingAggregator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-finding-aggregator)) (common-lisp:progn (common-lisp:defun get-finding-history @@ -73637,7 +73638,7 @@ "POST" "/findingHistory/get" "GetFindingHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-finding-history)) (common-lisp:progn (common-lisp:defun get-findings @@ -73656,7 +73657,7 @@ aws-sdk/generator/operation::input "POST" "/findings" "GetFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-findings)) (common-lisp:progn (common-lisp:defun get-insight-results @@ -73682,7 +73683,7 @@ aws-sdk/generator/operation::input 'insight-arn))) "GetInsightResults")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-insight-results)) (common-lisp:progn (common-lisp:defun get-insights @@ -73700,7 +73701,7 @@ aws-sdk/generator/operation::input "POST" "/insights/get" "GetInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-insights)) (common-lisp:progn (common-lisp:defun get-invitations-count () @@ -73734,7 +73735,7 @@ aws-sdk/generator/operation::input "POST" "/members/get" "GetMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-members)) (common-lisp:progn (common-lisp:defun get-security-control-definition @@ -73753,7 +73754,7 @@ "GET" "/securityControl/definition" "GetSecurityControlDefinition")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-security-control-definition)) (common-lisp:progn (common-lisp:defun invite-members @@ -73771,7 +73772,7 @@ "POST" "/members/invite" "InviteMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'invite-members)) (common-lisp:progn (common-lisp:defun list-automation-rules @@ -73789,7 +73790,7 @@ "GET" "/automationrules/list" "ListAutomationRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-automation-rules)) (common-lisp:progn (common-lisp:defun list-configuration-policies @@ -73808,7 +73809,7 @@ "GET" "/configurationPolicy/list" "ListConfigurationPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-policies)) (common-lisp:progn (common-lisp:defun list-configuration-policy-associations @@ -73827,7 +73828,7 @@ "POST" "/configurationPolicyAssociation/list" "ListConfigurationPolicyAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-policy-associations)) (common-lisp:progn (common-lisp:defun list-enabled-products-for-import @@ -73846,7 +73847,7 @@ "GET" "/productSubscriptions" "ListEnabledProductsForImport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-enabled-products-for-import)) (common-lisp:progn (common-lisp:defun list-finding-aggregators @@ -73864,7 +73865,7 @@ "GET" "/findingAggregator/list" "ListFindingAggregators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-finding-aggregators)) (common-lisp:progn (common-lisp:defun list-invitations @@ -73881,7 +73882,7 @@ aws-sdk/generator/operation::input "GET" "/invitations" "ListInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-invitations)) (common-lisp:progn (common-lisp:defun list-members @@ -73899,7 +73900,7 @@ aws-sdk/generator/operation::input "GET" "/members" "ListMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-members)) (common-lisp:progn (common-lisp:defun list-organization-admin-accounts @@ -73918,7 +73919,7 @@ "GET" "/organization/admin" "ListOrganizationAdminAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-admin-accounts)) (common-lisp:progn (common-lisp:defun list-security-control-definitions @@ -73938,7 +73939,7 @@ "GET" "/securityControls/definitions" "ListSecurityControlDefinitions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-control-definitions)) (common-lisp:progn (common-lisp:defun list-standards-control-associations @@ -73958,7 +73959,7 @@ aws-sdk/generator/operation::input "GET" "/associations" "ListStandardsControlAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-standards-control-associations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -73980,12 +73981,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-configuration-policy-association @@ -74005,7 +74007,7 @@ "POST" "/configurationPolicyAssociation/associate" "StartConfigurationPolicyAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-configuration-policy-association)) (common-lisp:progn (common-lisp:defun start-configuration-policy-disassociation @@ -74025,7 +74027,7 @@ "POST" "/configurationPolicyAssociation/disassociate" "StartConfigurationPolicyDisassociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-configuration-policy-disassociation)) (common-lisp:progn (common-lisp:defun tag-resource @@ -74047,12 +74049,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -74074,12 +74077,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-action-target @@ -74106,7 +74110,7 @@ aws-sdk/generator/operation::input 'action-target-arn))) "UpdateActionTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-action-target)) (common-lisp:progn (common-lisp:defun update-configuration-policy @@ -74132,12 +74136,13 @@ (common-lisp:format common-lisp:nil "/configurationPolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'identifier)))) + 'identifier) + common-lisp:t))) "UpdateConfigurationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configuration-policy)) (common-lisp:progn (common-lisp:defun update-finding-aggregator @@ -74158,7 +74163,7 @@ "PATCH" "/findingAggregator/update" "UpdateFindingAggregator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-finding-aggregator)) (common-lisp:progn (common-lisp:defun update-findings @@ -74175,7 +74180,7 @@ aws-sdk/generator/operation::input "PATCH" "/findings" "UpdateFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-findings)) (common-lisp:progn (common-lisp:defun update-insight @@ -74203,7 +74208,7 @@ aws-sdk/generator/operation::input 'insight-arn))) "UpdateInsight")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-insight)) (common-lisp:progn (common-lisp:defun update-organization-configuration @@ -74225,7 +74230,7 @@ "POST" "/organization/configuration" "UpdateOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-organization-configuration)) (common-lisp:progn (common-lisp:defun update-security-control @@ -74245,7 +74250,7 @@ "PATCH" "/securityControl/update" "UpdateSecurityControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-security-control)) (common-lisp:progn (common-lisp:defun update-security-hub-configuration @@ -74265,7 +74270,7 @@ aws-sdk/generator/operation::input "PATCH" "/accounts" "UpdateSecurityHubConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-security-hub-configuration)) (common-lisp:progn (common-lisp:defun update-standards-control @@ -74294,5 +74299,5 @@ aws-sdk/generator/operation::input 'standards-control-arn))) "UpdateStandardsControl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-standards-control)) diff --git a/services/securitylake/api.lisp b/services/securitylake/api.lisp index c180dd01..fa0622c1 100644 --- a/services/securitylake/api.lisp +++ b/services/securitylake/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/securitylake/api - (:use) - (:nicknames #:aws/securitylake) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/securitylake/api (:use) + (:nicknames #:aws/securitylake) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/securitylake/api) (common-lisp:progn (common-lisp:define-condition securitylake-error @@ -20,7 +19,7 @@ (common-lisp:export 'securitylake-error)) (common-lisp:progn (common-lisp:defclass securitylake-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "securitylake" :api-version "2018-05-10" :host-prefix "securitylake" :signing-name @@ -4915,7 +4914,7 @@ "POST" "/v1/datalake/logsources/aws" "CreateAwsLogSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-aws-log-source)) (common-lisp:progn (common-lisp:defun create-custom-log-source @@ -4936,7 +4935,7 @@ "POST" "/v1/datalake/logsources/custom" "CreateCustomLogSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-log-source)) (common-lisp:progn (common-lisp:defun create-data-lake @@ -4955,7 +4954,7 @@ aws-sdk/generator/operation::input "POST" "/v1/datalake" "CreateDataLake")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-lake)) (common-lisp:progn (common-lisp:defun create-data-lake-exception-subscription @@ -4977,7 +4976,7 @@ "POST" "/v1/datalake/exceptions/subscription" "CreateDataLakeExceptionSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-lake-exception-subscription)) (common-lisp:progn (common-lisp:defun create-data-lake-organization-configuration @@ -4996,7 +4995,7 @@ "POST" "/v1/datalake/organization/configuration" "CreateDataLakeOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-data-lake-organization-configuration)) (common-lisp:progn (common-lisp:defun create-subscriber @@ -5018,7 +5017,7 @@ "POST" "/v1/subscribers" "CreateSubscriber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subscriber)) (common-lisp:progn (common-lisp:defun create-subscriber-notification @@ -5041,12 +5040,13 @@ (common-lisp:format common-lisp:nil "/v1/subscribers/~A/notification" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscriber-id)))) + 'subscriber-id) + common-lisp:t))) "CreateSubscriberNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-subscriber-notification)) (common-lisp:progn (common-lisp:defun delete-aws-log-source @@ -5064,7 +5064,7 @@ "POST" "/v1/datalake/logsources/aws/delete" "DeleteAwsLogSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-aws-log-source)) (common-lisp:progn (common-lisp:defun delete-custom-log-source @@ -5086,12 +5086,13 @@ (common-lisp:format common-lisp:nil "/v1/datalake/logsources/custom/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'source-name)))) + 'source-name) + common-lisp:t))) "DeleteCustomLogSource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-log-source)) (common-lisp:progn (common-lisp:defun delete-data-lake @@ -5109,7 +5110,7 @@ "POST" "/v1/datalake/delete" "DeleteDataLake")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-lake)) (common-lisp:progn (common-lisp:defun delete-data-lake-exception-subscription () @@ -5138,7 +5139,7 @@ "POST" "/v1/datalake/organization/configuration/delete" "DeleteDataLakeOrganizationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-data-lake-organization-configuration)) (common-lisp:progn (common-lisp:defun delete-subscriber @@ -5160,12 +5161,13 @@ (common-lisp:format common-lisp:nil "/v1/subscribers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscriber-id)))) + 'subscriber-id) + common-lisp:t))) "DeleteSubscriber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subscriber)) (common-lisp:progn (common-lisp:defun delete-subscriber-notification @@ -5188,12 +5190,13 @@ (common-lisp:format common-lisp:nil "/v1/subscribers/~A/notification" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscriber-id)))) + 'subscriber-id) + common-lisp:t))) "DeleteSubscriberNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-subscriber-notification)) (common-lisp:progn (common-lisp:defun deregister-data-lake-delegated-administrator () @@ -5240,7 +5243,7 @@ "POST" "/v1/datalake/sources" "GetDataLakeSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-data-lake-sources)) (common-lisp:progn (common-lisp:defun get-subscriber @@ -5262,12 +5265,13 @@ (common-lisp:format common-lisp:nil "/v1/subscribers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscriber-id)))) + 'subscriber-id) + common-lisp:t))) "GetSubscriber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-subscriber)) (common-lisp:progn (common-lisp:defun list-data-lake-exceptions @@ -5286,7 +5290,7 @@ "POST" "/v1/datalake/exceptions" "ListDataLakeExceptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-lake-exceptions)) (common-lisp:progn (common-lisp:defun list-data-lakes @@ -5303,7 +5307,7 @@ aws-sdk/generator/operation::input "GET" "/v1/datalakes" "ListDataLakes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-data-lakes)) (common-lisp:progn (common-lisp:defun list-log-sources @@ -5323,7 +5327,7 @@ "POST" "/v1/datalake/logsources/list" "ListLogSources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-log-sources)) (common-lisp:progn (common-lisp:defun list-subscribers @@ -5340,7 +5344,7 @@ aws-sdk/generator/operation::input "GET" "/v1/subscribers" "ListSubscribers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscribers)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5362,12 +5366,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun register-data-lake-delegated-administrator @@ -5386,7 +5391,7 @@ "POST" "/v1/datalake/delegate" "RegisterDataLakeDelegatedAdministrator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-data-lake-delegated-administrator)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5408,12 +5413,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5435,12 +5441,13 @@ (common-lisp:format common-lisp:nil "/v1/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-data-lake @@ -5459,7 +5466,7 @@ aws-sdk/generator/operation::input "PUT" "/v1/datalake" "UpdateDataLake")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-lake)) (common-lisp:progn (common-lisp:defun update-data-lake-exception-subscription @@ -5481,7 +5488,7 @@ "PUT" "/v1/datalake/exceptions/subscription" "UpdateDataLakeExceptionSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-data-lake-exception-subscription)) (common-lisp:progn (common-lisp:defun update-subscriber @@ -5506,12 +5513,13 @@ (common-lisp:format common-lisp:nil "/v1/subscribers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscriber-id)))) + 'subscriber-id) + common-lisp:t))) "UpdateSubscriber")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscriber)) (common-lisp:progn (common-lisp:defun update-subscriber-notification @@ -5534,10 +5542,11 @@ (common-lisp:format common-lisp:nil "/v1/subscribers/~A/notification" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscriber-id)))) + 'subscriber-id) + common-lisp:t))) "UpdateSubscriberNotification")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscriber-notification)) diff --git a/services/serverlessrepo/api.lisp b/services/serverlessrepo/api.lisp index 3c1ee8eb..c22f04f0 100644 --- a/services/serverlessrepo/api.lisp +++ b/services/serverlessrepo/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/serverlessrepo/api - (:use) - (:nicknames #:aws/serverlessrepo) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/serverlessrepo/api (:use) + (:nicknames #:aws/serverlessrepo) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/serverlessrepo/api) (common-lisp:progn (common-lisp:define-condition serverlessrepo-error @@ -20,7 +19,7 @@ (common-lisp:export 'serverlessrepo-error)) (common-lisp:progn (common-lisp:defclass serverlessrepo-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "serverlessrepo" :api-version "2017-09-08" :host-prefix "serverlessrepo" @@ -4560,7 +4559,7 @@ aws-sdk/generator/operation::input "POST" "/applications" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-application-version @@ -4587,16 +4586,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'semantic-version)))) + 'semantic-version) + common-lisp:t))) "CreateApplicationVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application-version)) (common-lisp:progn (common-lisp:defun create-cloud-formation-change-set @@ -4626,12 +4627,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/changesets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateCloudFormationChangeSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cloud-formation-change-set)) (common-lisp:progn (common-lisp:defun create-cloud-formation-template @@ -4655,12 +4657,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/templates" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "CreateCloudFormationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cloud-formation-template)) (common-lisp:progn (common-lisp:defun delete-application @@ -4682,12 +4685,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun get-application @@ -4710,12 +4714,13 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-application-policy @@ -4737,12 +4742,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "GetApplicationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-policy)) (common-lisp:progn (common-lisp:defun get-cloud-formation-template @@ -4765,16 +4771,18 @@ (common-lisp:format common-lisp:nil "/applications/~A/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)) - (quri.encode:url-encode + 'application-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-id)))) + 'template-id) + common-lisp:t))) "GetCloudFormationTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-cloud-formation-template)) (common-lisp:progn (common-lisp:defun list-application-dependencies @@ -4800,12 +4808,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/dependencies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListApplicationDependencies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-dependencies)) (common-lisp:progn (common-lisp:defun list-application-versions @@ -4829,12 +4838,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "ListApplicationVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-versions)) (common-lisp:progn (common-lisp:defun list-applications @@ -4851,7 +4861,7 @@ aws-sdk/generator/operation::input "GET" "/applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun put-application-policy @@ -4873,12 +4883,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/policy" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "PutApplicationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-application-policy)) (common-lisp:progn (common-lisp:defun unshare-application @@ -4900,12 +4911,13 @@ (common-lisp:format common-lisp:nil "/applications/~A/unshare" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UnshareApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unshare-application)) (common-lisp:progn (common-lisp:defun update-application @@ -4930,10 +4942,11 @@ (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application-id)))) + 'application-id) + common-lisp:t))) "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) diff --git a/services/service-quotas/api.lisp b/services/service-quotas/api.lisp index ae2f38b2..032438e8 100644 --- a/services/service-quotas/api.lisp +++ b/services/service-quotas/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/service-quotas/api - (:use) - (:nicknames #:aws/service-quotas) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/service-quotas/api (:use) + (:nicknames #:aws/service-quotas) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/service-quotas/api) (common-lisp:progn (common-lisp:define-condition service-quotas-error @@ -3139,7 +3138,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServiceQuotaIncreaseRequestFromTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-quota-increase-request-from-template)) (common-lisp:progn (common-lisp:defun disassociate-service-quota-template () @@ -3166,7 +3165,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAWSDefaultServiceQuota")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-awsdefault-service-quota)) (common-lisp:progn (common-lisp:defun get-association-for-service-quota-template () @@ -3193,7 +3192,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRequestedServiceQuotaChange")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-requested-service-quota-change)) (common-lisp:progn (common-lisp:defun get-service-quota @@ -3211,7 +3210,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceQuota")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-quota)) (common-lisp:progn (common-lisp:defun get-service-quota-increase-request-from-template @@ -3230,7 +3229,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceQuotaIncreaseRequestFromTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-quota-increase-request-from-template)) (common-lisp:progn (common-lisp:defun list-awsdefault-service-quotas @@ -3249,7 +3248,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAWSDefaultServiceQuotas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-awsdefault-service-quotas)) (common-lisp:progn (common-lisp:defun list-requested-service-quota-change-history @@ -3270,7 +3269,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRequestedServiceQuotaChangeHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-requested-service-quota-change-history)) (common-lisp:progn (common-lisp:defun list-requested-service-quota-change-history-by-quota @@ -3291,7 +3290,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRequestedServiceQuotaChangeHistoryByQuota")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-requested-service-quota-change-history-by-quota)) (common-lisp:progn (common-lisp:defun list-service-quota-increase-requests-in-template @@ -3311,7 +3310,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceQuotaIncreaseRequestsInTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-quota-increase-requests-in-template)) (common-lisp:progn (common-lisp:defun list-service-quotas @@ -3331,7 +3330,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceQuotas")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-quotas)) (common-lisp:progn (common-lisp:defun list-services @@ -3348,7 +3347,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3365,7 +3364,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-service-quota-increase-request-into-template @@ -3385,7 +3384,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutServiceQuotaIncreaseRequestIntoTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-service-quota-increase-request-into-template)) (common-lisp:progn (common-lisp:defun request-service-quota-increase @@ -3405,7 +3404,7 @@ aws-sdk/generator/operation::input "POST" "/" "RequestServiceQuotaIncrease")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'request-service-quota-increase)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3422,7 +3421,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3439,5 +3438,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/servicecatalog-appregistry/api.lisp b/services/servicecatalog-appregistry/api.lisp index 72878e2f..30b405e8 100644 --- a/services/servicecatalog-appregistry/api.lisp +++ b/services/servicecatalog-appregistry/api.lisp @@ -1,17 +1,17 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/servicecatalog-appregistry/api - (:use) - (:nicknames #:aws/servicecatalog-appregistry) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/servicecatalog-appregistry/api + (:use) + (:nicknames #:aws/servicecatalog-appregistry) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/servicecatalog-appregistry/api) (common-lisp:progn (common-lisp:define-condition servicecatalog-appregistry-error @@ -20,7 +20,7 @@ (common-lisp:export 'servicecatalog-appregistry-error)) (common-lisp:progn (common-lisp:defclass servicecatalog-appregistry-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "servicecatalog-appregistry" :api-version "2020-06-24" :host-prefix @@ -3648,16 +3648,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/attribute-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)) - (quri.encode:url-encode + 'application) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute-group)))) + 'attribute-group) + common-lisp:t))) "AssociateAttributeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-attribute-group)) (common-lisp:progn (common-lisp:defun associate-resource @@ -3678,20 +3680,22 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/resources/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)) - (quri.encode:url-encode + 'application) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)) - (quri.encode:url-encode + 'resource-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'resource)))) + aws-sdk/generator/operation::input 'resource) + common-lisp:t))) "AssociateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-resource)) (common-lisp:progn (common-lisp:defun create-application @@ -3708,7 +3712,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicecatalog-appregistry-request aws-sdk/generator/operation::input "POST" "/applications" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-attribute-group @@ -3726,7 +3730,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicecatalog-appregistry-request aws-sdk/generator/operation::input "POST" "/attribute-groups" "CreateAttributeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-attribute-group)) (common-lisp:progn (common-lisp:defun delete-application @@ -3744,12 +3748,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)))) + 'application) + common-lisp:t))) "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-attribute-group @@ -3767,12 +3772,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/attribute-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute-group)))) + 'attribute-group) + common-lisp:t))) "DeleteAttributeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-attribute-group)) (common-lisp:progn (common-lisp:defun disassociate-attribute-group @@ -3792,16 +3798,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/attribute-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)) - (quri.encode:url-encode + 'application) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute-group)))) + 'attribute-group) + common-lisp:t))) "DisassociateAttributeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-attribute-group)) (common-lisp:progn (common-lisp:defun disassociate-resource @@ -3821,20 +3829,22 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/resources/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)) - (quri.encode:url-encode + 'application) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)) - (quri.encode:url-encode + 'resource-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'resource)))) + aws-sdk/generator/operation::input 'resource) + common-lisp:t))) "DisassociateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-resource)) (common-lisp:progn (common-lisp:defun get-application @@ -3852,12 +3862,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)))) + 'application) + common-lisp:t))) "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-associated-resource @@ -3879,20 +3890,22 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/resources/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)) - (quri.encode:url-encode + 'application) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)) - (quri.encode:url-encode + 'resource-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'resource)))) + aws-sdk/generator/operation::input 'resource) + common-lisp:t))) "GetAssociatedResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-associated-resource)) (common-lisp:progn (common-lisp:defun get-attribute-group @@ -3910,12 +3923,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/attribute-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute-group)))) + 'attribute-group) + common-lisp:t))) "GetAttributeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-attribute-group)) (common-lisp:progn (common-lisp:defun get-configuration () @@ -3940,7 +3954,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicecatalog-appregistry-request aws-sdk/generator/operation::input "GET" "/applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-associated-attribute-groups @@ -3961,12 +3975,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/attribute-groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)))) + 'application) + common-lisp:t))) "ListAssociatedAttributeGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-attribute-groups)) (common-lisp:progn (common-lisp:defun list-associated-resources @@ -3986,12 +4001,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/resources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)))) + 'application) + common-lisp:t))) "ListAssociatedResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-resources)) (common-lisp:progn (common-lisp:defun list-attribute-groups @@ -4007,7 +4023,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicecatalog-appregistry-request aws-sdk/generator/operation::input "GET" "/attribute-groups" "ListAttributeGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attribute-groups)) (common-lisp:progn (common-lisp:defun list-attribute-groups-for-application @@ -4028,12 +4044,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A/attribute-group-details" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)))) + 'application) + common-lisp:t))) "ListAttributeGroupsForApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attribute-groups-for-application)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4051,12 +4068,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-configuration @@ -4072,7 +4090,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicecatalog-appregistry-request aws-sdk/generator/operation::input "PUT" "/configuration" "PutConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration)) (common-lisp:progn (common-lisp:defun sync-resource @@ -4090,16 +4108,17 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/sync/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-type)) - (quri.encode:url-encode + 'resource-type) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'resource)))) + aws-sdk/generator/operation::input 'resource) + common-lisp:t))) "SyncResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'sync-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4117,12 +4136,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4140,12 +4160,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -4163,12 +4184,13 @@ "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/applications/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'application)))) + 'application) + common-lisp:t))) "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-attribute-group @@ -4188,10 +4210,11 @@ "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/attribute-groups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'attribute-group)))) + 'attribute-group) + common-lisp:t))) "UpdateAttributeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-attribute-group)) diff --git a/services/servicecatalog/api.lisp b/services/servicecatalog/api.lisp index 2101f544..45e4aea0 100644 --- a/services/servicecatalog/api.lisp +++ b/services/servicecatalog/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/servicecatalog/api - (:use) - (:nicknames #:aws/servicecatalog) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/servicecatalog/api (:use) + (:nicknames #:aws/servicecatalog) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/servicecatalog/api) (common-lisp:progn (common-lisp:define-condition servicecatalog-error @@ -17839,7 +17838,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptPortfolioShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-portfolio-share)) (common-lisp:progn (common-lisp:defun associate-budget-with-resource @@ -17857,7 +17856,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateBudgetWithResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-budget-with-resource)) (common-lisp:progn (common-lisp:defun associate-principal-with-portfolio @@ -17878,7 +17877,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociatePrincipalWithPortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-principal-with-portfolio)) (common-lisp:progn (common-lisp:defun associate-product-with-portfolio @@ -17899,7 +17898,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateProductWithPortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-product-with-portfolio)) (common-lisp:progn (common-lisp:defun associate-service-action-with-provisioning-artifact @@ -17920,7 +17919,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateServiceActionWithProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-service-action-with-provisioning-artifact)) (common-lisp:progn (common-lisp:defun associate-tag-option-with-resource @@ -17938,7 +17937,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateTagOptionWithResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-tag-option-with-resource)) (common-lisp:progn (common-lisp:defun batch-associate-service-action-with-provisioning-artifact @@ -17958,7 +17957,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchAssociateServiceActionWithProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-associate-service-action-with-provisioning-artifact)) (common-lisp:progn @@ -17979,7 +17978,7 @@ aws-sdk/generator/operation::input "POST" "/" "BatchDisassociateServiceActionFromProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-disassociate-service-action-from-provisioning-artifact)) (common-lisp:progn @@ -18003,7 +18002,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-product)) (common-lisp:progn (common-lisp:defun create-constraint @@ -18023,7 +18022,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConstraint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-constraint)) (common-lisp:progn (common-lisp:defun create-portfolio @@ -18043,7 +18042,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-portfolio)) (common-lisp:progn (common-lisp:defun create-portfolio-share @@ -18063,7 +18062,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePortfolioShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-portfolio-share)) (common-lisp:progn (common-lisp:defun create-product @@ -18086,7 +18085,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-product)) (common-lisp:progn (common-lisp:defun create-provisioned-product-plan @@ -18110,7 +18109,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProvisionedProductPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-provisioned-product-plan)) (common-lisp:progn (common-lisp:defun create-provisioning-artifact @@ -18131,7 +18130,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-provisioning-artifact)) (common-lisp:progn (common-lisp:defun create-service-action @@ -18151,7 +18150,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServiceAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-action)) (common-lisp:progn (common-lisp:defun create-tag-option @@ -18168,7 +18167,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTagOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tag-option)) (common-lisp:progn (common-lisp:defun delete-constraint @@ -18185,7 +18184,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConstraint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-constraint)) (common-lisp:progn (common-lisp:defun delete-portfolio @@ -18202,7 +18201,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-portfolio)) (common-lisp:progn (common-lisp:defun delete-portfolio-share @@ -18222,7 +18221,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePortfolioShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-portfolio-share)) (common-lisp:progn (common-lisp:defun delete-product @@ -18239,7 +18238,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-product)) (common-lisp:progn (common-lisp:defun delete-provisioned-product-plan @@ -18258,7 +18257,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProvisionedProductPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-provisioned-product-plan)) (common-lisp:progn (common-lisp:defun delete-provisioning-artifact @@ -18279,7 +18278,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-provisioning-artifact)) (common-lisp:progn (common-lisp:defun delete-service-action @@ -18297,7 +18296,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServiceAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-action)) (common-lisp:progn (common-lisp:defun delete-tag-option @@ -18314,7 +18313,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTagOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tag-option)) (common-lisp:progn (common-lisp:defun describe-constraint @@ -18331,7 +18330,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConstraint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-constraint)) (common-lisp:progn (common-lisp:defun describe-copy-product-status @@ -18350,7 +18349,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCopyProductStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-copy-product-status)) (common-lisp:progn (common-lisp:defun describe-portfolio @@ -18367,7 +18366,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-portfolio)) (common-lisp:progn (common-lisp:defun describe-portfolio-share-status @@ -18385,7 +18384,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePortfolioShareStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-portfolio-share-status)) (common-lisp:progn (common-lisp:defun describe-portfolio-shares @@ -18403,7 +18402,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePortfolioShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-portfolio-shares)) (common-lisp:progn (common-lisp:defun describe-product @@ -18420,7 +18419,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-product)) (common-lisp:progn (common-lisp:defun describe-product-as-admin @@ -18439,7 +18438,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProductAsAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-product-as-admin)) (common-lisp:progn (common-lisp:defun describe-product-view @@ -18456,7 +18455,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProductView")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-product-view)) (common-lisp:progn (common-lisp:defun describe-provisioned-product @@ -18474,7 +18473,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProvisionedProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-provisioned-product)) (common-lisp:progn (common-lisp:defun describe-provisioned-product-plan @@ -18494,7 +18493,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProvisionedProductPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-provisioned-product-plan)) (common-lisp:progn (common-lisp:defun describe-provisioning-artifact @@ -18517,7 +18516,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-provisioning-artifact)) (common-lisp:progn (common-lisp:defun describe-provisioning-parameters @@ -18539,7 +18538,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProvisioningParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-provisioning-parameters)) (common-lisp:progn (common-lisp:defun describe-record @@ -18557,7 +18556,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-record)) (common-lisp:progn (common-lisp:defun describe-service-action @@ -18574,7 +18573,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServiceAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-service-action)) (common-lisp:progn (common-lisp:defun describe-service-action-execution-parameters @@ -18595,7 +18594,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServiceActionExecutionParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-service-action-execution-parameters)) (common-lisp:progn (common-lisp:defun describe-tag-option @@ -18612,7 +18611,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTagOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tag-option)) (common-lisp:progn (common-lisp:defun disable-awsorganizations-access () @@ -18639,7 +18638,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateBudgetFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-budget-from-resource)) (common-lisp:progn (common-lisp:defun disassociate-principal-from-portfolio @@ -18660,7 +18659,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociatePrincipalFromPortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-principal-from-portfolio)) (common-lisp:progn (common-lisp:defun disassociate-product-from-portfolio @@ -18679,7 +18678,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateProductFromPortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-product-from-portfolio)) (common-lisp:progn (common-lisp:defun disassociate-service-action-from-provisioning-artifact @@ -18700,7 +18699,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateServiceActionFromProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-service-action-from-provisioning-artifact)) (common-lisp:progn (common-lisp:defun disassociate-tag-option-from-resource @@ -18718,7 +18717,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateTagOptionFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-tag-option-from-resource)) (common-lisp:progn (common-lisp:defun enable-awsorganizations-access () @@ -18746,7 +18745,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecuteProvisionedProductPlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-provisioned-product-plan)) (common-lisp:progn (common-lisp:defun execute-provisioned-product-service-action @@ -18767,7 +18766,7 @@ aws-sdk/generator/operation::input "POST" "/" "ExecuteProvisionedProductServiceAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-provisioned-product-service-action)) (common-lisp:progn (common-lisp:defun get-awsorganizations-access-status () @@ -18797,7 +18796,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetProvisionedProductOutputs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-provisioned-product-outputs)) (common-lisp:progn (common-lisp:defun import-as-provisioned-product @@ -18819,7 +18818,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportAsProvisionedProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-as-provisioned-product)) (common-lisp:progn (common-lisp:defun list-accepted-portfolio-shares @@ -18840,7 +18839,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAcceptedPortfolioShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accepted-portfolio-shares)) (common-lisp:progn (common-lisp:defun list-budgets-for-resource @@ -18859,7 +18858,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListBudgetsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-budgets-for-resource)) (common-lisp:progn (common-lisp:defun list-constraints-for-portfolio @@ -18880,7 +18879,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListConstraintsForPortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-constraints-for-portfolio)) (common-lisp:progn (common-lisp:defun list-launch-paths @@ -18899,7 +18898,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLaunchPaths")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-launch-paths)) (common-lisp:progn (common-lisp:defun list-organization-portfolio-access @@ -18920,7 +18919,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOrganizationPortfolioAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-portfolio-access)) (common-lisp:progn (common-lisp:defun list-portfolio-access @@ -18940,7 +18939,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPortfolioAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-portfolio-access)) (common-lisp:progn (common-lisp:defun list-portfolios @@ -18958,7 +18957,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPortfolios")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-portfolios)) (common-lisp:progn (common-lisp:defun list-portfolios-for-product @@ -18978,7 +18977,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPortfoliosForProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-portfolios-for-product)) (common-lisp:progn (common-lisp:defun list-principals-for-portfolio @@ -18998,7 +18997,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPrincipalsForPortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-principals-for-portfolio)) (common-lisp:progn (common-lisp:defun list-provisioned-product-plans @@ -19019,7 +19018,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProvisionedProductPlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provisioned-product-plans)) (common-lisp:progn (common-lisp:defun list-provisioning-artifacts @@ -19037,7 +19036,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProvisioningArtifacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provisioning-artifacts)) (common-lisp:progn (common-lisp:defun list-provisioning-artifacts-for-service-action @@ -19058,7 +19057,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProvisioningArtifactsForServiceAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-provisioning-artifacts-for-service-action)) (common-lisp:progn (common-lisp:defun list-record-history @@ -19078,7 +19077,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRecordHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-record-history)) (common-lisp:progn (common-lisp:defun list-resources-for-tag-option @@ -19098,7 +19097,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourcesForTagOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources-for-tag-option)) (common-lisp:progn (common-lisp:defun list-service-actions @@ -19116,7 +19115,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceActions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-actions)) (common-lisp:progn (common-lisp:defun list-service-actions-for-provisioning-artifact @@ -19137,7 +19136,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceActionsForProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-actions-for-provisioning-artifact)) (common-lisp:progn (common-lisp:defun list-stack-instances-for-provisioned-product @@ -19158,7 +19157,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStackInstancesForProvisionedProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-stack-instances-for-provisioned-product)) (common-lisp:progn (common-lisp:defun list-tag-options @@ -19175,7 +19174,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tag-options)) (common-lisp:progn (common-lisp:defun notify-provision-product-engine-workflow-result @@ -19197,7 +19196,7 @@ aws-sdk/generator/operation::input "POST" "/" "NotifyProvisionProductEngineWorkflowResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-provision-product-engine-workflow-result)) (common-lisp:progn (common-lisp:defun notify-terminate-provisioned-product-engine-workflow-result @@ -19218,7 +19217,7 @@ aws-sdk/generator/operation::input "POST" "/" "NotifyTerminateProvisionedProductEngineWorkflowResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-terminate-provisioned-product-engine-workflow-result)) (common-lisp:progn @@ -19240,7 +19239,7 @@ aws-sdk/generator/operation::input "POST" "/" "NotifyUpdateProvisionedProductEngineWorkflowResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-update-provisioned-product-engine-workflow-result)) (common-lisp:progn (common-lisp:defun provision-product @@ -19265,7 +19264,7 @@ aws-sdk/generator/operation::input "POST" "/" "ProvisionProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'provision-product)) (common-lisp:progn (common-lisp:defun reject-portfolio-share @@ -19284,7 +19283,7 @@ aws-sdk/generator/operation::input "POST" "/" "RejectPortfolioShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reject-portfolio-share)) (common-lisp:progn (common-lisp:defun scan-provisioned-products @@ -19304,7 +19303,7 @@ aws-sdk/generator/operation::input "POST" "/" "ScanProvisionedProducts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'scan-provisioned-products)) (common-lisp:progn (common-lisp:defun search-products @@ -19324,7 +19323,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchProducts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-products)) (common-lisp:progn (common-lisp:defun search-products-as-admin @@ -19344,7 +19343,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchProductsAsAdmin")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-products-as-admin)) (common-lisp:progn (common-lisp:defun search-provisioned-products @@ -19365,7 +19364,7 @@ aws-sdk/generator/operation::input "POST" "/" "SearchProvisionedProducts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-provisioned-products)) (common-lisp:progn (common-lisp:defun terminate-provisioned-product @@ -19387,7 +19386,7 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateProvisionedProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-provisioned-product)) (common-lisp:progn (common-lisp:defun update-constraint @@ -19406,7 +19405,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConstraint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-constraint)) (common-lisp:progn (common-lisp:defun update-portfolio @@ -19426,7 +19425,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePortfolio")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-portfolio)) (common-lisp:progn (common-lisp:defun update-portfolio-share @@ -19446,7 +19445,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePortfolioShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-portfolio-share)) (common-lisp:progn (common-lisp:defun update-product @@ -19468,7 +19467,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-product)) (common-lisp:progn (common-lisp:defun update-provisioned-product @@ -19493,7 +19492,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProvisionedProduct")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-provisioned-product)) (common-lisp:progn (common-lisp:defun update-provisioned-product-properties @@ -19514,7 +19513,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProvisionedProductProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-provisioned-product-properties)) (common-lisp:progn (common-lisp:defun update-provisioning-artifact @@ -19535,7 +19534,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProvisioningArtifact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-provisioning-artifact)) (common-lisp:progn (common-lisp:defun update-service-action @@ -19554,7 +19553,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceAction")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-action)) (common-lisp:progn (common-lisp:defun update-tag-option @@ -19571,5 +19570,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTagOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-tag-option)) diff --git a/services/servicediscovery/api.lisp b/services/servicediscovery/api.lisp index c7c9ff38..78ebe14f 100644 --- a/services/servicediscovery/api.lisp +++ b/services/servicediscovery/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/servicediscovery/api - (:use) - (:nicknames #:aws/servicediscovery) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/servicediscovery/api (:use) + (:nicknames #:aws/servicediscovery) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/servicediscovery/api) (common-lisp:progn (common-lisp:define-condition servicediscovery-error @@ -5192,7 +5191,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "CreateHttpNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-http-namespace)) (common-lisp:progn (common-lisp:defun create-private-dns-namespace @@ -5212,7 +5211,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "CreatePrivateDnsNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-private-dns-namespace)) (common-lisp:progn (common-lisp:defun create-public-dns-namespace @@ -5232,7 +5231,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "CreatePublicDnsNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-public-dns-namespace)) (common-lisp:progn (common-lisp:defun create-service @@ -5252,7 +5251,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "CreateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service)) (common-lisp:progn (common-lisp:defun delete-namespace @@ -5268,7 +5267,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "DeleteNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-namespace)) (common-lisp:progn (common-lisp:defun delete-service @@ -5284,7 +5283,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "DeleteService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service)) (common-lisp:progn (common-lisp:defun deregister-instance @@ -5300,7 +5299,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "DeregisterInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-instance)) (common-lisp:progn (common-lisp:defun discover-instances @@ -5319,7 +5318,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "DiscoverInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'discover-instances)) (common-lisp:progn (common-lisp:defun discover-instances-revision @@ -5336,7 +5335,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "DiscoverInstancesRevision")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'discover-instances-revision)) (common-lisp:progn (common-lisp:defun get-instance @@ -5352,7 +5351,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "GetInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instance)) (common-lisp:progn (common-lisp:defun get-instances-health-status @@ -5371,7 +5370,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "GetInstancesHealthStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-instances-health-status)) (common-lisp:progn (common-lisp:defun get-namespace @@ -5387,7 +5386,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "GetNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-namespace)) (common-lisp:progn (common-lisp:defun get-operation @@ -5403,7 +5402,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "GetOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-operation)) (common-lisp:progn (common-lisp:defun get-service @@ -5419,7 +5418,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "GetService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service)) (common-lisp:progn (common-lisp:defun list-instances @@ -5436,7 +5435,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "ListInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instances)) (common-lisp:progn (common-lisp:defun list-namespaces @@ -5452,7 +5451,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "ListNamespaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-namespaces)) (common-lisp:progn (common-lisp:defun list-operations @@ -5468,7 +5467,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "ListOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-operations)) (common-lisp:progn (common-lisp:defun list-services @@ -5484,7 +5483,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "ListServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5500,7 +5499,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun register-instance @@ -5519,7 +5518,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "RegisterInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-instance)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5535,7 +5534,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5551,7 +5550,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-http-namespace @@ -5568,7 +5567,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "UpdateHttpNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-http-namespace)) (common-lisp:progn (common-lisp:defun update-instance-custom-health-status @@ -5585,7 +5584,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "UpdateInstanceCustomHealthStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-instance-custom-health-status)) (common-lisp:progn (common-lisp:defun update-private-dns-namespace @@ -5603,7 +5602,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "UpdatePrivateDnsNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-private-dns-namespace)) (common-lisp:progn (common-lisp:defun update-public-dns-namespace @@ -5621,7 +5620,7 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "UpdatePublicDnsNamespace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-public-dns-namespace)) (common-lisp:progn (common-lisp:defun update-service @@ -5637,5 +5636,5 @@ (aws-sdk/generator/shape:make-request-with-input 'servicediscovery-request aws-sdk/generator/operation::input "POST" "/" "UpdateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service)) diff --git a/services/sesv2/api.lisp b/services/sesv2/api.lisp index f811d940..0ba2a625 100644 --- a/services/sesv2/api.lisp +++ b/services/sesv2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sesv2/api - (:use) - (:nicknames #:aws/sesv2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sesv2/api (:use) + (:nicknames #:aws/sesv2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sesv2/api) (common-lisp:progn (common-lisp:define-condition sesv2-error @@ -20,7 +19,7 @@ (common-lisp:export 'sesv2-error)) (common-lisp:progn (common-lisp:defclass sesv2-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sesv2" :api-version "2019-09-27" :host-prefix "email" :signing-name "ses" @@ -15521,7 +15520,7 @@ "POST" "/v2/email/metrics/batch" "BatchGetMetricData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-metric-data)) (common-lisp:progn (common-lisp:defun cancel-export-job @@ -15543,12 +15542,13 @@ (common-lisp:format common-lisp:nil "/v2/email/export-jobs/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "CancelExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-export-job)) (common-lisp:progn (common-lisp:defun create-configuration-set @@ -15571,7 +15571,7 @@ "POST" "/v2/email/configuration-sets" "CreateConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-set)) (common-lisp:progn (common-lisp:defun create-configuration-set-event-destination @@ -15597,12 +15597,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/event-destinations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "CreateConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun create-contact @@ -15627,12 +15628,13 @@ (common-lisp:format common-lisp:nil "/v2/email/contact-lists/~A/contacts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-list-name)))) + 'contact-list-name) + common-lisp:t))) "CreateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-contact)) (common-lisp:progn (common-lisp:defun create-contact-list @@ -15652,7 +15654,7 @@ "POST" "/v2/email/contact-lists" "CreateContactList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-contact-list)) (common-lisp:progn (common-lisp:defun create-custom-verification-email-template @@ -15675,7 +15677,7 @@ "POST" "/v2/email/custom-verification-email-templates" "CreateCustomVerificationEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-verification-email-template)) (common-lisp:progn (common-lisp:defun create-dedicated-ip-pool @@ -15693,7 +15695,7 @@ "POST" "/v2/email/dedicated-ip-pools" "CreateDedicatedIpPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-dedicated-ip-pool)) (common-lisp:progn (common-lisp:defun create-deliverability-test-report @@ -15714,7 +15716,7 @@ "POST" "/v2/email/deliverability-dashboard/test" "CreateDeliverabilityTestReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-deliverability-test-report)) (common-lisp:progn (common-lisp:defun create-email-identity @@ -15735,7 +15737,7 @@ "POST" "/v2/email/identities" "CreateEmailIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-email-identity)) (common-lisp:progn (common-lisp:defun create-email-identity-policy @@ -15759,16 +15761,18 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)) - (quri.encode:url-encode + 'email-identity) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "CreateEmailIdentityPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-email-identity-policy)) (common-lisp:progn (common-lisp:defun create-email-template @@ -15786,7 +15790,7 @@ "POST" "/v2/email/templates" "CreateEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-email-template)) (common-lisp:progn (common-lisp:defun create-export-job @@ -15805,7 +15809,7 @@ "POST" "/v2/email/export-jobs" "CreateExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-export-job)) (common-lisp:progn (common-lisp:defun create-import-job @@ -15824,7 +15828,7 @@ "POST" "/v2/email/import-jobs" "CreateImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-import-job)) (common-lisp:progn (common-lisp:defun delete-configuration-set @@ -15846,12 +15850,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "DeleteConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-set)) (common-lisp:progn (common-lisp:defun delete-configuration-set-event-destination @@ -15876,16 +15881,18 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/event-destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)) - (quri.encode:url-encode + 'configuration-set-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-destination-name)))) + 'event-destination-name) + common-lisp:t))) "DeleteConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun delete-contact @@ -15908,16 +15915,18 @@ (common-lisp:format common-lisp:nil "/v2/email/contact-lists/~A/contacts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-list-name)) - (quri.encode:url-encode + 'contact-list-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-address)))) + 'email-address) + common-lisp:t))) "DeleteContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact)) (common-lisp:progn (common-lisp:defun delete-contact-list @@ -15939,12 +15948,13 @@ (common-lisp:format common-lisp:nil "/v2/email/contact-lists/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-list-name)))) + 'contact-list-name) + common-lisp:t))) "DeleteContactList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact-list)) (common-lisp:progn (common-lisp:defun delete-custom-verification-email-template @@ -15967,12 +15977,13 @@ (common-lisp:format common-lisp:nil "/v2/email/custom-verification-email-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DeleteCustomVerificationEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-verification-email-template)) (common-lisp:progn (common-lisp:defun delete-dedicated-ip-pool @@ -15994,12 +16005,13 @@ (common-lisp:format common-lisp:nil "/v2/email/dedicated-ip-pools/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pool-name)))) + 'pool-name) + common-lisp:t))) "DeleteDedicatedIpPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-dedicated-ip-pool)) (common-lisp:progn (common-lisp:defun delete-email-identity @@ -16021,12 +16033,13 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "DeleteEmailIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-email-identity)) (common-lisp:progn (common-lisp:defun delete-email-identity-policy @@ -16049,16 +16062,18 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)) - (quri.encode:url-encode + 'email-identity) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "DeleteEmailIdentityPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-email-identity-policy)) (common-lisp:progn (common-lisp:defun delete-email-template @@ -16080,12 +16095,13 @@ (common-lisp:format common-lisp:nil "/v2/email/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "DeleteEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-email-template)) (common-lisp:progn (common-lisp:defun delete-suppressed-destination @@ -16108,12 +16124,13 @@ (common-lisp:format common-lisp:nil "/v2/email/suppression/addresses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-address)))) + 'email-address) + common-lisp:t))) "DeleteSuppressedDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-suppressed-destination)) (common-lisp:progn (common-lisp:defun get-account () @@ -16139,7 +16156,7 @@ "GET" "/v2/email/deliverability-dashboard/blacklist-report" "GetBlacklistReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-blacklist-reports)) (common-lisp:progn (common-lisp:defun get-configuration-set @@ -16161,12 +16178,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "GetConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration-set)) (common-lisp:progn (common-lisp:defun get-configuration-set-event-destinations @@ -16189,12 +16207,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/event-destinations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "GetConfigurationSetEventDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration-set-event-destinations)) (common-lisp:progn (common-lisp:defun get-contact @@ -16217,16 +16236,18 @@ (common-lisp:format common-lisp:nil "/v2/email/contact-lists/~A/contacts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-list-name)) - (quri.encode:url-encode + 'contact-list-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-address)))) + 'email-address) + common-lisp:t))) "GetContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact)) (common-lisp:progn (common-lisp:defun get-contact-list @@ -16248,12 +16269,13 @@ (common-lisp:format common-lisp:nil "/v2/email/contact-lists/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-list-name)))) + 'contact-list-name) + common-lisp:t))) "GetContactList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact-list)) (common-lisp:progn (common-lisp:defun get-custom-verification-email-template @@ -16276,12 +16298,13 @@ (common-lisp:format common-lisp:nil "/v2/email/custom-verification-email-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "GetCustomVerificationEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-custom-verification-email-template)) (common-lisp:progn (common-lisp:defun get-dedicated-ip @@ -16303,12 +16326,13 @@ (common-lisp:format common-lisp:nil "/v2/email/dedicated-ips/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip)))) + 'ip) + common-lisp:t))) "GetDedicatedIp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dedicated-ip)) (common-lisp:progn (common-lisp:defun get-dedicated-ip-pool @@ -16330,12 +16354,13 @@ (common-lisp:format common-lisp:nil "/v2/email/dedicated-ip-pools/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pool-name)))) + 'pool-name) + common-lisp:t))) "GetDedicatedIpPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dedicated-ip-pool)) (common-lisp:progn (common-lisp:defun get-dedicated-ips @@ -16353,7 +16378,7 @@ "GET" "/v2/email/dedicated-ips" "GetDedicatedIps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-dedicated-ips)) (common-lisp:progn (common-lisp:defun get-deliverability-dashboard-options () @@ -16385,12 +16410,13 @@ (common-lisp:format common-lisp:nil "/v2/email/deliverability-dashboard/test-reports/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'report-id)))) + 'report-id) + common-lisp:t))) "GetDeliverabilityTestReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deliverability-test-report)) (common-lisp:progn (common-lisp:defun get-domain-deliverability-campaign @@ -16413,12 +16439,13 @@ (common-lisp:format common-lisp:nil "/v2/email/deliverability-dashboard/campaigns/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'campaign-id)))) + 'campaign-id) + common-lisp:t))) "GetDomainDeliverabilityCampaign")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-deliverability-campaign)) (common-lisp:progn (common-lisp:defun get-domain-statistics-report @@ -16441,12 +16468,13 @@ (common-lisp:format common-lisp:nil "/v2/email/deliverability-dashboard/statistics-report/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'domain)))) + 'domain) + common-lisp:t))) "GetDomainStatisticsReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-domain-statistics-report)) (common-lisp:progn (common-lisp:defun get-email-identity @@ -16468,12 +16496,13 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "GetEmailIdentity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-email-identity)) (common-lisp:progn (common-lisp:defun get-email-identity-policies @@ -16496,12 +16525,13 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A/policies" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "GetEmailIdentityPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-email-identity-policies)) (common-lisp:progn (common-lisp:defun get-email-template @@ -16523,12 +16553,13 @@ (common-lisp:format common-lisp:nil "/v2/email/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "GetEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-email-template)) (common-lisp:progn (common-lisp:defun get-export-job @@ -16550,12 +16581,13 @@ (common-lisp:format common-lisp:nil "/v2/email/export-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-export-job)) (common-lisp:progn (common-lisp:defun get-import-job @@ -16577,12 +16609,13 @@ (common-lisp:format common-lisp:nil "/v2/email/import-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-import-job)) (common-lisp:progn (common-lisp:defun get-message-insights @@ -16604,12 +16637,13 @@ (common-lisp:format common-lisp:nil "/v2/email/insights/~A/" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'message-id)))) + 'message-id) + common-lisp:t))) "GetMessageInsights")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-message-insights)) (common-lisp:progn (common-lisp:defun get-suppressed-destination @@ -16632,12 +16666,13 @@ (common-lisp:format common-lisp:nil "/v2/email/suppression/addresses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-address)))) + 'email-address) + common-lisp:t))) "GetSuppressedDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-suppressed-destination)) (common-lisp:progn (common-lisp:defun list-configuration-sets @@ -16655,7 +16690,7 @@ "GET" "/v2/email/configuration-sets" "ListConfigurationSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-sets)) (common-lisp:progn (common-lisp:defun list-contact-lists @@ -16673,7 +16708,7 @@ "GET" "/v2/email/contact-lists" "ListContactLists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contact-lists)) (common-lisp:progn (common-lisp:defun list-contacts @@ -16697,12 +16732,13 @@ (common-lisp:format common-lisp:nil "/v2/email/contact-lists/~A/contacts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-list-name)))) + 'contact-list-name) + common-lisp:t))) "ListContacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contacts)) (common-lisp:progn (common-lisp:defun list-custom-verification-email-templates @@ -16721,7 +16757,7 @@ "GET" "/v2/email/custom-verification-email-templates" "ListCustomVerificationEmailTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-custom-verification-email-templates)) (common-lisp:progn (common-lisp:defun list-dedicated-ip-pools @@ -16739,7 +16775,7 @@ "GET" "/v2/email/dedicated-ip-pools" "ListDedicatedIpPools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dedicated-ip-pools)) (common-lisp:progn (common-lisp:defun list-deliverability-test-reports @@ -16758,7 +16794,7 @@ "GET" "/v2/email/deliverability-dashboard/test-reports" "ListDeliverabilityTestReports")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-deliverability-test-reports)) (common-lisp:progn (common-lisp:defun list-domain-deliverability-campaigns @@ -16784,12 +16820,13 @@ (common-lisp:format common-lisp:nil "/v2/email/deliverability-dashboard/domains/~A/campaigns" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscribed-domain)))) + 'subscribed-domain) + common-lisp:t))) "ListDomainDeliverabilityCampaigns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domain-deliverability-campaigns)) (common-lisp:progn (common-lisp:defun list-email-identities @@ -16807,7 +16844,7 @@ "GET" "/v2/email/identities" "ListEmailIdentities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-email-identities)) (common-lisp:progn (common-lisp:defun list-email-templates @@ -16825,7 +16862,7 @@ "GET" "/v2/email/templates" "ListEmailTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-email-templates)) (common-lisp:progn (common-lisp:defun list-export-jobs @@ -16845,7 +16882,7 @@ "POST" "/v2/email/list-export-jobs" "ListExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-export-jobs)) (common-lisp:progn (common-lisp:defun list-import-jobs @@ -16865,7 +16902,7 @@ "GET" "/v2/email/import-jobs" "ListImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-import-jobs)) (common-lisp:progn (common-lisp:defun list-recommendations @@ -16883,7 +16920,7 @@ "POST" "/v2/email/vdm/recommendations" "ListRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendations)) (common-lisp:progn (common-lisp:defun list-suppressed-destinations @@ -16904,7 +16941,7 @@ "GET" "/v2/email/suppression/addresses" "ListSuppressedDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-suppressed-destinations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -16921,7 +16958,7 @@ aws-sdk/generator/operation::input "GET" "/v2/email/tags" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-account-dedicated-ip-warmup-attributes @@ -16940,7 +16977,7 @@ "PUT" "/v2/email/account/dedicated-ips/warmup" "PutAccountDedicatedIpWarmupAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-dedicated-ip-warmup-attributes)) (common-lisp:progn (common-lisp:defun put-account-details @@ -16963,7 +17000,7 @@ "POST" "/v2/email/account/details" "PutAccountDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-details)) (common-lisp:progn (common-lisp:defun put-account-sending-attributes @@ -16982,7 +17019,7 @@ "PUT" "/v2/email/account/sending" "PutAccountSendingAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-sending-attributes)) (common-lisp:progn (common-lisp:defun put-account-suppression-attributes @@ -17001,7 +17038,7 @@ "PUT" "/v2/email/account/suppression" "PutAccountSuppressionAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-suppression-attributes)) (common-lisp:progn (common-lisp:defun put-account-vdm-attributes @@ -17020,7 +17057,7 @@ "PUT" "/v2/email/account/vdm" "PutAccountVdmAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-vdm-attributes)) (common-lisp:progn (common-lisp:defun put-configuration-set-delivery-options @@ -17046,12 +17083,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/delivery-options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetDeliveryOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-delivery-options)) (common-lisp:progn (common-lisp:defun put-configuration-set-reputation-options @@ -17076,12 +17114,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/reputation-options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetReputationOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-reputation-options)) (common-lisp:progn (common-lisp:defun put-configuration-set-sending-options @@ -17105,12 +17144,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/sending" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetSendingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-sending-options)) (common-lisp:progn (common-lisp:defun put-configuration-set-suppression-options @@ -17135,12 +17175,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/suppression-options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetSuppressionOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-suppression-options)) (common-lisp:progn (common-lisp:defun put-configuration-set-tracking-options @@ -17165,12 +17206,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/tracking-options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetTrackingOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-tracking-options)) (common-lisp:progn (common-lisp:defun put-configuration-set-vdm-options @@ -17194,12 +17236,13 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/vdm-options" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "PutConfigurationSetVdmOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-configuration-set-vdm-options)) (common-lisp:progn (common-lisp:defun put-dedicated-ip-in-pool @@ -17221,12 +17264,13 @@ (common-lisp:format common-lisp:nil "/v2/email/dedicated-ips/~A/pool" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip)))) + 'ip) + common-lisp:t))) "PutDedicatedIpInPool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-dedicated-ip-in-pool)) (common-lisp:progn (common-lisp:defun put-dedicated-ip-pool-scaling-attributes @@ -17249,12 +17293,13 @@ (common-lisp:format common-lisp:nil "/v2/email/dedicated-ip-pools/~A/scaling" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'pool-name)))) + 'pool-name) + common-lisp:t))) "PutDedicatedIpPoolScalingAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-dedicated-ip-pool-scaling-attributes)) (common-lisp:progn (common-lisp:defun put-dedicated-ip-warmup-attributes @@ -17277,12 +17322,13 @@ (common-lisp:format common-lisp:nil "/v2/email/dedicated-ips/~A/warmup" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ip)))) + 'ip) + common-lisp:t))) "PutDedicatedIpWarmupAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-dedicated-ip-warmup-attributes)) (common-lisp:progn (common-lisp:defun put-deliverability-dashboard-option @@ -17302,7 +17348,7 @@ "PUT" "/v2/email/deliverability-dashboard" "PutDeliverabilityDashboardOption")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-deliverability-dashboard-option)) (common-lisp:progn (common-lisp:defun put-email-identity-configuration-set-attributes @@ -17326,12 +17372,13 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A/configuration-set" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "PutEmailIdentityConfigurationSetAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-identity-configuration-set-attributes)) (common-lisp:progn (common-lisp:defun put-email-identity-dkim-attributes @@ -17354,12 +17401,13 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A/dkim" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "PutEmailIdentityDkimAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-identity-dkim-attributes)) (common-lisp:progn (common-lisp:defun put-email-identity-dkim-signing-attributes @@ -17385,12 +17433,13 @@ (common-lisp:format common-lisp:nil "/v1/email/identities/~A/dkim/signing" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "PutEmailIdentityDkimSigningAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-identity-dkim-signing-attributes)) (common-lisp:progn (common-lisp:defun put-email-identity-feedback-attributes @@ -17414,12 +17463,13 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A/feedback" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "PutEmailIdentityFeedbackAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-identity-feedback-attributes)) (common-lisp:progn (common-lisp:defun put-email-identity-mail-from-attributes @@ -17445,12 +17495,13 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A/mail-from" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)))) + 'email-identity) + common-lisp:t))) "PutEmailIdentityMailFromAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-identity-mail-from-attributes)) (common-lisp:progn (common-lisp:defun put-suppressed-destination @@ -17469,7 +17520,7 @@ "PUT" "/v2/email/suppression/addresses" "PutSuppressedDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-suppressed-destination)) (common-lisp:progn (common-lisp:defun send-bulk-email @@ -17496,7 +17547,7 @@ "POST" "/v2/email/outbound-bulk-emails" "SendBulkEmail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-bulk-email)) (common-lisp:progn (common-lisp:defun send-custom-verification-email @@ -17517,7 +17568,7 @@ "POST" "/v2/email/outbound-custom-verification-emails" "SendCustomVerificationEmail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-custom-verification-email)) (common-lisp:progn (common-lisp:defun send-email @@ -17543,7 +17594,7 @@ "POST" "/v2/email/outbound-emails" "SendEmail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-email)) (common-lisp:progn (common-lisp:defun tag-resource @@ -17560,7 +17611,7 @@ aws-sdk/generator/operation::input "POST" "/v2/email/tags" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-render-email-template @@ -17583,12 +17634,13 @@ (common-lisp:format common-lisp:nil "/v2/email/templates/~A/render" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "TestRenderEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-render-email-template)) (common-lisp:progn (common-lisp:defun untag-resource @@ -17606,7 +17658,7 @@ "DELETE" "/v2/email/tags" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-configuration-set-event-destination @@ -17632,16 +17684,18 @@ (common-lisp:format common-lisp:nil "/v2/email/configuration-sets/~A/event-destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)) - (quri.encode:url-encode + 'configuration-set-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-destination-name)))) + 'event-destination-name) + common-lisp:t))) "UpdateConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun update-contact @@ -17666,16 +17720,18 @@ (common-lisp:format common-lisp:nil "/v2/email/contact-lists/~A/contacts/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-list-name)) - (quri.encode:url-encode + 'contact-list-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-address)))) + 'email-address) + common-lisp:t))) "UpdateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact)) (common-lisp:progn (common-lisp:defun update-contact-list @@ -17698,12 +17754,13 @@ (common-lisp:format common-lisp:nil "/v2/email/contact-lists/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'contact-list-name)))) + 'contact-list-name) + common-lisp:t))) "UpdateContactList")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-list)) (common-lisp:progn (common-lisp:defun update-custom-verification-email-template @@ -17730,12 +17787,13 @@ (common-lisp:format common-lisp:nil "/v2/email/custom-verification-email-templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "UpdateCustomVerificationEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-custom-verification-email-template)) (common-lisp:progn (common-lisp:defun update-email-identity-policy @@ -17759,16 +17817,18 @@ (common-lisp:format common-lisp:nil "/v2/email/identities/~A/policies/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'email-identity)) - (quri.encode:url-encode + 'email-identity) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'policy-name)))) + 'policy-name) + common-lisp:t))) "UpdateEmailIdentityPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-email-identity-policy)) (common-lisp:progn (common-lisp:defun update-email-template @@ -17790,10 +17850,11 @@ (common-lisp:format common-lisp:nil "/v2/email/templates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-name)))) + 'template-name) + common-lisp:t))) "UpdateEmailTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-email-template)) diff --git a/services/shield/api.lisp b/services/shield/api.lisp index 906ee53f..cacbf80c 100644 --- a/services/shield/api.lisp +++ b/services/shield/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/shield/api - (:use) - (:nicknames #:aws/shield) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/shield/api (:use) + (:nicknames #:aws/shield) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/shield/api) (common-lisp:progn (common-lisp:define-condition shield-error @@ -5189,7 +5188,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateDRTLogBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-drtlog-bucket)) (common-lisp:progn (common-lisp:defun associate-drtrole @@ -5206,7 +5205,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateDRTRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-drtrole)) (common-lisp:progn (common-lisp:defun associate-health-check @@ -5223,7 +5222,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateHealthCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-health-check)) (common-lisp:progn (common-lisp:defun associate-proactive-engagement-details @@ -5241,7 +5240,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateProactiveEngagementDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-proactive-engagement-details)) (common-lisp:progn (common-lisp:defun create-protection @@ -5258,7 +5257,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-protection)) (common-lisp:progn (common-lisp:defun create-protection-group @@ -5278,7 +5277,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProtectionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-protection-group)) (common-lisp:progn (common-lisp:defun create-subscription () @@ -5303,7 +5302,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-protection)) (common-lisp:progn (common-lisp:defun delete-protection-group @@ -5320,7 +5319,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProtectionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-protection-group)) (common-lisp:progn (common-lisp:defun delete-subscription () @@ -5345,7 +5344,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAttack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-attack)) (common-lisp:progn (common-lisp:defun describe-attack-statistics () @@ -5386,7 +5385,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-protection)) (common-lisp:progn (common-lisp:defun describe-protection-group @@ -5404,7 +5403,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProtectionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-protection-group)) (common-lisp:progn (common-lisp:defun describe-subscription () @@ -5430,7 +5429,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisableApplicationLayerAutomaticResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-application-layer-automatic-response)) (common-lisp:progn (common-lisp:defun disable-proactive-engagement () @@ -5456,7 +5455,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateDRTLogBucket")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-drtlog-bucket)) (common-lisp:progn (common-lisp:defun disassociate-drtrole () @@ -5482,7 +5481,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateHealthCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-health-check)) (common-lisp:progn (common-lisp:defun enable-application-layer-automatic-response @@ -5500,7 +5499,7 @@ aws-sdk/generator/operation::input "POST" "/" "EnableApplicationLayerAutomaticResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'enable-application-layer-automatic-response)) (common-lisp:progn (common-lisp:defun enable-proactive-engagement () @@ -5536,7 +5535,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAttacks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-attacks)) (common-lisp:progn (common-lisp:defun list-protection-groups @@ -5554,7 +5553,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProtectionGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-protection-groups)) (common-lisp:progn (common-lisp:defun list-protections @@ -5572,7 +5571,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProtections")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-protections)) (common-lisp:progn (common-lisp:defun list-resources-in-protection-group @@ -5592,7 +5591,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourcesInProtectionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources-in-protection-group)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5609,7 +5608,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5626,7 +5625,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5643,7 +5642,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application-layer-automatic-response @@ -5661,7 +5660,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApplicationLayerAutomaticResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application-layer-automatic-response)) (common-lisp:progn (common-lisp:defun update-emergency-contact-settings @@ -5679,7 +5678,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateEmergencyContactSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-emergency-contact-settings)) (common-lisp:progn (common-lisp:defun update-protection-group @@ -5699,7 +5698,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProtectionGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-protection-group)) (common-lisp:progn (common-lisp:defun update-subscription @@ -5716,5 +5715,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-subscription)) diff --git a/services/signer/api.lisp b/services/signer/api.lisp index 10a3d888..1a9b6185 100644 --- a/services/signer/api.lisp +++ b/services/signer/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/signer/api - (:use) - (:nicknames #:aws/signer) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/signer/api (:use) + (:nicknames #:aws/signer) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/signer/api) (common-lisp:progn (common-lisp:define-condition signer-error @@ -20,7 +19,7 @@ (common-lisp:export 'signer-error)) (common-lisp:progn (common-lisp:defclass signer-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "signer" :api-version "2017-08-25" :host-prefix "signer" :signing-name @@ -4042,12 +4041,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-profiles/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-name)))) + 'profile-name) + common-lisp:t))) "AddProfilePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-profile-permission)) (common-lisp:progn (common-lisp:defun cancel-signing-profile @@ -4069,12 +4069,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-name)))) + 'profile-name) + common-lisp:t))) "CancelSigningProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-signing-profile)) (common-lisp:progn (common-lisp:defun describe-signing-job @@ -4096,12 +4097,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "DescribeSigningJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-signing-job)) (common-lisp:progn (common-lisp:defun get-revocation-status @@ -4121,7 +4123,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/revocations" "GetRevocationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-revocation-status)) (common-lisp:progn (common-lisp:defun get-signing-platform @@ -4143,12 +4145,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-platforms/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'platform-id)))) + 'platform-id) + common-lisp:t))) "GetSigningPlatform")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-signing-platform)) (common-lisp:progn (common-lisp:defun get-signing-profile @@ -4170,12 +4173,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-name)))) + 'profile-name) + common-lisp:t))) "GetSigningProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-signing-profile)) (common-lisp:progn (common-lisp:defun list-profile-permissions @@ -4197,12 +4201,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-profiles/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-name)))) + 'profile-name) + common-lisp:t))) "ListProfilePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profile-permissions)) (common-lisp:progn (common-lisp:defun list-signing-jobs @@ -4224,7 +4229,7 @@ common-lisp:nil aws-sdk/generator/operation::input "GET" "/signing-jobs" "ListSigningJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-signing-jobs)) (common-lisp:progn (common-lisp:defun list-signing-platforms @@ -4244,7 +4249,7 @@ common-lisp:nil "GET" "/signing-platforms" "ListSigningPlatforms")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-signing-platforms)) (common-lisp:progn (common-lisp:defun list-signing-profiles @@ -4265,7 +4270,7 @@ common-lisp:nil "GET" "/signing-profiles" "ListSigningProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-signing-profiles)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4287,12 +4292,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-signing-profile @@ -4318,12 +4324,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-name)))) + 'profile-name) + common-lisp:t))) "PutSigningProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-signing-profile)) (common-lisp:progn (common-lisp:defun remove-profile-permission @@ -4347,16 +4354,18 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-profiles/~A/permissions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-name)) - (quri.encode:url-encode + 'profile-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'statement-id)))) + 'statement-id) + common-lisp:t))) "RemoveProfilePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-profile-permission)) (common-lisp:progn (common-lisp:defun revoke-signature @@ -4378,12 +4387,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-jobs/~A/revoke" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "RevokeSignature")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-signature)) (common-lisp:progn (common-lisp:defun revoke-signing-profile @@ -4407,12 +4417,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/signing-profiles/~A/revoke" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-name)))) + 'profile-name) + common-lisp:t))) "RevokeSigningProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-signing-profile)) (common-lisp:progn (common-lisp:defun sign-payload @@ -4432,7 +4443,7 @@ common-lisp:nil "POST" "/signing-jobs/with-payload" "SignPayload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'sign-payload)) (common-lisp:progn (common-lisp:defun start-signing-job @@ -4452,7 +4463,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/signing-jobs" "StartSigningJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-signing-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4474,12 +4485,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4501,10 +4513,11 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/simspaceweaver/api.lisp b/services/simspaceweaver/api.lisp index 7fae8cbb..17cae280 100644 --- a/services/simspaceweaver/api.lisp +++ b/services/simspaceweaver/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/simspaceweaver/api - (:use) - (:nicknames #:aws/simspaceweaver) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/simspaceweaver/api (:use) + (:nicknames #:aws/simspaceweaver) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/simspaceweaver/api) (common-lisp:progn (common-lisp:define-condition simspaceweaver-error @@ -20,7 +19,7 @@ (common-lisp:export 'simspaceweaver-error)) (common-lisp:progn (common-lisp:defclass simspaceweaver-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "simspaceweaver" :api-version "2022-10-28" :host-prefix "simspaceweaver" @@ -2419,7 +2418,7 @@ "POST" "/createsnapshot" "CreateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-snapshot)) (common-lisp:progn (common-lisp:defun delete-app @@ -2436,7 +2435,7 @@ aws-sdk/generator/operation::input "DELETE" "/deleteapp" "DeleteApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app)) (common-lisp:progn (common-lisp:defun delete-simulation @@ -2454,7 +2453,7 @@ "DELETE" "/deletesimulation" "DeleteSimulation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-simulation)) (common-lisp:progn (common-lisp:defun describe-app @@ -2471,7 +2470,7 @@ aws-sdk/generator/operation::input "GET" "/describeapp" "DescribeApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-app)) (common-lisp:progn (common-lisp:defun describe-simulation @@ -2489,7 +2488,7 @@ "GET" "/describesimulation" "DescribeSimulation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-simulation)) (common-lisp:progn (common-lisp:defun list-apps @@ -2507,7 +2506,7 @@ aws-sdk/generator/operation::input "GET" "/listapps" "ListApps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-apps)) (common-lisp:progn (common-lisp:defun list-simulations @@ -2525,7 +2524,7 @@ "GET" "/listsimulations" "ListSimulations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-simulations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2547,12 +2546,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-app @@ -2572,7 +2572,7 @@ aws-sdk/generator/operation::input "POST" "/startapp" "StartApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-app)) (common-lisp:progn (common-lisp:defun start-clock @@ -2589,7 +2589,7 @@ aws-sdk/generator/operation::input "POST" "/startclock" "StartClock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-clock)) (common-lisp:progn (common-lisp:defun start-simulation @@ -2610,7 +2610,7 @@ "POST" "/startsimulation" "StartSimulation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-simulation)) (common-lisp:progn (common-lisp:defun stop-app @@ -2627,7 +2627,7 @@ aws-sdk/generator/operation::input "POST" "/stopapp" "StopApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-app)) (common-lisp:progn (common-lisp:defun stop-clock @@ -2644,7 +2644,7 @@ aws-sdk/generator/operation::input "POST" "/stopclock" "StopClock")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-clock)) (common-lisp:progn (common-lisp:defun stop-simulation @@ -2662,7 +2662,7 @@ "POST" "/stopsimulation" "StopSimulation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-simulation)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2684,12 +2684,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2711,10 +2712,11 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/sms-voice/api.lisp b/services/sms-voice/api.lisp index 53a0569c..b2acaf9b 100644 --- a/services/sms-voice/api.lisp +++ b/services/sms-voice/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sms-voice/api - (:use) - (:nicknames #:aws/sms-voice) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sms-voice/api (:use) + (:nicknames #:aws/sms-voice) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sms-voice/api) (common-lisp:progn (common-lisp:define-condition sms-voice-error @@ -20,7 +19,7 @@ (common-lisp:export 'sms-voice-error)) (common-lisp:progn (common-lisp:defclass sms-voice-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sms-voice" :api-version "2018-09-05" :host-prefix "sms-voice.pinpoint" @@ -1391,7 +1390,7 @@ "POST" "/v1/sms-voice/configuration-sets" "CreateConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-set)) (common-lisp:progn (common-lisp:defun create-configuration-set-event-destination @@ -1417,12 +1416,13 @@ (common-lisp:format common-lisp:nil "/v1/sms-voice/configuration-sets/~A/event-destinations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "CreateConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun delete-configuration-set @@ -1444,12 +1444,13 @@ (common-lisp:format common-lisp:nil "/v1/sms-voice/configuration-sets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "DeleteConfigurationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-set)) (common-lisp:progn (common-lisp:defun delete-configuration-set-event-destination @@ -1474,16 +1475,18 @@ (common-lisp:format common-lisp:nil "/v1/sms-voice/configuration-sets/~A/event-destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)) - (quri.encode:url-encode + 'configuration-set-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-destination-name)))) + 'event-destination-name) + common-lisp:t))) "DeleteConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-configuration-set-event-destination)) (common-lisp:progn (common-lisp:defun get-configuration-set-event-destinations @@ -1506,12 +1509,13 @@ (common-lisp:format common-lisp:nil "/v1/sms-voice/configuration-sets/~A/event-destinations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)))) + 'configuration-set-name) + common-lisp:t))) "GetConfigurationSetEventDestinations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-configuration-set-event-destinations)) (common-lisp:progn (common-lisp:defun list-configuration-sets @@ -1529,7 +1533,7 @@ "GET" "/v1/sms-voice/configuration-sets" "ListConfigurationSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-configuration-sets)) (common-lisp:progn (common-lisp:defun send-voice-message @@ -1550,7 +1554,7 @@ "POST" "/v1/sms-voice/voice/message" "SendVoiceMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-voice-message)) (common-lisp:progn (common-lisp:defun update-configuration-set-event-destination @@ -1576,14 +1580,16 @@ (common-lisp:format common-lisp:nil "/v1/sms-voice/configuration-sets/~A/event-destinations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'configuration-set-name)) - (quri.encode:url-encode + 'configuration-set-name) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'event-destination-name)))) + 'event-destination-name) + common-lisp:t))) "UpdateConfigurationSetEventDestination")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-configuration-set-event-destination)) diff --git a/services/sms/api.lisp b/services/sms/api.lisp index 64d17186..9ebd0086 100644 --- a/services/sms/api.lisp +++ b/services/sms/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sms/api - (:use) - (:nicknames #:aws/sms) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sms/api (:use) + (:nicknames #:aws/sms) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sms/api) (common-lisp:progn (common-lisp:define-condition sms-error @@ -6261,7 +6260,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-app)) (common-lisp:progn (common-lisp:defun create-replication-job @@ -6283,7 +6282,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReplicationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-job)) (common-lisp:progn (common-lisp:defun delete-app @@ -6303,7 +6302,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app)) (common-lisp:progn (common-lisp:defun delete-app-launch-configuration @@ -6321,7 +6320,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAppLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-launch-configuration)) (common-lisp:progn (common-lisp:defun delete-app-replication-configuration @@ -6339,7 +6338,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAppReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-replication-configuration)) (common-lisp:progn (common-lisp:defun delete-app-validation-configuration @@ -6357,7 +6356,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAppValidationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-app-validation-configuration)) (common-lisp:progn (common-lisp:defun delete-replication-job @@ -6374,7 +6373,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteReplicationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-job)) (common-lisp:progn (common-lisp:defun delete-server-catalog () @@ -6399,7 +6398,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-connector)) (common-lisp:progn (common-lisp:defun generate-change-set @@ -6416,7 +6415,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateChangeSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-change-set)) (common-lisp:progn (common-lisp:defun generate-template @@ -6433,7 +6432,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-template)) (common-lisp:progn (common-lisp:defun get-app @@ -6449,7 +6448,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sms-request aws-sdk/generator/operation::input "POST" "/" "GetApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app)) (common-lisp:progn (common-lisp:defun get-app-launch-configuration @@ -6467,7 +6466,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAppLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-launch-configuration)) (common-lisp:progn (common-lisp:defun get-app-replication-configuration @@ -6485,7 +6484,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAppReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-replication-configuration)) (common-lisp:progn (common-lisp:defun get-app-validation-configuration @@ -6503,7 +6502,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAppValidationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-validation-configuration)) (common-lisp:progn (common-lisp:defun get-app-validation-output @@ -6521,7 +6520,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAppValidationOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-app-validation-output)) (common-lisp:progn (common-lisp:defun get-connectors @@ -6538,7 +6537,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connectors)) (common-lisp:progn (common-lisp:defun get-replication-jobs @@ -6557,7 +6556,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetReplicationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-replication-jobs)) (common-lisp:progn (common-lisp:defun get-replication-runs @@ -6576,7 +6575,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetReplicationRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-replication-runs)) (common-lisp:progn (common-lisp:defun get-servers @@ -6595,7 +6594,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-servers)) (common-lisp:progn (common-lisp:defun import-app-catalog @@ -6612,7 +6611,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportAppCatalog")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-app-catalog)) (common-lisp:progn (common-lisp:defun import-server-catalog () @@ -6637,7 +6636,7 @@ aws-sdk/generator/operation::input "POST" "/" "LaunchApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'launch-app)) (common-lisp:progn (common-lisp:defun list-apps @@ -6653,7 +6652,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sms-request aws-sdk/generator/operation::input "POST" "/" "ListApps")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-apps)) (common-lisp:progn (common-lisp:defun notify-app-validation-output @@ -6671,7 +6670,7 @@ aws-sdk/generator/operation::input "POST" "/" "NotifyAppValidationOutput")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-app-validation-output)) (common-lisp:progn (common-lisp:defun put-app-launch-configuration @@ -6692,7 +6691,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAppLaunchConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-app-launch-configuration)) (common-lisp:progn (common-lisp:defun put-app-replication-configuration @@ -6712,7 +6711,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAppReplicationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-app-replication-configuration)) (common-lisp:progn (common-lisp:defun put-app-validation-configuration @@ -6733,7 +6732,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAppValidationConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-app-validation-configuration)) (common-lisp:progn (common-lisp:defun start-app-replication @@ -6750,7 +6749,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartAppReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-app-replication)) (common-lisp:progn (common-lisp:defun start-on-demand-app-replication @@ -6768,7 +6767,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartOnDemandAppReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-on-demand-app-replication)) (common-lisp:progn (common-lisp:defun start-on-demand-replication-run @@ -6786,7 +6785,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartOnDemandReplicationRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-on-demand-replication-run)) (common-lisp:progn (common-lisp:defun stop-app-replication @@ -6803,7 +6802,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopAppReplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-app-replication)) (common-lisp:progn (common-lisp:defun terminate-app @@ -6820,7 +6819,7 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-app)) (common-lisp:progn (common-lisp:defun update-app @@ -6840,7 +6839,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApp")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-app)) (common-lisp:progn (common-lisp:defun update-replication-job @@ -6863,5 +6862,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateReplicationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-replication-job)) diff --git a/services/snow-device-management/api.lisp b/services/snow-device-management/api.lisp index b69298f3..d1decc19 100644 --- a/services/snow-device-management/api.lisp +++ b/services/snow-device-management/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/snow-device-management/api - (:use) - (:nicknames #:aws/snow-device-management) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/snow-device-management/api + (:use) (:nicknames #:aws/snow-device-management) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/snow-device-management/api) (common-lisp:progn (common-lisp:define-condition snow-device-management-error @@ -20,7 +19,7 @@ (common-lisp:export 'snow-device-management-error)) (common-lisp:progn (common-lisp:defclass snow-device-management-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "snow-device-management" :api-version "2021-08-04" :host-prefix @@ -2576,11 +2575,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/task/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'task-id)))) + aws-sdk/generator/operation::input 'task-id) + common-lisp:t))) "CancelTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-task)) (common-lisp:progn (common-lisp:defun create-task @@ -2598,7 +2598,7 @@ (aws-sdk/generator/shape:make-request-with-input 'snow-device-management-request aws-sdk/generator/operation::input "POST" "/task" "CreateTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-task)) (common-lisp:progn (common-lisp:defun describe-device @@ -2616,12 +2616,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/managed-device/~A/describe" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'managed-device-id)))) + 'managed-device-id) + common-lisp:t))) "DescribeDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device)) (common-lisp:progn (common-lisp:defun describe-device-ec2instances @@ -2640,12 +2641,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/managed-device/~A/resources/ec2/describe" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'managed-device-id)))) + 'managed-device-id) + common-lisp:t))) "DescribeDeviceEc2Instances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device-ec2instances)) (common-lisp:progn (common-lisp:defun describe-execution @@ -2663,15 +2665,17 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/task/~A/execution/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'task-id)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'task-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'managed-device-id)))) + 'managed-device-id) + common-lisp:t))) "DescribeExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-execution)) (common-lisp:progn (common-lisp:defun describe-task @@ -2689,11 +2693,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/task/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'task-id)))) + aws-sdk/generator/operation::input 'task-id) + common-lisp:t))) "DescribeTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-task)) (common-lisp:progn (common-lisp:defun list-device-resources @@ -2713,12 +2718,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/managed-device/~A/resources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'managed-device-id)))) + 'managed-device-id) + common-lisp:t))) "ListDeviceResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-device-resources)) (common-lisp:progn (common-lisp:defun list-devices @@ -2734,7 +2740,7 @@ (aws-sdk/generator/shape:make-request-with-input 'snow-device-management-request aws-sdk/generator/operation::input "GET" "/managed-devices" "ListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices)) (common-lisp:progn (common-lisp:defun list-executions @@ -2751,7 +2757,7 @@ (aws-sdk/generator/shape:make-request-with-input 'snow-device-management-request aws-sdk/generator/operation::input "GET" "/executions" "ListExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-executions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -2769,12 +2775,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-tasks @@ -2790,7 +2797,7 @@ (aws-sdk/generator/shape:make-request-with-input 'snow-device-management-request aws-sdk/generator/operation::input "GET" "/tasks" "ListTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tasks)) (common-lisp:progn (common-lisp:defun tag-resource @@ -2808,12 +2815,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -2831,10 +2839,11 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/snowball/api.lisp b/services/snowball/api.lisp index 46be22cd..45bc4c53 100644 --- a/services/snowball/api.lisp +++ b/services/snowball/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/snowball/api - (:use) - (:nicknames #:aws/snowball) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/snowball/api (:use) + (:nicknames #:aws/snowball) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/snowball/api) (common-lisp:progn (common-lisp:define-condition snowball-error @@ -5881,7 +5880,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-cluster)) (common-lisp:progn (common-lisp:defun cancel-job @@ -5898,7 +5897,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-job)) (common-lisp:progn (common-lisp:defun create-address @@ -5915,7 +5914,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-address)) (common-lisp:progn (common-lisp:defun create-cluster @@ -5942,7 +5941,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cluster)) (common-lisp:progn (common-lisp:defun create-job @@ -5970,7 +5969,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-job)) (common-lisp:progn (common-lisp:defun create-long-term-pricing @@ -5990,7 +5989,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLongTermPricing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-long-term-pricing)) (common-lisp:progn (common-lisp:defun create-return-shipping-label @@ -6008,7 +6007,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateReturnShippingLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-return-shipping-label)) (common-lisp:progn (common-lisp:defun describe-address @@ -6025,7 +6024,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-address)) (common-lisp:progn (common-lisp:defun describe-addresses @@ -6042,7 +6041,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAddresses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-addresses)) (common-lisp:progn (common-lisp:defun describe-cluster @@ -6059,7 +6058,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cluster)) (common-lisp:progn (common-lisp:defun describe-job @@ -6076,7 +6075,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-job)) (common-lisp:progn (common-lisp:defun describe-return-shipping-label @@ -6094,7 +6093,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeReturnShippingLabel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-return-shipping-label)) (common-lisp:progn (common-lisp:defun get-job-manifest @@ -6111,7 +6110,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetJobManifest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-manifest)) (common-lisp:progn (common-lisp:defun get-job-unlock-code @@ -6128,7 +6127,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetJobUnlockCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-job-unlock-code)) (common-lisp:progn (common-lisp:defun get-snowball-usage () @@ -6153,7 +6152,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSoftwareUpdates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-software-updates)) (common-lisp:progn (common-lisp:defun list-cluster-jobs @@ -6171,7 +6170,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListClusterJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-cluster-jobs)) (common-lisp:progn (common-lisp:defun list-clusters @@ -6188,7 +6187,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListClusters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-clusters)) (common-lisp:progn (common-lisp:defun list-compatible-images @@ -6205,7 +6204,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCompatibleImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-compatible-images)) (common-lisp:progn (common-lisp:defun list-jobs @@ -6221,7 +6220,7 @@ (aws-sdk/generator/shape:make-request-with-input 'snowball-request aws-sdk/generator/operation::input "POST" "/" "ListJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-jobs)) (common-lisp:progn (common-lisp:defun list-long-term-pricing @@ -6238,7 +6237,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLongTermPricing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-long-term-pricing)) (common-lisp:progn (common-lisp:defun list-pickup-locations @@ -6255,7 +6254,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPickupLocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pickup-locations)) (common-lisp:progn (common-lisp:defun list-service-versions @@ -6275,7 +6274,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServiceVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-versions)) (common-lisp:progn (common-lisp:defun update-cluster @@ -6297,7 +6296,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCluster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-cluster)) (common-lisp:progn (common-lisp:defun update-job @@ -6320,7 +6319,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-job)) (common-lisp:progn (common-lisp:defun update-job-shipment-state @@ -6338,7 +6337,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateJobShipmentState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-job-shipment-state)) (common-lisp:progn (common-lisp:defun update-long-term-pricing @@ -6358,5 +6357,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateLongTermPricing")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-long-term-pricing)) diff --git a/services/sns/api.lisp b/services/sns/api.lisp index 39afe71b..a81ff783 100644 --- a/services/sns/api.lisp +++ b/services/sns/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sns/api - (:use) - (:nicknames #:aws/sns) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sns/api (:use) + (:nicknames #:aws/sns) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sns/api) (common-lisp:progn (common-lisp:define-condition sns-error @@ -4679,7 +4678,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AddPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'add-permission)) (common-lisp:progn (common-lisp:defun check-if-phone-number-is-opted-out @@ -4697,7 +4696,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CheckIfPhoneNumberIsOptedOut")) - common-lisp:nil "CheckIfPhoneNumberIsOptedOutResult" *error-map*))) + common-lisp:nil "CheckIfPhoneNumberIsOptedOutResult" *error-map* + common-lisp:nil))) (common-lisp:export 'check-if-phone-number-is-opted-out)) (common-lisp:progn (common-lisp:defun confirm-subscription @@ -4716,7 +4716,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ConfirmSubscription")) - common-lisp:nil "ConfirmSubscriptionResult" *error-map*))) + common-lisp:nil "ConfirmSubscriptionResult" *error-map* + common-lisp:nil))) (common-lisp:export 'confirm-subscription)) (common-lisp:progn (common-lisp:defun create-platform-application @@ -4734,7 +4735,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreatePlatformApplication")) - common-lisp:nil "CreatePlatformApplicationResult" *error-map*))) + common-lisp:nil "CreatePlatformApplicationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-platform-application)) (common-lisp:progn (common-lisp:defun create-platform-endpoint @@ -4754,7 +4756,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreatePlatformEndpoint")) - common-lisp:nil "CreatePlatformEndpointResult" *error-map*))) + common-lisp:nil "CreatePlatformEndpointResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-platform-endpoint)) (common-lisp:progn (common-lisp:defun create-smssandbox-phone-number @@ -4772,7 +4775,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateSMSSandboxPhoneNumber")) - common-lisp:nil "CreateSMSSandboxPhoneNumberResult" *error-map*))) + common-lisp:nil "CreateSMSSandboxPhoneNumberResult" *error-map* + common-lisp:nil))) (common-lisp:export 'create-smssandbox-phone-number)) (common-lisp:progn (common-lisp:defun create-topic @@ -4791,7 +4795,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateTopic")) - common-lisp:nil "CreateTopicResult" *error-map*))) + common-lisp:nil "CreateTopicResult" *error-map* common-lisp:nil))) (common-lisp:export 'create-topic)) (common-lisp:progn (common-lisp:defun delete-endpoint @@ -4808,7 +4812,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteEndpoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-endpoint)) (common-lisp:progn (common-lisp:defun delete-platform-application @@ -4826,7 +4830,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeletePlatformApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-platform-application)) (common-lisp:progn (common-lisp:defun delete-smssandbox-phone-number @@ -4844,7 +4848,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteSMSSandboxPhoneNumber")) - common-lisp:nil "DeleteSMSSandboxPhoneNumberResult" *error-map*))) + common-lisp:nil "DeleteSMSSandboxPhoneNumberResult" *error-map* + common-lisp:nil))) (common-lisp:export 'delete-smssandbox-phone-number)) (common-lisp:progn (common-lisp:defun delete-topic @@ -4861,7 +4866,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteTopic")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'delete-topic)) (common-lisp:progn (common-lisp:defun get-data-protection-policy @@ -4878,7 +4883,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetDataProtectionPolicy")) - common-lisp:nil "GetDataProtectionPolicyResult" *error-map*))) + common-lisp:nil "GetDataProtectionPolicyResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-data-protection-policy)) (common-lisp:progn (common-lisp:defun get-endpoint-attributes @@ -4895,7 +4901,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetEndpointAttributes")) - common-lisp:nil "GetEndpointAttributesResult" *error-map*))) + common-lisp:nil "GetEndpointAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-endpoint-attributes)) (common-lisp:progn (common-lisp:defun get-platform-application-attributes @@ -4913,7 +4920,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetPlatformApplicationAttributes")) - common-lisp:nil "GetPlatformApplicationAttributesResult" *error-map*))) + common-lisp:nil "GetPlatformApplicationAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-platform-application-attributes)) (common-lisp:progn (common-lisp:defun get-smsattributes @@ -4930,7 +4938,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetSMSAttributes")) - common-lisp:nil "GetSMSAttributesResult" *error-map*))) + common-lisp:nil "GetSMSAttributesResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-smsattributes)) (common-lisp:progn (common-lisp:defun get-smssandbox-account-status () @@ -4956,7 +4964,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetSubscriptionAttributes")) - common-lisp:nil "GetSubscriptionAttributesResult" *error-map*))) + common-lisp:nil "GetSubscriptionAttributesResult" *error-map* + common-lisp:nil))) (common-lisp:export 'get-subscription-attributes)) (common-lisp:progn (common-lisp:defun get-topic-attributes @@ -4973,7 +4982,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "GetTopicAttributes")) - common-lisp:nil "GetTopicAttributesResult" *error-map*))) + common-lisp:nil "GetTopicAttributesResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-topic-attributes)) (common-lisp:progn (common-lisp:defun list-endpoints-by-platform-application @@ -4992,7 +5001,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListEndpointsByPlatformApplication")) - common-lisp:nil "ListEndpointsByPlatformApplicationResult" *error-map*))) + common-lisp:nil "ListEndpointsByPlatformApplicationResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-endpoints-by-platform-application)) (common-lisp:progn (common-lisp:defun list-origination-numbers @@ -5009,7 +5019,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListOriginationNumbers")) - common-lisp:nil "ListOriginationNumbersResult" *error-map*))) + common-lisp:nil "ListOriginationNumbersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-origination-numbers)) (common-lisp:progn (common-lisp:defun list-phone-numbers-opted-out @@ -5027,7 +5038,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListPhoneNumbersOptedOut")) - common-lisp:nil "ListPhoneNumbersOptedOutResult" *error-map*))) + common-lisp:nil "ListPhoneNumbersOptedOutResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-phone-numbers-opted-out)) (common-lisp:progn (common-lisp:defun list-platform-applications @@ -5044,7 +5056,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListPlatformApplications")) - common-lisp:nil "ListPlatformApplicationsResult" *error-map*))) + common-lisp:nil "ListPlatformApplicationsResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-platform-applications)) (common-lisp:progn (common-lisp:defun list-smssandbox-phone-numbers @@ -5062,7 +5075,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListSMSSandboxPhoneNumbers")) - common-lisp:nil "ListSMSSandboxPhoneNumbersResult" *error-map*))) + common-lisp:nil "ListSMSSandboxPhoneNumbersResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-smssandbox-phone-numbers)) (common-lisp:progn (common-lisp:defun list-subscriptions @@ -5079,7 +5093,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListSubscriptions")) - common-lisp:nil "ListSubscriptionsResult" *error-map*))) + common-lisp:nil "ListSubscriptionsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-subscriptions)) (common-lisp:progn (common-lisp:defun list-subscriptions-by-topic @@ -5097,7 +5111,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListSubscriptionsByTopic")) - common-lisp:nil "ListSubscriptionsByTopicResult" *error-map*))) + common-lisp:nil "ListSubscriptionsByTopicResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-subscriptions-by-topic)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -5114,7 +5129,8 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil "ListTagsForResourceResult" *error-map*))) + common-lisp:nil "ListTagsForResourceResult" *error-map* + common-lisp:nil))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-topics @@ -5131,7 +5147,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTopics")) - common-lisp:nil "ListTopicsResult" *error-map*))) + common-lisp:nil "ListTopicsResult" *error-map* common-lisp:nil))) (common-lisp:export 'list-topics)) (common-lisp:progn (common-lisp:defun opt-in-phone-number @@ -5148,7 +5164,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "OptInPhoneNumber")) - common-lisp:nil "OptInPhoneNumberResult" *error-map*))) + common-lisp:nil "OptInPhoneNumberResult" *error-map* common-lisp:nil))) (common-lisp:export 'opt-in-phone-number)) (common-lisp:progn (common-lisp:defun publish @@ -5169,7 +5185,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'sns-request aws-sdk/generator/operation::input "POST" "/" "Publish")) - common-lisp:nil "PublishResult" *error-map*))) + common-lisp:nil "PublishResult" *error-map* common-lisp:nil))) (common-lisp:export 'publish)) (common-lisp:progn (common-lisp:defun publish-batch @@ -5187,7 +5203,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PublishBatch")) - common-lisp:nil "PublishBatchResult" *error-map*))) + common-lisp:nil "PublishBatchResult" *error-map* common-lisp:nil))) (common-lisp:export 'publish-batch)) (common-lisp:progn (common-lisp:defun put-data-protection-policy @@ -5205,7 +5221,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "PutDataProtectionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'put-data-protection-policy)) (common-lisp:progn (common-lisp:defun remove-permission @@ -5222,7 +5238,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RemovePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'remove-permission)) (common-lisp:progn (common-lisp:defun set-endpoint-attributes @@ -5239,7 +5255,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetEndpointAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-endpoint-attributes)) (common-lisp:progn (common-lisp:defun set-platform-application-attributes @@ -5258,7 +5274,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetPlatformApplicationAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-platform-application-attributes)) (common-lisp:progn (common-lisp:defun set-smsattributes @@ -5275,7 +5291,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetSMSAttributes")) - common-lisp:nil "SetSMSAttributesResult" *error-map*))) + common-lisp:nil "SetSMSAttributesResult" *error-map* common-lisp:nil))) (common-lisp:export 'set-smsattributes)) (common-lisp:progn (common-lisp:defun set-subscription-attributes @@ -5295,7 +5311,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetSubscriptionAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-subscription-attributes)) (common-lisp:progn (common-lisp:defun set-topic-attributes @@ -5313,7 +5329,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetTopicAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'set-topic-attributes)) (common-lisp:progn (common-lisp:defun subscribe @@ -5333,7 +5349,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "Subscribe")) - common-lisp:nil "SubscribeResult" *error-map*))) + common-lisp:nil "SubscribeResult" *error-map* common-lisp:nil))) (common-lisp:export 'subscribe)) (common-lisp:progn (common-lisp:defun tag-resource @@ -5350,7 +5366,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil "TagResourceResult" *error-map*))) + common-lisp:nil "TagResourceResult" *error-map* common-lisp:nil))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun unsubscribe @@ -5367,7 +5383,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "Unsubscribe")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* common-lisp:nil))) (common-lisp:export 'unsubscribe)) (common-lisp:progn (common-lisp:defun untag-resource @@ -5384,7 +5400,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil "UntagResourceResult" *error-map*))) + common-lisp:nil "UntagResourceResult" *error-map* common-lisp:nil))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun verify-smssandbox-phone-number @@ -5402,5 +5418,6 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "VerifySMSSandboxPhoneNumber")) - common-lisp:nil "VerifySMSSandboxPhoneNumberResult" *error-map*))) + common-lisp:nil "VerifySMSSandboxPhoneNumberResult" *error-map* + common-lisp:nil))) (common-lisp:export 'verify-smssandbox-phone-number)) diff --git a/services/sqs/api.lisp b/services/sqs/api.lisp index dd373e8d..974e777d 100644 --- a/services/sqs/api.lisp +++ b/services/sqs/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sqs/api - (:use) - (:nicknames #:aws/sqs) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sqs/api (:use) + (:nicknames #:aws/sqs) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sqs/api) (common-lisp:progn (common-lisp:define-condition sqs-error @@ -3398,7 +3397,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-permission)) (common-lisp:progn (common-lisp:defun cancel-message-move-task @@ -3415,7 +3414,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelMessageMoveTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-message-move-task)) (common-lisp:progn (common-lisp:defun change-message-visibility @@ -3435,7 +3434,7 @@ aws-sdk/generator/operation::input "POST" "/" "ChangeMessageVisibility")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'change-message-visibility)) (common-lisp:progn (common-lisp:defun change-message-visibility-batch @@ -3453,7 +3452,7 @@ aws-sdk/generator/operation::input "POST" "/" "ChangeMessageVisibilityBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'change-message-visibility-batch)) (common-lisp:progn (common-lisp:defun create-queue @@ -3470,7 +3469,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-queue)) (common-lisp:progn (common-lisp:defun delete-message @@ -3487,7 +3486,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-message)) (common-lisp:progn (common-lisp:defun delete-message-batch @@ -3504,7 +3503,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMessageBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-message-batch)) (common-lisp:progn (common-lisp:defun delete-queue @@ -3521,7 +3520,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-queue)) (common-lisp:progn (common-lisp:defun get-queue-attributes @@ -3538,7 +3537,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetQueueAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-queue-attributes)) (common-lisp:progn (common-lisp:defun get-queue-url @@ -3556,7 +3555,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetQueueUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-queue-url)) (common-lisp:progn (common-lisp:defun list-dead-letter-source-queues @@ -3575,7 +3574,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDeadLetterSourceQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-dead-letter-source-queues)) (common-lisp:progn (common-lisp:defun list-message-move-tasks @@ -3592,7 +3591,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMessageMoveTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-message-move-tasks)) (common-lisp:progn (common-lisp:defun list-queue-tags @@ -3609,7 +3608,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListQueueTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-queue-tags)) (common-lisp:progn (common-lisp:defun list-queues @@ -3627,7 +3626,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListQueues")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-queues)) (common-lisp:progn (common-lisp:defun purge-queue @@ -3644,7 +3643,7 @@ aws-sdk/generator/operation::input "POST" "/" "PurgeQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'purge-queue)) (common-lisp:progn (common-lisp:defun receive-message @@ -3667,7 +3666,7 @@ aws-sdk/generator/operation::input "POST" "/" "ReceiveMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'receive-message)) (common-lisp:progn (common-lisp:defun remove-permission @@ -3684,7 +3683,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemovePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-permission)) (common-lisp:progn (common-lisp:defun send-message @@ -3706,7 +3705,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendMessage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-message)) (common-lisp:progn (common-lisp:defun send-message-batch @@ -3723,7 +3722,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendMessageBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-message-batch)) (common-lisp:progn (common-lisp:defun set-queue-attributes @@ -3740,7 +3739,7 @@ aws-sdk/generator/operation::input "POST" "/" "SetQueueAttributes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-queue-attributes)) (common-lisp:progn (common-lisp:defun start-message-move-task @@ -3760,7 +3759,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMessageMoveTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-message-move-task)) (common-lisp:progn (common-lisp:defun tag-queue @@ -3776,7 +3775,7 @@ (aws-sdk/generator/shape:make-request-with-input 'sqs-request aws-sdk/generator/operation::input "POST" "/" "TagQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-queue)) (common-lisp:progn (common-lisp:defun untag-queue @@ -3793,5 +3792,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagQueue")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-queue)) diff --git a/services/ssm-contacts/api.lisp b/services/ssm-contacts/api.lisp index 39e5d210..e69409c8 100644 --- a/services/ssm-contacts/api.lisp +++ b/services/ssm-contacts/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ssm-contacts/api - (:use) - (:nicknames #:aws/ssm-contacts) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ssm-contacts/api (:use) + (:nicknames #:aws/ssm-contacts) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ssm-contacts/api) (common-lisp:progn (common-lisp:define-condition ssm-contacts-error @@ -6578,7 +6577,7 @@ aws-sdk/generator/operation::input "POST" "/" "AcceptPage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'accept-page)) (common-lisp:progn (common-lisp:defun activate-contact-channel @@ -6596,7 +6595,7 @@ aws-sdk/generator/operation::input "POST" "/" "ActivateContactChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-contact-channel)) (common-lisp:progn (common-lisp:defun create-contact @@ -6616,7 +6615,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-contact)) (common-lisp:progn (common-lisp:defun create-contact-channel @@ -6636,7 +6635,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateContactChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-contact-channel)) (common-lisp:progn (common-lisp:defun create-rotation @@ -6656,7 +6655,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRotation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rotation)) (common-lisp:progn (common-lisp:defun create-rotation-override @@ -6676,7 +6675,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRotationOverride")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rotation-override)) (common-lisp:progn (common-lisp:defun deactivate-contact-channel @@ -6694,7 +6693,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeactivateContactChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deactivate-contact-channel)) (common-lisp:progn (common-lisp:defun delete-contact @@ -6711,7 +6710,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact)) (common-lisp:progn (common-lisp:defun delete-contact-channel @@ -6728,7 +6727,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteContactChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-contact-channel)) (common-lisp:progn (common-lisp:defun delete-rotation @@ -6745,7 +6744,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRotation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rotation)) (common-lisp:progn (common-lisp:defun delete-rotation-override @@ -6763,7 +6762,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRotationOverride")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rotation-override)) (common-lisp:progn (common-lisp:defun describe-engagement @@ -6780,7 +6779,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEngagement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-engagement)) (common-lisp:progn (common-lisp:defun describe-page @@ -6797,7 +6796,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-page)) (common-lisp:progn (common-lisp:defun get-contact @@ -6814,7 +6813,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact)) (common-lisp:progn (common-lisp:defun get-contact-channel @@ -6831,7 +6830,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetContactChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact-channel)) (common-lisp:progn (common-lisp:defun get-contact-policy @@ -6848,7 +6847,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetContactPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-contact-policy)) (common-lisp:progn (common-lisp:defun get-rotation @@ -6865,7 +6864,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRotation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rotation)) (common-lisp:progn (common-lisp:defun get-rotation-override @@ -6883,7 +6882,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRotationOverride")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rotation-override)) (common-lisp:progn (common-lisp:defun list-contact-channels @@ -6901,7 +6900,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListContactChannels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contact-channels)) (common-lisp:progn (common-lisp:defun list-contacts @@ -6919,7 +6918,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListContacts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contacts)) (common-lisp:progn (common-lisp:defun list-engagements @@ -6939,7 +6938,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListEngagements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-engagements)) (common-lisp:progn (common-lisp:defun list-page-receipts @@ -6956,7 +6955,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPageReceipts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-page-receipts)) (common-lisp:progn (common-lisp:defun list-page-resolutions @@ -6973,7 +6972,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPageResolutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-page-resolutions)) (common-lisp:progn (common-lisp:defun list-pages-by-contact @@ -6991,7 +6990,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPagesByContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pages-by-contact)) (common-lisp:progn (common-lisp:defun list-pages-by-engagement @@ -7009,7 +7008,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPagesByEngagement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-pages-by-engagement)) (common-lisp:progn (common-lisp:defun list-preview-rotation-shifts @@ -7031,7 +7030,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPreviewRotationShifts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-preview-rotation-shifts)) (common-lisp:progn (common-lisp:defun list-rotation-overrides @@ -7051,7 +7050,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRotationOverrides")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rotation-overrides)) (common-lisp:progn (common-lisp:defun list-rotation-shifts @@ -7071,7 +7070,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRotationShifts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rotation-shifts)) (common-lisp:progn (common-lisp:defun list-rotations @@ -7090,7 +7089,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRotations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rotations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -7107,7 +7106,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-contact-policy @@ -7124,7 +7123,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutContactPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-contact-policy)) (common-lisp:progn (common-lisp:defun send-activation-code @@ -7141,7 +7140,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendActivationCode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-activation-code)) (common-lisp:progn (common-lisp:defun start-engagement @@ -7162,7 +7161,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartEngagement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-engagement)) (common-lisp:progn (common-lisp:defun stop-engagement @@ -7179,7 +7178,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopEngagement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-engagement)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7196,7 +7195,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7213,7 +7212,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-contact @@ -7230,7 +7229,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateContact")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact)) (common-lisp:progn (common-lisp:defun update-contact-channel @@ -7248,7 +7247,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateContactChannel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-contact-channel)) (common-lisp:progn (common-lisp:defun update-rotation @@ -7268,5 +7267,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRotation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rotation)) diff --git a/services/ssm-incidents/api.lisp b/services/ssm-incidents/api.lisp index ee813273..6f45d259 100644 --- a/services/ssm-incidents/api.lisp +++ b/services/ssm-incidents/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ssm-incidents/api - (:use) - (:nicknames #:aws/ssm-incidents) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ssm-incidents/api (:use) + (:nicknames #:aws/ssm-incidents) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ssm-incidents/api) (common-lisp:progn (common-lisp:define-condition ssm-incidents-error @@ -20,7 +19,7 @@ (common-lisp:export 'ssm-incidents-error)) (common-lisp:progn (common-lisp:defclass ssm-incidents-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "ssm-incidents" :api-version "2018-05-10" :host-prefix "ssm-incidents" :signing-name @@ -6389,7 +6388,7 @@ "POST" "/batchGetIncidentFindings" "BatchGetIncidentFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-incident-findings)) (common-lisp:progn (common-lisp:defun create-replication-set @@ -6407,7 +6406,7 @@ "POST" "/createReplicationSet" "CreateReplicationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-replication-set)) (common-lisp:progn (common-lisp:defun create-response-plan @@ -6429,7 +6428,7 @@ "POST" "/createResponsePlan" "CreateResponsePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-response-plan)) (common-lisp:progn (common-lisp:defun create-timeline-event @@ -6450,7 +6449,7 @@ "POST" "/createTimelineEvent" "CreateTimelineEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-timeline-event)) (common-lisp:progn (common-lisp:defun delete-incident-record @@ -6468,7 +6467,7 @@ "POST" "/deleteIncidentRecord" "DeleteIncidentRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-incident-record)) (common-lisp:progn (common-lisp:defun delete-replication-set @@ -6486,7 +6485,7 @@ "POST" "/deleteReplicationSet" "DeleteReplicationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-replication-set)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -6504,7 +6503,7 @@ "POST" "/deleteResourcePolicy" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-response-plan @@ -6522,7 +6521,7 @@ "POST" "/deleteResponsePlan" "DeleteResponsePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-response-plan)) (common-lisp:progn (common-lisp:defun delete-timeline-event @@ -6540,7 +6539,7 @@ "POST" "/deleteTimelineEvent" "DeleteTimelineEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-timeline-event)) (common-lisp:progn (common-lisp:defun get-incident-record @@ -6558,7 +6557,7 @@ "GET" "/getIncidentRecord" "GetIncidentRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-incident-record)) (common-lisp:progn (common-lisp:defun get-replication-set @@ -6576,7 +6575,7 @@ "GET" "/getReplicationSet" "GetReplicationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-replication-set)) (common-lisp:progn (common-lisp:defun get-resource-policies @@ -6595,7 +6594,7 @@ "POST" "/getResourcePolicies" "GetResourcePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policies)) (common-lisp:progn (common-lisp:defun get-response-plan @@ -6613,7 +6612,7 @@ "GET" "/getResponsePlan" "GetResponsePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-response-plan)) (common-lisp:progn (common-lisp:defun get-timeline-event @@ -6631,7 +6630,7 @@ "GET" "/getTimelineEvent" "GetTimelineEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-timeline-event)) (common-lisp:progn (common-lisp:defun list-incident-findings @@ -6651,7 +6650,7 @@ "POST" "/listIncidentFindings" "ListIncidentFindings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-incident-findings)) (common-lisp:progn (common-lisp:defun list-incident-records @@ -6669,7 +6668,7 @@ "POST" "/listIncidentRecords" "ListIncidentRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-incident-records)) (common-lisp:progn (common-lisp:defun list-related-items @@ -6689,7 +6688,7 @@ "POST" "/listRelatedItems" "ListRelatedItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-related-items)) (common-lisp:progn (common-lisp:defun list-replication-sets @@ -6707,7 +6706,7 @@ "POST" "/listReplicationSets" "ListReplicationSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-replication-sets)) (common-lisp:progn (common-lisp:defun list-response-plans @@ -6725,7 +6724,7 @@ "POST" "/listResponsePlans" "ListResponsePlans")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-response-plans)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6747,12 +6746,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-timeline-events @@ -6773,7 +6773,7 @@ "POST" "/listTimelineEvents" "ListTimelineEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-timeline-events)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -6791,7 +6791,7 @@ "POST" "/putResourcePolicy" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun start-incident @@ -6811,7 +6811,7 @@ aws-sdk/generator/operation::input "POST" "/startIncident" "StartIncident")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-incident)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6833,12 +6833,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6860,12 +6861,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-deletion-protection @@ -6884,7 +6886,7 @@ "POST" "/updateDeletionProtection" "UpdateDeletionProtection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-deletion-protection)) (common-lisp:progn (common-lisp:defun update-incident-record @@ -6905,7 +6907,7 @@ "POST" "/updateIncidentRecord" "UpdateIncidentRecord")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-incident-record)) (common-lisp:progn (common-lisp:defun update-related-items @@ -6926,7 +6928,7 @@ "POST" "/updateRelatedItems" "UpdateRelatedItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-related-items)) (common-lisp:progn (common-lisp:defun update-replication-set @@ -6944,7 +6946,7 @@ "POST" "/updateReplicationSet" "UpdateReplicationSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-replication-set)) (common-lisp:progn (common-lisp:defun update-response-plan @@ -6971,7 +6973,7 @@ "POST" "/updateResponsePlan" "UpdateResponsePlan")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-response-plan)) (common-lisp:progn (common-lisp:defun update-timeline-event @@ -6993,5 +6995,5 @@ "POST" "/updateTimelineEvent" "UpdateTimelineEvent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-timeline-event)) diff --git a/services/ssm-sap/api.lisp b/services/ssm-sap/api.lisp index bb6ec927..c8a38ae4 100644 --- a/services/ssm-sap/api.lisp +++ b/services/ssm-sap/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ssm-sap/api - (:use) - (:nicknames #:aws/ssm-sap) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ssm-sap/api (:use) + (:nicknames #:aws/ssm-sap) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ssm-sap/api) (common-lisp:progn (common-lisp:define-condition ssm-sap-error @@ -20,7 +19,7 @@ (common-lisp:export 'ssm-sap-error)) (common-lisp:progn (common-lisp:defclass ssm-sap-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "ssm-sap" :api-version "2018-05-10" :host-prefix "ssm-sap" :signing-name @@ -3605,7 +3604,7 @@ "POST" "/delete-resource-permission" "DeleteResourcePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-permission)) (common-lisp:progn (common-lisp:defun deregister-application @@ -3623,7 +3622,7 @@ "POST" "/deregister-application" "DeregisterApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-application)) (common-lisp:progn (common-lisp:defun get-application @@ -3643,7 +3642,7 @@ "POST" "/get-application" "GetApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application)) (common-lisp:progn (common-lisp:defun get-component @@ -3660,7 +3659,7 @@ aws-sdk/generator/operation::input "POST" "/get-component" "GetComponent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-component)) (common-lisp:progn (common-lisp:defun get-database @@ -3680,7 +3679,7 @@ aws-sdk/generator/operation::input "POST" "/get-database" "GetDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-database)) (common-lisp:progn (common-lisp:defun get-operation @@ -3697,7 +3696,7 @@ aws-sdk/generator/operation::input "POST" "/get-operation" "GetOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-operation)) (common-lisp:progn (common-lisp:defun get-resource-permission @@ -3715,7 +3714,7 @@ "POST" "/get-resource-permission" "GetResourcePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-permission)) (common-lisp:progn (common-lisp:defun list-applications @@ -3733,7 +3732,7 @@ "POST" "/list-applications" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-components @@ -3752,7 +3751,7 @@ "POST" "/list-components" "ListComponents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-components)) (common-lisp:progn (common-lisp:defun list-databases @@ -3772,7 +3771,7 @@ "POST" "/list-databases" "ListDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-databases)) (common-lisp:progn (common-lisp:defun list-operations @@ -3792,7 +3791,7 @@ "POST" "/list-operations" "ListOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-operations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3814,12 +3813,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-resource-permission @@ -3839,7 +3839,7 @@ "POST" "/put-resource-permission" "PutResourcePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-permission)) (common-lisp:progn (common-lisp:defun register-application @@ -3860,7 +3860,7 @@ "POST" "/register-application" "RegisterApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-application)) (common-lisp:progn (common-lisp:defun start-application-refresh @@ -3878,7 +3878,7 @@ "POST" "/start-application-refresh" "StartApplicationRefresh")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-application-refresh)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3900,12 +3900,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3927,12 +3928,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application-settings @@ -3955,5 +3957,5 @@ "POST" "/update-application-settings" "UpdateApplicationSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application-settings)) diff --git a/services/ssm/api.lisp b/services/ssm/api.lisp index 5b6c513b..2c5cf106 100644 --- a/services/ssm/api.lisp +++ b/services/ssm/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/ssm/api - (:use) - (:nicknames #:aws/ssm) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/ssm/api (:use) + (:nicknames #:aws/ssm) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/ssm/api) (common-lisp:progn (common-lisp:define-condition ssm-error @@ -26023,13 +26022,6 @@ aws-sdk/generator/shape::input 'qualifier)) (common-lisp:list (common-lisp:cons "Qualifier" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))) - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" (aws-sdk/generator/shape::input-params aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload @@ -34485,13 +34477,6 @@ aws-sdk/generator/shape::input 'signal-type)) (common-lisp:list (common-lisp:cons "SignalType" - (aws-sdk/generator/shape::input-params - aws-sdk/generator/shape::value)))) - (alexandria:when-let (aws-sdk/generator/shape::value - (common-lisp:slot-value - aws-sdk/generator/shape::input 'payload)) - (common-lisp:list - (common-lisp:cons "Payload" (aws-sdk/generator/shape::input-params aws-sdk/generator/shape::value)))))) (common-lisp:defmethod aws-sdk/generator/shape::input-payload @@ -40202,7 +40187,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun associate-ops-item-related-item @@ -40223,7 +40208,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateOpsItemRelatedItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-ops-item-related-item)) (common-lisp:progn (common-lisp:defun cancel-command @@ -40240,7 +40225,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelCommand")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-command)) (common-lisp:progn (common-lisp:defun cancel-maintenance-window-execution @@ -40258,7 +40243,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelMaintenanceWindowExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-maintenance-window-execution)) (common-lisp:progn (common-lisp:defun create-activation @@ -40279,7 +40264,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateActivation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-activation)) (common-lisp:progn (common-lisp:defun create-association @@ -40308,7 +40293,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-association)) (common-lisp:progn (common-lisp:defun create-association-batch @@ -40325,7 +40310,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAssociationBatch")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-association-batch)) (common-lisp:progn (common-lisp:defun create-document @@ -40346,7 +40331,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-document)) (common-lisp:progn (common-lisp:defun create-maintenance-window @@ -40369,7 +40354,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-maintenance-window)) (common-lisp:progn (common-lisp:defun create-ops-item @@ -40394,7 +40379,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateOpsItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ops-item)) (common-lisp:progn (common-lisp:defun create-ops-metadata @@ -40411,7 +40396,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateOpsMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ops-metadata)) (common-lisp:progn (common-lisp:defun create-patch-baseline @@ -40437,7 +40422,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePatchBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-patch-baseline)) (common-lisp:progn (common-lisp:defun create-resource-data-sync @@ -40457,7 +40442,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateResourceDataSync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource-data-sync)) (common-lisp:progn (common-lisp:defun delete-activation @@ -40474,7 +40459,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteActivation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-activation)) (common-lisp:progn (common-lisp:defun delete-association @@ -40492,7 +40477,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-association)) (common-lisp:progn (common-lisp:defun delete-document @@ -40510,7 +40495,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-document)) (common-lisp:progn (common-lisp:defun delete-inventory @@ -40530,7 +40515,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInventory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-inventory)) (common-lisp:progn (common-lisp:defun delete-maintenance-window @@ -40548,7 +40533,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-maintenance-window)) (common-lisp:progn (common-lisp:defun delete-ops-item @@ -40565,7 +40550,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteOpsItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ops-item)) (common-lisp:progn (common-lisp:defun delete-ops-metadata @@ -40582,7 +40567,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteOpsMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ops-metadata)) (common-lisp:progn (common-lisp:defun delete-parameter @@ -40599,7 +40584,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteParameter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-parameter)) (common-lisp:progn (common-lisp:defun delete-parameters @@ -40616,7 +40601,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-parameters)) (common-lisp:progn (common-lisp:defun delete-patch-baseline @@ -40633,7 +40618,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePatchBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-patch-baseline)) (common-lisp:progn (common-lisp:defun delete-resource-data-sync @@ -40651,7 +40636,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourceDataSync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-data-sync)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -40669,7 +40654,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun deregister-managed-instance @@ -40687,7 +40672,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterManagedInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-managed-instance)) (common-lisp:progn (common-lisp:defun deregister-patch-baseline-for-patch-group @@ -40705,7 +40690,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterPatchBaselineForPatchGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-patch-baseline-for-patch-group)) (common-lisp:progn (common-lisp:defun deregister-target-from-maintenance-window @@ -40724,7 +40709,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterTargetFromMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-target-from-maintenance-window)) (common-lisp:progn (common-lisp:defun deregister-task-from-maintenance-window @@ -40742,7 +40727,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterTaskFromMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-task-from-maintenance-window)) (common-lisp:progn (common-lisp:defun describe-activations @@ -40759,7 +40744,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeActivations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-activations)) (common-lisp:progn (common-lisp:defun describe-association @@ -40779,7 +40764,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-association)) (common-lisp:progn (common-lisp:defun describe-association-execution-targets @@ -40800,7 +40785,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAssociationExecutionTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-association-execution-targets)) (common-lisp:progn (common-lisp:defun describe-association-executions @@ -40820,7 +40805,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAssociationExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-association-executions)) (common-lisp:progn (common-lisp:defun describe-automation-executions @@ -40838,7 +40823,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAutomationExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-automation-executions)) (common-lisp:progn (common-lisp:defun describe-automation-step-executions @@ -40859,7 +40844,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAutomationStepExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-automation-step-executions)) (common-lisp:progn (common-lisp:defun describe-available-patches @@ -40877,7 +40862,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAvailablePatches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-available-patches)) (common-lisp:progn (common-lisp:defun describe-document @@ -40895,7 +40880,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-document)) (common-lisp:progn (common-lisp:defun describe-document-permission @@ -40915,7 +40900,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDocumentPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-document-permission)) (common-lisp:progn (common-lisp:defun describe-effective-instance-associations @@ -40934,7 +40919,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEffectiveInstanceAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-effective-instance-associations)) (common-lisp:progn (common-lisp:defun describe-effective-patches-for-patch-baseline @@ -40953,7 +40938,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEffectivePatchesForPatchBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-effective-patches-for-patch-baseline)) (common-lisp:progn (common-lisp:defun describe-instance-associations-status @@ -40972,7 +40957,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceAssociationsStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-associations-status)) (common-lisp:progn (common-lisp:defun describe-instance-information @@ -40993,7 +40978,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-information)) (common-lisp:progn (common-lisp:defun describe-instance-patch-states @@ -41012,7 +40997,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstancePatchStates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-patch-states)) (common-lisp:progn (common-lisp:defun describe-instance-patch-states-for-patch-group @@ -41032,7 +41017,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstancePatchStatesForPatchGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-patch-states-for-patch-group)) (common-lisp:progn (common-lisp:defun describe-instance-patches @@ -41052,7 +41037,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstancePatches")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-patches)) (common-lisp:progn (common-lisp:defun describe-inventory-deletions @@ -41071,7 +41056,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInventoryDeletions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-inventory-deletions)) (common-lisp:progn (common-lisp:defun describe-maintenance-window-execution-task-invocations @@ -41092,7 +41077,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceWindowExecutionTaskInvocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-window-execution-task-invocations)) (common-lisp:progn (common-lisp:defun describe-maintenance-window-execution-tasks @@ -41112,7 +41097,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceWindowExecutionTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-window-execution-tasks)) (common-lisp:progn (common-lisp:defun describe-maintenance-window-executions @@ -41131,7 +41116,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceWindowExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-window-executions)) (common-lisp:progn (common-lisp:defun describe-maintenance-window-schedule @@ -41152,7 +41137,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceWindowSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-window-schedule)) (common-lisp:progn (common-lisp:defun describe-maintenance-window-targets @@ -41171,7 +41156,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceWindowTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-window-targets)) (common-lisp:progn (common-lisp:defun describe-maintenance-window-tasks @@ -41190,7 +41175,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceWindowTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-window-tasks)) (common-lisp:progn (common-lisp:defun describe-maintenance-windows @@ -41208,7 +41193,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceWindows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-windows)) (common-lisp:progn (common-lisp:defun describe-maintenance-windows-for-target @@ -41228,7 +41213,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceWindowsForTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-windows-for-target)) (common-lisp:progn (common-lisp:defun describe-ops-items @@ -41246,7 +41231,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOpsItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ops-items)) (common-lisp:progn (common-lisp:defun describe-parameters @@ -41266,7 +41251,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-parameters)) (common-lisp:progn (common-lisp:defun describe-patch-baselines @@ -41283,7 +41268,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePatchBaselines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-patch-baselines)) (common-lisp:progn (common-lisp:defun describe-patch-group-state @@ -41301,7 +41286,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePatchGroupState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-patch-group-state)) (common-lisp:progn (common-lisp:defun describe-patch-groups @@ -41318,7 +41303,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePatchGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-patch-groups)) (common-lisp:progn (common-lisp:defun describe-patch-properties @@ -41339,7 +41324,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePatchProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-patch-properties)) (common-lisp:progn (common-lisp:defun describe-sessions @@ -41357,7 +41342,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-sessions)) (common-lisp:progn (common-lisp:defun disassociate-ops-item-related-item @@ -41375,7 +41360,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateOpsItemRelatedItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-ops-item-related-item)) (common-lisp:progn (common-lisp:defun get-automation-execution @@ -41392,7 +41377,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAutomationExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-automation-execution)) (common-lisp:progn (common-lisp:defun get-calendar-state @@ -41409,7 +41394,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCalendarState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-calendar-state)) (common-lisp:progn (common-lisp:defun get-command-invocation @@ -41427,7 +41412,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCommandInvocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-command-invocation)) (common-lisp:progn (common-lisp:defun get-connection-status @@ -41444,7 +41429,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetConnectionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-connection-status)) (common-lisp:progn (common-lisp:defun get-default-patch-baseline @@ -41462,7 +41447,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDefaultPatchBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-default-patch-baseline)) (common-lisp:progn (common-lisp:defun get-deployable-patch-snapshot-for-instance @@ -41482,7 +41467,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDeployablePatchSnapshotForInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-deployable-patch-snapshot-for-instance)) (common-lisp:progn (common-lisp:defun get-document @@ -41501,7 +41486,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-document)) (common-lisp:progn (common-lisp:defun get-inventory @@ -41521,7 +41506,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInventory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-inventory)) (common-lisp:progn (common-lisp:defun get-inventory-schema @@ -41541,7 +41526,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInventorySchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-inventory-schema)) (common-lisp:progn (common-lisp:defun get-maintenance-window @@ -41558,7 +41543,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-maintenance-window)) (common-lisp:progn (common-lisp:defun get-maintenance-window-execution @@ -41576,7 +41561,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMaintenanceWindowExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-maintenance-window-execution)) (common-lisp:progn (common-lisp:defun get-maintenance-window-execution-task @@ -41594,7 +41579,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMaintenanceWindowExecutionTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-maintenance-window-execution-task)) (common-lisp:progn (common-lisp:defun get-maintenance-window-execution-task-invocation @@ -41614,7 +41599,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMaintenanceWindowExecutionTaskInvocation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-maintenance-window-execution-task-invocation)) (common-lisp:progn (common-lisp:defun get-maintenance-window-task @@ -41632,7 +41617,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMaintenanceWindowTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-maintenance-window-task)) (common-lisp:progn (common-lisp:defun get-ops-item @@ -41649,7 +41634,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOpsItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ops-item)) (common-lisp:progn (common-lisp:defun get-ops-metadata @@ -41667,7 +41652,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOpsMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ops-metadata)) (common-lisp:progn (common-lisp:defun get-ops-summary @@ -41687,7 +41672,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetOpsSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ops-summary)) (common-lisp:progn (common-lisp:defun get-parameter @@ -41704,7 +41689,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetParameter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-parameter)) (common-lisp:progn (common-lisp:defun get-parameter-history @@ -41723,7 +41708,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetParameterHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-parameter-history)) (common-lisp:progn (common-lisp:defun get-parameters @@ -41740,7 +41725,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetParameters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-parameters)) (common-lisp:progn (common-lisp:defun get-parameters-by-path @@ -41760,7 +41745,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetParametersByPath")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-parameters-by-path)) (common-lisp:progn (common-lisp:defun get-patch-baseline @@ -41777,7 +41762,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPatchBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-patch-baseline)) (common-lisp:progn (common-lisp:defun get-patch-baseline-for-patch-group @@ -41795,7 +41780,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPatchBaselineForPatchGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-patch-baseline-for-patch-group)) (common-lisp:progn (common-lisp:defun get-resource-policies @@ -41813,7 +41798,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetResourcePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policies)) (common-lisp:progn (common-lisp:defun get-service-setting @@ -41830,7 +41815,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetServiceSetting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-setting)) (common-lisp:progn (common-lisp:defun label-parameter-version @@ -41847,7 +41832,7 @@ aws-sdk/generator/operation::input "POST" "/" "LabelParameterVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'label-parameter-version)) (common-lisp:progn (common-lisp:defun list-association-versions @@ -41866,7 +41851,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssociationVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-association-versions)) (common-lisp:progn (common-lisp:defun list-associations @@ -41885,7 +41870,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associations)) (common-lisp:progn (common-lisp:defun list-command-invocations @@ -41905,7 +41890,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCommandInvocations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-command-invocations)) (common-lisp:progn (common-lisp:defun list-commands @@ -41925,7 +41910,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCommands")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-commands)) (common-lisp:progn (common-lisp:defun list-compliance-items @@ -41945,7 +41930,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListComplianceItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-compliance-items)) (common-lisp:progn (common-lisp:defun list-compliance-summaries @@ -41963,7 +41948,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListComplianceSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-compliance-summaries)) (common-lisp:progn (common-lisp:defun list-document-metadata-history @@ -41984,7 +41969,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDocumentMetadataHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-document-metadata-history)) (common-lisp:progn (common-lisp:defun list-document-versions @@ -42001,7 +41986,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDocumentVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-document-versions)) (common-lisp:progn (common-lisp:defun list-documents @@ -42021,7 +42006,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDocuments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-documents)) (common-lisp:progn (common-lisp:defun list-inventory-entries @@ -42041,7 +42026,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListInventoryEntries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-inventory-entries)) (common-lisp:progn (common-lisp:defun list-ops-item-events @@ -42058,7 +42043,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOpsItemEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ops-item-events)) (common-lisp:progn (common-lisp:defun list-ops-item-related-items @@ -42078,7 +42063,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOpsItemRelatedItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ops-item-related-items)) (common-lisp:progn (common-lisp:defun list-ops-metadata @@ -42095,7 +42080,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOpsMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ops-metadata)) (common-lisp:progn (common-lisp:defun list-resource-compliance-summaries @@ -42113,7 +42098,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceComplianceSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-compliance-summaries)) (common-lisp:progn (common-lisp:defun list-resource-data-sync @@ -42131,7 +42116,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceDataSync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-data-sync)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -42148,7 +42133,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun modify-document-permission @@ -42169,7 +42154,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyDocumentPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-document-permission)) (common-lisp:progn (common-lisp:defun put-compliance-items @@ -42189,7 +42174,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutComplianceItems")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-compliance-items)) (common-lisp:progn (common-lisp:defun put-inventory @@ -42206,7 +42191,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutInventory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-inventory)) (common-lisp:progn (common-lisp:defun put-parameter @@ -42226,7 +42211,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutParameter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-parameter)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -42245,7 +42230,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun register-default-patch-baseline @@ -42263,7 +42248,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterDefaultPatchBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-default-patch-baseline)) (common-lisp:progn (common-lisp:defun register-patch-baseline-for-patch-group @@ -42281,7 +42266,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterPatchBaselineForPatchGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-patch-baseline-for-patch-group)) (common-lisp:progn (common-lisp:defun register-target-with-maintenance-window @@ -42302,7 +42287,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterTargetWithMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-target-with-maintenance-window)) (common-lisp:progn (common-lisp:defun register-task-with-maintenance-window @@ -42328,7 +42313,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterTaskWithMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-task-with-maintenance-window)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -42347,7 +42332,7 @@ aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-resource)) (common-lisp:progn (common-lisp:defun reset-service-setting @@ -42364,7 +42349,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetServiceSetting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-service-setting)) (common-lisp:progn (common-lisp:defun resume-session @@ -42381,7 +42366,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResumeSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-session)) (common-lisp:progn (common-lisp:defun send-automation-signal @@ -42400,7 +42385,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendAutomationSignal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-automation-signal)) (common-lisp:progn (common-lisp:defun send-command @@ -42427,7 +42412,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendCommand")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-command)) (common-lisp:progn (common-lisp:defun start-associations-once @@ -42444,7 +42429,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartAssociationsOnce")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-associations-once)) (common-lisp:progn (common-lisp:defun start-automation-execution @@ -42468,7 +42453,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartAutomationExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-automation-execution)) (common-lisp:progn (common-lisp:defun start-change-request-execution @@ -42492,7 +42477,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartChangeRequestExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-change-request-execution)) (common-lisp:progn (common-lisp:defun start-session @@ -42510,7 +42495,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-session)) (common-lisp:progn (common-lisp:defun stop-automation-execution @@ -42528,7 +42513,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopAutomationExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-automation-execution)) (common-lisp:progn (common-lisp:defun terminate-session @@ -42545,7 +42530,7 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-session)) (common-lisp:progn (common-lisp:defun unlabel-parameter-version @@ -42563,7 +42548,7 @@ aws-sdk/generator/operation::input "POST" "/" "UnlabelParameterVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'unlabel-parameter-version)) (common-lisp:progn (common-lisp:defun update-association @@ -42593,7 +42578,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-association)) (common-lisp:progn (common-lisp:defun update-association-status @@ -42612,7 +42597,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAssociationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-association-status)) (common-lisp:progn (common-lisp:defun update-document @@ -42632,7 +42617,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-document)) (common-lisp:progn (common-lisp:defun update-document-default-version @@ -42650,7 +42635,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDocumentDefaultVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-document-default-version)) (common-lisp:progn (common-lisp:defun update-document-metadata @@ -42668,7 +42653,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDocumentMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-document-metadata)) (common-lisp:progn (common-lisp:defun update-maintenance-window @@ -42692,7 +42677,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMaintenanceWindow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-maintenance-window)) (common-lisp:progn (common-lisp:defun update-maintenance-window-target @@ -42713,7 +42698,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMaintenanceWindowTarget")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-maintenance-window-target)) (common-lisp:progn (common-lisp:defun update-maintenance-window-task @@ -42739,7 +42724,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMaintenanceWindowTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-maintenance-window-task)) (common-lisp:progn (common-lisp:defun update-managed-instance-role @@ -42757,7 +42742,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateManagedInstanceRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-managed-instance-role)) (common-lisp:progn (common-lisp:defun update-ops-item @@ -42782,7 +42767,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateOpsItem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ops-item)) (common-lisp:progn (common-lisp:defun update-ops-metadata @@ -42801,7 +42786,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateOpsMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ops-metadata)) (common-lisp:progn (common-lisp:defun update-patch-baseline @@ -42826,7 +42811,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePatchBaseline")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-patch-baseline)) (common-lisp:progn (common-lisp:defun update-resource-data-sync @@ -42845,7 +42830,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateResourceDataSync")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource-data-sync)) (common-lisp:progn (common-lisp:defun update-service-setting @@ -42862,5 +42847,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServiceSetting")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-setting)) diff --git a/services/sso-admin/api.lisp b/services/sso-admin/api.lisp index f79c131f..7c1261b6 100644 --- a/services/sso-admin/api.lisp +++ b/services/sso-admin/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sso-admin/api - (:use) - (:nicknames #:aws/sso-admin) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sso-admin/api (:use) + (:nicknames #:aws/sso-admin) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sso-admin/api) (common-lisp:progn (common-lisp:define-condition sso-admin-error @@ -11061,7 +11060,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachCustomerManagedPolicyReferenceToPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-customer-managed-policy-reference-to-permission-set)) (common-lisp:progn @@ -11082,7 +11081,7 @@ aws-sdk/generator/operation::input "POST" "/" "AttachManagedPolicyToPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-managed-policy-to-permission-set)) (common-lisp:progn (common-lisp:defun create-account-assignment @@ -11103,7 +11102,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAccountAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-account-assignment)) (common-lisp:progn (common-lisp:defun create-application @@ -11123,7 +11122,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application)) (common-lisp:progn (common-lisp:defun create-application-assignment @@ -11143,7 +11142,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateApplicationAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-application-assignment)) (common-lisp:progn (common-lisp:defun create-instance @@ -11160,7 +11159,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instance)) (common-lisp:progn (common-lisp:defun create-instance-access-control-attribute-configuration @@ -11182,7 +11181,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateInstanceAccessControlAttributeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-instance-access-control-attribute-configuration)) (common-lisp:progn (common-lisp:defun create-permission-set @@ -11202,7 +11201,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreatePermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-permission-set)) (common-lisp:progn (common-lisp:defun create-trusted-token-issuer @@ -11224,7 +11223,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTrustedTokenIssuer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-trusted-token-issuer)) (common-lisp:progn (common-lisp:defun delete-account-assignment @@ -11245,7 +11244,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAccountAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-account-assignment)) (common-lisp:progn (common-lisp:defun delete-application @@ -11262,7 +11261,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application)) (common-lisp:progn (common-lisp:defun delete-application-access-scope @@ -11280,7 +11279,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationAccessScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-access-scope)) (common-lisp:progn (common-lisp:defun delete-application-assignment @@ -11300,7 +11299,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-assignment)) (common-lisp:progn (common-lisp:defun delete-application-authentication-method @@ -11320,7 +11319,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationAuthenticationMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-authentication-method)) (common-lisp:progn (common-lisp:defun delete-application-grant @@ -11337,7 +11336,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteApplicationGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-application-grant)) (common-lisp:progn (common-lisp:defun delete-inline-policy-from-permission-set @@ -11356,7 +11355,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInlinePolicyFromPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-inline-policy-from-permission-set)) (common-lisp:progn (common-lisp:defun delete-instance @@ -11373,7 +11372,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance)) (common-lisp:progn (common-lisp:defun delete-instance-access-control-attribute-configuration @@ -11391,7 +11390,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteInstanceAccessControlAttributeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-instance-access-control-attribute-configuration)) (common-lisp:progn (common-lisp:defun delete-permission-set @@ -11409,7 +11408,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permission-set)) (common-lisp:progn (common-lisp:defun delete-permissions-boundary-from-permission-set @@ -11428,7 +11427,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePermissionsBoundaryFromPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permissions-boundary-from-permission-set)) (common-lisp:progn (common-lisp:defun delete-trusted-token-issuer @@ -11446,7 +11445,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTrustedTokenIssuer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-trusted-token-issuer)) (common-lisp:progn (common-lisp:defun describe-account-assignment-creation-status @@ -11467,7 +11466,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccountAssignmentCreationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-assignment-creation-status)) (common-lisp:progn (common-lisp:defun describe-account-assignment-deletion-status @@ -11488,7 +11487,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccountAssignmentDeletionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-assignment-deletion-status)) (common-lisp:progn (common-lisp:defun describe-application @@ -11505,7 +11504,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application)) (common-lisp:progn (common-lisp:defun describe-application-assignment @@ -11525,7 +11524,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApplicationAssignment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-assignment)) (common-lisp:progn (common-lisp:defun describe-application-provider @@ -11543,7 +11542,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApplicationProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-provider)) (common-lisp:progn (common-lisp:defun describe-instance @@ -11560,7 +11559,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance)) (common-lisp:progn (common-lisp:defun describe-instance-access-control-attribute-configuration @@ -11578,7 +11577,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInstanceAccessControlAttributeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-instance-access-control-attribute-configuration)) (common-lisp:progn (common-lisp:defun describe-permission-set @@ -11596,7 +11595,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-permission-set)) (common-lisp:progn (common-lisp:defun describe-permission-set-provisioning-status @@ -11616,7 +11615,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribePermissionSetProvisioningStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-permission-set-provisioning-status)) (common-lisp:progn (common-lisp:defun describe-trusted-token-issuer @@ -11634,7 +11633,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrustedTokenIssuer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trusted-token-issuer)) (common-lisp:progn (common-lisp:defun detach-customer-managed-policy-reference-from-permission-set @@ -11655,7 +11654,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachCustomerManagedPolicyReferenceFromPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-customer-managed-policy-reference-from-permission-set)) (common-lisp:progn @@ -11676,7 +11675,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetachManagedPolicyFromPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-managed-policy-from-permission-set)) (common-lisp:progn (common-lisp:defun get-application-access-scope @@ -11694,7 +11693,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetApplicationAccessScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-access-scope)) (common-lisp:progn (common-lisp:defun get-application-assignment-configuration @@ -11712,7 +11711,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetApplicationAssignmentConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-assignment-configuration)) (common-lisp:progn (common-lisp:defun get-application-authentication-method @@ -11732,7 +11731,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetApplicationAuthenticationMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-authentication-method)) (common-lisp:progn (common-lisp:defun get-application-grant @@ -11749,7 +11748,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetApplicationGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-application-grant)) (common-lisp:progn (common-lisp:defun get-inline-policy-for-permission-set @@ -11768,7 +11767,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetInlinePolicyForPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-inline-policy-for-permission-set)) (common-lisp:progn (common-lisp:defun get-permissions-boundary-for-permission-set @@ -11787,7 +11786,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPermissionsBoundaryForPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-permissions-boundary-for-permission-set)) (common-lisp:progn (common-lisp:defun list-account-assignment-creation-status @@ -11807,7 +11806,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccountAssignmentCreationStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-assignment-creation-status)) (common-lisp:progn (common-lisp:defun list-account-assignment-deletion-status @@ -11827,7 +11826,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccountAssignmentDeletionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-assignment-deletion-status)) (common-lisp:progn (common-lisp:defun list-account-assignments @@ -11847,7 +11846,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccountAssignments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-assignments)) (common-lisp:progn (common-lisp:defun list-account-assignments-for-principal @@ -11868,7 +11867,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccountAssignmentsForPrincipal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-assignments-for-principal)) (common-lisp:progn (common-lisp:defun list-accounts-for-provisioned-permission-set @@ -11889,7 +11888,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccountsForProvisionedPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accounts-for-provisioned-permission-set)) (common-lisp:progn (common-lisp:defun list-application-access-scopes @@ -11908,7 +11907,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplicationAccessScopes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-access-scopes)) (common-lisp:progn (common-lisp:defun list-application-assignments @@ -11927,7 +11926,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplicationAssignments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-assignments)) (common-lisp:progn (common-lisp:defun list-application-assignments-for-principal @@ -11948,7 +11947,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplicationAssignmentsForPrincipal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-assignments-for-principal)) (common-lisp:progn (common-lisp:defun list-application-authentication-methods @@ -11966,7 +11965,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplicationAuthenticationMethods")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-authentication-methods)) (common-lisp:progn (common-lisp:defun list-application-grants @@ -11983,7 +11982,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplicationGrants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-grants)) (common-lisp:progn (common-lisp:defun list-application-providers @@ -12001,7 +12000,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplicationProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-application-providers)) (common-lisp:progn (common-lisp:defun list-applications @@ -12020,7 +12019,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-applications)) (common-lisp:progn (common-lisp:defun list-customer-managed-policy-references-in-permission-set @@ -12041,7 +12040,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCustomerManagedPolicyReferencesInPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-customer-managed-policy-references-in-permission-set)) (common-lisp:progn @@ -12059,7 +12058,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-instances)) (common-lisp:progn (common-lisp:defun list-managed-policies-in-permission-set @@ -12080,7 +12079,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListManagedPoliciesInPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-managed-policies-in-permission-set)) (common-lisp:progn (common-lisp:defun list-permission-set-provisioning-status @@ -12100,7 +12099,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPermissionSetProvisioningStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permission-set-provisioning-status)) (common-lisp:progn (common-lisp:defun list-permission-sets @@ -12118,7 +12117,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPermissionSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permission-sets)) (common-lisp:progn (common-lisp:defun list-permission-sets-provisioned-to-account @@ -12139,7 +12138,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListPermissionSetsProvisionedToAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-permission-sets-provisioned-to-account)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12157,7 +12156,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-trusted-token-issuers @@ -12176,7 +12175,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTrustedTokenIssuers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-trusted-token-issuers)) (common-lisp:progn (common-lisp:defun provision-permission-set @@ -12196,7 +12195,7 @@ aws-sdk/generator/operation::input "POST" "/" "ProvisionPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'provision-permission-set)) (common-lisp:progn (common-lisp:defun put-application-access-scope @@ -12215,7 +12214,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutApplicationAccessScope")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-application-access-scope)) (common-lisp:progn (common-lisp:defun put-application-assignment-configuration @@ -12234,7 +12233,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutApplicationAssignmentConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-application-assignment-configuration)) (common-lisp:progn (common-lisp:defun put-application-authentication-method @@ -12255,7 +12254,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutApplicationAuthenticationMethod")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-application-authentication-method)) (common-lisp:progn (common-lisp:defun put-application-grant @@ -12273,7 +12272,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutApplicationGrant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-application-grant)) (common-lisp:progn (common-lisp:defun put-inline-policy-to-permission-set @@ -12293,7 +12292,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutInlinePolicyToPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-inline-policy-to-permission-set)) (common-lisp:progn (common-lisp:defun put-permissions-boundary-to-permission-set @@ -12314,7 +12313,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPermissionsBoundaryToPermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-permissions-boundary-to-permission-set)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12331,7 +12330,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12349,7 +12348,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-application @@ -12369,7 +12368,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-application)) (common-lisp:progn (common-lisp:defun update-instance @@ -12386,7 +12385,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-instance)) (common-lisp:progn (common-lisp:defun update-instance-access-control-attribute-configuration @@ -12408,7 +12407,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateInstanceAccessControlAttributeConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-instance-access-control-attribute-configuration)) (common-lisp:progn (common-lisp:defun update-permission-set @@ -12428,7 +12427,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePermissionSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-permission-set)) (common-lisp:progn (common-lisp:defun update-trusted-token-issuer @@ -12449,5 +12448,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateTrustedTokenIssuer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-trusted-token-issuer)) diff --git a/services/sso-oidc/api.lisp b/services/sso-oidc/api.lisp index cfed1a6b..ee037773 100644 --- a/services/sso-oidc/api.lisp +++ b/services/sso-oidc/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sso-oidc/api - (:use) - (:nicknames #:aws/sso-oidc) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sso-oidc/api (:use) + (:nicknames #:aws/sso-oidc) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sso-oidc/api) (common-lisp:progn (common-lisp:define-condition sso-oidc-error @@ -20,7 +19,7 @@ (common-lisp:export 'sso-oidc-error)) (common-lisp:progn (common-lisp:defclass sso-oidc-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sso-oidc" :api-version "2019-06-10" :host-prefix "oidc" :signing-name @@ -1071,7 +1070,7 @@ aws-sdk/generator/operation::input "POST" "/token" "CreateToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-token)) (common-lisp:progn (common-lisp:defun create-token-with-iam @@ -1093,7 +1092,7 @@ "POST" "/token?aws_iam=t" "CreateTokenWithIAM")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-token-with-iam)) (common-lisp:progn (common-lisp:defun register-client @@ -1111,7 +1110,7 @@ "POST" "/client/register" "RegisterClient")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-client)) (common-lisp:progn (common-lisp:defun start-device-authorization @@ -1131,5 +1130,5 @@ "POST" "/device_authorization" "StartDeviceAuthorization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-device-authorization)) diff --git a/services/sso/api.lisp b/services/sso/api.lisp index 0995f7bc..076a50a6 100644 --- a/services/sso/api.lisp +++ b/services/sso/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sso/api - (:use) - (:nicknames #:aws/sso) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sso/api (:use) + (:nicknames #:aws/sso) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sso/api) (common-lisp:progn (common-lisp:define-condition sso-error @@ -20,7 +19,7 @@ (common-lisp:export 'sso-error)) (common-lisp:progn (common-lisp:defclass sso-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "sso" :api-version "2019-06-10" :host-prefix "portal.sso" :signing-name @@ -141,8 +140,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'access-token)) - (common-lisp:cons "x-amz-sso_bearer_token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sso_bearer_token" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -247,8 +248,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'access-token)) - (common-lisp:cons "x-amz-sso_bearer_token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sso_bearer_token" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -350,8 +353,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'access-token)) - (common-lisp:cons "x-amz-sso_bearer_token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sso_bearer_token" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -434,8 +439,10 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'access-token)) - (common-lisp:cons "x-amz-sso_bearer_token" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amz-sso_bearer_token" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input logout-request)) (common-lisp:append)) @@ -610,7 +617,7 @@ "GET" "/federation/credentials" "GetRoleCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-role-credentials)) (common-lisp:progn (common-lisp:defun list-account-roles @@ -630,7 +637,7 @@ "GET" "/assignment/roles" "ListAccountRoles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-account-roles)) (common-lisp:progn (common-lisp:defun list-accounts @@ -649,7 +656,7 @@ "GET" "/assignment/accounts" "ListAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accounts)) (common-lisp:progn (common-lisp:defun logout @@ -666,5 +673,5 @@ aws-sdk/generator/operation::input "POST" "/logout" "Logout")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'logout)) diff --git a/services/states/api.lisp b/services/states/api.lisp index 01da20a0..7484bda5 100644 --- a/services/states/api.lisp +++ b/services/states/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/states/api - (:use) - (:nicknames #:aws/states) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/states/api (:use) + (:nicknames #:aws/states) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/states/api) (common-lisp:progn (common-lisp:define-condition states-error @@ -9390,7 +9389,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateActivity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-activity)) (common-lisp:progn (common-lisp:defun create-state-machine @@ -9411,7 +9410,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStateMachine")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-state-machine)) (common-lisp:progn (common-lisp:defun create-state-machine-alias @@ -9429,7 +9428,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStateMachineAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-state-machine-alias)) (common-lisp:progn (common-lisp:defun delete-activity @@ -9446,7 +9445,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteActivity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-activity)) (common-lisp:progn (common-lisp:defun delete-state-machine @@ -9463,7 +9462,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStateMachine")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-state-machine)) (common-lisp:progn (common-lisp:defun delete-state-machine-alias @@ -9480,7 +9479,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStateMachineAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-state-machine-alias)) (common-lisp:progn (common-lisp:defun delete-state-machine-version @@ -9498,7 +9497,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteStateMachineVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-state-machine-version)) (common-lisp:progn (common-lisp:defun describe-activity @@ -9515,7 +9514,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeActivity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-activity)) (common-lisp:progn (common-lisp:defun describe-execution @@ -9532,7 +9531,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-execution)) (common-lisp:progn (common-lisp:defun describe-map-run @@ -9549,7 +9548,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMapRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-map-run)) (common-lisp:progn (common-lisp:defun describe-state-machine @@ -9566,7 +9565,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStateMachine")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-state-machine)) (common-lisp:progn (common-lisp:defun describe-state-machine-alias @@ -9584,7 +9583,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStateMachineAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-state-machine-alias)) (common-lisp:progn (common-lisp:defun describe-state-machine-for-execution @@ -9602,7 +9601,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeStateMachineForExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-state-machine-for-execution)) (common-lisp:progn (common-lisp:defun get-activity-task @@ -9619,7 +9618,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetActivityTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-activity-task)) (common-lisp:progn (common-lisp:defun get-execution-history @@ -9639,7 +9638,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetExecutionHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-execution-history)) (common-lisp:progn (common-lisp:defun list-activities @@ -9656,7 +9655,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListActivities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-activities)) (common-lisp:progn (common-lisp:defun list-executions @@ -9676,7 +9675,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-executions)) (common-lisp:progn (common-lisp:defun list-map-runs @@ -9694,7 +9693,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMapRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-map-runs)) (common-lisp:progn (common-lisp:defun list-state-machine-aliases @@ -9712,7 +9711,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStateMachineAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-state-machine-aliases)) (common-lisp:progn (common-lisp:defun list-state-machine-versions @@ -9731,7 +9730,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStateMachineVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-state-machine-versions)) (common-lisp:progn (common-lisp:defun list-state-machines @@ -9748,7 +9747,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListStateMachines")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-state-machines)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9765,7 +9764,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun publish-state-machine-version @@ -9785,7 +9784,7 @@ aws-sdk/generator/operation::input "POST" "/" "PublishStateMachineVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'publish-state-machine-version)) (common-lisp:progn (common-lisp:defun redrive-execution @@ -9802,7 +9801,7 @@ aws-sdk/generator/operation::input "POST" "/" "RedriveExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'redrive-execution)) (common-lisp:progn (common-lisp:defun send-task-failure @@ -9819,7 +9818,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendTaskFailure")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-task-failure)) (common-lisp:progn (common-lisp:defun send-task-heartbeat @@ -9836,7 +9835,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendTaskHeartbeat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-task-heartbeat)) (common-lisp:progn (common-lisp:defun send-task-success @@ -9853,7 +9852,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendTaskSuccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-task-success)) (common-lisp:progn (common-lisp:defun start-execution @@ -9872,7 +9871,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-execution)) (common-lisp:progn (common-lisp:defun start-sync-execution @@ -9891,7 +9890,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartSyncExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-sync-execution)) (common-lisp:progn (common-lisp:defun stop-execution @@ -9908,7 +9907,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-execution)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9925,7 +9924,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-state @@ -9945,7 +9944,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-state)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9962,7 +9961,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-map-run @@ -9982,7 +9981,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMapRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-map-run)) (common-lisp:progn (common-lisp:defun update-state-machine @@ -10003,7 +10002,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStateMachine")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-state-machine)) (common-lisp:progn (common-lisp:defun update-state-machine-alias @@ -10023,5 +10022,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateStateMachineAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-state-machine-alias)) diff --git a/services/storagegateway/api.lisp b/services/storagegateway/api.lisp index a5673971..4028d8fd 100644 --- a/services/storagegateway/api.lisp +++ b/services/storagegateway/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/storagegateway/api - (:use) - (:nicknames #:aws/storagegateway) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/storagegateway/api (:use) + (:nicknames #:aws/storagegateway) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/storagegateway/api) (common-lisp:progn (common-lisp:define-condition storagegateway-error @@ -15303,7 +15302,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ActivateGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-gateway)) (common-lisp:progn (common-lisp:defun add-cache @@ -15319,7 +15318,7 @@ common-lisp:nil (aws-sdk/generator/shape:make-request-with-input 'storagegateway-request aws-sdk/generator/operation::input "POST" "/" "AddCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-cache)) (common-lisp:progn (common-lisp:defun add-tags-to-resource @@ -15336,7 +15335,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AddTagsToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-tags-to-resource)) (common-lisp:progn (common-lisp:defun add-upload-buffer @@ -15353,7 +15352,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AddUploadBuffer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-upload-buffer)) (common-lisp:progn (common-lisp:defun add-working-storage @@ -15370,7 +15369,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AddWorkingStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-working-storage)) (common-lisp:progn (common-lisp:defun assign-tape-pool @@ -15389,7 +15388,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AssignTapePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'assign-tape-pool)) (common-lisp:progn (common-lisp:defun associate-file-system @@ -15411,7 +15410,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AssociateFileSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-file-system)) (common-lisp:progn (common-lisp:defun attach-volume @@ -15431,7 +15430,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "AttachVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'attach-volume)) (common-lisp:progn (common-lisp:defun cancel-archival @@ -15448,7 +15447,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CancelArchival")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-archival)) (common-lisp:progn (common-lisp:defun cancel-retrieval @@ -15465,7 +15464,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CancelRetrieval")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-retrieval)) (common-lisp:progn (common-lisp:defun create-cachedi-scsivolume @@ -15488,7 +15487,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateCachediSCSIVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-cachedi-scsivolume)) (common-lisp:progn (common-lisp:defun create-nfsfile-share @@ -15515,7 +15514,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateNFSFileShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-nfsfile-share)) (common-lisp:progn (common-lisp:defun create-smbfile-share @@ -15546,7 +15545,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateSMBFileShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-smbfile-share)) (common-lisp:progn (common-lisp:defun create-snapshot @@ -15564,7 +15563,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateSnapshot")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-snapshot)) (common-lisp:progn (common-lisp:defun create-snapshot-from-volume-recovery-point @@ -15583,7 +15582,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateSnapshotFromVolumeRecoveryPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-snapshot-from-volume-recovery-point)) (common-lisp:progn (common-lisp:defun create-storedi-scsivolume @@ -15605,7 +15604,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateStorediSCSIVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-storedi-scsivolume)) (common-lisp:progn (common-lisp:defun create-tape-pool @@ -15625,7 +15624,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateTapePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tape-pool)) (common-lisp:progn (common-lisp:defun create-tape-with-barcode @@ -15645,7 +15644,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateTapeWithBarcode")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tape-with-barcode)) (common-lisp:progn (common-lisp:defun create-tapes @@ -15667,7 +15666,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "CreateTapes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tapes)) (common-lisp:progn (common-lisp:defun delete-automatic-tape-creation-policy @@ -15685,7 +15684,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteAutomaticTapeCreationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-automatic-tape-creation-policy)) (common-lisp:progn (common-lisp:defun delete-bandwidth-rate-limit @@ -15703,7 +15702,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteBandwidthRateLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-bandwidth-rate-limit)) (common-lisp:progn (common-lisp:defun delete-chap-credentials @@ -15720,7 +15719,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteChapCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-chap-credentials)) (common-lisp:progn (common-lisp:defun delete-file-share @@ -15737,7 +15736,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteFileShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-file-share)) (common-lisp:progn (common-lisp:defun delete-gateway @@ -15754,7 +15753,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-gateway)) (common-lisp:progn (common-lisp:defun delete-snapshot-schedule @@ -15771,7 +15770,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteSnapshotSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-snapshot-schedule)) (common-lisp:progn (common-lisp:defun delete-tape @@ -15790,7 +15789,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteTape")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tape)) (common-lisp:progn (common-lisp:defun delete-tape-archive @@ -15808,7 +15807,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteTapeArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tape-archive)) (common-lisp:progn (common-lisp:defun delete-tape-pool @@ -15825,7 +15824,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteTapePool")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tape-pool)) (common-lisp:progn (common-lisp:defun delete-volume @@ -15842,7 +15841,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DeleteVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-volume)) (common-lisp:progn (common-lisp:defun describe-availability-monitor-test @@ -15860,7 +15859,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeAvailabilityMonitorTest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-availability-monitor-test)) (common-lisp:progn (common-lisp:defun describe-bandwidth-rate-limit @@ -15878,7 +15877,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeBandwidthRateLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bandwidth-rate-limit)) (common-lisp:progn (common-lisp:defun describe-bandwidth-rate-limit-schedule @@ -15896,7 +15895,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeBandwidthRateLimitSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bandwidth-rate-limit-schedule)) (common-lisp:progn (common-lisp:defun describe-cache @@ -15913,7 +15912,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cache)) (common-lisp:progn (common-lisp:defun describe-cachedi-scsivolumes @@ -15931,7 +15930,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeCachediSCSIVolumes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cachedi-scsivolumes)) (common-lisp:progn (common-lisp:defun describe-chap-credentials @@ -15948,7 +15947,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeChapCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-chap-credentials)) (common-lisp:progn (common-lisp:defun describe-file-system-associations @@ -15967,7 +15966,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeFileSystemAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-file-system-associations)) (common-lisp:progn (common-lisp:defun describe-gateway-information @@ -15985,7 +15984,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeGatewayInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-gateway-information)) (common-lisp:progn (common-lisp:defun describe-maintenance-start-time @@ -16003,7 +16002,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeMaintenanceStartTime")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-maintenance-start-time)) (common-lisp:progn (common-lisp:defun describe-nfsfile-shares @@ -16020,7 +16019,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeNFSFileShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-nfsfile-shares)) (common-lisp:progn (common-lisp:defun describe-smbfile-shares @@ -16037,7 +16036,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeSMBFileShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-smbfile-shares)) (common-lisp:progn (common-lisp:defun describe-smbsettings @@ -16054,7 +16053,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeSMBSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-smbsettings)) (common-lisp:progn (common-lisp:defun describe-snapshot-schedule @@ -16071,7 +16070,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeSnapshotSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-snapshot-schedule)) (common-lisp:progn (common-lisp:defun describe-storedi-scsivolumes @@ -16089,7 +16088,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeStorediSCSIVolumes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-storedi-scsivolumes)) (common-lisp:progn (common-lisp:defun describe-tape-archives @@ -16106,7 +16105,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeTapeArchives")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tape-archives)) (common-lisp:progn (common-lisp:defun describe-tape-recovery-points @@ -16124,7 +16123,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeTapeRecoveryPoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tape-recovery-points)) (common-lisp:progn (common-lisp:defun describe-tapes @@ -16142,7 +16141,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeTapes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tapes)) (common-lisp:progn (common-lisp:defun describe-upload-buffer @@ -16159,7 +16158,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeUploadBuffer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-upload-buffer)) (common-lisp:progn (common-lisp:defun describe-vtldevices @@ -16177,7 +16176,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeVTLDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-vtldevices)) (common-lisp:progn (common-lisp:defun describe-working-storage @@ -16194,7 +16193,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DescribeWorkingStorage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-working-storage)) (common-lisp:progn (common-lisp:defun detach-volume @@ -16211,7 +16210,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DetachVolume")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detach-volume)) (common-lisp:progn (common-lisp:defun disable-gateway @@ -16228,7 +16227,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DisableGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disable-gateway)) (common-lisp:progn (common-lisp:defun disassociate-file-system @@ -16246,7 +16245,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "DisassociateFileSystem")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-file-system)) (common-lisp:progn (common-lisp:defun join-domain @@ -16267,7 +16266,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "JoinDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'join-domain)) (common-lisp:progn (common-lisp:defun list-automatic-tape-creation-policies @@ -16285,7 +16284,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListAutomaticTapeCreationPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-automatic-tape-creation-policies)) (common-lisp:progn (common-lisp:defun list-file-shares @@ -16302,7 +16301,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListFileShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-file-shares)) (common-lisp:progn (common-lisp:defun list-file-system-associations @@ -16320,7 +16319,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListFileSystemAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-file-system-associations)) (common-lisp:progn (common-lisp:defun list-gateways @@ -16337,7 +16336,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListGateways")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-gateways)) (common-lisp:progn (common-lisp:defun list-local-disks @@ -16354,7 +16353,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListLocalDisks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-local-disks)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -16371,7 +16370,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-tape-pools @@ -16388,7 +16387,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTapePools")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tape-pools)) (common-lisp:progn (common-lisp:defun list-tapes @@ -16405,7 +16404,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListTapes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tapes)) (common-lisp:progn (common-lisp:defun list-volume-initiators @@ -16422,7 +16421,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListVolumeInitiators")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-volume-initiators)) (common-lisp:progn (common-lisp:defun list-volume-recovery-points @@ -16440,7 +16439,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListVolumeRecoveryPoints")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-volume-recovery-points)) (common-lisp:progn (common-lisp:defun list-volumes @@ -16457,7 +16456,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ListVolumes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-volumes)) (common-lisp:progn (common-lisp:defun notify-when-uploaded @@ -16474,7 +16473,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "NotifyWhenUploaded")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-when-uploaded)) (common-lisp:progn (common-lisp:defun refresh-cache @@ -16492,7 +16491,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RefreshCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'refresh-cache)) (common-lisp:progn (common-lisp:defun remove-tags-from-resource @@ -16509,7 +16508,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RemoveTagsFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-tags-from-resource)) (common-lisp:progn (common-lisp:defun reset-cache @@ -16526,7 +16525,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ResetCache")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-cache)) (common-lisp:progn (common-lisp:defun retrieve-tape-archive @@ -16543,7 +16542,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RetrieveTapeArchive")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retrieve-tape-archive)) (common-lisp:progn (common-lisp:defun retrieve-tape-recovery-point @@ -16561,7 +16560,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "RetrieveTapeRecoveryPoint")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'retrieve-tape-recovery-point)) (common-lisp:progn (common-lisp:defun set-local-console-password @@ -16579,7 +16578,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetLocalConsolePassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-local-console-password)) (common-lisp:progn (common-lisp:defun set-smbguest-password @@ -16596,7 +16595,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "SetSMBGuestPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'set-smbguest-password)) (common-lisp:progn (common-lisp:defun shutdown-gateway @@ -16613,7 +16612,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "ShutdownGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'shutdown-gateway)) (common-lisp:progn (common-lisp:defun start-availability-monitor-test @@ -16631,7 +16630,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StartAvailabilityMonitorTest")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-availability-monitor-test)) (common-lisp:progn (common-lisp:defun start-gateway @@ -16648,7 +16647,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "StartGateway")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-gateway)) (common-lisp:progn (common-lisp:defun update-automatic-tape-creation-policy @@ -16668,7 +16667,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateAutomaticTapeCreationPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-automatic-tape-creation-policy)) (common-lisp:progn (common-lisp:defun update-bandwidth-rate-limit @@ -16691,7 +16690,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateBandwidthRateLimit")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bandwidth-rate-limit)) (common-lisp:progn (common-lisp:defun update-bandwidth-rate-limit-schedule @@ -16711,7 +16710,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateBandwidthRateLimitSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-bandwidth-rate-limit-schedule)) (common-lisp:progn (common-lisp:defun update-chap-credentials @@ -16732,7 +16731,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateChapCredentials")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-chap-credentials)) (common-lisp:progn (common-lisp:defun update-file-system-association @@ -16753,7 +16752,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateFileSystemAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-file-system-association)) (common-lisp:progn (common-lisp:defun update-gateway-information @@ -16773,7 +16772,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateGatewayInformation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-information)) (common-lisp:progn (common-lisp:defun update-gateway-software-now @@ -16791,7 +16790,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateGatewaySoftwareNow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-gateway-software-now)) (common-lisp:progn (common-lisp:defun update-maintenance-start-time @@ -16812,7 +16811,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateMaintenanceStartTime")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-maintenance-start-time)) (common-lisp:progn (common-lisp:defun update-nfsfile-share @@ -16837,7 +16836,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateNFSFileShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-nfsfile-share)) (common-lisp:progn (common-lisp:defun update-smbfile-share @@ -16865,7 +16864,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateSMBFileShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-smbfile-share)) (common-lisp:progn (common-lisp:defun update-smbfile-share-visibility @@ -16884,7 +16883,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateSMBFileShareVisibility")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-smbfile-share-visibility)) (common-lisp:progn (common-lisp:defun update-smblocal-groups @@ -16901,7 +16900,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateSMBLocalGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-smblocal-groups)) (common-lisp:progn (common-lisp:defun update-smbsecurity-strategy @@ -16920,7 +16919,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateSMBSecurityStrategy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-smbsecurity-strategy)) (common-lisp:progn (common-lisp:defun update-snapshot-schedule @@ -16940,7 +16939,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateSnapshotSchedule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-snapshot-schedule)) (common-lisp:progn (common-lisp:defun update-vtldevice-type @@ -16957,5 +16956,5 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/" "UpdateVTLDeviceType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vtldevice-type)) diff --git a/services/streams.dynamodb/api.lisp b/services/streams.dynamodb/api.lisp index 75213e21..816bece1 100644 --- a/services/streams.dynamodb/api.lisp +++ b/services/streams.dynamodb/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/streams.dynamodb/api - (:use) - (:nicknames #:aws/streams.dynamodb) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/streams.dynamodb/api (:use) + (:nicknames #:aws/streams.dynamodb) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/streams.dynamodb/api) (common-lisp:progn (common-lisp:define-condition streams.dynamodb-error @@ -1360,7 +1359,7 @@ (aws-sdk/generator/shape:make-request-with-input 'streams.dynamodb-request aws-sdk/generator/operation::input "POST" "/" "DescribeStream")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-stream)) (common-lisp:progn (common-lisp:defun get-records @@ -1376,7 +1375,7 @@ (aws-sdk/generator/shape:make-request-with-input 'streams.dynamodb-request aws-sdk/generator/operation::input "POST" "/" "GetRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-records)) (common-lisp:progn (common-lisp:defun get-shard-iterator @@ -1395,7 +1394,7 @@ (aws-sdk/generator/shape:make-request-with-input 'streams.dynamodb-request aws-sdk/generator/operation::input "POST" "/" "GetShardIterator")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-shard-iterator)) (common-lisp:progn (common-lisp:defun list-streams @@ -1413,5 +1412,5 @@ (aws-sdk/generator/shape:make-request-with-input 'streams.dynamodb-request aws-sdk/generator/operation::input "POST" "/" "ListStreams")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-streams)) diff --git a/services/sts/api.lisp b/services/sts/api.lisp index 5e49873a..98397b87 100644 --- a/services/sts/api.lisp +++ b/services/sts/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/sts/api - (:use) - (:nicknames #:aws/sts) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/sts/api (:use) + (:nicknames #:aws/sts) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/sts/api) (common-lisp:progn (common-lisp:define-condition sts-error @@ -1780,7 +1779,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssumeRole")) - common-lisp:nil "AssumeRoleResult" *error-map*))) + common-lisp:nil "AssumeRoleResult" *error-map* common-lisp:nil))) (common-lisp:export 'assume-role)) (common-lisp:progn (common-lisp:defun assume-role-with-saml @@ -1800,7 +1799,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssumeRoleWithSAML")) - common-lisp:nil "AssumeRoleWithSAMLResult" *error-map*))) + common-lisp:nil "AssumeRoleWithSAMLResult" *error-map* common-lisp:nil))) (common-lisp:export 'assume-role-with-saml)) (common-lisp:progn (common-lisp:defun assume-role-with-web-identity @@ -1822,7 +1821,8 @@ aws-sdk/generator/operation::input "POST" "/" "AssumeRoleWithWebIdentity")) - common-lisp:nil "AssumeRoleWithWebIdentityResult" *error-map*))) + common-lisp:nil "AssumeRoleWithWebIdentityResult" *error-map* + common-lisp:nil))) (common-lisp:export 'assume-role-with-web-identity)) (common-lisp:progn (common-lisp:defun decode-authorization-message @@ -1840,7 +1840,8 @@ aws-sdk/generator/operation::input "POST" "/" "DecodeAuthorizationMessage")) - common-lisp:nil "DecodeAuthorizationMessageResult" *error-map*))) + common-lisp:nil "DecodeAuthorizationMessageResult" *error-map* + common-lisp:nil))) (common-lisp:export 'decode-authorization-message)) (common-lisp:progn (common-lisp:defun get-access-key-info @@ -1857,7 +1858,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAccessKeyInfo")) - common-lisp:nil "GetAccessKeyInfoResult" *error-map*))) + common-lisp:nil "GetAccessKeyInfoResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-access-key-info)) (common-lisp:progn (common-lisp:defun get-caller-identity () @@ -1884,7 +1885,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetFederationToken")) - common-lisp:nil "GetFederationTokenResult" *error-map*))) + common-lisp:nil "GetFederationTokenResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-federation-token)) (common-lisp:progn (common-lisp:defun get-session-token @@ -1903,5 +1904,5 @@ aws-sdk/generator/operation::input "POST" "/" "GetSessionToken")) - common-lisp:nil "GetSessionTokenResult" *error-map*))) + common-lisp:nil "GetSessionTokenResult" *error-map* common-lisp:nil))) (common-lisp:export 'get-session-token)) diff --git a/services/supplychain/api.lisp b/services/supplychain/api.lisp index dd29df95..aedb4509 100644 --- a/services/supplychain/api.lisp +++ b/services/supplychain/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/supplychain/api - (:use) - (:nicknames #:aws/supplychain) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/supplychain/api (:use) + (:nicknames #:aws/supplychain) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/supplychain/api) (common-lisp:progn (common-lisp:define-condition supplychain-error @@ -20,7 +19,7 @@ (common-lisp:export 'supplychain-error)) (common-lisp:progn (common-lisp:defclass supplychain-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "supplychain" :api-version "2024-01-01" :host-prefix "scn" :signing-name "scn" @@ -385,12 +384,13 @@ (common-lisp:format common-lisp:nil "/api/configuration/instances/~A/bill-of-materials-import-jobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)))) + 'instance-id) + common-lisp:t))) "CreateBillOfMaterialsImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-bill-of-materials-import-job)) (common-lisp:progn (common-lisp:defun get-bill-of-materials-import-job @@ -413,14 +413,16 @@ (common-lisp:format common-lisp:nil "/api/configuration/instances/~A/bill-of-materials-import-jobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'instance-id)) - (quri.encode:url-encode + 'instance-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'job-id)))) + 'job-id) + common-lisp:t))) "GetBillOfMaterialsImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-bill-of-materials-import-job)) diff --git a/services/support-app/api.lisp b/services/support-app/api.lisp index 89ac1d0b..f2d6f64d 100644 --- a/services/support-app/api.lisp +++ b/services/support-app/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/support-app/api - (:use) - (:nicknames #:aws/support-app) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/support-app/api (:use) + (:nicknames #:aws/support-app) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/support-app/api) (common-lisp:progn (common-lisp:define-condition support-app-error @@ -20,7 +19,7 @@ (common-lisp:export 'support-app-error)) (common-lisp:progn (common-lisp:defclass support-app-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "support-app" :api-version "2021-08-20" :host-prefix "supportapp" :signing-name @@ -1439,7 +1438,7 @@ "POST" "/control/create-slack-channel-configuration" "CreateSlackChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-slack-channel-configuration)) (common-lisp:progn (common-lisp:defun delete-account-alias () @@ -1467,7 +1466,7 @@ "POST" "/control/delete-slack-channel-configuration" "DeleteSlackChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slack-channel-configuration)) (common-lisp:progn (common-lisp:defun delete-slack-workspace-configuration @@ -1486,7 +1485,7 @@ "POST" "/control/delete-slack-workspace-configuration" "DeleteSlackWorkspaceConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-slack-workspace-configuration)) (common-lisp:progn (common-lisp:defun get-account-alias () @@ -1514,7 +1513,7 @@ "POST" "/control/list-slack-channel-configurations" "ListSlackChannelConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-slack-channel-configurations)) (common-lisp:progn (common-lisp:defun list-slack-workspace-configurations @@ -1533,7 +1532,7 @@ "POST" "/control/list-slack-workspace-configurations" "ListSlackWorkspaceConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-slack-workspace-configurations)) (common-lisp:progn (common-lisp:defun put-account-alias @@ -1551,7 +1550,7 @@ "POST" "/control/put-account-alias" "PutAccountAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-account-alias)) (common-lisp:progn (common-lisp:defun register-slack-workspace-for-organization @@ -1570,7 +1569,7 @@ "POST" "/control/register-slack-workspace-for-organization" "RegisterSlackWorkspaceForOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-slack-workspace-for-organization)) (common-lisp:progn (common-lisp:defun update-slack-channel-configuration @@ -1595,5 +1594,5 @@ "POST" "/control/update-slack-channel-configuration" "UpdateSlackChannelConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-slack-channel-configuration)) diff --git a/services/support/api.lisp b/services/support/api.lisp index e978aa39..84dd2167 100644 --- a/services/support/api.lisp +++ b/services/support/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/support/api - (:use) - (:nicknames #:aws/support) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/support/api (:use) + (:nicknames #:aws/support) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/support/api) (common-lisp:progn (common-lisp:define-condition support-error @@ -3485,7 +3484,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddAttachmentsToSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-attachments-to-set)) (common-lisp:progn (common-lisp:defun add-communication-to-case @@ -3506,7 +3505,7 @@ aws-sdk/generator/operation::input "POST" "/" "AddCommunicationToCase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-communication-to-case)) (common-lisp:progn (common-lisp:defun create-case @@ -3528,7 +3527,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-case)) (common-lisp:progn (common-lisp:defun describe-attachment @@ -3545,7 +3544,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAttachment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-attachment)) (common-lisp:progn (common-lisp:defun describe-cases @@ -3567,7 +3566,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-cases)) (common-lisp:progn (common-lisp:defun describe-communications @@ -3587,7 +3586,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCommunications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-communications)) (common-lisp:progn (common-lisp:defun describe-create-case-options @@ -3607,7 +3606,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCreateCaseOptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-create-case-options)) (common-lisp:progn (common-lisp:defun describe-services @@ -3624,7 +3623,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-services)) (common-lisp:progn (common-lisp:defun describe-severity-levels @@ -3641,7 +3640,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSeverityLevels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-severity-levels)) (common-lisp:progn (common-lisp:defun describe-supported-languages @@ -3660,7 +3659,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSupportedLanguages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-supported-languages)) (common-lisp:progn (common-lisp:defun describe-trusted-advisor-check-refresh-statuses @@ -3678,7 +3677,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrustedAdvisorCheckRefreshStatuses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trusted-advisor-check-refresh-statuses)) (common-lisp:progn (common-lisp:defun describe-trusted-advisor-check-result @@ -3696,7 +3695,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrustedAdvisorCheckResult")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trusted-advisor-check-result)) (common-lisp:progn (common-lisp:defun describe-trusted-advisor-check-summaries @@ -3714,7 +3713,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrustedAdvisorCheckSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trusted-advisor-check-summaries)) (common-lisp:progn (common-lisp:defun describe-trusted-advisor-checks @@ -3732,7 +3731,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTrustedAdvisorChecks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-trusted-advisor-checks)) (common-lisp:progn (common-lisp:defun refresh-trusted-advisor-check @@ -3750,7 +3749,7 @@ aws-sdk/generator/operation::input "POST" "/" "RefreshTrustedAdvisorCheck")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'refresh-trusted-advisor-check)) (common-lisp:progn (common-lisp:defun resolve-case @@ -3767,5 +3766,5 @@ aws-sdk/generator/operation::input "POST" "/" "ResolveCase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resolve-case)) diff --git a/services/swf/api.lisp b/services/swf/api.lisp index bbe95e8d..e0c1efc6 100644 --- a/services/swf/api.lisp +++ b/services/swf/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/swf/api - (:use) - (:nicknames #:aws/swf) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/swf/api (:use) + (:nicknames #:aws/swf) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/swf/api) (common-lisp:progn (common-lisp:define-condition swf-error @@ -12460,7 +12459,7 @@ aws-sdk/generator/operation::input "POST" "/" "CountClosedWorkflowExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'count-closed-workflow-executions)) (common-lisp:progn (common-lisp:defun count-open-workflow-executions @@ -12481,7 +12480,7 @@ aws-sdk/generator/operation::input "POST" "/" "CountOpenWorkflowExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'count-open-workflow-executions)) (common-lisp:progn (common-lisp:defun count-pending-activity-tasks @@ -12499,7 +12498,7 @@ aws-sdk/generator/operation::input "POST" "/" "CountPendingActivityTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'count-pending-activity-tasks)) (common-lisp:progn (common-lisp:defun count-pending-decision-tasks @@ -12517,7 +12516,7 @@ aws-sdk/generator/operation::input "POST" "/" "CountPendingDecisionTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'count-pending-decision-tasks)) (common-lisp:progn (common-lisp:defun deprecate-activity-type @@ -12534,7 +12533,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprecateActivityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deprecate-activity-type)) (common-lisp:progn (common-lisp:defun deprecate-domain @@ -12551,7 +12550,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprecateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deprecate-domain)) (common-lisp:progn (common-lisp:defun deprecate-workflow-type @@ -12568,7 +12567,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeprecateWorkflowType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deprecate-workflow-type)) (common-lisp:progn (common-lisp:defun describe-activity-type @@ -12585,7 +12584,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeActivityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-activity-type)) (common-lisp:progn (common-lisp:defun describe-domain @@ -12602,7 +12601,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain)) (common-lisp:progn (common-lisp:defun describe-workflow-execution @@ -12620,7 +12619,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkflowExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workflow-execution)) (common-lisp:progn (common-lisp:defun describe-workflow-type @@ -12637,7 +12636,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkflowType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workflow-type)) (common-lisp:progn (common-lisp:defun get-workflow-execution-history @@ -12658,7 +12657,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWorkflowExecutionHistory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workflow-execution-history)) (common-lisp:progn (common-lisp:defun list-activity-types @@ -12678,7 +12677,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListActivityTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-activity-types)) (common-lisp:progn (common-lisp:defun list-closed-workflow-executions @@ -12702,7 +12701,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListClosedWorkflowExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-closed-workflow-executions)) (common-lisp:progn (common-lisp:defun list-domains @@ -12722,7 +12721,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-open-workflow-executions @@ -12744,7 +12743,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOpenWorkflowExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-open-workflow-executions)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12761,7 +12760,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-workflow-types @@ -12781,7 +12780,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWorkflowTypes")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflow-types)) (common-lisp:progn (common-lisp:defun poll-for-activity-task @@ -12798,7 +12797,7 @@ aws-sdk/generator/operation::input "POST" "/" "PollForActivityTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'poll-for-activity-task)) (common-lisp:progn (common-lisp:defun poll-for-decision-task @@ -12819,7 +12818,7 @@ aws-sdk/generator/operation::input "POST" "/" "PollForDecisionTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'poll-for-decision-task)) (common-lisp:progn (common-lisp:defun record-activity-task-heartbeat @@ -12837,7 +12836,7 @@ aws-sdk/generator/operation::input "POST" "/" "RecordActivityTaskHeartbeat")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'record-activity-task-heartbeat)) (common-lisp:progn (common-lisp:defun register-activity-type @@ -12864,7 +12863,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterActivityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-activity-type)) (common-lisp:progn (common-lisp:defun register-domain @@ -12884,7 +12883,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-domain)) (common-lisp:progn (common-lisp:defun register-workflow-type @@ -12909,7 +12908,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterWorkflowType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-workflow-type)) (common-lisp:progn (common-lisp:defun request-cancel-workflow-execution @@ -12927,7 +12926,7 @@ aws-sdk/generator/operation::input "POST" "/" "RequestCancelWorkflowExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'request-cancel-workflow-execution)) (common-lisp:progn (common-lisp:defun respond-activity-task-canceled @@ -12945,7 +12944,7 @@ aws-sdk/generator/operation::input "POST" "/" "RespondActivityTaskCanceled")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'respond-activity-task-canceled)) (common-lisp:progn (common-lisp:defun respond-activity-task-completed @@ -12963,7 +12962,7 @@ aws-sdk/generator/operation::input "POST" "/" "RespondActivityTaskCompleted")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'respond-activity-task-completed)) (common-lisp:progn (common-lisp:defun respond-activity-task-failed @@ -12981,7 +12980,7 @@ aws-sdk/generator/operation::input "POST" "/" "RespondActivityTaskFailed")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'respond-activity-task-failed)) (common-lisp:progn (common-lisp:defun respond-decision-task-completed @@ -13002,7 +13001,7 @@ aws-sdk/generator/operation::input "POST" "/" "RespondDecisionTaskCompleted")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'respond-decision-task-completed)) (common-lisp:progn (common-lisp:defun signal-workflow-execution @@ -13021,7 +13020,7 @@ aws-sdk/generator/operation::input "POST" "/" "SignalWorkflowExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'signal-workflow-execution)) (common-lisp:progn (common-lisp:defun start-workflow-execution @@ -13044,7 +13043,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartWorkflowExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-workflow-execution)) (common-lisp:progn (common-lisp:defun tag-resource @@ -13061,7 +13060,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun terminate-workflow-execution @@ -13082,7 +13081,7 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateWorkflowExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-workflow-execution)) (common-lisp:progn (common-lisp:defun undeprecate-activity-type @@ -13099,7 +13098,7 @@ aws-sdk/generator/operation::input "POST" "/" "UndeprecateActivityType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'undeprecate-activity-type)) (common-lisp:progn (common-lisp:defun undeprecate-domain @@ -13116,7 +13115,7 @@ aws-sdk/generator/operation::input "POST" "/" "UndeprecateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'undeprecate-domain)) (common-lisp:progn (common-lisp:defun undeprecate-workflow-type @@ -13133,7 +13132,7 @@ aws-sdk/generator/operation::input "POST" "/" "UndeprecateWorkflowType")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'undeprecate-workflow-type)) (common-lisp:progn (common-lisp:defun untag-resource @@ -13150,5 +13149,5 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) diff --git a/services/synthetics/api.lisp b/services/synthetics/api.lisp index b0a05ca1..3a0c07a2 100644 --- a/services/synthetics/api.lisp +++ b/services/synthetics/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/synthetics/api - (:use) - (:nicknames #:aws/synthetics) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/synthetics/api (:use) + (:nicknames #:aws/synthetics) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/synthetics/api) (common-lisp:progn (common-lisp:define-condition synthetics-error @@ -20,7 +19,7 @@ (common-lisp:export 'synthetics-error)) (common-lisp:progn (common-lisp:defclass synthetics-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "synthetics" :api-version "2017-10-11" :host-prefix "synthetics" :signing-name @@ -3771,12 +3770,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/group/~A/associate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-identifier)))) + 'group-identifier) + common-lisp:t))) "AssociateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-resource)) (common-lisp:progn (common-lisp:defun create-canary @@ -3801,7 +3801,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/canary" "CreateCanary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-canary)) (common-lisp:progn (common-lisp:defun create-group @@ -3818,7 +3818,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/group" "CreateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun delete-canary @@ -3840,12 +3840,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/canary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "DeleteCanary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-canary)) (common-lisp:progn (common-lisp:defun delete-group @@ -3867,12 +3868,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-identifier)))) + 'group-identifier) + common-lisp:t))) "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun describe-canaries @@ -3889,7 +3891,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/canaries" "DescribeCanaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-canaries)) (common-lisp:progn (common-lisp:defun describe-canaries-last-run @@ -3908,7 +3910,7 @@ common-lisp:nil "POST" "/canaries/last-run" "DescribeCanariesLastRun")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-canaries-last-run)) (common-lisp:progn (common-lisp:defun describe-runtime-versions @@ -3927,7 +3929,7 @@ common-lisp:nil "POST" "/runtime-versions" "DescribeRuntimeVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-runtime-versions)) (common-lisp:progn (common-lisp:defun disassociate-resource @@ -3949,12 +3951,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/group/~A/disassociate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-identifier)))) + 'group-identifier) + common-lisp:t))) "DisassociateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-resource)) (common-lisp:progn (common-lisp:defun get-canary @@ -3976,12 +3979,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/canary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetCanary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-canary)) (common-lisp:progn (common-lisp:defun get-canary-runs @@ -4003,12 +4007,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/canary/~A/runs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "GetCanaryRuns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-canary-runs)) (common-lisp:progn (common-lisp:defun get-group @@ -4030,12 +4035,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/group/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-identifier)))) + 'group-identifier) + common-lisp:t))) "GetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group)) (common-lisp:progn (common-lisp:defun list-associated-groups @@ -4058,12 +4064,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/resource/~A/groups" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListAssociatedGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-associated-groups)) (common-lisp:progn (common-lisp:defun list-group-resources @@ -4086,12 +4093,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/group/~A/resources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'group-identifier)))) + 'group-identifier) + common-lisp:t))) "ListGroupResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-group-resources)) (common-lisp:progn (common-lisp:defun list-groups @@ -4108,7 +4116,7 @@ common-lisp:nil aws-sdk/generator/operation::input "POST" "/groups" "ListGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4130,12 +4138,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-canary @@ -4157,12 +4166,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/canary/~A/start" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "StartCanary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-canary)) (common-lisp:progn (common-lisp:defun stop-canary @@ -4184,12 +4194,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/canary/~A/stop" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "StopCanary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-canary)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4211,12 +4222,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4238,12 +4250,13 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-canary @@ -4273,10 +4286,11 @@ common-lisp:nil (common-lisp:format common-lisp:nil "/canary/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'name)))) + 'name) + common-lisp:t))) "UpdateCanary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-canary)) diff --git a/services/textract/api.lisp b/services/textract/api.lisp index 6df522c2..7b6ed0c9 100644 --- a/services/textract/api.lisp +++ b/services/textract/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/textract/api - (:use) - (:nicknames #:aws/textract) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/textract/api (:use) + (:nicknames #:aws/textract) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/textract/api) (common-lisp:progn (common-lisp:define-condition textract-error @@ -6684,7 +6683,7 @@ aws-sdk/generator/operation::input "POST" "/" "AnalyzeDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'analyze-document)) (common-lisp:progn (common-lisp:defun analyze-expense @@ -6701,7 +6700,7 @@ aws-sdk/generator/operation::input "POST" "/" "AnalyzeExpense")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'analyze-expense)) (common-lisp:progn (common-lisp:defun analyze-id @@ -6718,7 +6717,7 @@ aws-sdk/generator/operation::input "POST" "/" "AnalyzeID")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'analyze-id)) (common-lisp:progn (common-lisp:defun create-adapter @@ -6738,7 +6737,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAdapter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-adapter)) (common-lisp:progn (common-lisp:defun create-adapter-version @@ -6758,7 +6757,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAdapterVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-adapter-version)) (common-lisp:progn (common-lisp:defun delete-adapter @@ -6775,7 +6774,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAdapter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-adapter)) (common-lisp:progn (common-lisp:defun delete-adapter-version @@ -6792,7 +6791,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAdapterVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-adapter-version)) (common-lisp:progn (common-lisp:defun detect-document-text @@ -6809,7 +6808,7 @@ aws-sdk/generator/operation::input "POST" "/" "DetectDocumentText")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'detect-document-text)) (common-lisp:progn (common-lisp:defun get-adapter @@ -6826,7 +6825,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAdapter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-adapter)) (common-lisp:progn (common-lisp:defun get-adapter-version @@ -6843,7 +6842,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAdapterVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-adapter-version)) (common-lisp:progn (common-lisp:defun get-document-analysis @@ -6860,7 +6859,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDocumentAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-document-analysis)) (common-lisp:progn (common-lisp:defun get-document-text-detection @@ -6878,7 +6877,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDocumentTextDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-document-text-detection)) (common-lisp:progn (common-lisp:defun get-expense-analysis @@ -6895,7 +6894,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetExpenseAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-expense-analysis)) (common-lisp:progn (common-lisp:defun get-lending-analysis @@ -6912,7 +6911,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLendingAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lending-analysis)) (common-lisp:progn (common-lisp:defun get-lending-analysis-summary @@ -6930,7 +6929,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLendingAnalysisSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lending-analysis-summary)) (common-lisp:progn (common-lisp:defun list-adapter-versions @@ -6950,7 +6949,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAdapterVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-adapter-versions)) (common-lisp:progn (common-lisp:defun list-adapters @@ -6970,7 +6969,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAdapters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-adapters)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6987,7 +6986,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun start-document-analysis @@ -7009,7 +7008,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDocumentAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-document-analysis)) (common-lisp:progn (common-lisp:defun start-document-text-detection @@ -7030,7 +7029,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartDocumentTextDetection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-document-text-detection)) (common-lisp:progn (common-lisp:defun start-expense-analysis @@ -7050,7 +7049,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartExpenseAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-expense-analysis)) (common-lisp:progn (common-lisp:defun start-lending-analysis @@ -7070,7 +7069,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartLendingAnalysis")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-lending-analysis)) (common-lisp:progn (common-lisp:defun tag-resource @@ -7087,7 +7086,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -7104,7 +7103,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-adapter @@ -7123,5 +7122,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAdapter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-adapter)) diff --git a/services/timestream-query/api.lisp b/services/timestream-query/api.lisp index c4494993..2251f7b7 100644 --- a/services/timestream-query/api.lisp +++ b/services/timestream-query/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/timestream-query/api - (:use) - (:nicknames #:aws/timestream-query) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/timestream-query/api (:use) + (:nicknames #:aws/timestream-query) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/timestream-query/api) (common-lisp:progn (common-lisp:define-condition timestream-query-error @@ -3485,7 +3484,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "CancelQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-query)) (common-lisp:progn (common-lisp:defun create-scheduled-query @@ -3508,7 +3507,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "CreateScheduledQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-scheduled-query)) (common-lisp:progn (common-lisp:defun delete-scheduled-query @@ -3524,7 +3523,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "DeleteScheduledQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-scheduled-query)) (common-lisp:progn (common-lisp:defun describe-endpoints () @@ -3548,7 +3547,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "DescribeScheduledQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-scheduled-query)) (common-lisp:progn (common-lisp:defun execute-scheduled-query @@ -3566,7 +3565,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "ExecuteScheduledQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'execute-scheduled-query)) (common-lisp:progn (common-lisp:defun list-scheduled-queries @@ -3582,7 +3581,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "ListScheduledQueries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-scheduled-queries)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3599,7 +3598,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun prepare-query @@ -3615,7 +3614,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "PrepareQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'prepare-query)) (common-lisp:progn (common-lisp:defun query @@ -3633,7 +3632,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "Query")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3649,7 +3648,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3665,7 +3664,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-scheduled-query @@ -3681,5 +3680,5 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-query-request aws-sdk/generator/operation::input "POST" "/" "UpdateScheduledQuery")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-scheduled-query)) diff --git a/services/timestream-write/api.lisp b/services/timestream-write/api.lisp index 88c2ccb7..c758a835 100644 --- a/services/timestream-write/api.lisp +++ b/services/timestream-write/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/timestream-write/api - (:use) - (:nicknames #:aws/timestream-write) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/timestream-write/api (:use) + (:nicknames #:aws/timestream-write) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/timestream-write/api) (common-lisp:progn (common-lisp:define-condition timestream-write-error @@ -4247,7 +4246,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "CreateBatchLoadTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-batch-load-task)) (common-lisp:progn (common-lisp:defun create-database @@ -4263,7 +4262,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "CreateDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-database)) (common-lisp:progn (common-lisp:defun create-table @@ -4283,7 +4282,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "CreateTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-table)) (common-lisp:progn (common-lisp:defun delete-database @@ -4299,7 +4298,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "DeleteDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-database)) (common-lisp:progn (common-lisp:defun delete-table @@ -4315,7 +4314,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "DeleteTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-table)) (common-lisp:progn (common-lisp:defun describe-batch-load-task @@ -4331,7 +4330,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "DescribeBatchLoadTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-batch-load-task)) (common-lisp:progn (common-lisp:defun describe-database @@ -4347,7 +4346,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "DescribeDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-database)) (common-lisp:progn (common-lisp:defun describe-endpoints () @@ -4371,7 +4370,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "DescribeTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-table)) (common-lisp:progn (common-lisp:defun list-batch-load-tasks @@ -4388,7 +4387,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "ListBatchLoadTasks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-batch-load-tasks)) (common-lisp:progn (common-lisp:defun list-databases @@ -4404,7 +4403,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "ListDatabases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-databases)) (common-lisp:progn (common-lisp:defun list-tables @@ -4421,7 +4420,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "ListTables")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tables)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4437,7 +4436,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun resume-batch-load-task @@ -4453,7 +4452,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "ResumeBatchLoadTask")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'resume-batch-load-task)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4469,7 +4468,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4485,7 +4484,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-database @@ -4501,7 +4500,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "UpdateDatabase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-database)) (common-lisp:progn (common-lisp:defun update-table @@ -4521,7 +4520,7 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "UpdateTable")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-table)) (common-lisp:progn (common-lisp:defun write-records @@ -4539,5 +4538,5 @@ (aws-sdk/generator/shape:make-request-with-input 'timestream-write-request aws-sdk/generator/operation::input "POST" "/" "WriteRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'write-records)) diff --git a/services/tnb/api.lisp b/services/tnb/api.lisp index d9d13adb..4d25fc53 100644 --- a/services/tnb/api.lisp +++ b/services/tnb/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/tnb/api - (:use) - (:nicknames #:aws/tnb) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/tnb/api (:use) + (:nicknames #:aws/tnb) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/tnb/api) (common-lisp:progn (common-lisp:define-condition tnb-error @@ -20,7 +19,7 @@ (common-lisp:export 'tnb-error)) (common-lisp:progn (common-lisp:defclass tnb-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "tnb" :api-version "2008-10-21" :host-prefix "tnb" :signing-name "tnb" @@ -1055,7 +1054,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1098,7 +1099,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1115,7 +1118,13 @@ ( (aws-sdk/generator/shape::input get-sol-function-package-content-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'package-content))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'package-content)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-sol-function-package-content-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-sol-function-package-descriptor-input common-lisp:nil @@ -1150,7 +1159,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1194,7 +1205,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1211,7 +1224,13 @@ ( (aws-sdk/generator/shape::input get-sol-function-package-descriptor-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'vnfd))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'vnfd)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-sol-function-package-descriptor-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-sol-function-package-input common-lisp:nil ((vnf-pkg-id :initarg :vnf-pkg-id :initform @@ -2177,7 +2196,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'accept)) - (common-lisp:cons "Accept" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Accept" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2220,7 +2241,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2237,7 +2260,13 @@ ( (aws-sdk/generator/shape::input get-sol-network-package-content-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'nsd-content))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'nsd-content)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-sol-network-package-content-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-sol-network-package-descriptor-input common-lisp:nil ((nsd-info-id :initarg :nsd-info-id :initform @@ -2304,7 +2333,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2321,7 +2352,13 @@ ( (aws-sdk/generator/shape::input get-sol-network-package-descriptor-output)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'nsd))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'nsd)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-sol-network-package-descriptor-output)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass get-sol-network-package-input common-lisp:nil ((nsd-info-id :initarg :nsd-info-id :initform @@ -4722,7 +4759,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4739,7 +4778,13 @@ ( (aws-sdk/generator/shape::input put-sol-function-package-content-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'file))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'file)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-sol-function-package-content-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-sol-function-package-content-metadata common-lisp:nil @@ -4929,7 +4974,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4946,7 +4993,13 @@ ( (aws-sdk/generator/shape::input put-sol-network-package-content-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'file))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'file)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + put-sol-network-package-content-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass put-sol-network-package-content-metadata common-lisp:nil ((nsd :initarg :nsd :initform common-lisp:nil :type @@ -5747,7 +5800,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5764,7 +5819,13 @@ ( (aws-sdk/generator/shape::input validate-sol-function-package-content-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'file))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'file)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + validate-sol-function-package-content-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass validate-sol-function-package-content-metadata common-lisp:nil @@ -5956,7 +6017,9 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-type)) - (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Content-Type" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5973,7 +6036,13 @@ ( (aws-sdk/generator/shape::input validate-sol-network-package-content-input)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'file))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'file)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + validate-sol-network-package-content-input)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass validate-sol-network-package-content-metadata common-lisp:nil @@ -6183,12 +6252,13 @@ (common-lisp:format common-lisp:nil "/sol/nslcm/v1/ns_lcm_op_occs/~A/cancel" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ns-lcm-op-occ-id)))) + 'ns-lcm-op-occ-id) + common-lisp:t))) "CancelSolNetworkOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-sol-network-operation)) (common-lisp:progn (common-lisp:defun create-sol-function-package @@ -6207,7 +6277,7 @@ "POST" "/sol/vnfpkgm/v1/vnf_packages" "CreateSolFunctionPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sol-function-package)) (common-lisp:progn (common-lisp:defun create-sol-network-instance @@ -6227,7 +6297,7 @@ "POST" "/sol/nslcm/v1/ns_instances" "CreateSolNetworkInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sol-network-instance)) (common-lisp:progn (common-lisp:defun create-sol-network-package @@ -6245,7 +6315,7 @@ "POST" "/sol/nsd/v1/ns_descriptors" "CreateSolNetworkPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sol-network-package)) (common-lisp:progn (common-lisp:defun delete-sol-function-package @@ -6268,12 +6338,13 @@ (common-lisp:format common-lisp:nil "/sol/vnfpkgm/v1/vnf_packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vnf-pkg-id)))) + 'vnf-pkg-id) + common-lisp:t))) "DeleteSolFunctionPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sol-function-package)) (common-lisp:progn (common-lisp:defun delete-sol-network-instance @@ -6296,12 +6367,13 @@ (common-lisp:format common-lisp:nil "/sol/nslcm/v1/ns_instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ns-instance-id)))) + 'ns-instance-id) + common-lisp:t))) "DeleteSolNetworkInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sol-network-instance)) (common-lisp:progn (common-lisp:defun delete-sol-network-package @@ -6323,12 +6395,13 @@ (common-lisp:format common-lisp:nil "/sol/nsd/v1/ns_descriptors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nsd-info-id)))) + 'nsd-info-id) + common-lisp:t))) "DeleteSolNetworkPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sol-network-package)) (common-lisp:progn (common-lisp:defun get-sol-function-instance @@ -6350,12 +6423,13 @@ (common-lisp:format common-lisp:nil "/sol/vnflcm/v1/vnf_instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vnf-instance-id)))) + 'vnf-instance-id) + common-lisp:t))) "GetSolFunctionInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-function-instance)) (common-lisp:progn (common-lisp:defun get-sol-function-package @@ -6377,12 +6451,13 @@ (common-lisp:format common-lisp:nil "/sol/vnfpkgm/v1/vnf_packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vnf-pkg-id)))) + 'vnf-pkg-id) + common-lisp:t))) "GetSolFunctionPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-function-package)) (common-lisp:progn (common-lisp:defun get-sol-function-package-content @@ -6405,13 +6480,14 @@ (common-lisp:format common-lisp:nil "/sol/vnfpkgm/v1/vnf_packages/~A/package_content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vnf-pkg-id)))) + 'vnf-pkg-id) + common-lisp:t))) "GetSolFunctionPackageContent") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-function-package-content)) (common-lisp:progn (common-lisp:defun get-sol-function-package-descriptor @@ -6434,13 +6510,14 @@ (common-lisp:format common-lisp:nil "/sol/vnfpkgm/v1/vnf_packages/~A/vnfd" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vnf-pkg-id)))) + 'vnf-pkg-id) + common-lisp:t))) "GetSolFunctionPackageDescriptor") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-function-package-descriptor)) (common-lisp:progn (common-lisp:defun get-sol-network-instance @@ -6462,12 +6539,13 @@ (common-lisp:format common-lisp:nil "/sol/nslcm/v1/ns_instances/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ns-instance-id)))) + 'ns-instance-id) + common-lisp:t))) "GetSolNetworkInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-network-instance)) (common-lisp:progn (common-lisp:defun get-sol-network-operation @@ -6489,12 +6567,13 @@ (common-lisp:format common-lisp:nil "/sol/nslcm/v1/ns_lcm_op_occs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ns-lcm-op-occ-id)))) + 'ns-lcm-op-occ-id) + common-lisp:t))) "GetSolNetworkOperation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-network-operation)) (common-lisp:progn (common-lisp:defun get-sol-network-package @@ -6516,12 +6595,13 @@ (common-lisp:format common-lisp:nil "/sol/nsd/v1/ns_descriptors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nsd-info-id)))) + 'nsd-info-id) + common-lisp:t))) "GetSolNetworkPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-network-package)) (common-lisp:progn (common-lisp:defun get-sol-network-package-content @@ -6544,13 +6624,14 @@ (common-lisp:format common-lisp:nil "/sol/nsd/v1/ns_descriptors/~A/nsd_content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nsd-info-id)))) + 'nsd-info-id) + common-lisp:t))) "GetSolNetworkPackageContent") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-network-package-content)) (common-lisp:progn (common-lisp:defun get-sol-network-package-descriptor @@ -6573,13 +6654,14 @@ (common-lisp:format common-lisp:nil "/sol/nsd/v1/ns_descriptors/~A/nsd" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nsd-info-id)))) + 'nsd-info-id) + common-lisp:t))) "GetSolNetworkPackageDescriptor") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sol-network-package-descriptor)) (common-lisp:progn (common-lisp:defun instantiate-sol-network-instance @@ -6602,12 +6684,13 @@ (common-lisp:format common-lisp:nil "/sol/nslcm/v1/ns_instances/~A/instantiate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ns-instance-id)))) + 'ns-instance-id) + common-lisp:t))) "InstantiateSolNetworkInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'instantiate-sol-network-instance)) (common-lisp:progn (common-lisp:defun list-sol-function-instances @@ -6626,7 +6709,7 @@ "GET" "/sol/vnflcm/v1/vnf_instances" "ListSolFunctionInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sol-function-instances)) (common-lisp:progn (common-lisp:defun list-sol-function-packages @@ -6644,7 +6727,7 @@ "GET" "/sol/vnfpkgm/v1/vnf_packages" "ListSolFunctionPackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sol-function-packages)) (common-lisp:progn (common-lisp:defun list-sol-network-instances @@ -6662,7 +6745,7 @@ "GET" "/sol/nslcm/v1/ns_instances" "ListSolNetworkInstances")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sol-network-instances)) (common-lisp:progn (common-lisp:defun list-sol-network-operations @@ -6681,7 +6764,7 @@ "GET" "/sol/nslcm/v1/ns_lcm_op_occs" "ListSolNetworkOperations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sol-network-operations)) (common-lisp:progn (common-lisp:defun list-sol-network-packages @@ -6699,7 +6782,7 @@ "GET" "/sol/nsd/v1/ns_descriptors" "ListSolNetworkPackages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sol-network-packages)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6721,12 +6804,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-sol-function-package-content @@ -6749,12 +6833,13 @@ (common-lisp:format common-lisp:nil "/sol/vnfpkgm/v1/vnf_packages/~A/package_content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vnf-pkg-id)))) + 'vnf-pkg-id) + common-lisp:t))) "PutSolFunctionPackageContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-sol-function-package-content)) (common-lisp:progn (common-lisp:defun put-sol-network-package-content @@ -6777,12 +6862,13 @@ (common-lisp:format common-lisp:nil "/sol/nsd/v1/ns_descriptors/~A/nsd_content" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nsd-info-id)))) + 'nsd-info-id) + common-lisp:t))) "PutSolNetworkPackageContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-sol-network-package-content)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6804,12 +6890,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun terminate-sol-network-instance @@ -6832,12 +6919,13 @@ (common-lisp:format common-lisp:nil "/sol/nslcm/v1/ns_instances/~A/terminate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ns-instance-id)))) + 'ns-instance-id) + common-lisp:t))) "TerminateSolNetworkInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-sol-network-instance)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6859,12 +6947,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-sol-function-package @@ -6887,12 +6976,13 @@ (common-lisp:format common-lisp:nil "/sol/vnfpkgm/v1/vnf_packages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vnf-pkg-id)))) + 'vnf-pkg-id) + common-lisp:t))) "UpdateSolFunctionPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sol-function-package)) (common-lisp:progn (common-lisp:defun update-sol-network-instance @@ -6916,12 +7006,13 @@ (common-lisp:format common-lisp:nil "/sol/nslcm/v1/ns_instances/~A/update" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'ns-instance-id)))) + 'ns-instance-id) + common-lisp:t))) "UpdateSolNetworkInstance")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sol-network-instance)) (common-lisp:progn (common-lisp:defun update-sol-network-package @@ -6944,12 +7035,13 @@ (common-lisp:format common-lisp:nil "/sol/nsd/v1/ns_descriptors/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nsd-info-id)))) + 'nsd-info-id) + common-lisp:t))) "UpdateSolNetworkPackage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sol-network-package)) (common-lisp:progn (common-lisp:defun validate-sol-function-package-content @@ -6972,12 +7064,13 @@ (common-lisp:format common-lisp:nil "/sol/vnfpkgm/v1/vnf_packages/~A/package_content/validate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'vnf-pkg-id)))) + 'vnf-pkg-id) + common-lisp:t))) "ValidateSolFunctionPackageContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-sol-function-package-content)) (common-lisp:progn (common-lisp:defun validate-sol-network-package-content @@ -7000,10 +7093,11 @@ (common-lisp:format common-lisp:nil "/sol/nsd/v1/ns_descriptors/~A/nsd_content/validate" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'nsd-info-id)))) + 'nsd-info-id) + common-lisp:t))) "ValidateSolNetworkPackageContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'validate-sol-network-package-content)) diff --git a/services/transcribe-streaming/api.lisp b/services/transcribe-streaming/api.lisp index d6e0a47f..05c8eb94 100644 --- a/services/transcribe-streaming/api.lisp +++ b/services/transcribe-streaming/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/transcribe-streaming/api - (:use) - (:nicknames #:aws/transcribe-streaming) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/transcribe-streaming/api (:use) + (:nicknames #:aws/transcribe-streaming) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/transcribe-streaming/api) (common-lisp:progn (common-lisp:define-condition transcribe-streaming-error @@ -20,7 +19,7 @@ (common-lisp:export 'transcribe-streaming-error)) (common-lisp:progn (common-lisp:defclass transcribe-streaming-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "transcribe-streaming" :api-version "2017-10-26" :host-prefix @@ -2030,76 +2029,102 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-code)) - (common-lisp:cons "x-amzn-transcribe-language-code" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-code" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-sample-rate-hertz)) - (common-lisp:cons "x-amzn-transcribe-sample-rate" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-sample-rate" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-encoding)) - (common-lisp:cons "x-amzn-transcribe-media-encoding" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-media-encoding" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amzn-transcribe-session-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-session-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-method)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-method" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-method" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-model-name)) - (common-lisp:cons "x-amzn-transcribe-language-model-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-model-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-partial-results-stabilization)) (common-lisp:cons - "x-amzn-transcribe-enable-partial-results-stabilization" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amzn-transcribe-enable-partial-results-stabilization" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'partial-results-stability)) - (common-lisp:cons "x-amzn-transcribe-partial-results-stability" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-partial-results-stability" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-identification-type)) - (common-lisp:cons "x-amzn-transcribe-content-identification-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-identification-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-redaction-type)) - (common-lisp:cons "x-amzn-transcribe-content-redaction-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-redaction-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'pii-entity-types)) - (common-lisp:cons "x-amzn-transcribe-pii-entity-types" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-pii-entity-types" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2116,7 +2141,13 @@ ( (aws-sdk/generator/shape::input start-call-analytics-stream-transcription-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-call-analytics-stream-transcription-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass start-call-analytics-stream-transcription-response common-lisp:nil @@ -2260,80 +2291,108 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-id)) - (common-lisp:cons "x-amzn-request-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-request-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-code)) - (common-lisp:cons "x-amzn-transcribe-language-code" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-code" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-sample-rate-hertz)) - (common-lisp:cons "x-amzn-transcribe-sample-rate" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-sample-rate" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-encoding)) - (common-lisp:cons "x-amzn-transcribe-media-encoding" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-media-encoding" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amzn-transcribe-session-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-session-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-method)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-method" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-method" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-model-name)) - (common-lisp:cons "x-amzn-transcribe-language-model-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-model-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-partial-results-stabilization)) (common-lisp:cons - "x-amzn-transcribe-enable-partial-results-stabilization" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amzn-transcribe-enable-partial-results-stabilization" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'partial-results-stability)) - (common-lisp:cons "x-amzn-transcribe-partial-results-stability" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-partial-results-stability" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-identification-type)) - (common-lisp:cons "x-amzn-transcribe-content-identification-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-identification-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-redaction-type)) - (common-lisp:cons "x-amzn-transcribe-content-redaction-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-redaction-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'pii-entity-types)) - (common-lisp:cons "x-amzn-transcribe-pii-entity-types" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-pii-entity-types" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2352,7 +2411,13 @@ (aws-sdk/generator/shape::input start-call-analytics-stream-transcription-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'call-analytics-transcript-result-stream))) + 'call-analytics-transcript-result-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-call-analytics-stream-transcription-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass start-medical-stream-transcription-request common-lisp:nil @@ -2460,61 +2525,83 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-code)) - (common-lisp:cons "x-amzn-transcribe-language-code" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-code" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-sample-rate-hertz)) - (common-lisp:cons "x-amzn-transcribe-sample-rate" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-sample-rate" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-encoding)) - (common-lisp:cons "x-amzn-transcribe-media-encoding" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-media-encoding" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'specialty)) - (common-lisp:cons "x-amzn-transcribe-specialty" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-specialty" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'type)) - (common-lisp:cons "x-amzn-transcribe-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'show-speaker-label)) - (common-lisp:cons "x-amzn-transcribe-show-speaker-label" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-show-speaker-label" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amzn-transcribe-session-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-session-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-channel-identification)) - (common-lisp:cons "x-amzn-transcribe-enable-channel-identification" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-enable-channel-identification" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'number-of-channels)) - (common-lisp:cons "x-amzn-transcribe-number-of-channels" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-number-of-channels" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-identification-type)) - (common-lisp:cons "x-amzn-transcribe-content-identification-type" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-identification-type" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2531,7 +2618,13 @@ ( (aws-sdk/generator/shape::input start-medical-stream-transcription-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-medical-stream-transcription-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass start-medical-stream-transcription-response common-lisp:nil @@ -2644,65 +2737,89 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-id)) - (common-lisp:cons "x-amzn-request-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-request-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-code)) - (common-lisp:cons "x-amzn-transcribe-language-code" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-code" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-sample-rate-hertz)) - (common-lisp:cons "x-amzn-transcribe-sample-rate" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-sample-rate" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-encoding)) - (common-lisp:cons "x-amzn-transcribe-media-encoding" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-media-encoding" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'specialty)) - (common-lisp:cons "x-amzn-transcribe-specialty" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-specialty" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'type)) - (common-lisp:cons "x-amzn-transcribe-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'show-speaker-label)) - (common-lisp:cons "x-amzn-transcribe-show-speaker-label" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-show-speaker-label" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amzn-transcribe-session-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-session-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-channel-identification)) - (common-lisp:cons "x-amzn-transcribe-enable-channel-identification" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-enable-channel-identification" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'number-of-channels)) - (common-lisp:cons "x-amzn-transcribe-number-of-channels" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-number-of-channels" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-identification-type)) - (common-lisp:cons "x-amzn-transcribe-content-identification-type" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-identification-type" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2721,7 +2838,13 @@ (aws-sdk/generator/shape::input start-medical-stream-transcription-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'transcript-result-stream))) + 'transcript-result-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-medical-stream-transcription-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass start-stream-transcription-request common-lisp:nil ((language-code :initarg :language-code :initform @@ -2920,124 +3043,168 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-code)) - (common-lisp:cons "x-amzn-transcribe-language-code" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-code" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-sample-rate-hertz)) - (common-lisp:cons "x-amzn-transcribe-sample-rate" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-sample-rate" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-encoding)) - (common-lisp:cons "x-amzn-transcribe-media-encoding" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-media-encoding" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amzn-transcribe-session-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-session-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-method)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-method" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-method" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'show-speaker-label)) - (common-lisp:cons "x-amzn-transcribe-show-speaker-label" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-show-speaker-label" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-channel-identification)) - (common-lisp:cons "x-amzn-transcribe-enable-channel-identification" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-enable-channel-identification" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'number-of-channels)) - (common-lisp:cons "x-amzn-transcribe-number-of-channels" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-number-of-channels" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-partial-results-stabilization)) (common-lisp:cons - "x-amzn-transcribe-enable-partial-results-stabilization" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amzn-transcribe-enable-partial-results-stabilization" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'partial-results-stability)) - (common-lisp:cons "x-amzn-transcribe-partial-results-stability" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-partial-results-stability" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-identification-type)) - (common-lisp:cons "x-amzn-transcribe-content-identification-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-identification-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-redaction-type)) - (common-lisp:cons "x-amzn-transcribe-content-redaction-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-redaction-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'pii-entity-types)) - (common-lisp:cons "x-amzn-transcribe-pii-entity-types" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-pii-entity-types" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-model-name)) - (common-lisp:cons "x-amzn-transcribe-language-model-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-model-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'identify-language)) - (common-lisp:cons "x-amzn-transcribe-identify-language" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-identify-language" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-options)) - (common-lisp:cons "x-amzn-transcribe-language-options" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-options" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'preferred-language)) - (common-lisp:cons "x-amzn-transcribe-preferred-language" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-preferred-language" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'identify-multiple-languages)) - (common-lisp:cons "x-amzn-transcribe-identify-multiple-languages" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-identify-multiple-languages" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-names)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-names" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-names" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-names)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-names" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-names" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3054,7 +3221,13 @@ ( (aws-sdk/generator/shape::input start-stream-transcription-request)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'audio-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-stream-transcription-request)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:defclass start-stream-transcription-response common-lisp:nil ((request-id :initarg :request-id :initform @@ -3259,128 +3432,174 @@ (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'request-id)) - (common-lisp:cons "x-amzn-request-id" aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-request-id" aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-code)) - (common-lisp:cons "x-amzn-transcribe-language-code" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-code" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-sample-rate-hertz)) - (common-lisp:cons "x-amzn-transcribe-sample-rate" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-sample-rate" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'media-encoding)) - (common-lisp:cons "x-amzn-transcribe-media-encoding" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-media-encoding" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'session-id)) - (common-lisp:cons "x-amzn-transcribe-session-id" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-session-id" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-name)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-method)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-method" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-method" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'show-speaker-label)) - (common-lisp:cons "x-amzn-transcribe-show-speaker-label" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-show-speaker-label" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-channel-identification)) - (common-lisp:cons "x-amzn-transcribe-enable-channel-identification" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-enable-channel-identification" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'number-of-channels)) - (common-lisp:cons "x-amzn-transcribe-number-of-channels" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-number-of-channels" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'enable-partial-results-stabilization)) (common-lisp:cons - "x-amzn-transcribe-enable-partial-results-stabilization" - aws-sdk/generator/shape::value)) + (common-lisp:cons + "x-amzn-transcribe-enable-partial-results-stabilization" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'partial-results-stability)) - (common-lisp:cons "x-amzn-transcribe-partial-results-stability" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-partial-results-stability" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-identification-type)) - (common-lisp:cons "x-amzn-transcribe-content-identification-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-identification-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'content-redaction-type)) - (common-lisp:cons "x-amzn-transcribe-content-redaction-type" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-content-redaction-type" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'pii-entity-types)) - (common-lisp:cons "x-amzn-transcribe-pii-entity-types" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-pii-entity-types" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-model-name)) - (common-lisp:cons "x-amzn-transcribe-language-model-name" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-model-name" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'identify-language)) - (common-lisp:cons "x-amzn-transcribe-identify-language" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-identify-language" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'language-options)) - (common-lisp:cons "x-amzn-transcribe-language-options" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-language-options" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'preferred-language)) - (common-lisp:cons "x-amzn-transcribe-preferred-language" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-preferred-language" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'identify-multiple-languages)) - (common-lisp:cons "x-amzn-transcribe-identify-multiple-languages" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-identify-multiple-languages" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-names)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-names" - aws-sdk/generator/shape::value)) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-names" + aws-sdk/generator/shape::value) + common-lisp:nil)) (alexandria:when-let (aws-sdk/generator/shape::value (common-lisp:slot-value aws-sdk/generator/shape::input 'vocabulary-filter-names)) - (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-names" - aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "x-amzn-transcribe-vocabulary-filter-names" + aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3399,7 +3618,13 @@ (aws-sdk/generator/shape::input start-stream-transcription-response)) (common-lisp:slot-value aws-sdk/generator/shape::input - 'transcript-result-stream))) + 'transcript-result-stream)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + start-stream-transcription-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:deftype string () 'common-lisp:string) (common-lisp:progn (common-lisp:deftype string-list () '(trivial-types:proper-list string)) @@ -3819,7 +4044,7 @@ 'transcribe-streaming-request aws-sdk/generator/operation::input "POST" "/call-analytics-stream-transcription" "StartCallAnalyticsStreamTranscription")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-call-analytics-stream-transcription)) (common-lisp:progn (common-lisp:defun start-medical-stream-transcription @@ -3844,7 +4069,7 @@ (aws-sdk/generator/shape:make-request-with-input 'transcribe-streaming-request aws-sdk/generator/operation::input "POST" "/medical-stream-transcription" "StartMedicalStreamTranscription")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-medical-stream-transcription)) (common-lisp:progn (common-lisp:defun start-stream-transcription @@ -3878,5 +4103,5 @@ (aws-sdk/generator/shape:make-request-with-input 'transcribe-streaming-request aws-sdk/generator/operation::input "POST" "/stream-transcription" "StartStreamTranscription")) - "structure" common-lisp:nil *error-map*))) + "structure" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-stream-transcription)) diff --git a/services/transcribe/api.lisp b/services/transcribe/api.lisp index 6a222c3f..64954c53 100644 --- a/services/transcribe/api.lisp +++ b/services/transcribe/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/transcribe/api - (:use) - (:nicknames #:aws/transcribe) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/transcribe/api (:use) + (:nicknames #:aws/transcribe) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/transcribe/api) (common-lisp:progn (common-lisp:define-condition transcribe-error @@ -9615,7 +9614,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateCallAnalyticsCategory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-call-analytics-category)) (common-lisp:progn (common-lisp:defun create-language-model @@ -9635,7 +9634,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateLanguageModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-language-model)) (common-lisp:progn (common-lisp:defun create-medical-vocabulary @@ -9656,7 +9655,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMedicalVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-medical-vocabulary)) (common-lisp:progn (common-lisp:defun create-vocabulary @@ -9676,7 +9675,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vocabulary)) (common-lisp:progn (common-lisp:defun create-vocabulary-filter @@ -9697,7 +9696,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateVocabularyFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-vocabulary-filter)) (common-lisp:progn (common-lisp:defun delete-call-analytics-category @@ -9715,7 +9714,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCallAnalyticsCategory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-call-analytics-category)) (common-lisp:progn (common-lisp:defun delete-call-analytics-job @@ -9733,7 +9732,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCallAnalyticsJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-call-analytics-job)) (common-lisp:progn (common-lisp:defun delete-language-model @@ -9750,7 +9749,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLanguageModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-language-model)) (common-lisp:progn (common-lisp:defun delete-medical-scribe-job @@ -9768,7 +9767,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMedicalScribeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-medical-scribe-job)) (common-lisp:progn (common-lisp:defun delete-medical-transcription-job @@ -9786,7 +9785,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMedicalTranscriptionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-medical-transcription-job)) (common-lisp:progn (common-lisp:defun delete-medical-vocabulary @@ -9804,7 +9803,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMedicalVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-medical-vocabulary)) (common-lisp:progn (common-lisp:defun delete-transcription-job @@ -9821,7 +9820,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTranscriptionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-transcription-job)) (common-lisp:progn (common-lisp:defun delete-vocabulary @@ -9838,7 +9837,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vocabulary)) (common-lisp:progn (common-lisp:defun delete-vocabulary-filter @@ -9855,7 +9854,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteVocabularyFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-vocabulary-filter)) (common-lisp:progn (common-lisp:defun describe-language-model @@ -9872,7 +9871,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeLanguageModel")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-language-model)) (common-lisp:progn (common-lisp:defun get-call-analytics-category @@ -9890,7 +9889,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCallAnalyticsCategory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-call-analytics-category)) (common-lisp:progn (common-lisp:defun get-call-analytics-job @@ -9907,7 +9906,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetCallAnalyticsJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-call-analytics-job)) (common-lisp:progn (common-lisp:defun get-medical-scribe-job @@ -9924,7 +9923,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMedicalScribeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-medical-scribe-job)) (common-lisp:progn (common-lisp:defun get-medical-transcription-job @@ -9942,7 +9941,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMedicalTranscriptionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-medical-transcription-job)) (common-lisp:progn (common-lisp:defun get-medical-vocabulary @@ -9959,7 +9958,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMedicalVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-medical-vocabulary)) (common-lisp:progn (common-lisp:defun get-transcription-job @@ -9976,7 +9975,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTranscriptionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-transcription-job)) (common-lisp:progn (common-lisp:defun get-vocabulary @@ -9993,7 +9992,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vocabulary)) (common-lisp:progn (common-lisp:defun get-vocabulary-filter @@ -10010,7 +10009,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetVocabularyFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-vocabulary-filter)) (common-lisp:progn (common-lisp:defun list-call-analytics-categories @@ -10028,7 +10027,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCallAnalyticsCategories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-call-analytics-categories)) (common-lisp:progn (common-lisp:defun list-call-analytics-jobs @@ -10047,7 +10046,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCallAnalyticsJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-call-analytics-jobs)) (common-lisp:progn (common-lisp:defun list-language-models @@ -10066,7 +10065,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLanguageModels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-language-models)) (common-lisp:progn (common-lisp:defun list-medical-scribe-jobs @@ -10085,7 +10084,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMedicalScribeJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-medical-scribe-jobs)) (common-lisp:progn (common-lisp:defun list-medical-transcription-jobs @@ -10105,7 +10104,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMedicalTranscriptionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-medical-transcription-jobs)) (common-lisp:progn (common-lisp:defun list-medical-vocabularies @@ -10125,7 +10124,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMedicalVocabularies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-medical-vocabularies)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10142,7 +10141,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-transcription-jobs @@ -10161,7 +10160,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTranscriptionJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-transcription-jobs)) (common-lisp:progn (common-lisp:defun list-vocabularies @@ -10180,7 +10179,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListVocabularies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vocabularies)) (common-lisp:progn (common-lisp:defun list-vocabulary-filters @@ -10198,7 +10197,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListVocabularyFilters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-vocabulary-filters)) (common-lisp:progn (common-lisp:defun start-call-analytics-job @@ -10220,7 +10219,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartCallAnalyticsJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-call-analytics-job)) (common-lisp:progn (common-lisp:defun start-medical-scribe-job @@ -10243,7 +10242,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMedicalScribeJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-medical-scribe-job)) (common-lisp:progn (common-lisp:defun start-medical-transcription-job @@ -10269,7 +10268,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMedicalTranscriptionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-medical-transcription-job)) (common-lisp:progn (common-lisp:defun start-transcription-job @@ -10298,7 +10297,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartTranscriptionJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-transcription-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10315,7 +10314,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10332,7 +10331,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-call-analytics-category @@ -10350,7 +10349,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCallAnalyticsCategory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-call-analytics-category)) (common-lisp:progn (common-lisp:defun update-medical-vocabulary @@ -10370,7 +10369,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMedicalVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-medical-vocabulary)) (common-lisp:progn (common-lisp:defun update-vocabulary @@ -10390,7 +10389,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateVocabulary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vocabulary)) (common-lisp:progn (common-lisp:defun update-vocabulary-filter @@ -10410,5 +10409,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateVocabularyFilter")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-vocabulary-filter)) diff --git a/services/transfer/api.lisp b/services/transfer/api.lisp index 8e4eb2cc..b5425b3d 100644 --- a/services/transfer/api.lisp +++ b/services/transfer/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/transfer/api - (:use) - (:nicknames #:aws/transfer) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/transfer/api (:use) + (:nicknames #:aws/transfer) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/transfer/api) (common-lisp:progn (common-lisp:define-condition transfer-error @@ -11220,7 +11219,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-access)) (common-lisp:progn (common-lisp:defun create-agreement @@ -11240,7 +11239,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAgreement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-agreement)) (common-lisp:progn (common-lisp:defun create-connector @@ -11260,7 +11259,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connector)) (common-lisp:progn (common-lisp:defun create-profile @@ -11278,7 +11277,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profile)) (common-lisp:progn (common-lisp:defun create-server @@ -11306,7 +11305,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-server)) (common-lisp:progn (common-lisp:defun create-user @@ -11328,7 +11327,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun create-workflow @@ -11347,7 +11346,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workflow)) (common-lisp:progn (common-lisp:defun delete-access @@ -11364,7 +11363,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access)) (common-lisp:progn (common-lisp:defun delete-agreement @@ -11381,7 +11380,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAgreement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-agreement)) (common-lisp:progn (common-lisp:defun delete-certificate @@ -11398,7 +11397,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-certificate)) (common-lisp:progn (common-lisp:defun delete-connector @@ -11415,7 +11414,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connector)) (common-lisp:progn (common-lisp:defun delete-host-key @@ -11432,7 +11431,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteHostKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-host-key)) (common-lisp:progn (common-lisp:defun delete-profile @@ -11449,7 +11448,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile)) (common-lisp:progn (common-lisp:defun delete-server @@ -11466,7 +11465,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-server)) (common-lisp:progn (common-lisp:defun delete-ssh-public-key @@ -11484,7 +11483,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSshPublicKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ssh-public-key)) (common-lisp:progn (common-lisp:defun delete-user @@ -11501,7 +11500,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun delete-workflow @@ -11518,7 +11517,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workflow)) (common-lisp:progn (common-lisp:defun describe-access @@ -11535,7 +11534,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-access)) (common-lisp:progn (common-lisp:defun describe-agreement @@ -11552,7 +11551,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAgreement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-agreement)) (common-lisp:progn (common-lisp:defun describe-certificate @@ -11569,7 +11568,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-certificate)) (common-lisp:progn (common-lisp:defun describe-connector @@ -11586,7 +11585,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connector)) (common-lisp:progn (common-lisp:defun describe-execution @@ -11603,7 +11602,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeExecution")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-execution)) (common-lisp:progn (common-lisp:defun describe-host-key @@ -11620,7 +11619,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeHostKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-host-key)) (common-lisp:progn (common-lisp:defun describe-profile @@ -11637,7 +11636,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-profile)) (common-lisp:progn (common-lisp:defun describe-security-policy @@ -11654,7 +11653,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSecurityPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-security-policy)) (common-lisp:progn (common-lisp:defun describe-server @@ -11671,7 +11670,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-server)) (common-lisp:progn (common-lisp:defun describe-user @@ -11688,7 +11687,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user)) (common-lisp:progn (common-lisp:defun describe-workflow @@ -11705,7 +11704,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkflow")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workflow)) (common-lisp:progn (common-lisp:defun import-certificate @@ -11725,7 +11724,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-certificate)) (common-lisp:progn (common-lisp:defun import-host-key @@ -11743,7 +11742,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportHostKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-host-key)) (common-lisp:progn (common-lisp:defun import-ssh-public-key @@ -11761,7 +11760,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportSshPublicKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-ssh-public-key)) (common-lisp:progn (common-lisp:defun list-accesses @@ -11779,7 +11778,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccesses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-accesses)) (common-lisp:progn (common-lisp:defun list-agreements @@ -11797,7 +11796,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAgreements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-agreements)) (common-lisp:progn (common-lisp:defun list-certificates @@ -11814,7 +11813,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-certificates)) (common-lisp:progn (common-lisp:defun list-connectors @@ -11831,7 +11830,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListConnectors")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-connectors)) (common-lisp:progn (common-lisp:defun list-executions @@ -11849,7 +11848,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListExecutions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-executions)) (common-lisp:progn (common-lisp:defun list-host-keys @@ -11867,7 +11866,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListHostKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-host-keys)) (common-lisp:progn (common-lisp:defun list-profiles @@ -11885,7 +11884,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profiles)) (common-lisp:progn (common-lisp:defun list-security-policies @@ -11902,7 +11901,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSecurityPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-security-policies)) (common-lisp:progn (common-lisp:defun list-servers @@ -11919,7 +11918,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListServers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-servers)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -11936,7 +11935,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-users @@ -11954,7 +11953,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun list-workflows @@ -11971,7 +11970,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWorkflows")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workflows)) (common-lisp:progn (common-lisp:defun send-workflow-step-state @@ -11989,7 +11988,7 @@ aws-sdk/generator/operation::input "POST" "/" "SendWorkflowStepState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'send-workflow-step-state)) (common-lisp:progn (common-lisp:defun start-file-transfer @@ -12010,7 +12009,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFileTransfer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-file-transfer)) (common-lisp:progn (common-lisp:defun start-server @@ -12027,7 +12026,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-server)) (common-lisp:progn (common-lisp:defun stop-server @@ -12044,7 +12043,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-server)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12061,7 +12060,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-connection @@ -12078,7 +12077,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestConnection")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-connection)) (common-lisp:progn (common-lisp:defun test-identity-provider @@ -12098,7 +12097,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-identity-provider)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12115,7 +12114,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-access @@ -12136,7 +12135,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-access)) (common-lisp:progn (common-lisp:defun update-agreement @@ -12157,7 +12156,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAgreement")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-agreement)) (common-lisp:progn (common-lisp:defun update-certificate @@ -12177,7 +12176,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-certificate)) (common-lisp:progn (common-lisp:defun update-connector @@ -12197,7 +12196,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConnector")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connector)) (common-lisp:progn (common-lisp:defun update-host-key @@ -12215,7 +12214,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateHostKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-host-key)) (common-lisp:progn (common-lisp:defun update-profile @@ -12232,7 +12231,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-profile)) (common-lisp:progn (common-lisp:defun update-server @@ -12260,7 +12259,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateServer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-server)) (common-lisp:progn (common-lisp:defun update-user @@ -12281,5 +12280,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) diff --git a/services/translate/api.lisp b/services/translate/api.lisp index 2be8313d..312bcfa3 100644 --- a/services/translate/api.lisp +++ b/services/translate/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/translate/api - (:use) - (:nicknames #:aws/translate) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/translate/api (:use) + (:nicknames #:aws/translate) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/translate/api) (common-lisp:progn (common-lisp:define-condition translate-error @@ -4218,7 +4217,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateParallelData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-parallel-data)) (common-lisp:progn (common-lisp:defun delete-parallel-data @@ -4235,7 +4234,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteParallelData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-parallel-data)) (common-lisp:progn (common-lisp:defun delete-terminology @@ -4252,7 +4251,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTerminology")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-terminology)) (common-lisp:progn (common-lisp:defun describe-text-translation-job @@ -4270,7 +4269,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTextTranslationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-text-translation-job)) (common-lisp:progn (common-lisp:defun get-parallel-data @@ -4287,7 +4286,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetParallelData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-parallel-data)) (common-lisp:progn (common-lisp:defun get-terminology @@ -4304,7 +4303,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetTerminology")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-terminology)) (common-lisp:progn (common-lisp:defun import-terminology @@ -4324,7 +4323,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportTerminology")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-terminology)) (common-lisp:progn (common-lisp:defun list-languages @@ -4343,7 +4342,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLanguages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-languages)) (common-lisp:progn (common-lisp:defun list-parallel-data @@ -4360,7 +4359,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListParallelData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-parallel-data)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4377,7 +4376,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-terminologies @@ -4394,7 +4393,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTerminologies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-terminologies)) (common-lisp:progn (common-lisp:defun list-text-translation-jobs @@ -4412,7 +4411,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTextTranslationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-text-translation-jobs)) (common-lisp:progn (common-lisp:defun start-text-translation-job @@ -4437,7 +4436,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartTextTranslationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-text-translation-job)) (common-lisp:progn (common-lisp:defun stop-text-translation-job @@ -4455,7 +4454,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopTextTranslationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-text-translation-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4472,7 +4471,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun translate-document @@ -4492,7 +4491,7 @@ aws-sdk/generator/operation::input "POST" "/" "TranslateDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'translate-document)) (common-lisp:progn (common-lisp:defun translate-text @@ -4512,7 +4511,7 @@ aws-sdk/generator/operation::input "POST" "/" "TranslateText")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'translate-text)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4529,7 +4528,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-parallel-data @@ -4548,5 +4547,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateParallelData")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-parallel-data)) diff --git a/services/trustedadvisor/api.lisp b/services/trustedadvisor/api.lisp index 68c70953..fd385252 100644 --- a/services/trustedadvisor/api.lisp +++ b/services/trustedadvisor/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/trustedadvisor/api - (:use) - (:nicknames #:aws/trustedadvisor) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/trustedadvisor/api (:use) + (:nicknames #:aws/trustedadvisor) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/trustedadvisor/api) (common-lisp:progn (common-lisp:define-condition trustedadvisor-error @@ -20,7 +19,7 @@ (common-lisp:export 'trustedadvisor-error)) (common-lisp:progn (common-lisp:defclass trustedadvisor-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "trustedadvisor" :api-version "2022-09-15" :host-prefix "trustedadvisor" @@ -3287,12 +3286,13 @@ (common-lisp:format common-lisp:nil "/v1/organization-recommendations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'organization-recommendation-identifier)))) + 'organization-recommendation-identifier) + common-lisp:t))) "GetOrganizationRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-organization-recommendation)) (common-lisp:progn (common-lisp:defun get-recommendation @@ -3314,12 +3314,13 @@ (common-lisp:format common-lisp:nil "/v1/recommendations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recommendation-identifier)))) + 'recommendation-identifier) + common-lisp:t))) "GetRecommendation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendation)) (common-lisp:progn (common-lisp:defun list-checks @@ -3339,7 +3340,7 @@ aws-sdk/generator/operation::input "GET" "/v1/checks" "ListChecks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-checks)) (common-lisp:progn (common-lisp:defun list-organization-recommendation-accounts @@ -3365,12 +3366,13 @@ (common-lisp:format common-lisp:nil "/v1/organization-recommendations/~A/accounts" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'organization-recommendation-identifier)))) + 'organization-recommendation-identifier) + common-lisp:t))) "ListOrganizationRecommendationAccounts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-recommendation-accounts)) (common-lisp:progn (common-lisp:defun list-organization-recommendation-resources @@ -3397,12 +3399,13 @@ (common-lisp:format common-lisp:nil "/v1/organization-recommendations/~A/resources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'organization-recommendation-identifier)))) + 'organization-recommendation-identifier) + common-lisp:t))) "ListOrganizationRecommendationResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-recommendation-resources)) (common-lisp:progn (common-lisp:defun list-organization-recommendations @@ -3426,7 +3429,7 @@ "GET" "/v1/organization-recommendations" "ListOrganizationRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organization-recommendations)) (common-lisp:progn (common-lisp:defun list-recommendation-resources @@ -3452,12 +3455,13 @@ (common-lisp:format common-lisp:nil "/v1/recommendations/~A/resources" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recommendation-identifier)))) + 'recommendation-identifier) + common-lisp:t))) "ListRecommendationResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendation-resources)) (common-lisp:progn (common-lisp:defun list-recommendations @@ -3480,7 +3484,7 @@ "GET" "/v1/recommendations" "ListRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-recommendations)) (common-lisp:progn (common-lisp:defun update-organization-recommendation-lifecycle @@ -3507,12 +3511,13 @@ (common-lisp:format common-lisp:nil "/v1/organization-recommendations/~A/lifecycle" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'organization-recommendation-identifier)))) + 'organization-recommendation-identifier) + common-lisp:t))) "UpdateOrganizationRecommendationLifecycle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-organization-recommendation-lifecycle)) (common-lisp:progn (common-lisp:defun update-recommendation-lifecycle @@ -3538,10 +3543,11 @@ (common-lisp:format common-lisp:nil "/v1/recommendations/~A/lifecycle" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'recommendation-identifier)))) + 'recommendation-identifier) + common-lisp:t))) "UpdateRecommendationLifecycle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-recommendation-lifecycle)) diff --git a/services/verifiedpermissions/api.lisp b/services/verifiedpermissions/api.lisp index 13478c11..855c43ba 100644 --- a/services/verifiedpermissions/api.lisp +++ b/services/verifiedpermissions/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/verifiedpermissions/api - (:use) - (:nicknames #:aws/verifiedpermissions) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/verifiedpermissions/api (:use) + (:nicknames #:aws/verifiedpermissions) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/verifiedpermissions/api) (common-lisp:progn (common-lisp:define-condition verifiedpermissions-error @@ -6218,7 +6217,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "BatchIsAuthorized")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-is-authorized)) (common-lisp:progn (common-lisp:defun create-identity-source @@ -6237,7 +6236,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "CreateIdentitySource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-identity-source)) (common-lisp:progn (common-lisp:defun create-policy @@ -6254,7 +6253,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "CreatePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-policy)) (common-lisp:progn (common-lisp:defun create-policy-store @@ -6272,7 +6271,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "CreatePolicyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-policy-store)) (common-lisp:progn (common-lisp:defun create-policy-template @@ -6290,7 +6289,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "CreatePolicyTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-policy-template)) (common-lisp:progn (common-lisp:defun delete-identity-source @@ -6307,7 +6306,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "DeleteIdentitySource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-identity-source)) (common-lisp:progn (common-lisp:defun delete-policy @@ -6323,7 +6322,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "DeletePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-policy)) (common-lisp:progn (common-lisp:defun delete-policy-store @@ -6339,7 +6338,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "DeletePolicyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-policy-store)) (common-lisp:progn (common-lisp:defun delete-policy-template @@ -6356,7 +6355,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "DeletePolicyTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-policy-template)) (common-lisp:progn (common-lisp:defun get-identity-source @@ -6373,7 +6372,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "GetIdentitySource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-identity-source)) (common-lisp:progn (common-lisp:defun get-policy @@ -6389,7 +6388,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "GetPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy)) (common-lisp:progn (common-lisp:defun get-policy-store @@ -6405,7 +6404,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "GetPolicyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy-store)) (common-lisp:progn (common-lisp:defun get-policy-template @@ -6422,7 +6421,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "GetPolicyTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-policy-template)) (common-lisp:progn (common-lisp:defun get-schema @@ -6438,7 +6437,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "GetSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-schema)) (common-lisp:progn (common-lisp:defun is-authorized @@ -6457,7 +6456,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "IsAuthorized")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'is-authorized)) (common-lisp:progn (common-lisp:defun is-authorized-with-token @@ -6476,7 +6475,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "IsAuthorizedWithToken")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'is-authorized-with-token)) (common-lisp:progn (common-lisp:defun list-identity-sources @@ -6494,7 +6493,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "ListIdentitySources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-sources)) (common-lisp:progn (common-lisp:defun list-policies @@ -6512,7 +6511,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "ListPolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policies)) (common-lisp:progn (common-lisp:defun list-policy-stores @@ -6528,7 +6527,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "ListPolicyStores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policy-stores)) (common-lisp:progn (common-lisp:defun list-policy-templates @@ -6545,7 +6544,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "ListPolicyTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-policy-templates)) (common-lisp:progn (common-lisp:defun put-schema @@ -6561,7 +6560,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "PutSchema")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-schema)) (common-lisp:progn (common-lisp:defun update-identity-source @@ -6580,7 +6579,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "UpdateIdentitySource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-identity-source)) (common-lisp:progn (common-lisp:defun update-policy @@ -6597,7 +6596,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "UpdatePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-policy)) (common-lisp:progn (common-lisp:defun update-policy-store @@ -6615,7 +6614,7 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "UpdatePolicyStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-policy-store)) (common-lisp:progn (common-lisp:defun update-policy-template @@ -6634,5 +6633,5 @@ (aws-sdk/generator/shape:make-request-with-input 'verifiedpermissions-request aws-sdk/generator/operation::input "POST" "/" "UpdatePolicyTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-policy-template)) diff --git a/services/voice-id/api.lisp b/services/voice-id/api.lisp index f16953de..ef398594 100644 --- a/services/voice-id/api.lisp +++ b/services/voice-id/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/voice-id/api - (:use) - (:nicknames #:aws/voice-id) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/voice-id/api (:use) + (:nicknames #:aws/voice-id) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/voice-id/api) (common-lisp:progn (common-lisp:define-condition voice-id-error @@ -5746,7 +5745,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateFraudster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-fraudster)) (common-lisp:progn (common-lisp:defun create-domain @@ -5766,7 +5765,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-domain)) (common-lisp:progn (common-lisp:defun create-watchlist @@ -5784,7 +5783,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWatchlist")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-watchlist)) (common-lisp:progn (common-lisp:defun delete-domain @@ -5801,7 +5800,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-domain)) (common-lisp:progn (common-lisp:defun delete-fraudster @@ -5818,7 +5817,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFraudster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fraudster)) (common-lisp:progn (common-lisp:defun delete-speaker @@ -5835,7 +5834,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSpeaker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-speaker)) (common-lisp:progn (common-lisp:defun delete-watchlist @@ -5852,7 +5851,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWatchlist")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-watchlist)) (common-lisp:progn (common-lisp:defun describe-domain @@ -5869,7 +5868,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain)) (common-lisp:progn (common-lisp:defun describe-fraudster @@ -5886,7 +5885,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFraudster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fraudster)) (common-lisp:progn (common-lisp:defun describe-fraudster-registration-job @@ -5904,7 +5903,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeFraudsterRegistrationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fraudster-registration-job)) (common-lisp:progn (common-lisp:defun describe-speaker @@ -5921,7 +5920,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpeaker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-speaker)) (common-lisp:progn (common-lisp:defun describe-speaker-enrollment-job @@ -5939,7 +5938,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeSpeakerEnrollmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-speaker-enrollment-job)) (common-lisp:progn (common-lisp:defun describe-watchlist @@ -5956,7 +5955,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWatchlist")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-watchlist)) (common-lisp:progn (common-lisp:defun disassociate-fraudster @@ -5974,7 +5973,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateFraudster")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-fraudster)) (common-lisp:progn (common-lisp:defun evaluate-session @@ -5991,7 +5990,7 @@ aws-sdk/generator/operation::input "POST" "/" "EvaluateSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'evaluate-session)) (common-lisp:progn (common-lisp:defun list-domains @@ -6008,7 +6007,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-fraudster-registration-jobs @@ -6028,7 +6027,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFraudsterRegistrationJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fraudster-registration-jobs)) (common-lisp:progn (common-lisp:defun list-fraudsters @@ -6047,7 +6046,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListFraudsters")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fraudsters)) (common-lisp:progn (common-lisp:defun list-speaker-enrollment-jobs @@ -6067,7 +6066,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSpeakerEnrollmentJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-speaker-enrollment-jobs)) (common-lisp:progn (common-lisp:defun list-speakers @@ -6085,7 +6084,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSpeakers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-speakers)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -6102,7 +6101,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-watchlists @@ -6120,7 +6119,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWatchlists")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-watchlists)) (common-lisp:progn (common-lisp:defun opt-out-speaker @@ -6137,7 +6136,7 @@ aws-sdk/generator/operation::input "POST" "/" "OptOutSpeaker")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'opt-out-speaker)) (common-lisp:progn (common-lisp:defun start-fraudster-registration-job @@ -6159,7 +6158,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartFraudsterRegistrationJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-fraudster-registration-job)) (common-lisp:progn (common-lisp:defun start-speaker-enrollment-job @@ -6181,7 +6180,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartSpeakerEnrollmentJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-speaker-enrollment-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -6198,7 +6197,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -6215,7 +6214,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-domain @@ -6235,7 +6234,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain)) (common-lisp:progn (common-lisp:defun update-watchlist @@ -6253,5 +6252,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWatchlist")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-watchlist)) diff --git a/services/vpc-lattice/api.lisp b/services/vpc-lattice/api.lisp index 58802caa..2c7c5e31 100644 --- a/services/vpc-lattice/api.lisp +++ b/services/vpc-lattice/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/vpc-lattice/api - (:use) - (:nicknames #:aws/vpc-lattice) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/vpc-lattice/api (:use) + (:nicknames #:aws/vpc-lattice) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/vpc-lattice/api) (common-lisp:progn (common-lisp:define-condition vpc-lattice-error @@ -20,7 +19,7 @@ (common-lisp:export 'vpc-lattice-error)) (common-lisp:progn (common-lisp:defclass vpc-lattice-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "vpc-lattice" :api-version "2022-11-30" :host-prefix "vpc-lattice" :signing-name @@ -9770,16 +9769,18 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A/rules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)))) + 'listener-identifier) + common-lisp:t))) "BatchUpdateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-update-rule)) (common-lisp:progn (common-lisp:defun create-access-log-subscription @@ -9801,7 +9802,7 @@ "POST" "/accesslogsubscriptions" "CreateAccessLogSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-access-log-subscription)) (common-lisp:progn (common-lisp:defun create-listener @@ -9826,12 +9827,13 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)))) + 'service-identifier) + common-lisp:t))) "CreateListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-listener)) (common-lisp:progn (common-lisp:defun create-rule @@ -9856,16 +9858,18 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A/rules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)))) + 'listener-identifier) + common-lisp:t))) "CreateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule)) (common-lisp:progn (common-lisp:defun create-service @@ -9885,7 +9889,7 @@ aws-sdk/generator/operation::input "POST" "/services" "CreateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service)) (common-lisp:progn (common-lisp:defun create-service-network @@ -9904,7 +9908,7 @@ "POST" "/servicenetworks" "CreateServiceNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-network)) (common-lisp:progn (common-lisp:defun create-service-network-service-association @@ -9926,7 +9930,7 @@ "POST" "/servicenetworkserviceassociations" "CreateServiceNetworkServiceAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-network-service-association)) (common-lisp:progn (common-lisp:defun create-service-network-vpc-association @@ -9948,7 +9952,7 @@ "POST" "/servicenetworkvpcassociations" "CreateServiceNetworkVpcAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-service-network-vpc-association)) (common-lisp:progn (common-lisp:defun create-target-group @@ -9966,7 +9970,7 @@ aws-sdk/generator/operation::input "POST" "/targetgroups" "CreateTargetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-target-group)) (common-lisp:progn (common-lisp:defun delete-access-log-subscription @@ -9990,12 +9994,13 @@ (common-lisp:format common-lisp:nil "/accesslogsubscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-log-subscription-identifier)))) + 'access-log-subscription-identifier) + common-lisp:t))) "DeleteAccessLogSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access-log-subscription)) (common-lisp:progn (common-lisp:defun delete-auth-policy @@ -10017,12 +10022,13 @@ (common-lisp:format common-lisp:nil "/authpolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "DeleteAuthPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-auth-policy)) (common-lisp:progn (common-lisp:defun delete-listener @@ -10045,16 +10051,18 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)))) + 'listener-identifier) + common-lisp:t))) "DeleteListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-listener)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -10076,12 +10084,13 @@ (common-lisp:format common-lisp:nil "/resourcepolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-rule @@ -10106,20 +10115,23 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)) - (quri.encode:url-encode + 'listener-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-identifier)))) + 'rule-identifier) + common-lisp:t))) "DeleteRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun delete-service @@ -10141,12 +10153,13 @@ (common-lisp:format common-lisp:nil "/services/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)))) + 'service-identifier) + common-lisp:t))) "DeleteService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service)) (common-lisp:progn (common-lisp:defun delete-service-network @@ -10168,12 +10181,13 @@ (common-lisp:format common-lisp:nil "/servicenetworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-network-identifier)))) + 'service-network-identifier) + common-lisp:t))) "DeleteServiceNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-network)) (common-lisp:progn (common-lisp:defun delete-service-network-service-association @@ -10198,12 +10212,13 @@ (common-lisp:format common-lisp:nil "/servicenetworkserviceassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-network-service-association-identifier)))) + 'service-network-service-association-identifier) + common-lisp:t))) "DeleteServiceNetworkServiceAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-network-service-association)) (common-lisp:progn (common-lisp:defun delete-service-network-vpc-association @@ -10228,12 +10243,13 @@ (common-lisp:format common-lisp:nil "/servicenetworkvpcassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-network-vpc-association-identifier)))) + 'service-network-vpc-association-identifier) + common-lisp:t))) "DeleteServiceNetworkVpcAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-service-network-vpc-association)) (common-lisp:progn (common-lisp:defun delete-target-group @@ -10255,12 +10271,13 @@ (common-lisp:format common-lisp:nil "/targetgroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'target-group-identifier)))) + 'target-group-identifier) + common-lisp:t))) "DeleteTargetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-target-group)) (common-lisp:progn (common-lisp:defun deregister-targets @@ -10283,12 +10300,13 @@ (common-lisp:format common-lisp:nil "/targetgroups/~A/deregistertargets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'target-group-identifier)))) + 'target-group-identifier) + common-lisp:t))) "DeregisterTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-targets)) (common-lisp:progn (common-lisp:defun get-access-log-subscription @@ -10312,12 +10330,13 @@ (common-lisp:format common-lisp:nil "/accesslogsubscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-log-subscription-identifier)))) + 'access-log-subscription-identifier) + common-lisp:t))) "GetAccessLogSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-access-log-subscription)) (common-lisp:progn (common-lisp:defun get-auth-policy @@ -10339,12 +10358,13 @@ (common-lisp:format common-lisp:nil "/authpolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "GetAuthPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-auth-policy)) (common-lisp:progn (common-lisp:defun get-listener @@ -10367,16 +10387,18 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)))) + 'listener-identifier) + common-lisp:t))) "GetListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-listener)) (common-lisp:progn (common-lisp:defun get-resource-policy @@ -10398,12 +10420,13 @@ (common-lisp:format common-lisp:nil "/resourcepolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "GetResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resource-policy)) (common-lisp:progn (common-lisp:defun get-rule @@ -10428,20 +10451,23 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)) - (quri.encode:url-encode + 'listener-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-identifier)))) + 'rule-identifier) + common-lisp:t))) "GetRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rule)) (common-lisp:progn (common-lisp:defun get-service @@ -10463,12 +10489,13 @@ (common-lisp:format common-lisp:nil "/services/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)))) + 'service-identifier) + common-lisp:t))) "GetService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service)) (common-lisp:progn (common-lisp:defun get-service-network @@ -10490,12 +10517,13 @@ (common-lisp:format common-lisp:nil "/servicenetworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-network-identifier)))) + 'service-network-identifier) + common-lisp:t))) "GetServiceNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-network)) (common-lisp:progn (common-lisp:defun get-service-network-service-association @@ -10520,12 +10548,13 @@ (common-lisp:format common-lisp:nil "/servicenetworkserviceassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-network-service-association-identifier)))) + 'service-network-service-association-identifier) + common-lisp:t))) "GetServiceNetworkServiceAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-network-service-association)) (common-lisp:progn (common-lisp:defun get-service-network-vpc-association @@ -10550,12 +10579,13 @@ (common-lisp:format common-lisp:nil "/servicenetworkvpcassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-network-vpc-association-identifier)))) + 'service-network-vpc-association-identifier) + common-lisp:t))) "GetServiceNetworkVpcAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-network-vpc-association)) (common-lisp:progn (common-lisp:defun get-target-group @@ -10577,12 +10607,13 @@ (common-lisp:format common-lisp:nil "/targetgroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'target-group-identifier)))) + 'target-group-identifier) + common-lisp:t))) "GetTargetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-target-group)) (common-lisp:progn (common-lisp:defun list-access-log-subscriptions @@ -10603,7 +10634,7 @@ "GET" "/accesslogsubscriptions" "ListAccessLogSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-log-subscriptions)) (common-lisp:progn (common-lisp:defun list-listeners @@ -10627,12 +10658,13 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)))) + 'service-identifier) + common-lisp:t))) "ListListeners")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-listeners)) (common-lisp:progn (common-lisp:defun list-rules @@ -10657,16 +10689,18 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A/rules" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)))) + 'listener-identifier) + common-lisp:t))) "ListRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules)) (common-lisp:progn (common-lisp:defun list-service-network-service-associations @@ -10688,7 +10722,7 @@ "GET" "/servicenetworkserviceassociations" "ListServiceNetworkServiceAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-network-service-associations)) (common-lisp:progn (common-lisp:defun list-service-network-vpc-associations @@ -10710,7 +10744,7 @@ "GET" "/servicenetworkvpcassociations" "ListServiceNetworkVpcAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-network-vpc-associations)) (common-lisp:progn (common-lisp:defun list-service-networks @@ -10728,7 +10762,7 @@ "GET" "/servicenetworks" "ListServiceNetworks")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-service-networks)) (common-lisp:progn (common-lisp:defun list-services @@ -10745,7 +10779,7 @@ aws-sdk/generator/operation::input "GET" "/services" "ListServices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-services)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -10767,12 +10801,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-target-groups @@ -10792,7 +10827,7 @@ aws-sdk/generator/operation::input "GET" "/targetgroups" "ListTargetGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-target-groups)) (common-lisp:progn (common-lisp:defun list-targets @@ -10817,12 +10852,13 @@ (common-lisp:format common-lisp:nil "/targetgroups/~A/listtargets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'target-group-identifier)))) + 'target-group-identifier) + common-lisp:t))) "ListTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-targets)) (common-lisp:progn (common-lisp:defun put-auth-policy @@ -10844,12 +10880,13 @@ (common-lisp:format common-lisp:nil "/authpolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-identifier)))) + 'resource-identifier) + common-lisp:t))) "PutAuthPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-auth-policy)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -10871,12 +10908,13 @@ (common-lisp:format common-lisp:nil "/resourcepolicy/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun register-targets @@ -10899,12 +10937,13 @@ (common-lisp:format common-lisp:nil "/targetgroups/~A/registertargets" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'target-group-identifier)))) + 'target-group-identifier) + common-lisp:t))) "RegisterTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-targets)) (common-lisp:progn (common-lisp:defun tag-resource @@ -10926,12 +10965,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -10953,12 +10993,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-access-log-subscription @@ -10983,12 +11024,13 @@ (common-lisp:format common-lisp:nil "/accesslogsubscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'access-log-subscription-identifier)))) + 'access-log-subscription-identifier) + common-lisp:t))) "UpdateAccessLogSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-access-log-subscription)) (common-lisp:progn (common-lisp:defun update-listener @@ -11013,16 +11055,18 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)))) + 'listener-identifier) + common-lisp:t))) "UpdateListener")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-listener)) (common-lisp:progn (common-lisp:defun update-rule @@ -11047,20 +11091,23 @@ (common-lisp:format common-lisp:nil "/services/~A/listeners/~A/rules/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)) - (quri.encode:url-encode + 'service-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'listener-identifier)) - (quri.encode:url-encode + 'listener-identifier) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'rule-identifier)))) + 'rule-identifier) + common-lisp:t))) "UpdateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule)) (common-lisp:progn (common-lisp:defun update-service @@ -11084,12 +11131,13 @@ (common-lisp:format common-lisp:nil "/services/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-identifier)))) + 'service-identifier) + common-lisp:t))) "UpdateService")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service)) (common-lisp:progn (common-lisp:defun update-service-network @@ -11112,12 +11160,13 @@ (common-lisp:format common-lisp:nil "/servicenetworks/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-network-identifier)))) + 'service-network-identifier) + common-lisp:t))) "UpdateServiceNetwork")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-network)) (common-lisp:progn (common-lisp:defun update-service-network-vpc-association @@ -11143,12 +11192,13 @@ (common-lisp:format common-lisp:nil "/servicenetworkvpcassociations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'service-network-vpc-association-identifier)))) + 'service-network-vpc-association-identifier) + common-lisp:t))) "UpdateServiceNetworkVpcAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-service-network-vpc-association)) (common-lisp:progn (common-lisp:defun update-target-group @@ -11171,10 +11221,11 @@ (common-lisp:format common-lisp:nil "/targetgroups/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'target-group-identifier)))) + 'target-group-identifier) + common-lisp:t))) "UpdateTargetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-target-group)) diff --git a/services/waf-regional/api.lisp b/services/waf-regional/api.lisp index 64a18d50..20e73b96 100644 --- a/services/waf-regional/api.lisp +++ b/services/waf-regional/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/waf-regional/api - (:use) - (:nicknames #:aws/waf-regional) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/waf-regional/api (:use) + (:nicknames #:aws/waf-regional) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/waf-regional/api) (common-lisp:progn (common-lisp:define-condition waf-regional-error @@ -11554,7 +11553,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-web-acl)) (common-lisp:progn (common-lisp:defun create-byte-match-set @@ -11571,7 +11570,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateByteMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-byte-match-set)) (common-lisp:progn (common-lisp:defun create-geo-match-set @@ -11588,7 +11587,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGeoMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-geo-match-set)) (common-lisp:progn (common-lisp:defun create-ipset @@ -11605,7 +11604,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ipset)) (common-lisp:progn (common-lisp:defun create-rate-based-rule @@ -11625,7 +11624,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRateBasedRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rate-based-rule)) (common-lisp:progn (common-lisp:defun create-regex-match-set @@ -11642,7 +11641,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRegexMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-regex-match-set)) (common-lisp:progn (common-lisp:defun create-regex-pattern-set @@ -11659,7 +11658,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-regex-pattern-set)) (common-lisp:progn (common-lisp:defun create-rule @@ -11677,7 +11676,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule)) (common-lisp:progn (common-lisp:defun create-rule-group @@ -11695,7 +11694,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule-group)) (common-lisp:progn (common-lisp:defun create-size-constraint-set @@ -11713,7 +11712,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSizeConstraintSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-size-constraint-set)) (common-lisp:progn (common-lisp:defun create-sql-injection-match-set @@ -11731,7 +11730,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSqlInjectionMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sql-injection-match-set)) (common-lisp:progn (common-lisp:defun create-web-acl @@ -11750,7 +11749,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-web-acl)) (common-lisp:progn (common-lisp:defun create-web-aclmigration-stack @@ -11770,7 +11769,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWebACLMigrationStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-web-aclmigration-stack)) (common-lisp:progn (common-lisp:defun create-xss-match-set @@ -11787,7 +11786,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateXssMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-xss-match-set)) (common-lisp:progn (common-lisp:defun delete-byte-match-set @@ -11804,7 +11803,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteByteMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-byte-match-set)) (common-lisp:progn (common-lisp:defun delete-geo-match-set @@ -11821,7 +11820,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGeoMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-geo-match-set)) (common-lisp:progn (common-lisp:defun delete-ipset @@ -11838,7 +11837,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ipset)) (common-lisp:progn (common-lisp:defun delete-logging-configuration @@ -11856,7 +11855,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-logging-configuration)) (common-lisp:progn (common-lisp:defun delete-permission-policy @@ -11873,7 +11872,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permission-policy)) (common-lisp:progn (common-lisp:defun delete-rate-based-rule @@ -11890,7 +11889,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRateBasedRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rate-based-rule)) (common-lisp:progn (common-lisp:defun delete-regex-match-set @@ -11908,7 +11907,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRegexMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-regex-match-set)) (common-lisp:progn (common-lisp:defun delete-regex-pattern-set @@ -11926,7 +11925,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-regex-pattern-set)) (common-lisp:progn (common-lisp:defun delete-rule @@ -11943,7 +11942,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun delete-rule-group @@ -11960,7 +11959,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule-group)) (common-lisp:progn (common-lisp:defun delete-size-constraint-set @@ -11979,7 +11978,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSizeConstraintSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-size-constraint-set)) (common-lisp:progn (common-lisp:defun delete-sql-injection-match-set @@ -11998,7 +11997,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSqlInjectionMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sql-injection-match-set)) (common-lisp:progn (common-lisp:defun delete-web-acl @@ -12015,7 +12014,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-web-acl)) (common-lisp:progn (common-lisp:defun delete-xss-match-set @@ -12032,7 +12031,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteXssMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-xss-match-set)) (common-lisp:progn (common-lisp:defun disassociate-web-acl @@ -12049,7 +12048,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-web-acl)) (common-lisp:progn (common-lisp:defun get-byte-match-set @@ -12066,7 +12065,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetByteMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-byte-match-set)) (common-lisp:progn (common-lisp:defun get-change-token () @@ -12091,7 +12090,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetChangeTokenStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-change-token-status)) (common-lisp:progn (common-lisp:defun get-geo-match-set @@ -12108,7 +12107,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetGeoMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-geo-match-set)) (common-lisp:progn (common-lisp:defun get-ipset @@ -12124,7 +12123,7 @@ (aws-sdk/generator/shape:make-request-with-input 'waf-regional-request aws-sdk/generator/operation::input "POST" "/" "GetIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ipset)) (common-lisp:progn (common-lisp:defun get-logging-configuration @@ -12142,7 +12141,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-logging-configuration)) (common-lisp:progn (common-lisp:defun get-permission-policy @@ -12159,7 +12158,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-permission-policy)) (common-lisp:progn (common-lisp:defun get-rate-based-rule @@ -12176,7 +12175,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRateBasedRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rate-based-rule)) (common-lisp:progn (common-lisp:defun get-rate-based-rule-managed-keys @@ -12194,7 +12193,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRateBasedRuleManagedKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rate-based-rule-managed-keys)) (common-lisp:progn (common-lisp:defun get-regex-match-set @@ -12211,7 +12210,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRegexMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-regex-match-set)) (common-lisp:progn (common-lisp:defun get-regex-pattern-set @@ -12228,7 +12227,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-regex-pattern-set)) (common-lisp:progn (common-lisp:defun get-rule @@ -12244,7 +12243,7 @@ (aws-sdk/generator/shape:make-request-with-input 'waf-regional-request aws-sdk/generator/operation::input "POST" "/" "GetRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rule)) (common-lisp:progn (common-lisp:defun get-rule-group @@ -12261,7 +12260,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rule-group)) (common-lisp:progn (common-lisp:defun get-sampled-requests @@ -12279,7 +12278,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSampledRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sampled-requests)) (common-lisp:progn (common-lisp:defun get-size-constraint-set @@ -12296,7 +12295,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSizeConstraintSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-size-constraint-set)) (common-lisp:progn (common-lisp:defun get-sql-injection-match-set @@ -12314,7 +12313,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSqlInjectionMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sql-injection-match-set)) (common-lisp:progn (common-lisp:defun get-web-acl @@ -12331,7 +12330,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-web-acl)) (common-lisp:progn (common-lisp:defun get-web-aclfor-resource @@ -12348,7 +12347,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWebACLForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-web-aclfor-resource)) (common-lisp:progn (common-lisp:defun get-xss-match-set @@ -12365,7 +12364,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetXssMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-xss-match-set)) (common-lisp:progn (common-lisp:defun list-activated-rules-in-rule-group @@ -12384,7 +12383,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListActivatedRulesInRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-activated-rules-in-rule-group)) (common-lisp:progn (common-lisp:defun list-byte-match-sets @@ -12401,7 +12400,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListByteMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-byte-match-sets)) (common-lisp:progn (common-lisp:defun list-geo-match-sets @@ -12418,7 +12417,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGeoMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-geo-match-sets)) (common-lisp:progn (common-lisp:defun list-ipsets @@ -12435,7 +12434,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListIPSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ipsets)) (common-lisp:progn (common-lisp:defun list-logging-configurations @@ -12453,7 +12452,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLoggingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-logging-configurations)) (common-lisp:progn (common-lisp:defun list-rate-based-rules @@ -12470,7 +12469,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRateBasedRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rate-based-rules)) (common-lisp:progn (common-lisp:defun list-regex-match-sets @@ -12487,7 +12486,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRegexMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-regex-match-sets)) (common-lisp:progn (common-lisp:defun list-regex-pattern-sets @@ -12504,7 +12503,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRegexPatternSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-regex-pattern-sets)) (common-lisp:progn (common-lisp:defun list-resources-for-web-acl @@ -12522,7 +12521,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourcesForWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources-for-web-acl)) (common-lisp:progn (common-lisp:defun list-rule-groups @@ -12539,7 +12538,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rule-groups)) (common-lisp:progn (common-lisp:defun list-rules @@ -12556,7 +12555,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules)) (common-lisp:progn (common-lisp:defun list-size-constraint-sets @@ -12574,7 +12573,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSizeConstraintSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-size-constraint-sets)) (common-lisp:progn (common-lisp:defun list-sql-injection-match-sets @@ -12592,7 +12591,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSqlInjectionMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sql-injection-match-sets)) (common-lisp:progn (common-lisp:defun list-subscribed-rule-groups @@ -12610,7 +12609,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSubscribedRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscribed-rule-groups)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12627,7 +12626,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-web-acls @@ -12644,7 +12643,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWebACLs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-web-acls)) (common-lisp:progn (common-lisp:defun list-xss-match-sets @@ -12661,7 +12660,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListXssMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-xss-match-sets)) (common-lisp:progn (common-lisp:defun put-logging-configuration @@ -12679,7 +12678,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-logging-configuration)) (common-lisp:progn (common-lisp:defun put-permission-policy @@ -12696,7 +12695,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-permission-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12713,7 +12712,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12730,7 +12729,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-byte-match-set @@ -12748,7 +12747,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateByteMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-byte-match-set)) (common-lisp:progn (common-lisp:defun update-geo-match-set @@ -12766,7 +12765,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGeoMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-geo-match-set)) (common-lisp:progn (common-lisp:defun update-ipset @@ -12783,7 +12782,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ipset)) (common-lisp:progn (common-lisp:defun update-rate-based-rule @@ -12801,7 +12800,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRateBasedRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rate-based-rule)) (common-lisp:progn (common-lisp:defun update-regex-match-set @@ -12819,7 +12818,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRegexMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-regex-match-set)) (common-lisp:progn (common-lisp:defun update-regex-pattern-set @@ -12838,7 +12837,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-regex-pattern-set)) (common-lisp:progn (common-lisp:defun update-rule @@ -12855,7 +12854,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule)) (common-lisp:progn (common-lisp:defun update-rule-group @@ -12873,7 +12872,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule-group)) (common-lisp:progn (common-lisp:defun update-size-constraint-set @@ -12893,7 +12892,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSizeConstraintSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-size-constraint-set)) (common-lisp:progn (common-lisp:defun update-sql-injection-match-set @@ -12913,7 +12912,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSqlInjectionMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sql-injection-match-set)) (common-lisp:progn (common-lisp:defun update-web-acl @@ -12932,7 +12931,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-web-acl)) (common-lisp:progn (common-lisp:defun update-xss-match-set @@ -12950,5 +12949,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateXssMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-xss-match-set)) diff --git a/services/waf/api.lisp b/services/waf/api.lisp index b0e53c09..0fc12f14 100644 --- a/services/waf/api.lisp +++ b/services/waf/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/waf/api - (:use) - (:nicknames #:aws/waf) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/waf/api (:use) + (:nicknames #:aws/waf) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/waf/api) (common-lisp:progn (common-lisp:define-condition waf-error @@ -11218,7 +11217,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateByteMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-byte-match-set)) (common-lisp:progn (common-lisp:defun create-geo-match-set @@ -11235,7 +11234,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGeoMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-geo-match-set)) (common-lisp:progn (common-lisp:defun create-ipset @@ -11252,7 +11251,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ipset)) (common-lisp:progn (common-lisp:defun create-rate-based-rule @@ -11272,7 +11271,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRateBasedRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rate-based-rule)) (common-lisp:progn (common-lisp:defun create-regex-match-set @@ -11289,7 +11288,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRegexMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-regex-match-set)) (common-lisp:progn (common-lisp:defun create-regex-pattern-set @@ -11306,7 +11305,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-regex-pattern-set)) (common-lisp:progn (common-lisp:defun create-rule @@ -11324,7 +11323,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule)) (common-lisp:progn (common-lisp:defun create-rule-group @@ -11342,7 +11341,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule-group)) (common-lisp:progn (common-lisp:defun create-size-constraint-set @@ -11360,7 +11359,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSizeConstraintSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-size-constraint-set)) (common-lisp:progn (common-lisp:defun create-sql-injection-match-set @@ -11378,7 +11377,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateSqlInjectionMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sql-injection-match-set)) (common-lisp:progn (common-lisp:defun create-web-acl @@ -11397,7 +11396,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-web-acl)) (common-lisp:progn (common-lisp:defun create-web-aclmigration-stack @@ -11417,7 +11416,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWebACLMigrationStack")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-web-aclmigration-stack)) (common-lisp:progn (common-lisp:defun create-xss-match-set @@ -11434,7 +11433,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateXssMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-xss-match-set)) (common-lisp:progn (common-lisp:defun delete-byte-match-set @@ -11451,7 +11450,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteByteMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-byte-match-set)) (common-lisp:progn (common-lisp:defun delete-geo-match-set @@ -11468,7 +11467,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGeoMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-geo-match-set)) (common-lisp:progn (common-lisp:defun delete-ipset @@ -11485,7 +11484,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ipset)) (common-lisp:progn (common-lisp:defun delete-logging-configuration @@ -11503,7 +11502,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-logging-configuration)) (common-lisp:progn (common-lisp:defun delete-permission-policy @@ -11520,7 +11519,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permission-policy)) (common-lisp:progn (common-lisp:defun delete-rate-based-rule @@ -11537,7 +11536,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRateBasedRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rate-based-rule)) (common-lisp:progn (common-lisp:defun delete-regex-match-set @@ -11555,7 +11554,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRegexMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-regex-match-set)) (common-lisp:progn (common-lisp:defun delete-regex-pattern-set @@ -11573,7 +11572,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-regex-pattern-set)) (common-lisp:progn (common-lisp:defun delete-rule @@ -11590,7 +11589,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule)) (common-lisp:progn (common-lisp:defun delete-rule-group @@ -11607,7 +11606,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule-group)) (common-lisp:progn (common-lisp:defun delete-size-constraint-set @@ -11626,7 +11625,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSizeConstraintSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-size-constraint-set)) (common-lisp:progn (common-lisp:defun delete-sql-injection-match-set @@ -11645,7 +11644,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteSqlInjectionMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sql-injection-match-set)) (common-lisp:progn (common-lisp:defun delete-web-acl @@ -11662,7 +11661,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-web-acl)) (common-lisp:progn (common-lisp:defun delete-xss-match-set @@ -11679,7 +11678,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteXssMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-xss-match-set)) (common-lisp:progn (common-lisp:defun get-byte-match-set @@ -11696,7 +11695,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetByteMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-byte-match-set)) (common-lisp:progn (common-lisp:defun get-change-token () @@ -11721,7 +11720,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetChangeTokenStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-change-token-status)) (common-lisp:progn (common-lisp:defun get-geo-match-set @@ -11738,7 +11737,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetGeoMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-geo-match-set)) (common-lisp:progn (common-lisp:defun get-ipset @@ -11754,7 +11753,7 @@ (aws-sdk/generator/shape:make-request-with-input 'waf-request aws-sdk/generator/operation::input "POST" "/" "GetIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ipset)) (common-lisp:progn (common-lisp:defun get-logging-configuration @@ -11772,7 +11771,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-logging-configuration)) (common-lisp:progn (common-lisp:defun get-permission-policy @@ -11789,7 +11788,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-permission-policy)) (common-lisp:progn (common-lisp:defun get-rate-based-rule @@ -11806,7 +11805,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRateBasedRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rate-based-rule)) (common-lisp:progn (common-lisp:defun get-rate-based-rule-managed-keys @@ -11824,7 +11823,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRateBasedRuleManagedKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rate-based-rule-managed-keys)) (common-lisp:progn (common-lisp:defun get-regex-match-set @@ -11841,7 +11840,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRegexMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-regex-match-set)) (common-lisp:progn (common-lisp:defun get-regex-pattern-set @@ -11858,7 +11857,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-regex-pattern-set)) (common-lisp:progn (common-lisp:defun get-rule @@ -11874,7 +11873,7 @@ (aws-sdk/generator/shape:make-request-with-input 'waf-request aws-sdk/generator/operation::input "POST" "/" "GetRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rule)) (common-lisp:progn (common-lisp:defun get-rule-group @@ -11891,7 +11890,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rule-group)) (common-lisp:progn (common-lisp:defun get-sampled-requests @@ -11909,7 +11908,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSampledRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sampled-requests)) (common-lisp:progn (common-lisp:defun get-size-constraint-set @@ -11926,7 +11925,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSizeConstraintSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-size-constraint-set)) (common-lisp:progn (common-lisp:defun get-sql-injection-match-set @@ -11944,7 +11943,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSqlInjectionMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sql-injection-match-set)) (common-lisp:progn (common-lisp:defun get-web-acl @@ -11961,7 +11960,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-web-acl)) (common-lisp:progn (common-lisp:defun get-xss-match-set @@ -11978,7 +11977,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetXssMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-xss-match-set)) (common-lisp:progn (common-lisp:defun list-activated-rules-in-rule-group @@ -11997,7 +11996,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListActivatedRulesInRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-activated-rules-in-rule-group)) (common-lisp:progn (common-lisp:defun list-byte-match-sets @@ -12014,7 +12013,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListByteMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-byte-match-sets)) (common-lisp:progn (common-lisp:defun list-geo-match-sets @@ -12031,7 +12030,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGeoMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-geo-match-sets)) (common-lisp:progn (common-lisp:defun list-ipsets @@ -12048,7 +12047,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListIPSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ipsets)) (common-lisp:progn (common-lisp:defun list-logging-configurations @@ -12066,7 +12065,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLoggingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-logging-configurations)) (common-lisp:progn (common-lisp:defun list-rate-based-rules @@ -12083,7 +12082,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRateBasedRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rate-based-rules)) (common-lisp:progn (common-lisp:defun list-regex-match-sets @@ -12100,7 +12099,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRegexMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-regex-match-sets)) (common-lisp:progn (common-lisp:defun list-regex-pattern-sets @@ -12117,7 +12116,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRegexPatternSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-regex-pattern-sets)) (common-lisp:progn (common-lisp:defun list-rule-groups @@ -12134,7 +12133,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rule-groups)) (common-lisp:progn (common-lisp:defun list-rules @@ -12151,7 +12150,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rules)) (common-lisp:progn (common-lisp:defun list-size-constraint-sets @@ -12169,7 +12168,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSizeConstraintSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-size-constraint-sets)) (common-lisp:progn (common-lisp:defun list-sql-injection-match-sets @@ -12187,7 +12186,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSqlInjectionMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-sql-injection-match-sets)) (common-lisp:progn (common-lisp:defun list-subscribed-rule-groups @@ -12205,7 +12204,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListSubscribedRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-subscribed-rule-groups)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -12222,7 +12221,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-web-acls @@ -12239,7 +12238,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWebACLs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-web-acls)) (common-lisp:progn (common-lisp:defun list-xss-match-sets @@ -12256,7 +12255,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListXssMatchSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-xss-match-sets)) (common-lisp:progn (common-lisp:defun put-logging-configuration @@ -12274,7 +12273,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-logging-configuration)) (common-lisp:progn (common-lisp:defun put-permission-policy @@ -12291,7 +12290,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-permission-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -12308,7 +12307,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -12325,7 +12324,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-byte-match-set @@ -12343,7 +12342,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateByteMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-byte-match-set)) (common-lisp:progn (common-lisp:defun update-geo-match-set @@ -12361,7 +12360,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGeoMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-geo-match-set)) (common-lisp:progn (common-lisp:defun update-ipset @@ -12378,7 +12377,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ipset)) (common-lisp:progn (common-lisp:defun update-rate-based-rule @@ -12396,7 +12395,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRateBasedRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rate-based-rule)) (common-lisp:progn (common-lisp:defun update-regex-match-set @@ -12414,7 +12413,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRegexMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-regex-match-set)) (common-lisp:progn (common-lisp:defun update-regex-pattern-set @@ -12433,7 +12432,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-regex-pattern-set)) (common-lisp:progn (common-lisp:defun update-rule @@ -12450,7 +12449,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule)) (common-lisp:progn (common-lisp:defun update-rule-group @@ -12468,7 +12467,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule-group)) (common-lisp:progn (common-lisp:defun update-size-constraint-set @@ -12488,7 +12487,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSizeConstraintSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-size-constraint-set)) (common-lisp:progn (common-lisp:defun update-sql-injection-match-set @@ -12508,7 +12507,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateSqlInjectionMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sql-injection-match-set)) (common-lisp:progn (common-lisp:defun update-web-acl @@ -12527,7 +12526,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-web-acl)) (common-lisp:progn (common-lisp:defun update-xss-match-set @@ -12545,5 +12544,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateXssMatchSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-xss-match-set)) diff --git a/services/wafv2/api.lisp b/services/wafv2/api.lisp index 56a0ce53..b89e5a8b 100644 --- a/services/wafv2/api.lisp +++ b/services/wafv2/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/wafv2/api - (:use) - (:nicknames #:aws/wafv2) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/wafv2/api (:use) + (:nicknames #:aws/wafv2) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/wafv2/api) (common-lisp:progn (common-lisp:define-condition wafv2-error @@ -14659,7 +14658,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-web-acl)) (common-lisp:progn (common-lisp:defun check-capacity @@ -14676,7 +14675,7 @@ aws-sdk/generator/operation::input "POST" "/" "CheckCapacity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'check-capacity)) (common-lisp:progn (common-lisp:defun create-apikey @@ -14693,7 +14692,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAPIKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-apikey)) (common-lisp:progn (common-lisp:defun create-ipset @@ -14713,7 +14712,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ipset)) (common-lisp:progn (common-lisp:defun create-regex-pattern-set @@ -14733,7 +14732,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-regex-pattern-set)) (common-lisp:progn (common-lisp:defun create-rule-group @@ -14753,7 +14752,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-rule-group)) (common-lisp:progn (common-lisp:defun create-web-acl @@ -14776,7 +14775,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-web-acl)) (common-lisp:progn (common-lisp:defun delete-apikey @@ -14793,7 +14792,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAPIKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-apikey)) (common-lisp:progn (common-lisp:defun delete-firewall-manager-rule-groups @@ -14811,7 +14810,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteFirewallManagerRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-firewall-manager-rule-groups)) (common-lisp:progn (common-lisp:defun delete-ipset @@ -14828,7 +14827,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ipset)) (common-lisp:progn (common-lisp:defun delete-logging-configuration @@ -14846,7 +14845,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-logging-configuration)) (common-lisp:progn (common-lisp:defun delete-permission-policy @@ -14863,7 +14862,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeletePermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-permission-policy)) (common-lisp:progn (common-lisp:defun delete-regex-pattern-set @@ -14880,7 +14879,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-regex-pattern-set)) (common-lisp:progn (common-lisp:defun delete-rule-group @@ -14897,7 +14896,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-rule-group)) (common-lisp:progn (common-lisp:defun delete-web-acl @@ -14914,7 +14913,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-web-acl)) (common-lisp:progn (common-lisp:defun describe-all-managed-products @@ -14932,7 +14931,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAllManagedProducts")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-all-managed-products)) (common-lisp:progn (common-lisp:defun describe-managed-products-by-vendor @@ -14950,7 +14949,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeManagedProductsByVendor")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-managed-products-by-vendor)) (common-lisp:progn (common-lisp:defun describe-managed-rule-group @@ -14969,7 +14968,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeManagedRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-managed-rule-group)) (common-lisp:progn (common-lisp:defun disassociate-web-acl @@ -14986,7 +14985,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-web-acl)) (common-lisp:progn (common-lisp:defun generate-mobile-sdk-release-url @@ -15004,7 +15003,7 @@ aws-sdk/generator/operation::input "POST" "/" "GenerateMobileSdkReleaseUrl")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'generate-mobile-sdk-release-url)) (common-lisp:progn (common-lisp:defun get-decrypted-apikey @@ -15021,7 +15020,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDecryptedAPIKey")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-decrypted-apikey)) (common-lisp:progn (common-lisp:defun get-ipset @@ -15037,7 +15036,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wafv2-request aws-sdk/generator/operation::input "POST" "/" "GetIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ipset)) (common-lisp:progn (common-lisp:defun get-logging-configuration @@ -15055,7 +15054,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-logging-configuration)) (common-lisp:progn (common-lisp:defun get-managed-rule-set @@ -15072,7 +15071,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetManagedRuleSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-managed-rule-set)) (common-lisp:progn (common-lisp:defun get-mobile-sdk-release @@ -15089,7 +15088,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMobileSdkRelease")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mobile-sdk-release)) (common-lisp:progn (common-lisp:defun get-permission-policy @@ -15106,7 +15105,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetPermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-permission-policy)) (common-lisp:progn (common-lisp:defun get-rate-based-statement-managed-keys @@ -15127,7 +15126,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRateBasedStatementManagedKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rate-based-statement-managed-keys)) (common-lisp:progn (common-lisp:defun get-regex-pattern-set @@ -15144,7 +15143,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-regex-pattern-set)) (common-lisp:progn (common-lisp:defun get-rule-group @@ -15161,7 +15160,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-rule-group)) (common-lisp:progn (common-lisp:defun get-sampled-requests @@ -15181,7 +15180,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetSampledRequests")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sampled-requests)) (common-lisp:progn (common-lisp:defun get-web-acl @@ -15198,7 +15197,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-web-acl)) (common-lisp:progn (common-lisp:defun get-web-aclfor-resource @@ -15215,7 +15214,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetWebACLForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-web-aclfor-resource)) (common-lisp:progn (common-lisp:defun list-apikeys @@ -15232,7 +15231,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAPIKeys")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-apikeys)) (common-lisp:progn (common-lisp:defun list-available-managed-rule-group-versions @@ -15251,7 +15250,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAvailableManagedRuleGroupVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-available-managed-rule-group-versions)) (common-lisp:progn (common-lisp:defun list-available-managed-rule-groups @@ -15269,7 +15268,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAvailableManagedRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-available-managed-rule-groups)) (common-lisp:progn (common-lisp:defun list-ipsets @@ -15286,7 +15285,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListIPSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ipsets)) (common-lisp:progn (common-lisp:defun list-logging-configurations @@ -15304,7 +15303,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListLoggingConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-logging-configurations)) (common-lisp:progn (common-lisp:defun list-managed-rule-sets @@ -15321,7 +15320,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListManagedRuleSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-managed-rule-sets)) (common-lisp:progn (common-lisp:defun list-mobile-sdk-releases @@ -15338,7 +15337,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMobileSdkReleases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mobile-sdk-releases)) (common-lisp:progn (common-lisp:defun list-regex-pattern-sets @@ -15355,7 +15354,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRegexPatternSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-regex-pattern-sets)) (common-lisp:progn (common-lisp:defun list-resources-for-web-acl @@ -15373,7 +15372,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourcesForWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources-for-web-acl)) (common-lisp:progn (common-lisp:defun list-rule-groups @@ -15390,7 +15389,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListRuleGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-rule-groups)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -15407,7 +15406,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-web-acls @@ -15424,7 +15423,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListWebACLs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-web-acls)) (common-lisp:progn (common-lisp:defun put-logging-configuration @@ -15442,7 +15441,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutLoggingConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-logging-configuration)) (common-lisp:progn (common-lisp:defun put-managed-rule-set-versions @@ -15463,7 +15462,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutManagedRuleSetVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-managed-rule-set-versions)) (common-lisp:progn (common-lisp:defun put-permission-policy @@ -15480,7 +15479,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutPermissionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-permission-policy)) (common-lisp:progn (common-lisp:defun tag-resource @@ -15497,7 +15496,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -15514,7 +15513,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-ipset @@ -15533,7 +15532,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateIPSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ipset)) (common-lisp:progn (common-lisp:defun update-managed-rule-set-version-expiry-date @@ -15554,7 +15553,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateManagedRuleSetVersionExpiryDate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-managed-rule-set-version-expiry-date)) (common-lisp:progn (common-lisp:defun update-regex-pattern-set @@ -15574,7 +15573,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRegexPatternSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-regex-pattern-set)) (common-lisp:progn (common-lisp:defun update-rule-group @@ -15594,7 +15593,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRuleGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rule-group)) (common-lisp:progn (common-lisp:defun update-web-acl @@ -15617,5 +15616,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWebACL")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-web-acl)) diff --git a/services/wellarchitected/api.lisp b/services/wellarchitected/api.lisp index 30aa5a0c..706eb517 100644 --- a/services/wellarchitected/api.lisp +++ b/services/wellarchitected/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/wellarchitected/api - (:use) - (:nicknames #:aws/wellarchitected) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/wellarchitected/api (:use) + (:nicknames #:aws/wellarchitected) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/wellarchitected/api) (common-lisp:progn (common-lisp:define-condition wellarchitected-error @@ -20,7 +19,7 @@ (common-lisp:export 'wellarchitected-error)) (common-lisp:progn (common-lisp:defclass wellarchitected-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "wellarchitected" :api-version "2020-03-31" :host-prefix @@ -14020,12 +14019,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/associateLenses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "AssociateLenses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-lenses)) (common-lisp:progn (common-lisp:defun associate-profiles @@ -14042,12 +14042,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/associateProfiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "AssociateProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-profiles)) (common-lisp:progn (common-lisp:defun create-lens-share @@ -14066,12 +14067,12 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/lenses/~A/shares" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "CreateLensShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lens-share)) (common-lisp:progn (common-lisp:defun create-lens-version @@ -14091,12 +14092,12 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/lenses/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "CreateLensVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-lens-version)) (common-lisp:progn (common-lisp:defun create-milestone @@ -14115,12 +14116,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/milestones" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "CreateMilestone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-milestone)) (common-lisp:progn (common-lisp:defun create-profile @@ -14139,7 +14141,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "POST" "/profiles" "CreateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profile)) (common-lisp:progn (common-lisp:defun create-profile-share @@ -14158,12 +14160,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profiles/~A/shares" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-arn)))) + 'profile-arn) + common-lisp:t))) "CreateProfileShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-profile-share)) (common-lisp:progn (common-lisp:defun create-review-template @@ -14182,7 +14185,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "POST" "/reviewTemplates" "CreateReviewTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-review-template)) (common-lisp:progn (common-lisp:defun create-template-share @@ -14201,12 +14204,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/shares/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "CreateTemplateShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-template-share)) (common-lisp:progn (common-lisp:defun create-workload @@ -14230,7 +14234,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "POST" "/workloads" "CreateWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workload)) (common-lisp:progn (common-lisp:defun create-workload-share @@ -14250,12 +14254,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/shares" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "CreateWorkloadShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workload-share)) (common-lisp:progn (common-lisp:defun delete-lens @@ -14274,12 +14279,12 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/lenses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "DeleteLens")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lens)) (common-lisp:progn (common-lisp:defun delete-lens-share @@ -14297,16 +14302,16 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/lenses/~A/shares/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'share-id)))) + aws-sdk/generator/operation::input 'share-id) + common-lisp:t))) "DeleteLensShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-lens-share)) (common-lisp:progn (common-lisp:defun delete-profile @@ -14324,12 +14329,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-arn)))) + 'profile-arn) + common-lisp:t))) "DeleteProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile)) (common-lisp:progn (common-lisp:defun delete-profile-share @@ -14348,16 +14354,17 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profiles/~A/shares/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-arn)) - (quri.encode:url-encode + 'profile-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'share-id)))) + aws-sdk/generator/operation::input 'share-id) + common-lisp:t))) "DeleteProfileShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-profile-share)) (common-lisp:progn (common-lisp:defun delete-review-template @@ -14375,12 +14382,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "DeleteReviewTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-review-template)) (common-lisp:progn (common-lisp:defun delete-template-share @@ -14399,16 +14407,17 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/shares/~A/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'share-id)))) + aws-sdk/generator/operation::input 'share-id) + common-lisp:t))) "DeleteTemplateShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-template-share)) (common-lisp:progn (common-lisp:defun delete-workload @@ -14426,12 +14435,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "DeleteWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workload)) (common-lisp:progn (common-lisp:defun delete-workload-share @@ -14450,16 +14460,17 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/shares/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'share-id)))) + aws-sdk/generator/operation::input 'share-id) + common-lisp:t))) "DeleteWorkloadShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workload-share)) (common-lisp:progn (common-lisp:defun disassociate-lenses @@ -14477,12 +14488,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/disassociateLenses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "DisassociateLenses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-lenses)) (common-lisp:progn (common-lisp:defun disassociate-profiles @@ -14500,12 +14512,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/disassociateProfiles" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "DisassociateProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-profiles)) (common-lisp:progn (common-lisp:defun export-lens @@ -14522,12 +14535,12 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/lenses/~A/export" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "ExportLens")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'export-lens)) (common-lisp:progn (common-lisp:defun get-answer @@ -14548,20 +14561,22 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews/~A/answers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'question-id)))) + 'question-id) + common-lisp:t))) "GetAnswer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-answer)) (common-lisp:progn (common-lisp:defun get-consolidated-report @@ -14580,7 +14595,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "GET" "/consolidatedReport" "GetConsolidatedReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-consolidated-report)) (common-lisp:progn (common-lisp:defun get-lens @@ -14597,12 +14612,12 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/lenses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "GetLens")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lens)) (common-lisp:progn (common-lisp:defun get-lens-review @@ -14620,16 +14635,17 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "GetLensReview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lens-review)) (common-lisp:progn (common-lisp:defun get-lens-review-report @@ -14648,16 +14664,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews/~A/report" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "GetLensReviewReport")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lens-review-report)) (common-lisp:progn (common-lisp:defun get-lens-version-difference @@ -14677,12 +14694,12 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/lenses/~A/versionDifference" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "GetLensVersionDifference")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-lens-version-difference)) (common-lisp:progn (common-lisp:defun get-milestone @@ -14699,16 +14716,18 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/milestones/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'milestone-number)))) + 'milestone-number) + common-lisp:t))) "GetMilestone")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-milestone)) (common-lisp:progn (common-lisp:defun get-profile @@ -14725,12 +14744,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-arn)))) + 'profile-arn) + common-lisp:t))) "GetProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-profile)) (common-lisp:progn (common-lisp:defun get-profile-template () @@ -14756,12 +14776,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "GetReviewTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-review-template)) (common-lisp:progn (common-lisp:defun get-review-template-answer @@ -14780,20 +14801,22 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A/lensReviews/~A/answers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'question-id)))) + 'question-id) + common-lisp:t))) "GetReviewTemplateAnswer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-review-template-answer)) (common-lisp:progn (common-lisp:defun get-review-template-lens-review @@ -14812,16 +14835,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A/lensReviews/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "GetReviewTemplateLensReview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-review-template-lens-review)) (common-lisp:progn (common-lisp:defun get-workload @@ -14838,12 +14862,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "GetWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-workload)) (common-lisp:progn (common-lisp:defun import-lens @@ -14861,7 +14886,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "PUT" "/importLens" "ImportLens")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-lens)) (common-lisp:progn (common-lisp:defun list-answers @@ -14882,16 +14907,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews/~A/answers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "ListAnswers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-answers)) (common-lisp:progn (common-lisp:defun list-check-details @@ -14911,12 +14937,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/checks" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "ListCheckDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-check-details)) (common-lisp:progn (common-lisp:defun list-check-summaries @@ -14936,12 +14963,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/checkSummaries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "ListCheckSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-check-summaries)) (common-lisp:progn (common-lisp:defun list-lens-review-improvements @@ -14963,16 +14991,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews/~A/improvements" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "ListLensReviewImprovements")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lens-review-improvements)) (common-lisp:progn (common-lisp:defun list-lens-reviews @@ -14992,12 +15021,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "ListLensReviews")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lens-reviews)) (common-lisp:progn (common-lisp:defun list-lens-shares @@ -15017,12 +15047,12 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/lenses/~A/shares" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "ListLensShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lens-shares)) (common-lisp:progn (common-lisp:defun list-lenses @@ -15041,7 +15071,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "GET" "/lenses" "ListLenses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-lenses)) (common-lisp:progn (common-lisp:defun list-milestones @@ -15060,12 +15090,13 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/milestonesSummaries" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "ListMilestones")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-milestones)) (common-lisp:progn (common-lisp:defun list-notifications @@ -15083,7 +15114,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "POST" "/notifications" "ListNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-notifications)) (common-lisp:progn (common-lisp:defun list-profile-notifications @@ -15100,7 +15131,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "GET" "/profileNotifications/" "ListProfileNotifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profile-notifications)) (common-lisp:progn (common-lisp:defun list-profile-shares @@ -15120,12 +15151,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profiles/~A/shares" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-arn)))) + 'profile-arn) + common-lisp:t))) "ListProfileShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profile-shares)) (common-lisp:progn (common-lisp:defun list-profiles @@ -15144,7 +15176,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "GET" "/profileSummaries" "ListProfiles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-profiles)) (common-lisp:progn (common-lisp:defun list-review-template-answers @@ -15166,16 +15198,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A/lensReviews/~A/answers" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "ListReviewTemplateAnswers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-review-template-answers)) (common-lisp:progn (common-lisp:defun list-review-templates @@ -15191,7 +15224,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "GET" "/reviewTemplates" "ListReviewTemplates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-review-templates)) (common-lisp:progn (common-lisp:defun list-share-invitations @@ -15212,7 +15245,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "GET" "/shareInvitations" "ListShareInvitations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-share-invitations)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -15229,12 +15262,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-arn)))) + 'workload-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-template-shares @@ -15254,12 +15288,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/templates/shares/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "ListTemplateShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-template-shares)) (common-lisp:progn (common-lisp:defun list-workload-shares @@ -15279,12 +15314,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/shares" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "ListWorkloadShares")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workload-shares)) (common-lisp:progn (common-lisp:defun list-workloads @@ -15302,7 +15338,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "POST" "/workloadsSummaries" "ListWorkloads")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-workloads)) (common-lisp:progn (common-lisp:defun tag-resource @@ -15319,12 +15355,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-arn)))) + 'workload-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -15341,12 +15378,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-arn)))) + 'workload-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-answer @@ -15368,20 +15406,22 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews/~A/answers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'question-id)))) + 'question-id) + common-lisp:t))) "UpdateAnswer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-answer)) (common-lisp:progn (common-lisp:defun update-global-settings @@ -15400,7 +15440,7 @@ (aws-sdk/generator/shape:make-request-with-input 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" "/global-settings" "UpdateGlobalSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-global-settings)) (common-lisp:progn (common-lisp:defun update-lens-review @@ -15419,16 +15459,17 @@ 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "UpdateLensReview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-lens-review)) (common-lisp:progn (common-lisp:defun update-profile @@ -15447,12 +15488,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/profiles/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-arn)))) + 'profile-arn) + common-lisp:t))) "UpdateProfile")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-profile)) (common-lisp:progn (common-lisp:defun update-review-template @@ -15472,12 +15514,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)))) + 'template-arn) + common-lisp:t))) "UpdateReviewTemplate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-review-template)) (common-lisp:progn (common-lisp:defun update-review-template-answer @@ -15500,20 +15543,22 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A/lensReviews/~A/answers/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)) - (quri.encode:url-encode + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'question-id)))) + 'question-id) + common-lisp:t))) "UpdateReviewTemplateAnswer")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-review-template-answer)) (common-lisp:progn (common-lisp:defun update-review-template-lens-review @@ -15534,16 +15579,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A/lensReviews/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "UpdateReviewTemplateLensReview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-review-template-lens-review)) (common-lisp:progn (common-lisp:defun update-share-invitation @@ -15562,12 +15608,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/shareInvitations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'share-invitation-id)))) + 'share-invitation-id) + common-lisp:t))) "UpdateShareInvitation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-share-invitation)) (common-lisp:progn (common-lisp:defun update-workload @@ -15593,12 +15640,13 @@ 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)))) + 'workload-id) + common-lisp:t))) "UpdateWorkload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workload)) (common-lisp:progn (common-lisp:defun update-workload-share @@ -15616,16 +15664,17 @@ 'wellarchitected-request aws-sdk/generator/operation::input "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/shares/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'share-id)))) + aws-sdk/generator/operation::input 'share-id) + common-lisp:t))) "UpdateWorkloadShare")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workload-share)) (common-lisp:progn (common-lisp:defun upgrade-lens-review @@ -15646,16 +15695,17 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/lensReviews/~A/upgrade" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "UpgradeLensReview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upgrade-lens-review)) (common-lisp:progn (common-lisp:defun upgrade-profile-version @@ -15676,16 +15726,18 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/workloads/~A/profiles/~A/upgrade" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'workload-id)) - (quri.encode:url-encode + 'workload-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'profile-arn)))) + 'profile-arn) + common-lisp:t))) "UpgradeProfileVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upgrade-profile-version)) (common-lisp:progn (common-lisp:defun upgrade-review-template-lens-review @@ -15706,14 +15758,15 @@ (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/reviewTemplates/~A/lensReviews/~A/upgrade" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'template-arn)) - (quri.encode:url-encode + 'template-arn) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'lens-alias)))) + aws-sdk/generator/operation::input 'lens-alias) + common-lisp:t))) "UpgradeReviewTemplateLensReview")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'upgrade-review-template-lens-review)) diff --git a/services/wisdom/api.lisp b/services/wisdom/api.lisp index c3600af6..7e1d908c 100644 --- a/services/wisdom/api.lisp +++ b/services/wisdom/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/wisdom/api - (:use) - (:nicknames #:aws/wisdom) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/wisdom/api (:use) + (:nicknames #:aws/wisdom) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/wisdom/api) (common-lisp:progn (common-lisp:define-condition wisdom-error @@ -20,7 +19,7 @@ (common-lisp:export 'wisdom-error)) (common-lisp:progn (common-lisp:defclass wisdom-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "wisdom" :api-version "2020-10-19" :host-prefix "wisdom" :signing-name @@ -8911,7 +8910,7 @@ aws-sdk/generator/operation::input "POST" "/assistants" "CreateAssistant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assistant)) (common-lisp:progn (common-lisp:defun create-assistant-association @@ -8937,12 +8936,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "CreateAssistantAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-assistant-association)) (common-lisp:progn (common-lisp:defun create-content @@ -8967,12 +8967,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "CreateContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-content)) (common-lisp:progn (common-lisp:defun create-knowledge-base @@ -8996,7 +8997,7 @@ "POST" "/knowledgeBases" "CreateKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-knowledge-base)) (common-lisp:progn (common-lisp:defun create-quick-response @@ -9023,12 +9024,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "CreateQuickResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-quick-response)) (common-lisp:progn (common-lisp:defun create-session @@ -9052,12 +9054,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/sessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "CreateSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-session)) (common-lisp:progn (common-lisp:defun delete-assistant @@ -9079,12 +9082,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "DeleteAssistant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assistant)) (common-lisp:progn (common-lisp:defun delete-assistant-association @@ -9108,16 +9112,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-association-id)))) + 'assistant-association-id) + common-lisp:t))) "DeleteAssistantAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-assistant-association)) (common-lisp:progn (common-lisp:defun delete-content @@ -9139,16 +9145,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'content-id)))) + 'content-id) + common-lisp:t))) "DeleteContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-content)) (common-lisp:progn (common-lisp:defun delete-import-job @@ -9171,16 +9179,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/importJobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'import-job-id)))) + 'import-job-id) + common-lisp:t))) "DeleteImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-import-job)) (common-lisp:progn (common-lisp:defun delete-knowledge-base @@ -9202,12 +9212,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "DeleteKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-knowledge-base)) (common-lisp:progn (common-lisp:defun delete-quick-response @@ -9230,16 +9241,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-response-id)))) + 'quick-response-id) + common-lisp:t))) "DeleteQuickResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-quick-response)) (common-lisp:progn (common-lisp:defun get-assistant @@ -9261,12 +9274,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "GetAssistant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assistant)) (common-lisp:progn (common-lisp:defun get-assistant-association @@ -9290,16 +9304,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/associations/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-association-id)))) + 'assistant-association-id) + common-lisp:t))) "GetAssistantAssociation")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-assistant-association)) (common-lisp:progn (common-lisp:defun get-content @@ -9321,16 +9337,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'content-id)))) + 'content-id) + common-lisp:t))) "GetContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-content)) (common-lisp:progn (common-lisp:defun get-content-summary @@ -9352,16 +9370,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents/~A/summary" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'content-id)))) + 'content-id) + common-lisp:t))) "GetContentSummary")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-content-summary)) (common-lisp:progn (common-lisp:defun get-import-job @@ -9384,16 +9404,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/importJobs/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'import-job-id)))) + 'import-job-id) + common-lisp:t))) "GetImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-import-job)) (common-lisp:progn (common-lisp:defun get-knowledge-base @@ -9415,12 +9437,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "GetKnowledgeBase")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-knowledge-base)) (common-lisp:progn (common-lisp:defun get-quick-response @@ -9443,16 +9466,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-response-id)))) + 'quick-response-id) + common-lisp:t))) "GetQuickResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-quick-response)) (common-lisp:progn (common-lisp:defun get-recommendations @@ -9477,16 +9502,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/sessions/~A/recommendations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "GetRecommendations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-recommendations)) (common-lisp:progn (common-lisp:defun get-session @@ -9508,16 +9535,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/sessions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "GetSession")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-session)) (common-lisp:progn (common-lisp:defun list-assistant-associations @@ -9541,12 +9570,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/associations" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "ListAssistantAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assistant-associations)) (common-lisp:progn (common-lisp:defun list-assistants @@ -9563,7 +9593,7 @@ aws-sdk/generator/operation::input "GET" "/assistants" "ListAssistants")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-assistants)) (common-lisp:progn (common-lisp:defun list-contents @@ -9586,12 +9616,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "ListContents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-contents)) (common-lisp:progn (common-lisp:defun list-import-jobs @@ -9614,12 +9645,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/importJobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "ListImportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-import-jobs)) (common-lisp:progn (common-lisp:defun list-knowledge-bases @@ -9636,7 +9668,7 @@ aws-sdk/generator/operation::input "GET" "/knowledgeBases" "ListKnowledgeBases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-knowledge-bases)) (common-lisp:progn (common-lisp:defun list-quick-responses @@ -9659,12 +9691,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "ListQuickResponses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-quick-responses)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -9686,12 +9719,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun notify-recommendations-received @@ -9716,16 +9750,18 @@ (common-lisp:format common-lisp:nil "/assistants/~A/sessions/~A/recommendations/notify" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)) - (quri.encode:url-encode + 'assistant-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'session-id)))) + 'session-id) + common-lisp:t))) "NotifyRecommendationsReceived")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'notify-recommendations-received)) (common-lisp:progn (common-lisp:defun query-assistant @@ -9749,12 +9785,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/query" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "QueryAssistant")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'query-assistant)) (common-lisp:progn (common-lisp:defun remove-knowledge-base-template-uri @@ -9777,12 +9814,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/templateUri" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "RemoveKnowledgeBaseTemplateUri")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-knowledge-base-template-uri)) (common-lisp:progn (common-lisp:defun search-content @@ -9807,12 +9845,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/search" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "SearchContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-content)) (common-lisp:progn (common-lisp:defun search-quick-responses @@ -9837,12 +9876,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/search/quickResponses" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "SearchQuickResponses")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-quick-responses)) (common-lisp:progn (common-lisp:defun search-sessions @@ -9867,12 +9907,13 @@ (common-lisp:format common-lisp:nil "/assistants/~A/searchSessions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'assistant-id)))) + 'assistant-id) + common-lisp:t))) "SearchSessions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-sessions)) (common-lisp:progn (common-lisp:defun start-content-upload @@ -9897,12 +9938,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/upload" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "StartContentUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-content-upload)) (common-lisp:progn (common-lisp:defun start-import-job @@ -9928,12 +9970,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/importJobs" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "StartImportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-import-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -9955,12 +9998,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -9982,12 +10026,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-content @@ -10014,16 +10059,18 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/contents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'content-id)))) + 'content-id) + common-lisp:t))) "UpdateContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-content)) (common-lisp:progn (common-lisp:defun update-knowledge-base-template-uri @@ -10046,12 +10093,13 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/templateUri" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)))) + 'knowledge-base-id) + common-lisp:t))) "UpdateKnowledgeBaseTemplateUri")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-knowledge-base-template-uri)) (common-lisp:progn (common-lisp:defun update-quick-response @@ -10081,14 +10129,16 @@ (common-lisp:format common-lisp:nil "/knowledgeBases/~A/quickResponses/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'knowledge-base-id)) - (quri.encode:url-encode + 'knowledge-base-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'quick-response-id)))) + 'quick-response-id) + common-lisp:t))) "UpdateQuickResponse")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-quick-response)) diff --git a/services/workdocs/api.lisp b/services/workdocs/api.lisp index dcd23b6b..4a9b835f 100644 --- a/services/workdocs/api.lisp +++ b/services/workdocs/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/workdocs/api - (:use) - (:nicknames #:aws/workdocs) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/workdocs/api (:use) + (:nicknames #:aws/workdocs) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/workdocs/api) (common-lisp:progn (common-lisp:define-condition workdocs-error @@ -20,7 +19,7 @@ (common-lisp:export 'workdocs-error)) (common-lisp:progn (common-lisp:defclass workdocs-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "workdocs" :api-version "2016-05-01" :host-prefix "workdocs" :signing-name @@ -100,7 +99,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -142,7 +143,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -374,7 +377,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -788,7 +793,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -922,7 +929,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1006,7 +1015,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1107,7 +1118,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1346,7 +1359,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input create-user-request)) (common-lisp:append @@ -1540,7 +1555,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1605,7 +1622,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1673,7 +1692,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1744,7 +1765,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1807,7 +1830,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1853,7 +1878,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1896,7 +1923,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -1952,7 +1981,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2056,7 +2087,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input delete-user-request)) (common-lisp:append)) @@ -2148,7 +2181,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2265,7 +2300,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2388,7 +2425,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2525,7 +2564,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2655,7 +2696,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2869,7 +2912,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -2977,7 +3022,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3117,7 +3164,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -3969,7 +4018,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4069,7 +4120,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4155,7 +4208,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-document-request)) (common-lisp:append)) @@ -4269,7 +4324,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4383,7 +4440,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4467,7 +4526,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input get-folder-request)) (common-lisp:append)) @@ -4569,7 +4630,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -4783,7 +4846,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5245,7 +5310,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5304,7 +5371,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5675,7 +5744,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -5891,7 +5962,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6480,7 +6553,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6563,7 +6638,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6632,7 +6709,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ( (aws-sdk/generator/shape::input @@ -6739,7 +6818,9 @@ (common-lisp:slot-value aws-sdk/generator/shape::input 'authentication-token)) - (common-lisp:cons "Authentication" aws-sdk/generator/shape::value)))) + (common-lisp:cons + (common-lisp:cons "Authentication" aws-sdk/generator/shape::value) + common-lisp:nil)))) (common-lisp:defmethod aws-sdk/generator/shape::input-params ((aws-sdk/generator/shape::input update-user-request)) (common-lisp:append @@ -7259,16 +7340,18 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)) - (quri.encode:url-encode + 'document-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)))) + 'version-id) + common-lisp:t))) "AbortDocumentVersionUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'abort-document-version-upload)) (common-lisp:progn (common-lisp:defun activate-user @@ -7290,12 +7373,13 @@ (common-lisp:format common-lisp:nil "/api/v1/users/~A/activation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "ActivateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'activate-user)) (common-lisp:progn (common-lisp:defun add-resource-permissions @@ -7320,12 +7404,13 @@ (common-lisp:format common-lisp:nil "/api/v1/resources/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "AddResourcePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'add-resource-permissions)) (common-lisp:progn (common-lisp:defun create-comment @@ -7351,16 +7436,18 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A/versions/~A/comment" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)) - (quri.encode:url-encode + 'document-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)))) + 'version-id) + common-lisp:t))) "CreateComment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-comment)) (common-lisp:progn (common-lisp:defun create-custom-metadata @@ -7385,12 +7472,13 @@ (common-lisp:format common-lisp:nil "/api/v1/resources/~A/customMetadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "CreateCustomMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-custom-metadata)) (common-lisp:progn (common-lisp:defun create-folder @@ -7410,7 +7498,7 @@ "POST" "/api/v1/folders" "CreateFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-folder)) (common-lisp:progn (common-lisp:defun create-labels @@ -7433,12 +7521,13 @@ (common-lisp:format common-lisp:nil "/api/v1/resources/~A/labels" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "CreateLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-labels)) (common-lisp:progn (common-lisp:defun create-notification-subscription @@ -7464,12 +7553,13 @@ (common-lisp:format common-lisp:nil "/api/v1/organizations/~A/subscriptions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'organization-id)))) + 'organization-id) + common-lisp:t))) "CreateNotificationSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-notification-subscription)) (common-lisp:progn (common-lisp:defun create-user @@ -7490,7 +7580,7 @@ aws-sdk/generator/operation::input "POST" "/api/v1/users" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun deactivate-user @@ -7512,12 +7602,13 @@ (common-lisp:format common-lisp:nil "/api/v1/users/~A/activation" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DeactivateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deactivate-user)) (common-lisp:progn (common-lisp:defun delete-comment @@ -7542,20 +7633,23 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A/versions/~A/comment/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)) - (quri.encode:url-encode + 'document-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)) - (quri.encode:url-encode + 'version-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'comment-id)))) + 'comment-id) + common-lisp:t))) "DeleteComment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-comment)) (common-lisp:progn (common-lisp:defun delete-custom-metadata @@ -7580,12 +7674,13 @@ (common-lisp:format common-lisp:nil "/api/v1/resources/~A/customMetadata" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "DeleteCustomMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-custom-metadata)) (common-lisp:progn (common-lisp:defun delete-document @@ -7608,12 +7703,13 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)))) + 'document-id) + common-lisp:t))) "DeleteDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-document)) (common-lisp:progn (common-lisp:defun delete-document-version @@ -7638,16 +7734,18 @@ (common-lisp:format common-lisp:nil "/api/v1/documentVersions/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)) - (quri.encode:url-encode + 'document-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)))) + 'version-id) + common-lisp:t))) "DeleteDocumentVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-document-version)) (common-lisp:progn (common-lisp:defun delete-folder @@ -7669,12 +7767,13 @@ (common-lisp:format common-lisp:nil "/api/v1/folders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "DeleteFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-folder)) (common-lisp:progn (common-lisp:defun delete-folder-contents @@ -7696,12 +7795,13 @@ (common-lisp:format common-lisp:nil "/api/v1/folders/~A/contents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "DeleteFolderContents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-folder-contents)) (common-lisp:progn (common-lisp:defun delete-labels @@ -7725,12 +7825,13 @@ (common-lisp:format common-lisp:nil "/api/v1/resources/~A/labels" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "DeleteLabels")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-labels)) (common-lisp:progn (common-lisp:defun delete-notification-subscription @@ -7754,16 +7855,18 @@ (common-lisp:format common-lisp:nil "/api/v1/organizations/~A/subscriptions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'organization-id)) - (quri.encode:url-encode + 'organization-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'subscription-id)))) + 'subscription-id) + common-lisp:t))) "DeleteNotificationSubscription")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-notification-subscription)) (common-lisp:progn (common-lisp:defun delete-user @@ -7785,12 +7888,13 @@ (common-lisp:format common-lisp:nil "/api/v1/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun describe-activities @@ -7813,7 +7917,7 @@ "GET" "/api/v1/activities" "DescribeActivities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-activities)) (common-lisp:progn (common-lisp:defun describe-comments @@ -7838,16 +7942,18 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A/versions/~A/comments" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)) - (quri.encode:url-encode + 'document-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)))) + 'version-id) + common-lisp:t))) "DescribeComments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-comments)) (common-lisp:progn (common-lisp:defun describe-document-versions @@ -7873,12 +7979,13 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A/versions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)))) + 'document-id) + common-lisp:t))) "DescribeDocumentVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-document-versions)) (common-lisp:progn (common-lisp:defun describe-folder-contents @@ -7903,12 +8010,13 @@ (common-lisp:format common-lisp:nil "/api/v1/folders/~A/contents" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "DescribeFolderContents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-folder-contents)) (common-lisp:progn (common-lisp:defun describe-groups @@ -7928,7 +8036,7 @@ aws-sdk/generator/operation::input "GET" "/api/v1/groups" "DescribeGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-groups)) (common-lisp:progn (common-lisp:defun describe-notification-subscriptions @@ -7951,12 +8059,13 @@ (common-lisp:format common-lisp:nil "/api/v1/organizations/~A/subscriptions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'organization-id)))) + 'organization-id) + common-lisp:t))) "DescribeNotificationSubscriptions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-notification-subscriptions)) (common-lisp:progn (common-lisp:defun describe-resource-permissions @@ -7982,12 +8091,13 @@ (common-lisp:format common-lisp:nil "/api/v1/resources/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "DescribeResourcePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource-permissions)) (common-lisp:progn (common-lisp:defun describe-root-folders @@ -8005,7 +8115,7 @@ aws-sdk/generator/operation::input "GET" "/api/v1/me/root" "DescribeRootFolders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-root-folders)) (common-lisp:progn (common-lisp:defun describe-users @@ -8025,7 +8135,7 @@ aws-sdk/generator/operation::input "GET" "/api/v1/users" "DescribeUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-users)) (common-lisp:progn (common-lisp:defun get-current-user @@ -8042,7 +8152,7 @@ aws-sdk/generator/operation::input "GET" "/api/v1/me" "GetCurrentUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-current-user)) (common-lisp:progn (common-lisp:defun get-document @@ -8067,12 +8177,13 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)))) + 'document-id) + common-lisp:t))) "GetDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-document)) (common-lisp:progn (common-lisp:defun get-document-path @@ -8097,12 +8208,13 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A/path" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)))) + 'document-id) + common-lisp:t))) "GetDocumentPath")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-document-path)) (common-lisp:progn (common-lisp:defun get-document-version @@ -8127,16 +8239,18 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)) - (quri.encode:url-encode + 'document-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)))) + 'version-id) + common-lisp:t))) "GetDocumentVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-document-version)) (common-lisp:progn (common-lisp:defun get-folder @@ -8161,12 +8275,13 @@ (common-lisp:format common-lisp:nil "/api/v1/folders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "GetFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-folder)) (common-lisp:progn (common-lisp:defun get-folder-path @@ -8190,12 +8305,13 @@ (common-lisp:format common-lisp:nil "/api/v1/folders/~A/path" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "GetFolderPath")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-folder-path)) (common-lisp:progn (common-lisp:defun get-resources @@ -8216,7 +8332,7 @@ "GET" "/api/v1/resources" "GetResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-resources)) (common-lisp:progn (common-lisp:defun initiate-document-version-upload @@ -8240,7 +8356,7 @@ "POST" "/api/v1/documents" "InitiateDocumentVersionUpload")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'initiate-document-version-upload)) (common-lisp:progn (common-lisp:defun remove-all-resource-permissions @@ -8264,12 +8380,13 @@ (common-lisp:format common-lisp:nil "/api/v1/resources/~A/permissions" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)))) + 'resource-id) + common-lisp:t))) "RemoveAllResourcePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-all-resource-permissions)) (common-lisp:progn (common-lisp:defun remove-resource-permission @@ -8295,16 +8412,18 @@ (common-lisp:format common-lisp:nil "/api/v1/resources/~A/permissions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-id)) - (quri.encode:url-encode + 'resource-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'principal-id)))) + 'principal-id) + common-lisp:t))) "RemoveResourcePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'remove-resource-permission)) (common-lisp:progn (common-lisp:defun restore-document-versions @@ -8328,12 +8447,13 @@ (common-lisp:format common-lisp:nil "/api/v1/documentVersions/restore/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)))) + 'document-id) + common-lisp:t))) "RestoreDocumentVersions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-document-versions)) (common-lisp:progn (common-lisp:defun search-resources @@ -8354,7 +8474,7 @@ aws-sdk/generator/operation::input "POST" "/api/v1/search" "SearchResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'search-resources)) (common-lisp:progn (common-lisp:defun update-document @@ -8379,12 +8499,13 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)))) + 'document-id) + common-lisp:t))) "UpdateDocument")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-document)) (common-lisp:progn (common-lisp:defun update-document-version @@ -8409,16 +8530,18 @@ (common-lisp:format common-lisp:nil "/api/v1/documents/~A/versions/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'document-id)) - (quri.encode:url-encode + 'document-id) + common-lisp:t) + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'version-id)))) + 'version-id) + common-lisp:t))) "UpdateDocumentVersion")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-document-version)) (common-lisp:progn (common-lisp:defun update-folder @@ -8443,12 +8566,13 @@ (common-lisp:format common-lisp:nil "/api/v1/folders/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'folder-id)))) + 'folder-id) + common-lisp:t))) "UpdateFolder")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-folder)) (common-lisp:progn (common-lisp:defun update-user @@ -8474,10 +8598,11 @@ (common-lisp:format common-lisp:nil "/api/v1/users/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'user-id)))) + 'user-id) + common-lisp:t))) "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) diff --git a/services/worklink/api.lisp b/services/worklink/api.lisp index 2828a3f3..35782630 100644 --- a/services/worklink/api.lisp +++ b/services/worklink/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/worklink/api - (:use) - (:nicknames #:aws/worklink) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/worklink/api (:use) + (:nicknames #:aws/worklink) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/worklink/api) (common-lisp:progn (common-lisp:define-condition worklink-error @@ -20,7 +19,7 @@ (common-lisp:export 'worklink-error)) (common-lisp:progn (common-lisp:defclass worklink-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "worklink" :api-version "2018-09-25" :host-prefix "worklink" :signing-name @@ -3873,7 +3872,7 @@ "POST" "/associateDomain" "AssociateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-domain)) (common-lisp:progn (common-lisp:defun associate-website-authorization-provider @@ -3894,7 +3893,7 @@ "POST" "/associateWebsiteAuthorizationProvider" "AssociateWebsiteAuthorizationProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-website-authorization-provider)) (common-lisp:progn (common-lisp:defun associate-website-certificate-authority @@ -3914,7 +3913,7 @@ "POST" "/associateWebsiteCertificateAuthority" "AssociateWebsiteCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-website-certificate-authority)) (common-lisp:progn (common-lisp:defun create-fleet @@ -3934,7 +3933,7 @@ aws-sdk/generator/operation::input "POST" "/createFleet" "CreateFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-fleet)) (common-lisp:progn (common-lisp:defun delete-fleet @@ -3951,7 +3950,7 @@ aws-sdk/generator/operation::input "POST" "/deleteFleet" "DeleteFleet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-fleet)) (common-lisp:progn (common-lisp:defun describe-audit-stream-configuration @@ -3970,7 +3969,7 @@ "POST" "/describeAuditStreamConfiguration" "DescribeAuditStreamConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-audit-stream-configuration)) (common-lisp:progn (common-lisp:defun describe-company-network-configuration @@ -3989,7 +3988,7 @@ "POST" "/describeCompanyNetworkConfiguration" "DescribeCompanyNetworkConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-company-network-configuration)) (common-lisp:progn (common-lisp:defun describe-device @@ -4007,7 +4006,7 @@ "POST" "/describeDevice" "DescribeDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device)) (common-lisp:progn (common-lisp:defun describe-device-policy-configuration @@ -4026,7 +4025,7 @@ "POST" "/describeDevicePolicyConfiguration" "DescribeDevicePolicyConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-device-policy-configuration)) (common-lisp:progn (common-lisp:defun describe-domain @@ -4044,7 +4043,7 @@ "POST" "/describeDomain" "DescribeDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-domain)) (common-lisp:progn (common-lisp:defun describe-fleet-metadata @@ -4062,7 +4061,7 @@ "POST" "/describeFleetMetadata" "DescribeFleetMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-fleet-metadata)) (common-lisp:progn (common-lisp:defun describe-identity-provider-configuration @@ -4081,7 +4080,7 @@ "POST" "/describeIdentityProviderConfiguration" "DescribeIdentityProviderConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-identity-provider-configuration)) (common-lisp:progn (common-lisp:defun describe-website-certificate-authority @@ -4100,7 +4099,7 @@ "POST" "/describeWebsiteCertificateAuthority" "DescribeWebsiteCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-website-certificate-authority)) (common-lisp:progn (common-lisp:defun disassociate-domain @@ -4118,7 +4117,7 @@ "POST" "/disassociateDomain" "DisassociateDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-domain)) (common-lisp:progn (common-lisp:defun disassociate-website-authorization-provider @@ -4138,7 +4137,7 @@ "POST" "/disassociateWebsiteAuthorizationProvider" "DisassociateWebsiteAuthorizationProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-website-authorization-provider)) (common-lisp:progn (common-lisp:defun disassociate-website-certificate-authority @@ -4157,7 +4156,7 @@ "POST" "/disassociateWebsiteCertificateAuthority" "DisassociateWebsiteCertificateAuthority")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-website-certificate-authority)) (common-lisp:progn (common-lisp:defun list-devices @@ -4175,7 +4174,7 @@ aws-sdk/generator/operation::input "POST" "/listDevices" "ListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices)) (common-lisp:progn (common-lisp:defun list-domains @@ -4193,7 +4192,7 @@ aws-sdk/generator/operation::input "POST" "/listDomains" "ListDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-domains)) (common-lisp:progn (common-lisp:defun list-fleets @@ -4210,7 +4209,7 @@ aws-sdk/generator/operation::input "POST" "/listFleets" "ListFleets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-fleets)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -4232,12 +4231,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-website-authorization-providers @@ -4257,7 +4257,7 @@ "POST" "/listWebsiteAuthorizationProviders" "ListWebsiteAuthorizationProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-website-authorization-providers)) (common-lisp:progn (common-lisp:defun list-website-certificate-authorities @@ -4277,7 +4277,7 @@ "POST" "/listWebsiteCertificateAuthorities" "ListWebsiteCertificateAuthorities")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-website-certificate-authorities)) (common-lisp:progn (common-lisp:defun restore-domain-access @@ -4295,7 +4295,7 @@ "POST" "/restoreDomainAccess" "RestoreDomainAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-domain-access)) (common-lisp:progn (common-lisp:defun revoke-domain-access @@ -4313,7 +4313,7 @@ "POST" "/revokeDomainAccess" "RevokeDomainAccess")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-domain-access)) (common-lisp:progn (common-lisp:defun sign-out-user @@ -4330,7 +4330,7 @@ aws-sdk/generator/operation::input "POST" "/signOutUser" "SignOutUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'sign-out-user)) (common-lisp:progn (common-lisp:defun tag-resource @@ -4352,12 +4352,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -4379,12 +4380,13 @@ (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-audit-stream-configuration @@ -4403,7 +4405,7 @@ "POST" "/updateAuditStreamConfiguration" "UpdateAuditStreamConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-audit-stream-configuration)) (common-lisp:progn (common-lisp:defun update-company-network-configuration @@ -4424,7 +4426,7 @@ "POST" "/updateCompanyNetworkConfiguration" "UpdateCompanyNetworkConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-company-network-configuration)) (common-lisp:progn (common-lisp:defun update-device-policy-configuration @@ -4444,7 +4446,7 @@ "POST" "/updateDevicePolicyConfiguration" "UpdateDevicePolicyConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device-policy-configuration)) (common-lisp:progn (common-lisp:defun update-domain-metadata @@ -4463,7 +4465,7 @@ "POST" "/updateDomainMetadata" "UpdateDomainMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-domain-metadata)) (common-lisp:progn (common-lisp:defun update-fleet-metadata @@ -4484,7 +4486,7 @@ "POST" "/UpdateFleetMetadata" "UpdateFleetMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-fleet-metadata)) (common-lisp:progn (common-lisp:defun update-identity-provider-configuration @@ -4506,5 +4508,5 @@ "POST" "/updateIdentityProviderConfiguration" "UpdateIdentityProviderConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-identity-provider-configuration)) diff --git a/services/workmail/api.lisp b/services/workmail/api.lisp index 34d3975c..ee3a941c 100644 --- a/services/workmail/api.lisp +++ b/services/workmail/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/workmail/api - (:use) - (:nicknames #:aws/workmail) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/workmail/api (:use) + (:nicknames #:aws/workmail) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/workmail/api) (common-lisp:progn (common-lisp:define-condition workmail-error @@ -13549,7 +13548,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateDelegateToResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-delegate-to-resource)) (common-lisp:progn (common-lisp:defun associate-member-to-group @@ -13568,7 +13567,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateMemberToGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-member-to-group)) (common-lisp:progn (common-lisp:defun assume-impersonation-role @@ -13587,7 +13586,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssumeImpersonationRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'assume-impersonation-role)) (common-lisp:progn (common-lisp:defun cancel-mailbox-export-job @@ -13606,7 +13605,7 @@ aws-sdk/generator/operation::input "POST" "/" "CancelMailboxExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'cancel-mailbox-export-job)) (common-lisp:progn (common-lisp:defun create-alias @@ -13624,7 +13623,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-alias)) (common-lisp:progn (common-lisp:defun create-availability-configuration @@ -13645,7 +13644,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateAvailabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-availability-configuration)) (common-lisp:progn (common-lisp:defun create-group @@ -13665,7 +13664,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun create-impersonation-role @@ -13686,7 +13685,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateImpersonationRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-impersonation-role)) (common-lisp:progn (common-lisp:defun create-mobile-device-access-rule @@ -13712,7 +13711,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateMobileDeviceAccessRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-mobile-device-access-rule)) (common-lisp:progn (common-lisp:defun create-organization @@ -13732,7 +13731,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-organization)) (common-lisp:progn (common-lisp:defun create-resource @@ -13752,7 +13751,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-resource)) (common-lisp:progn (common-lisp:defun create-user @@ -13773,7 +13772,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user)) (common-lisp:progn (common-lisp:defun delete-access-control-rule @@ -13791,7 +13790,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAccessControlRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-access-control-rule)) (common-lisp:progn (common-lisp:defun delete-alias @@ -13809,7 +13808,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-alias)) (common-lisp:progn (common-lisp:defun delete-availability-configuration @@ -13827,7 +13826,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteAvailabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-availability-configuration)) (common-lisp:progn (common-lisp:defun delete-email-monitoring-configuration @@ -13845,7 +13844,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteEmailMonitoringConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-email-monitoring-configuration)) (common-lisp:progn (common-lisp:defun delete-group @@ -13862,7 +13861,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun delete-impersonation-role @@ -13881,7 +13880,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteImpersonationRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-impersonation-role)) (common-lisp:progn (common-lisp:defun delete-mailbox-permissions @@ -13900,7 +13899,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMailboxPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mailbox-permissions)) (common-lisp:progn (common-lisp:defun delete-mobile-device-access-override @@ -13919,7 +13918,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMobileDeviceAccessOverride")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mobile-device-access-override)) (common-lisp:progn (common-lisp:defun delete-mobile-device-access-rule @@ -13939,7 +13938,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteMobileDeviceAccessRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-mobile-device-access-rule)) (common-lisp:progn (common-lisp:defun delete-organization @@ -13959,7 +13958,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-organization)) (common-lisp:progn (common-lisp:defun delete-resource @@ -13976,7 +13975,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource)) (common-lisp:progn (common-lisp:defun delete-retention-policy @@ -13993,7 +13992,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteRetentionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-retention-policy)) (common-lisp:progn (common-lisp:defun delete-user @@ -14010,7 +14009,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user)) (common-lisp:progn (common-lisp:defun deregister-from-work-mail @@ -14028,7 +14027,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterFromWorkMail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-from-work-mail)) (common-lisp:progn (common-lisp:defun deregister-mail-domain @@ -14045,7 +14044,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterMailDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-mail-domain)) (common-lisp:progn (common-lisp:defun describe-email-monitoring-configuration @@ -14063,7 +14062,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEmailMonitoringConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-email-monitoring-configuration)) (common-lisp:progn (common-lisp:defun describe-entity @@ -14080,7 +14079,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeEntity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-entity)) (common-lisp:progn (common-lisp:defun describe-group @@ -14097,7 +14096,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-group)) (common-lisp:progn (common-lisp:defun describe-inbound-dmarc-settings @@ -14115,7 +14114,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeInboundDmarcSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-inbound-dmarc-settings)) (common-lisp:progn (common-lisp:defun describe-mailbox-export-job @@ -14133,7 +14132,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeMailboxExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-mailbox-export-job)) (common-lisp:progn (common-lisp:defun describe-organization @@ -14150,7 +14149,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeOrganization")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-organization)) (common-lisp:progn (common-lisp:defun describe-resource @@ -14167,7 +14166,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-resource)) (common-lisp:progn (common-lisp:defun describe-user @@ -14184,7 +14183,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-user)) (common-lisp:progn (common-lisp:defun disassociate-delegate-from-resource @@ -14203,7 +14202,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateDelegateFromResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-delegate-from-resource)) (common-lisp:progn (common-lisp:defun disassociate-member-from-group @@ -14222,7 +14221,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateMemberFromGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-member-from-group)) (common-lisp:progn (common-lisp:defun get-access-control-effect @@ -14243,7 +14242,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetAccessControlEffect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-access-control-effect)) (common-lisp:progn (common-lisp:defun get-default-retention-policy @@ -14261,7 +14260,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetDefaultRetentionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-default-retention-policy)) (common-lisp:progn (common-lisp:defun get-impersonation-role @@ -14279,7 +14278,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetImpersonationRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-impersonation-role)) (common-lisp:progn (common-lisp:defun get-impersonation-role-effect @@ -14299,7 +14298,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetImpersonationRoleEffect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-impersonation-role-effect)) (common-lisp:progn (common-lisp:defun get-mail-domain @@ -14316,7 +14315,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMailDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mail-domain)) (common-lisp:progn (common-lisp:defun get-mailbox-details @@ -14333,7 +14332,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMailboxDetails")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mailbox-details)) (common-lisp:progn (common-lisp:defun get-mobile-device-access-effect @@ -14354,7 +14353,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMobileDeviceAccessEffect")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mobile-device-access-effect)) (common-lisp:progn (common-lisp:defun get-mobile-device-access-override @@ -14373,7 +14372,7 @@ aws-sdk/generator/operation::input "POST" "/" "GetMobileDeviceAccessOverride")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-mobile-device-access-override)) (common-lisp:progn (common-lisp:defun list-access-control-rules @@ -14391,7 +14390,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAccessControlRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-access-control-rules)) (common-lisp:progn (common-lisp:defun list-aliases @@ -14410,7 +14409,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-aliases)) (common-lisp:progn (common-lisp:defun list-availability-configurations @@ -14429,7 +14428,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAvailabilityConfigurations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-availability-configurations)) (common-lisp:progn (common-lisp:defun list-group-members @@ -14448,7 +14447,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroupMembers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-group-members)) (common-lisp:progn (common-lisp:defun list-groups @@ -14467,7 +14466,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups)) (common-lisp:progn (common-lisp:defun list-groups-for-entity @@ -14487,7 +14486,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListGroupsForEntity")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-groups-for-entity)) (common-lisp:progn (common-lisp:defun list-impersonation-roles @@ -14505,7 +14504,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListImpersonationRoles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-impersonation-roles)) (common-lisp:progn (common-lisp:defun list-mail-domains @@ -14523,7 +14522,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMailDomains")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mail-domains)) (common-lisp:progn (common-lisp:defun list-mailbox-export-jobs @@ -14541,7 +14540,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMailboxExportJobs")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mailbox-export-jobs)) (common-lisp:progn (common-lisp:defun list-mailbox-permissions @@ -14560,7 +14559,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMailboxPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mailbox-permissions)) (common-lisp:progn (common-lisp:defun list-mobile-device-access-overrides @@ -14581,7 +14580,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMobileDeviceAccessOverrides")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mobile-device-access-overrides)) (common-lisp:progn (common-lisp:defun list-mobile-device-access-rules @@ -14599,7 +14598,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListMobileDeviceAccessRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-mobile-device-access-rules)) (common-lisp:progn (common-lisp:defun list-organizations @@ -14616,7 +14615,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListOrganizations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-organizations)) (common-lisp:progn (common-lisp:defun list-resource-delegates @@ -14635,7 +14634,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResourceDelegates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-delegates)) (common-lisp:progn (common-lisp:defun list-resources @@ -14654,7 +14653,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListResources")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resources)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -14671,7 +14670,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-users @@ -14690,7 +14689,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListUsers")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-users)) (common-lisp:progn (common-lisp:defun put-access-control-rule @@ -14713,7 +14712,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutAccessControlRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-access-control-rule)) (common-lisp:progn (common-lisp:defun put-email-monitoring-configuration @@ -14732,7 +14731,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutEmailMonitoringConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-email-monitoring-configuration)) (common-lisp:progn (common-lisp:defun put-inbound-dmarc-settings @@ -14750,7 +14749,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutInboundDmarcSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-inbound-dmarc-settings)) (common-lisp:progn (common-lisp:defun put-mailbox-permissions @@ -14770,7 +14769,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutMailboxPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-mailbox-permissions)) (common-lisp:progn (common-lisp:defun put-mobile-device-access-override @@ -14791,7 +14790,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutMobileDeviceAccessOverride")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-mobile-device-access-override)) (common-lisp:progn (common-lisp:defun put-retention-policy @@ -14811,7 +14810,7 @@ aws-sdk/generator/operation::input "POST" "/" "PutRetentionPolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-retention-policy)) (common-lisp:progn (common-lisp:defun register-mail-domain @@ -14829,7 +14828,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterMailDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-mail-domain)) (common-lisp:progn (common-lisp:defun register-to-work-mail @@ -14847,7 +14846,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterToWorkMail")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-to-work-mail)) (common-lisp:progn (common-lisp:defun reset-password @@ -14865,7 +14864,7 @@ aws-sdk/generator/operation::input "POST" "/" "ResetPassword")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reset-password)) (common-lisp:progn (common-lisp:defun start-mailbox-export-job @@ -14885,7 +14884,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartMailboxExportJob")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-mailbox-export-job)) (common-lisp:progn (common-lisp:defun tag-resource @@ -14902,7 +14901,7 @@ aws-sdk/generator/operation::input "POST" "/" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun test-availability-configuration @@ -14923,7 +14922,7 @@ aws-sdk/generator/operation::input "POST" "/" "TestAvailabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'test-availability-configuration)) (common-lisp:progn (common-lisp:defun untag-resource @@ -14940,7 +14939,7 @@ aws-sdk/generator/operation::input "POST" "/" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-availability-configuration @@ -14961,7 +14960,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateAvailabilityConfiguration")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-availability-configuration)) (common-lisp:progn (common-lisp:defun update-default-mail-domain @@ -14979,7 +14978,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateDefaultMailDomain")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-default-mail-domain)) (common-lisp:progn (common-lisp:defun update-group @@ -14999,7 +14998,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group)) (common-lisp:progn (common-lisp:defun update-impersonation-role @@ -15020,7 +15019,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateImpersonationRole")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-impersonation-role)) (common-lisp:progn (common-lisp:defun update-mailbox-quota @@ -15038,7 +15037,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMailboxQuota")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-mailbox-quota)) (common-lisp:progn (common-lisp:defun update-mobile-device-access-rule @@ -15065,7 +15064,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateMobileDeviceAccessRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-mobile-device-access-rule)) (common-lisp:progn (common-lisp:defun update-primary-email-address @@ -15084,7 +15083,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdatePrimaryEmailAddress")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-primary-email-address)) (common-lisp:progn (common-lisp:defun update-resource @@ -15105,7 +15104,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-resource)) (common-lisp:progn (common-lisp:defun update-user @@ -15128,5 +15127,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateUser")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user)) diff --git a/services/workmailmessageflow/api.lisp b/services/workmailmessageflow/api.lisp index b5480077..85f081ae 100644 --- a/services/workmailmessageflow/api.lisp +++ b/services/workmailmessageflow/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/workmailmessageflow/api - (:use) - (:nicknames #:aws/workmailmessageflow) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/workmailmessageflow/api (:use) + (:nicknames #:aws/workmailmessageflow) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/workmailmessageflow/api) (common-lisp:progn (common-lisp:define-condition workmailmessageflow-error @@ -20,7 +19,7 @@ (common-lisp:export 'workmailmessageflow-error)) (common-lisp:progn (common-lisp:defclass workmailmessageflow-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "workmailmessageflow" :api-version "2019-05-01" :host-prefix @@ -104,7 +103,13 @@ ( (aws-sdk/generator/shape::input get-raw-message-content-response)) - (common-lisp:slot-value aws-sdk/generator/shape::input 'message-content))) + (common-lisp:slot-value aws-sdk/generator/shape::input 'message-content)) + (common-lisp:defmethod aws-sdk/generator/shape::input-payload-properties + ( + (aws-sdk/generator/shape::input + get-raw-message-content-response)) + (common-lisp:declare (common-lisp:ignore aws-sdk/generator/shape::input)) + (common-lisp:list))) (common-lisp:progn (common-lisp:define-condition invalid-content-location (workmailmessageflow-error) @@ -318,13 +323,13 @@ 'workmailmessageflow-request aws-sdk/generator/operation::input "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/messages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'message-id)))) + aws-sdk/generator/operation::input 'message-id) + common-lisp:t))) "GetRawMessageContent") :want-stream common-lisp:t) - "blob" common-lisp:nil *error-map*))) + "blob" common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-raw-message-content)) (common-lisp:progn (common-lisp:defun put-raw-message-content @@ -341,10 +346,10 @@ 'workmailmessageflow-request aws-sdk/generator/operation::input "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/messages/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input - 'message-id)))) + aws-sdk/generator/operation::input 'message-id) + common-lisp:t))) "PutRawMessageContent")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-raw-message-content)) diff --git a/services/workspaces-thin-client/api.lisp b/services/workspaces-thin-client/api.lisp index 4bc54035..eb9e9c42 100644 --- a/services/workspaces-thin-client/api.lisp +++ b/services/workspaces-thin-client/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/workspaces-thin-client/api - (:use) - (:nicknames #:aws/workspaces-thin-client) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/workspaces-thin-client/api + (:use) (:nicknames #:aws/workspaces-thin-client) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/workspaces-thin-client/api) (common-lisp:progn (common-lisp:define-condition workspaces-thin-client-error @@ -20,7 +19,7 @@ (common-lisp:export 'workspaces-thin-client-error)) (common-lisp:progn (common-lisp:defclass workspaces-thin-client-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "workspaces-thin-client" :api-version "2023-08-22" :host-prefix "thinclient" @@ -3186,7 +3185,7 @@ (aws-sdk/generator/shape:make-request-with-input 'workspaces-thin-client-request aws-sdk/generator/operation::input "POST" "/environments" "CreateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-environment)) (common-lisp:progn (common-lisp:defun delete-device @@ -3204,11 +3203,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-device)) (common-lisp:progn (common-lisp:defun delete-environment @@ -3226,11 +3226,12 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeleteEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-environment)) (common-lisp:progn (common-lisp:defun deregister-device @@ -3249,11 +3250,12 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/deregister-device/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "DeregisterDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-device)) (common-lisp:progn (common-lisp:defun get-device @@ -3271,11 +3273,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-device)) (common-lisp:progn (common-lisp:defun get-environment @@ -3293,11 +3296,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-environment)) (common-lisp:progn (common-lisp:defun get-software-set @@ -3315,11 +3319,12 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/softwaresets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "GetSoftwareSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-software-set)) (common-lisp:progn (common-lisp:defun list-devices @@ -3335,7 +3340,7 @@ (aws-sdk/generator/shape:make-request-with-input 'workspaces-thin-client-request aws-sdk/generator/operation::input "GET" "/devices" "ListDevices")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-devices)) (common-lisp:progn (common-lisp:defun list-environments @@ -3351,7 +3356,7 @@ (aws-sdk/generator/shape:make-request-with-input 'workspaces-thin-client-request aws-sdk/generator/operation::input "GET" "/environments" "ListEnvironments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-environments)) (common-lisp:progn (common-lisp:defun list-software-sets @@ -3367,7 +3372,7 @@ (aws-sdk/generator/shape:make-request-with-input 'workspaces-thin-client-request aws-sdk/generator/operation::input "GET" "/softwaresets" "ListSoftwareSets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-software-sets)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -3385,12 +3390,13 @@ "GET" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun tag-resource @@ -3408,12 +3414,13 @@ "POST" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -3431,12 +3438,13 @@ "DELETE" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/tags/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value aws-sdk/generator/operation::input - 'resource-arn)))) + 'resource-arn) + common-lisp:t))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-device @@ -3457,11 +3465,12 @@ "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/devices/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateDevice")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-device)) (common-lisp:progn (common-lisp:defun update-environment @@ -3484,11 +3493,12 @@ "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/environments/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateEnvironment")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-environment)) (common-lisp:progn (common-lisp:defun update-software-set @@ -3506,9 +3516,10 @@ "PATCH" (common-lisp:lambda (aws-sdk/generator/operation::input) (common-lisp:format common-lisp:nil "/softwaresets/~A" - (quri.encode:url-encode + (aws-sdk/generator/operation::aws-sign4-uri-encode (common-lisp:slot-value - aws-sdk/generator/operation::input 'id)))) + aws-sdk/generator/operation::input 'id) + common-lisp:t))) "UpdateSoftwareSet")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-software-set)) diff --git a/services/workspaces-web/api.lisp b/services/workspaces-web/api.lisp index 6379aa9f..f5126b99 100644 --- a/services/workspaces-web/api.lisp +++ b/services/workspaces-web/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/workspaces-web/api - (:use) - (:nicknames #:aws/workspaces-web) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/workspaces-web/api (:use) + (:nicknames #:aws/workspaces-web) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/workspaces-web/api) (common-lisp:progn (common-lisp:define-condition workspaces-web-error @@ -20,7 +19,7 @@ (common-lisp:export 'workspaces-web-error)) (common-lisp:progn (common-lisp:defclass workspaces-web-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "workspaces-web" :api-version "2020-07-08" :host-prefix "workspaces-web" @@ -7777,7 +7776,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "AssociateBrowserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-browser-settings)) (common-lisp:progn (common-lisp:defun associate-ip-access-settings @@ -7805,7 +7804,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "AssociateIpAccessSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-ip-access-settings)) (common-lisp:progn (common-lisp:defun associate-network-settings @@ -7833,7 +7832,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "AssociateNetworkSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-network-settings)) (common-lisp:progn (common-lisp:defun associate-trust-store @@ -7859,7 +7858,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "AssociateTrustStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-trust-store)) (common-lisp:progn (common-lisp:defun associate-user-access-logging-settings @@ -7888,7 +7887,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "AssociateUserAccessLoggingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-user-access-logging-settings)) (common-lisp:progn (common-lisp:defun associate-user-settings @@ -7914,7 +7913,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "AssociateUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-user-settings)) (common-lisp:progn (common-lisp:defun create-browser-settings @@ -7935,7 +7934,7 @@ "POST" "/browserSettings" "CreateBrowserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-browser-settings)) (common-lisp:progn (common-lisp:defun create-identity-provider @@ -7956,7 +7955,7 @@ "POST" "/identityProviders" "CreateIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-identity-provider)) (common-lisp:progn (common-lisp:defun create-ip-access-settings @@ -7979,7 +7978,7 @@ "POST" "/ipAccessSettings" "CreateIpAccessSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ip-access-settings)) (common-lisp:progn (common-lisp:defun create-network-settings @@ -8000,7 +7999,7 @@ "POST" "/networkSettings" "CreateNetworkSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-network-settings)) (common-lisp:progn (common-lisp:defun create-portal @@ -8021,7 +8020,7 @@ aws-sdk/generator/operation::input "POST" "/portals" "CreatePortal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-portal)) (common-lisp:progn (common-lisp:defun create-trust-store @@ -8039,7 +8038,7 @@ aws-sdk/generator/operation::input "POST" "/trustStores" "CreateTrustStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-trust-store)) (common-lisp:progn (common-lisp:defun create-user-access-logging-settings @@ -8059,7 +8058,7 @@ "POST" "/userAccessLoggingSettings" "CreateUserAccessLoggingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-access-logging-settings)) (common-lisp:progn (common-lisp:defun create-user-settings @@ -8086,7 +8085,7 @@ aws-sdk/generator/operation::input "POST" "/userSettings" "CreateUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-user-settings)) (common-lisp:progn (common-lisp:defun delete-browser-settings @@ -8112,7 +8111,7 @@ aws-sdk/generator/operation::input 'browser-settings-arn))) "DeleteBrowserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-browser-settings)) (common-lisp:progn (common-lisp:defun delete-identity-provider @@ -8138,7 +8137,7 @@ aws-sdk/generator/operation::input 'identity-provider-arn))) "DeleteIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-identity-provider)) (common-lisp:progn (common-lisp:defun delete-ip-access-settings @@ -8165,7 +8164,7 @@ aws-sdk/generator/operation::input 'ip-access-settings-arn))) "DeleteIpAccessSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ip-access-settings)) (common-lisp:progn (common-lisp:defun delete-network-settings @@ -8191,7 +8190,7 @@ aws-sdk/generator/operation::input 'network-settings-arn))) "DeleteNetworkSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-network-settings)) (common-lisp:progn (common-lisp:defun delete-portal @@ -8217,7 +8216,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "DeletePortal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-portal)) (common-lisp:progn (common-lisp:defun delete-trust-store @@ -8243,7 +8242,7 @@ aws-sdk/generator/operation::input 'trust-store-arn))) "DeleteTrustStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-trust-store)) (common-lisp:progn (common-lisp:defun delete-user-access-logging-settings @@ -8271,7 +8270,7 @@ aws-sdk/generator/operation::input 'user-access-logging-settings-arn))) "DeleteUserAccessLoggingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-access-logging-settings)) (common-lisp:progn (common-lisp:defun delete-user-settings @@ -8297,7 +8296,7 @@ aws-sdk/generator/operation::input 'user-settings-arn))) "DeleteUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-user-settings)) (common-lisp:progn (common-lisp:defun disassociate-browser-settings @@ -8324,7 +8323,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "DisassociateBrowserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-browser-settings)) (common-lisp:progn (common-lisp:defun disassociate-ip-access-settings @@ -8351,7 +8350,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "DisassociateIpAccessSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-ip-access-settings)) (common-lisp:progn (common-lisp:defun disassociate-network-settings @@ -8378,7 +8377,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "DisassociateNetworkSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-network-settings)) (common-lisp:progn (common-lisp:defun disassociate-trust-store @@ -8404,7 +8403,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "DisassociateTrustStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-trust-store)) (common-lisp:progn (common-lisp:defun disassociate-user-access-logging-settings @@ -8431,7 +8430,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "DisassociateUserAccessLoggingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-user-access-logging-settings)) (common-lisp:progn (common-lisp:defun disassociate-user-settings @@ -8458,7 +8457,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "DisassociateUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-user-settings)) (common-lisp:progn (common-lisp:defun get-browser-settings @@ -8484,7 +8483,7 @@ aws-sdk/generator/operation::input 'browser-settings-arn))) "GetBrowserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-browser-settings)) (common-lisp:progn (common-lisp:defun get-identity-provider @@ -8510,7 +8509,7 @@ aws-sdk/generator/operation::input 'identity-provider-arn))) "GetIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-identity-provider)) (common-lisp:progn (common-lisp:defun get-ip-access-settings @@ -8536,7 +8535,7 @@ aws-sdk/generator/operation::input 'ip-access-settings-arn))) "GetIpAccessSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-ip-access-settings)) (common-lisp:progn (common-lisp:defun get-network-settings @@ -8562,7 +8561,7 @@ aws-sdk/generator/operation::input 'network-settings-arn))) "GetNetworkSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-network-settings)) (common-lisp:progn (common-lisp:defun get-portal @@ -8588,7 +8587,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "GetPortal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-portal)) (common-lisp:progn (common-lisp:defun get-portal-service-provider-metadata @@ -8615,7 +8614,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "GetPortalServiceProviderMetadata")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-portal-service-provider-metadata)) (common-lisp:progn (common-lisp:defun get-trust-store @@ -8641,7 +8640,7 @@ aws-sdk/generator/operation::input 'trust-store-arn))) "GetTrustStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-trust-store)) (common-lisp:progn (common-lisp:defun get-trust-store-certificate @@ -8668,7 +8667,7 @@ aws-sdk/generator/operation::input 'trust-store-arn))) "GetTrustStoreCertificate")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-trust-store-certificate)) (common-lisp:progn (common-lisp:defun get-user-access-logging-settings @@ -8696,7 +8695,7 @@ aws-sdk/generator/operation::input 'user-access-logging-settings-arn))) "GetUserAccessLoggingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-access-logging-settings)) (common-lisp:progn (common-lisp:defun get-user-settings @@ -8722,7 +8721,7 @@ aws-sdk/generator/operation::input 'user-settings-arn))) "GetUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-user-settings)) (common-lisp:progn (common-lisp:defun list-browser-settings @@ -8740,7 +8739,7 @@ "GET" "/browserSettings" "ListBrowserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-browser-settings)) (common-lisp:progn (common-lisp:defun list-identity-providers @@ -8767,7 +8766,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "ListIdentityProviders")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-identity-providers)) (common-lisp:progn (common-lisp:defun list-ip-access-settings @@ -8785,7 +8784,7 @@ "GET" "/ipAccessSettings" "ListIpAccessSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-ip-access-settings)) (common-lisp:progn (common-lisp:defun list-network-settings @@ -8803,7 +8802,7 @@ "GET" "/networkSettings" "ListNetworkSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-network-settings)) (common-lisp:progn (common-lisp:defun list-portals @@ -8820,7 +8819,7 @@ aws-sdk/generator/operation::input "GET" "/portals" "ListPortals")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-portals)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8846,7 +8845,7 @@ aws-sdk/generator/operation::input 'resource-arn))) "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun list-trust-store-certificates @@ -8874,7 +8873,7 @@ aws-sdk/generator/operation::input 'trust-store-arn))) "ListTrustStoreCertificates")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-trust-store-certificates)) (common-lisp:progn (common-lisp:defun list-trust-stores @@ -8891,7 +8890,7 @@ aws-sdk/generator/operation::input "GET" "/trustStores" "ListTrustStores")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-trust-stores)) (common-lisp:progn (common-lisp:defun list-user-access-logging-settings @@ -8910,7 +8909,7 @@ "GET" "/userAccessLoggingSettings" "ListUserAccessLoggingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-access-logging-settings)) (common-lisp:progn (common-lisp:defun list-user-settings @@ -8927,7 +8926,7 @@ aws-sdk/generator/operation::input "GET" "/userSettings" "ListUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-user-settings)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8953,7 +8952,7 @@ aws-sdk/generator/operation::input 'resource-arn))) "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8979,7 +8978,7 @@ aws-sdk/generator/operation::input 'resource-arn))) "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-browser-settings @@ -9007,7 +9006,7 @@ aws-sdk/generator/operation::input 'browser-settings-arn))) "UpdateBrowserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-browser-settings)) (common-lisp:progn (common-lisp:defun update-identity-provider @@ -9037,7 +9036,7 @@ aws-sdk/generator/operation::input 'identity-provider-arn))) "UpdateIdentityProvider")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-identity-provider)) (common-lisp:progn (common-lisp:defun update-ip-access-settings @@ -9067,7 +9066,7 @@ aws-sdk/generator/operation::input 'ip-access-settings-arn))) "UpdateIpAccessSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-ip-access-settings)) (common-lisp:progn (common-lisp:defun update-network-settings @@ -9096,7 +9095,7 @@ aws-sdk/generator/operation::input 'network-settings-arn))) "UpdateNetworkSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-network-settings)) (common-lisp:progn (common-lisp:defun update-portal @@ -9124,7 +9123,7 @@ aws-sdk/generator/operation::input 'portal-arn))) "UpdatePortal")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-portal)) (common-lisp:progn (common-lisp:defun update-trust-store @@ -9153,7 +9152,7 @@ aws-sdk/generator/operation::input 'trust-store-arn))) "UpdateTrustStore")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-trust-store)) (common-lisp:progn (common-lisp:defun update-user-access-logging-settings @@ -9183,7 +9182,7 @@ aws-sdk/generator/operation::input 'user-access-logging-settings-arn))) "UpdateUserAccessLoggingSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-access-logging-settings)) (common-lisp:progn (common-lisp:defun update-user-settings @@ -9217,5 +9216,5 @@ aws-sdk/generator/operation::input 'user-settings-arn))) "UpdateUserSettings")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-user-settings)) diff --git a/services/workspaces/api.lisp b/services/workspaces/api.lisp index d7f14fc8..6e6cf024 100644 --- a/services/workspaces/api.lisp +++ b/services/workspaces/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/workspaces/api - (:use) - (:nicknames #:aws/workspaces) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/workspaces/api (:use) + (:nicknames #:aws/workspaces) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/workspaces/api) (common-lisp:progn (common-lisp:define-condition workspaces-error @@ -13194,7 +13193,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateConnectionAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-connection-alias)) (common-lisp:progn (common-lisp:defun associate-ip-groups @@ -13211,7 +13210,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateIpGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-ip-groups)) (common-lisp:progn (common-lisp:defun associate-workspace-application @@ -13229,7 +13228,7 @@ aws-sdk/generator/operation::input "POST" "/" "AssociateWorkspaceApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'associate-workspace-application)) (common-lisp:progn (common-lisp:defun authorize-ip-rules @@ -13246,7 +13245,7 @@ aws-sdk/generator/operation::input "POST" "/" "AuthorizeIpRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'authorize-ip-rules)) (common-lisp:progn (common-lisp:defun copy-workspace-image @@ -13266,7 +13265,7 @@ aws-sdk/generator/operation::input "POST" "/" "CopyWorkspaceImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'copy-workspace-image)) (common-lisp:progn (common-lisp:defun create-connect-client-add-in @@ -13284,7 +13283,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConnectClientAddIn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connect-client-add-in)) (common-lisp:progn (common-lisp:defun create-connection-alias @@ -13301,7 +13300,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateConnectionAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-connection-alias)) (common-lisp:progn (common-lisp:defun create-ip-group @@ -13319,7 +13318,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateIpGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-ip-group)) (common-lisp:progn (common-lisp:defun create-standby-workspaces @@ -13338,7 +13337,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateStandbyWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-standby-workspaces)) (common-lisp:progn (common-lisp:defun create-tags @@ -13355,7 +13354,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-tags)) (common-lisp:progn (common-lisp:defun create-updated-workspace-image @@ -13374,7 +13373,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateUpdatedWorkspaceImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-updated-workspace-image)) (common-lisp:progn (common-lisp:defun create-workspace-bundle @@ -13394,7 +13393,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWorkspaceBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workspace-bundle)) (common-lisp:progn (common-lisp:defun create-workspace-image @@ -13412,7 +13411,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWorkspaceImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workspace-image)) (common-lisp:progn (common-lisp:defun create-workspaces @@ -13429,7 +13428,7 @@ aws-sdk/generator/operation::input "POST" "/" "CreateWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-workspaces)) (common-lisp:progn (common-lisp:defun delete-client-branding @@ -13446,7 +13445,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteClientBranding")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-client-branding)) (common-lisp:progn (common-lisp:defun delete-connect-client-add-in @@ -13464,7 +13463,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnectClientAddIn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connect-client-add-in)) (common-lisp:progn (common-lisp:defun delete-connection-alias @@ -13481,7 +13480,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteConnectionAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-connection-alias)) (common-lisp:progn (common-lisp:defun delete-ip-group @@ -13498,7 +13497,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteIpGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-ip-group)) (common-lisp:progn (common-lisp:defun delete-tags @@ -13515,7 +13514,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-tags)) (common-lisp:progn (common-lisp:defun delete-workspace-bundle @@ -13532,7 +13531,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWorkspaceBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workspace-bundle)) (common-lisp:progn (common-lisp:defun delete-workspace-image @@ -13549,7 +13548,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeleteWorkspaceImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-workspace-image)) (common-lisp:progn (common-lisp:defun deploy-workspace-applications @@ -13567,7 +13566,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeployWorkspaceApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deploy-workspace-applications)) (common-lisp:progn (common-lisp:defun deregister-workspace-directory @@ -13585,7 +13584,7 @@ aws-sdk/generator/operation::input "POST" "/" "DeregisterWorkspaceDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'deregister-workspace-directory)) (common-lisp:progn (common-lisp:defun describe-account () @@ -13611,7 +13610,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeAccountModifications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-account-modifications)) (common-lisp:progn (common-lisp:defun describe-application-associations @@ -13632,7 +13631,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApplicationAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-application-associations)) (common-lisp:progn (common-lisp:defun describe-applications @@ -13653,7 +13652,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeApplications")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-applications)) (common-lisp:progn (common-lisp:defun describe-bundle-associations @@ -13672,7 +13671,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeBundleAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-bundle-associations)) (common-lisp:progn (common-lisp:defun describe-client-branding @@ -13689,7 +13688,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClientBranding")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-client-branding)) (common-lisp:progn (common-lisp:defun describe-client-properties @@ -13707,7 +13706,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeClientProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-client-properties)) (common-lisp:progn (common-lisp:defun describe-connect-client-add-ins @@ -13726,7 +13725,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnectClientAddIns")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connect-client-add-ins)) (common-lisp:progn (common-lisp:defun describe-connection-alias-permissions @@ -13745,7 +13744,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnectionAliasPermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connection-alias-permissions)) (common-lisp:progn (common-lisp:defun describe-connection-aliases @@ -13764,7 +13763,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeConnectionAliases")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-connection-aliases)) (common-lisp:progn (common-lisp:defun describe-image-associations @@ -13783,7 +13782,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeImageAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-image-associations)) (common-lisp:progn (common-lisp:defun describe-ip-groups @@ -13801,7 +13800,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeIpGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-ip-groups)) (common-lisp:progn (common-lisp:defun describe-tags @@ -13818,7 +13817,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeTags")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-tags)) (common-lisp:progn (common-lisp:defun describe-workspace-associations @@ -13837,7 +13836,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkspaceAssociations")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace-associations)) (common-lisp:progn (common-lisp:defun describe-workspace-bundles @@ -13855,7 +13854,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkspaceBundles")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace-bundles)) (common-lisp:progn (common-lisp:defun describe-workspace-directories @@ -13873,7 +13872,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkspaceDirectories")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace-directories)) (common-lisp:progn (common-lisp:defun describe-workspace-image-permissions @@ -13892,7 +13891,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkspaceImagePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace-image-permissions)) (common-lisp:progn (common-lisp:defun describe-workspace-images @@ -13912,7 +13911,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkspaceImages")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace-images)) (common-lisp:progn (common-lisp:defun describe-workspace-snapshots @@ -13930,7 +13929,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkspaceSnapshots")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspace-snapshots)) (common-lisp:progn (common-lisp:defun describe-workspaces @@ -13950,7 +13949,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspaces)) (common-lisp:progn (common-lisp:defun describe-workspaces-connection-status @@ -13968,7 +13967,7 @@ aws-sdk/generator/operation::input "POST" "/" "DescribeWorkspacesConnectionStatus")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'describe-workspaces-connection-status)) (common-lisp:progn (common-lisp:defun disassociate-connection-alias @@ -13986,7 +13985,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateConnectionAlias")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-connection-alias)) (common-lisp:progn (common-lisp:defun disassociate-ip-groups @@ -14003,7 +14002,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateIpGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-ip-groups)) (common-lisp:progn (common-lisp:defun disassociate-workspace-application @@ -14021,7 +14020,7 @@ aws-sdk/generator/operation::input "POST" "/" "DisassociateWorkspaceApplication")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'disassociate-workspace-application)) (common-lisp:progn (common-lisp:defun import-client-branding @@ -14042,7 +14041,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportClientBranding")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-client-branding)) (common-lisp:progn (common-lisp:defun import-workspace-image @@ -14062,7 +14061,7 @@ aws-sdk/generator/operation::input "POST" "/" "ImportWorkspaceImage")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'import-workspace-image)) (common-lisp:progn (common-lisp:defun list-available-management-cidr-ranges @@ -14083,7 +14082,7 @@ aws-sdk/generator/operation::input "POST" "/" "ListAvailableManagementCidrRanges")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-available-management-cidr-ranges)) (common-lisp:progn (common-lisp:defun migrate-workspace @@ -14100,7 +14099,7 @@ aws-sdk/generator/operation::input "POST" "/" "MigrateWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'migrate-workspace)) (common-lisp:progn (common-lisp:defun modify-account @@ -14120,7 +14119,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyAccount")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-account)) (common-lisp:progn (common-lisp:defun modify-certificate-based-auth-properties @@ -14141,7 +14140,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyCertificateBasedAuthProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-certificate-based-auth-properties)) (common-lisp:progn (common-lisp:defun modify-client-properties @@ -14158,7 +14157,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyClientProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-client-properties)) (common-lisp:progn (common-lisp:defun modify-saml-properties @@ -14177,7 +14176,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySamlProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-saml-properties)) (common-lisp:progn (common-lisp:defun modify-selfservice-permissions @@ -14196,7 +14195,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifySelfservicePermissions")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-selfservice-permissions)) (common-lisp:progn (common-lisp:defun modify-workspace-access-properties @@ -14215,7 +14214,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyWorkspaceAccessProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-workspace-access-properties)) (common-lisp:progn (common-lisp:defun modify-workspace-creation-properties @@ -14235,7 +14234,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyWorkspaceCreationProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-workspace-creation-properties)) (common-lisp:progn (common-lisp:defun modify-workspace-properties @@ -14255,7 +14254,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyWorkspaceProperties")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-workspace-properties)) (common-lisp:progn (common-lisp:defun modify-workspace-state @@ -14272,7 +14271,7 @@ aws-sdk/generator/operation::input "POST" "/" "ModifyWorkspaceState")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'modify-workspace-state)) (common-lisp:progn (common-lisp:defun reboot-workspaces @@ -14289,7 +14288,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebootWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'reboot-workspaces)) (common-lisp:progn (common-lisp:defun rebuild-workspaces @@ -14306,7 +14305,7 @@ aws-sdk/generator/operation::input "POST" "/" "RebuildWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'rebuild-workspaces)) (common-lisp:progn (common-lisp:defun register-workspace-directory @@ -14327,7 +14326,7 @@ aws-sdk/generator/operation::input "POST" "/" "RegisterWorkspaceDirectory")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'register-workspace-directory)) (common-lisp:progn (common-lisp:defun restore-workspace @@ -14344,7 +14343,7 @@ aws-sdk/generator/operation::input "POST" "/" "RestoreWorkspace")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'restore-workspace)) (common-lisp:progn (common-lisp:defun revoke-ip-rules @@ -14361,7 +14360,7 @@ aws-sdk/generator/operation::input "POST" "/" "RevokeIpRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'revoke-ip-rules)) (common-lisp:progn (common-lisp:defun start-workspaces @@ -14378,7 +14377,7 @@ aws-sdk/generator/operation::input "POST" "/" "StartWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'start-workspaces)) (common-lisp:progn (common-lisp:defun stop-workspaces @@ -14395,7 +14394,7 @@ aws-sdk/generator/operation::input "POST" "/" "StopWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'stop-workspaces)) (common-lisp:progn (common-lisp:defun terminate-workspaces @@ -14412,7 +14411,7 @@ aws-sdk/generator/operation::input "POST" "/" "TerminateWorkspaces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'terminate-workspaces)) (common-lisp:progn (common-lisp:defun update-connect-client-add-in @@ -14430,7 +14429,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConnectClientAddIn")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connect-client-add-in)) (common-lisp:progn (common-lisp:defun update-connection-alias-permission @@ -14449,7 +14448,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateConnectionAliasPermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-connection-alias-permission)) (common-lisp:progn (common-lisp:defun update-rules-of-ip-group @@ -14466,7 +14465,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateRulesOfIpGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-rules-of-ip-group)) (common-lisp:progn (common-lisp:defun update-workspace-bundle @@ -14483,7 +14482,7 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWorkspaceBundle")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workspace-bundle)) (common-lisp:progn (common-lisp:defun update-workspace-image-permission @@ -14503,5 +14502,5 @@ aws-sdk/generator/operation::input "POST" "/" "UpdateWorkspaceImagePermission")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-workspace-image-permission)) diff --git a/services/xray/api.lisp b/services/xray/api.lisp index a89ddd55..0795baec 100644 --- a/services/xray/api.lisp +++ b/services/xray/api.lisp @@ -1,17 +1,16 @@ ;; DO NOT EDIT: File is generated by AWS-SDK/GENERATOR. -(common-lisp:defpackage #:aws-sdk/services/xray/api - (:use) - (:nicknames #:aws/xray) - (:import-from #:aws-sdk/generator/shape) - (:import-from #:aws-sdk/generator/operation) - (:import-from #:aws-sdk/api) - (:import-from #:aws-sdk/request) - (:import-from #:aws-sdk/json-request) - (:import-from #:aws-sdk/rest-json-request) - (:import-from #:aws-sdk/rest-xml-request) - (:import-from #:aws-sdk/query-request) - (:import-from #:aws-sdk/error)) +(uiop/package:define-package #:aws-sdk/services/xray/api (:use) + (:nicknames #:aws/xray) + (:import-from #:aws-sdk/generator/shape) + (:import-from #:aws-sdk/generator/operation) + (:import-from #:aws-sdk/api) + (:import-from #:aws-sdk/request) + (:import-from #:aws-sdk/json-request) + (:import-from #:aws-sdk/rest-json-request) + (:import-from #:aws-sdk/rest-xml-request) + (:import-from #:aws-sdk/query-request) + (:import-from #:aws-sdk/error)) (common-lisp:in-package #:aws-sdk/services/xray/api) (common-lisp:progn (common-lisp:define-condition xray-error @@ -20,7 +19,7 @@ (common-lisp:export 'xray-error)) (common-lisp:progn (common-lisp:defclass xray-request - (aws-sdk/generator/service::rest-json-request) + (aws-sdk/rest-json-request:rest-json-request) common-lisp:nil (:default-initargs :service "xray" :api-version "2016-04-12" :host-prefix "xray" :signing-name @@ -8294,7 +8293,7 @@ aws-sdk/generator/operation::input "POST" "/Traces" "BatchGetTraces")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'batch-get-traces)) (common-lisp:progn (common-lisp:defun create-group @@ -8314,7 +8313,7 @@ aws-sdk/generator/operation::input "POST" "/CreateGroup" "CreateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-group)) (common-lisp:progn (common-lisp:defun create-sampling-rule @@ -8332,7 +8331,7 @@ "POST" "/CreateSamplingRule" "CreateSamplingRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'create-sampling-rule)) (common-lisp:progn (common-lisp:defun delete-group @@ -8349,7 +8348,7 @@ aws-sdk/generator/operation::input "POST" "/DeleteGroup" "DeleteGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-group)) (common-lisp:progn (common-lisp:defun delete-resource-policy @@ -8367,7 +8366,7 @@ "POST" "/DeleteResourcePolicy" "DeleteResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-resource-policy)) (common-lisp:progn (common-lisp:defun delete-sampling-rule @@ -8385,7 +8384,7 @@ "POST" "/DeleteSamplingRule" "DeleteSamplingRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'delete-sampling-rule)) (common-lisp:progn (common-lisp:defun get-encryption-config () @@ -8411,7 +8410,7 @@ aws-sdk/generator/operation::input "POST" "/GetGroup" "GetGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-group)) (common-lisp:progn (common-lisp:defun get-groups @@ -8428,7 +8427,7 @@ aws-sdk/generator/operation::input "POST" "/Groups" "GetGroups")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-groups)) (common-lisp:progn (common-lisp:defun get-insight @@ -8445,7 +8444,7 @@ aws-sdk/generator/operation::input "POST" "/Insight" "GetInsight")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-insight)) (common-lisp:progn (common-lisp:defun get-insight-events @@ -8463,7 +8462,7 @@ aws-sdk/generator/operation::input "POST" "/InsightEvents" "GetInsightEvents")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-insight-events)) (common-lisp:progn (common-lisp:defun get-insight-impact-graph @@ -8483,7 +8482,7 @@ "POST" "/InsightImpactGraph" "GetInsightImpactGraph")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-insight-impact-graph)) (common-lisp:progn (common-lisp:defun get-insight-summaries @@ -8504,7 +8503,7 @@ "POST" "/InsightSummaries" "GetInsightSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-insight-summaries)) (common-lisp:progn (common-lisp:defun get-sampling-rules @@ -8522,7 +8521,7 @@ "POST" "/GetSamplingRules" "GetSamplingRules")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sampling-rules)) (common-lisp:progn (common-lisp:defun get-sampling-statistic-summaries @@ -8541,7 +8540,7 @@ "POST" "/SamplingStatisticSummaries" "GetSamplingStatisticSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sampling-statistic-summaries)) (common-lisp:progn (common-lisp:defun get-sampling-targets @@ -8559,7 +8558,7 @@ "POST" "/SamplingTargets" "GetSamplingTargets")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-sampling-targets)) (common-lisp:progn (common-lisp:defun get-service-graph @@ -8579,7 +8578,7 @@ aws-sdk/generator/operation::input "POST" "/ServiceGraph" "GetServiceGraph")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-service-graph)) (common-lisp:progn (common-lisp:defun get-time-series-service-statistics @@ -8602,7 +8601,7 @@ "POST" "/TimeSeriesServiceStatistics" "GetTimeSeriesServiceStatistics")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-time-series-service-statistics)) (common-lisp:progn (common-lisp:defun get-trace-graph @@ -8619,7 +8618,7 @@ aws-sdk/generator/operation::input "POST" "/TraceGraph" "GetTraceGraph")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-trace-graph)) (common-lisp:progn (common-lisp:defun get-trace-summaries @@ -8640,7 +8639,7 @@ "POST" "/TraceSummaries" "GetTraceSummaries")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'get-trace-summaries)) (common-lisp:progn (common-lisp:defun list-resource-policies @@ -8658,7 +8657,7 @@ "POST" "/ListResourcePolicies" "ListResourcePolicies")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-resource-policies)) (common-lisp:progn (common-lisp:defun list-tags-for-resource @@ -8676,7 +8675,7 @@ "POST" "/ListTagsForResource" "ListTagsForResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'list-tags-for-resource)) (common-lisp:progn (common-lisp:defun put-encryption-config @@ -8694,7 +8693,7 @@ "POST" "/PutEncryptionConfig" "PutEncryptionConfig")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-encryption-config)) (common-lisp:progn (common-lisp:defun put-resource-policy @@ -8715,7 +8714,7 @@ "POST" "/PutResourcePolicy" "PutResourcePolicy")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-resource-policy)) (common-lisp:progn (common-lisp:defun put-telemetry-records @@ -8736,7 +8735,7 @@ "POST" "/TelemetryRecords" "PutTelemetryRecords")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-telemetry-records)) (common-lisp:progn (common-lisp:defun put-trace-segments @@ -8753,7 +8752,7 @@ aws-sdk/generator/operation::input "POST" "/TraceSegments" "PutTraceSegments")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'put-trace-segments)) (common-lisp:progn (common-lisp:defun tag-resource @@ -8770,7 +8769,7 @@ aws-sdk/generator/operation::input "POST" "/TagResource" "TagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'tag-resource)) (common-lisp:progn (common-lisp:defun untag-resource @@ -8787,7 +8786,7 @@ aws-sdk/generator/operation::input "POST" "/UntagResource" "UntagResource")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'untag-resource)) (common-lisp:progn (common-lisp:defun update-group @@ -8807,7 +8806,7 @@ aws-sdk/generator/operation::input "POST" "/UpdateGroup" "UpdateGroup")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-group)) (common-lisp:progn (common-lisp:defun update-sampling-rule @@ -8825,5 +8824,5 @@ "POST" "/UpdateSamplingRule" "UpdateSamplingRule")) - common-lisp:nil common-lisp:nil *error-map*))) + common-lisp:nil common-lisp:nil *error-map* "application/json"))) (common-lisp:export 'update-sampling-rule))