- (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
- :null-terminated-p nil
- :length length)
- (uffi:convert-from-foreign-string char-ptr))))))))
-
+ (t
+ (uffi:convert-from-foreign-string char-ptr
+ :null-terminated-p (not length)
+ :length length
+ :encoding encoding))))))