Commit 7263be16 authored by Zach Beane's avatar Zach Beane
Browse files

Translate external formats given to NATIVE-STRING-SIZEOF.

parent 88e46e21
......@@ -204,7 +204,7 @@ values otherwise."
,@body))
(defun excl:native-string-sizeof (string &key (external-format :latin1))
(length (string-to-octets string :external-format external-format)))
(length (string-to-octets string :external-format (translate-external-format external-format))))
(defun excl:string-to-mb (string &key external-format mb-vector null-terminate)
(declare (ignore mb-vector))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment