From bb304d48c9cc4d7a8a3a0767eea20a6a4c29f149 Mon Sep 17 00:00:00 2001
From: Zach Beane <xach@xach.com>
Date: Tue, 18 Dec 2012 21:33:16 -0500
Subject: [PATCH] Add & export RESTORE-ALREADY-IN-PROGRESS condition.

---
 lifecycle.lisp | 4 +++-
 package.lisp   | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lifecycle.lisp b/lifecycle.lisp
index 949ee1e..22de9d2 100644
--- a/lifecycle.lisp
+++ b/lifecycle.lisp
@@ -246,4 +246,6 @@ configuration is deleted with DELETE-BUCKET-LIFECYCLE."
                                    :key key
                                    :content content))))
 
-
+(define-specific-error (restore-already-in-progress
+                        "RestoreAlreadyInProgress")
+    () ())
diff --git a/package.lisp b/package.lisp
index 56ca9e6..71ff51d 100644
--- a/package.lisp
+++ b/package.lisp
@@ -126,7 +126,8 @@
            #:key-too-long
            #:request-time-skewed
            #:operation-aborted
-           #:no-such-lifecycle-configuration)
+           #:no-such-lifecycle-configuration
+           #:restore-already-in-progress)
   ;; Cloudfront distribution management
   (:export #:status
            #:origin-bucket
-- 
2.11.4.GIT