projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change function to macro
[uffi.git]
/
src
/
strings.lisp
diff --git
a/src/strings.lisp
b/src/strings.lisp
index 4f2eae3c7e430456dd4355b8462fddedefe58eba..834d251b2620ffc09888dfdb98507fc2924e42b6 100644
(file)
--- a/
src/strings.lisp
+++ b/
src/strings.lisp
@@
-393,7
+393,7
@@
that LW/CMU automatically converts strings from c-calls."
`(new-ptr ,size)
)
`(new-ptr ,size)
)
-(def
un
foreign-string-length (foreign-string)
+(def
macro
foreign-string-length (foreign-string)
#+allegro `(ff:foreign-strlen ,foreign-string)
#-allegro
`(loop
#+allegro `(ff:foreign-strlen ,foreign-string)
#-allegro
`(loop