Explorar o código

xml-request fixes

Innokenty Enikeev %!s(int64=10) %!d(string=hai) anos
pai
achega
d4b66c82c0
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  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