Kaynağa Gözat

xml-request fixes

Innokenty Enikeev 10 yıl önce
ebeveyn
işleme
d4b66c82c0
1 değiştirilmiş dosya ile 2 ekleme ve 1 silme
  1. 2 1
      utils.lisp

+ 2 - 1
utils.lisp

@@ -103,7 +103,8 @@ is replaced with replacement."
                 (plump:parse (flex:octets-to-string raw-body :external-format :utf-8))
               (flex:external-format-encoding-error ()
                 (plump:parse (flex:octets-to-string raw-body)))))
-           (encoding (plump:get-attribute (plump:first-child dom) "encoding")))
+           (encoding (ignore-errors
+                       (plump:get-attribute (plump:first-child dom) "encoding"))))
       (values
        (if (and encoding (not (equal encoding "utf-8")))
            (plump:parse (flex:octets-to-string