From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 13 Apr 2004 22:08:18 +0000 (+0000)
Subject: r9006: fix on allegro
X-Git-Tag: v1.6.1~121
X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=b3e638cc3c979d19656669edff857a7b6d2ce278

r9006: fix on allegro
---

diff --git a/debian/changelog b/debian/changelog
index 111c267..4edda68 100644
--- 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 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)