X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=uffi%2Fclsql-uffi.lisp;h=03ce0745359ea36f95816e783f22c114e2ad0167;hb=086019e86cb4328a68b228770d3c0ec91c853794;hp=fda60ecf21aee1332a5d348f09072982c8154c5f;hpb=d2d49ab13c98bc7a1819a0fd3968268a5567bdc3;p=clsql.git diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp index fda60ec..03ce074 100644 --- a/uffi/clsql-uffi.lisp +++ b/uffi/clsql-uffi.lisp @@ -141,14 +141,14 @@ (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 + ;; sb-unicode doesn't work converting with length, assume ;; that string is null terminated #+sb-unicode - (uffi:convert-from-foreign-string char-ptr :locale :none) + (uffi:convert-from-foreign-string char-ptr) #-sb-unicode (if length - (uffi:convert-from-foreign-string char-ptr :locale :none + (uffi:convert-from-foreign-string char-ptr :null-terminated-p nil :length length) - (uffi:convert-from-foreign-string char-ptr :locale :none)))))))) + (uffi:convert-from-foreign-string char-ptr))))))))