- (uffi:with-c-string (key-native key)
- (let ((value-c-string (c-getenv key-native)))
- (uffi:convert-from-c-string value-c-string))))
+ (uffi:with-cstring (key-native key)
+ (let ((value-cstring (c-getenv key-native)))
+ (uffi:convert-from-cstring value-cstring))))