(define impc:ti:create-scm-wrapper?
(lambda (func-name)
(cl:every
(lambda (type)
(or (impc:ir:void? type)
(impc:ir:floating-point? type)
(impc:ir:fixed-point? type)
(impc:ir:pointer? type)))
(map impc:ir:get-type-from-str
(impc:ti:get-closure-or-nativefunc-arg-types func-name)))))