1
0
Quellcode durchsuchen

xml-request fixes

Innokenty Enikeev vor 10 Jahren
Ursprung
Commit
d4b66c82c0
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  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