Add support for external-format in flexi-streams variant.

2025-12-21 22:44:29 +01:00 · 2015-07-17 22:30:56 +02:00
parent 3c51661bd8
commit b7aace4262
2 changed files with 8 additions and 3 deletions
--- a/md5.lisp
+++ b/md5.lisp
@ -712,7 +712,11 @@ determined by the underlying implementation."
    (if (<= char-code-limit 256)
        (md5sum-sequence string :start start :end end)
        (md5sum-sequence
-         (flexi-streams:string-to-octets string)))))
+         (flexi-streams:string-to-octets string
+                                         :external-format
+                                         (if (eq external-format :default)
+                                             :UTF-8
+                                             external-format))))))

 (eval-when (:compile-toplevel :load-toplevel :execute)
  (defconstant +buffer-size+ (* 128 1024)