Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Zach Beane
zacl
Commits
7263be16
Commit
7263be16
authored
Nov 22, 2016
by
Zach Beane
Browse files
Translate external formats given to NATIVE-STRING-SIZEOF.
parent
88e46e21
Changes
1
Hide whitespace changes
Inline
Side-by-side
package-excl.lisp
View file @
7263be16
...
...
@@ -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
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment