X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fstrings.lisp;h=4671925661c8b67298d5879a233524e08e9619f7;hb=b3e638cc3c979d19656669edff857a7b6d2ce278;hp=0585d43ada673ff958cd16b92c0edff088343214;hpb=1e7eb7f618250a6e273f752c94fa82a6a16a1d97;p=uffi.git

diff --git a/src/strings.lisp b/src/strings.lisp
index 0585d43..4671925 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -224,7 +224,7 @@ that LW/CMU automatically converts strings from c-calls."
   )
 
 (defun foreign-string-length (foreign-string)
-  #+allegro `(ff:foreign-strlen ,ptr)
+  #+allegro `(ff:foreign-strlen ,foreign-string)
   #-allegro
   `(loop with size = 0
     until (char= (deref-array ,ptr '(:array :unsigned-char) size) #\Null)