Allow input of base45 decoder to also contain lower-case letters

This commit is contained in:
Daniel - 2021-11-07 08:40:30 +01:00
parent 0edfe4406c
commit f52f48273a
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 3 additions and 1 deletions

View File

@ -518,7 +518,9 @@ Does not replace CRLF with CRCRLF, and so on."
(when (= 1 (% (length str) 3))
(user-error "Input string has invalid length for base45 decoding; must be 0 or 2 modulo 3"))
(let* ((list-of-blocks (->> str
(let* ((str (s-upcase str))
(list-of-blocks (->> str
db/base45--string-to-bytes
(-partition-all 3)))