From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 27 Dec 2004 03:46:24 +0000 (+0000)
Subject: r10228: update for sb-unicode
X-Git-Tag: v3.8.6~197
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=fb67cd1a74d840b354f810d8e64e2184b3d459fa

r10228: update for sb-unicode
---

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