X-Git-Url: http://git.kpe.io/?p=uffi.git;a=blobdiff_plain;f=src%2Fstrings.lisp;h=834d251b2620ffc09888dfdb98507fc2924e42b6;hp=4f2eae3c7e430456dd4355b8462fddedefe58eba;hb=9cb589c2b664ef7e2e695eab3970ae76a73fcc7d;hpb=b96ebc61e49dde6a96978e17c3ed375bea8c1672

diff --git a/src/strings.lisp b/src/strings.lisp
index 4f2eae3..834d251 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -393,7 +393,7 @@ that LW/CMU automatically converts strings from c-calls."
   `(new-ptr ,size)
   )
 
-(defun foreign-string-length (foreign-string)
+(defmacro foreign-string-length (foreign-string)
   #+allegro `(ff:foreign-strlen ,foreign-string)
   #-allegro
   `(loop