From fb67cd1a74d840b354f810d8e64e2184b3d459fa Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 27 Dec 2004 03:46:24 +0000 Subject: [PATCH] r10228: update for sb-unicode --- uffi/clsql-uffi.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp index 6e77849..7ac28c0 100644 --- a/uffi/clsql-uffi.lisp +++ b/uffi/clsql-uffi.lisp @@ -124,6 +124,11 @@ (uffi:convert-from-foreign-usb8 char-ptr length) (error "Can't return blob since length is not specified."))) (t + ;; sb-unicode still broken with converting with length, assume + ;; that string is null terminated + #+sb-unicode + (uffi:convert-from-foreign-string char-ptr :locale :none) + #-sb-unicode (if length (uffi:convert-from-foreign-string char-ptr :locale :none :null-terminated-p nil -- 2.34.1