r10228: update for sb-unicode

diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp
index 6e7784917d9a97cc2bd68fa427e9c2981926eeed..7ac28c00e7f8c54418fde9f8459d5433e9557b4b 100644 (file)
--- 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