Innokenty Enikeev před 10 roky
rodič
revize
d4b66c82c0
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  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