From 1330decaa5c85fe9eda4f8933269e2dbaae2f7a7 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 19 May 2004 18:17:05 +0000 Subject: [PATCH] r9400: use unsigned byte in fast-native-to-string --- debian/changelog | 6 ++++++ src/strings.lisp | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index 3145630..bdca5c6 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.4.19-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Wed, 19 May 2004 12:16:03 -0600 + cl-uffi (1.4.18-1) unstable; urgency=low * New upstream diff --git a/src/strings.lisp b/src/strings.lisp index 89c41b2..f935e1b 100644 --- a/src/strings.lisp +++ b/src/strings.lisp @@ -347,4 +347,4 @@ that LW/CMU automatically converts strings from c-calls." (let* ((len (or len (strlen s))) (str (make-string len))) (dotimes (i len str) - (setf (schar str i) (code-char (uffi:deref-array s '(:array :byte) i)))))) + (setf (schar str i) (code-char (uffi:deref-array s '(:array :unsigned-byte) i)))))) -- 2.34.1