r9006: fix on allegro

diff --git a/debian/changelog b/debian/changelog
index 111c2678dfded4ad50cf5fad94930fdf8534ecec..4edda68037043cb0f097e565429e03cd25b976b3 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-uffi (1.4.9-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 13 Apr 2004 16:03:22 -0600
+
 cl-uffi (1.4.8-1) unstable; urgency=low
 
   * New upstream

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)