From 7177cf1ffcd71227b04934ae09188dd708ae3bb9 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 2 Apr 2004 21:20:57 +0000 Subject: [PATCH] r8816: Fix fast-native-to-string on 16-bit wide char Allegro --- debian/changelog | 6 ++++++ src/strings.lisp | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index c11dff4..d4f6e8a 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.4.7-1) unstable; urgency=low + + * Fix fast-native-to-string on 16-bit wide char Allegro + + -- Kevin M. Rosenberg Fri, 2 Apr 2004 14:20:36 -0700 + cl-uffi (1.4.6-1) unstable; urgency=low * New upstream diff --git a/src/strings.lisp b/src/strings.lisp index 5fdbc89..e4d6701 100644 --- a/src/strings.lisp +++ b/src/strings.lisp @@ -329,4 +329,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 (aref str i) (uffi:deref-array s '(:array :char) i))))) + (setf (schar str i) (code-char (uffi:deref-array s '(:array :byte) i)))))) -- 2.34.1