From 14311a0b79a26fccf8c56a4b6b24dfd2d6a7bb35 Mon Sep 17 00:00:00 2001
From: David Ritchie <david.ritchie@me.com>
Date: Thu, 26 Sep 2019 12:15:20 +0100
Subject: [PATCH] the DisplayName element in the list-bucket-result seems
 optional

I tested it with Amazon S3 and got a response with no DisplayName
element, which broker parsing the response
---
 bucket-listing.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bucket-listing.lisp b/bucket-listing.lisp
index 243dc3c..7bb4061 100644
--- a/bucket-listing.lisp
+++ b/bucket-listing.lisp
@@ -87,7 +87,7 @@
               (optional
                ("Owner"
                 ("ID" (bind :owner-id))
-                ("DisplayName" (bind :owner-display-name))))
+                (optional ("DisplayName" (bind :owner-display-name)))))
               ("StorageClass" (bind :storage-class))))
    (sequence :common-prefixes
              ("CommonPrefixes"