(load "../common") (with-dyn-lib (libc) (deffi strtol "strtol" long (str (ptr-out (array 1 str-s)) int)) (deffi bcstol "strtol" long (bstr (ptr-out (array 1 bstr-s)) int)) (deffi wcstol "wcstol" long (wstr (ptr-out (array 1 wstr-s)) int))) (mtest (let ((v (vec nil))) (list (strtol "-345x" v 0) v)) (-345 #("x")) (let ((v (vec nil))) (list (bcstol "-345x" v 0) v)) (-345 #("x")) (let ((v (vec nil))) (list (wcstol "-345x" v 0) v)) (-345 #("x")))