r9006: fix on allegro

[uffi.git] / src / strings.lisp

diff --git a/src/strings.lisp b/src/strings.lisp
index 0585d43ada673ff958cd16b92c0edff088343214..4671925661c8b67298d5879a233524e08e9619f7 100644 (file)
--- 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)