Add & export OBJECT-RESTORATION-STATUS.

lifecycle.lisp

@@ -246,6 +246,11 @@ configuration is deleted with DELETE-BUCKET-LIFECYCLE."
                                    :key key
                                    :content content))))
 
+(defun object-restoration-status (bucket key &key
+                                  ((:credentials *credentials*) *credentials*))
+  (let ((headers (head :bucket bucket :key key)))
+    (cdr (assoc :x-amz-restore headers))))
+
 (define-specific-error (restore-already-in-progress
                         "RestoreAlreadyInProgress")
     () ())

package.lisp

@@ -45,8 +45,7 @@
            #:delete-bucket
            #:bucket-location
            #:bucket-lifecycle
-           #:lifecycle-rule
-           #:restore-object)
+           #:lifecycle-rule)
   ;; Bucket queries
   (:export #:query-bucket
            #:continue-bucket-query
@@ -77,7 +76,9 @@
            #:delete-objects
            #:delete-all-objects
            #:object-metadata
-           #:set-storage-class)
+           #:set-storage-class
+           #:restore-object
+           #:object-restoration-status)
   ;; Access Control
   (:export #:get-acl
            #:put-acl