(let* ((str-native (uffi:convert-to-foreign-string str))
(endptr (uffi:allocate-foreign-object char-ptr))
(value (c-strtol str-native endptr base))
(let* ((str-native (uffi:convert-to-foreign-string str))
(endptr (uffi:allocate-foreign-object char-ptr))
(value (c-strtol str-native endptr base))