-#+test-uffi
-(progn
- (flet ((test-strtol (str results)
- (util.test:test (multiple-value-list (strtol str)) results
- :test #'equal
- :fail-info "Error testing strtol")))
- (test-strtol "123" '(123 t))
- (test-strtol "0" '(0 t))
- (test-strtol "55a" '(55 2))
- (test-strtol "a" '(nil nil))))