(define impc:ti:get-builtin-type-str (lambda (builtin-name) (let ((builtin-data (assoc-strcmp builtin-name *impc:ti:builtin-cache*))) ;; (println 'cls-list: builtin-data) (if builtin-data (vector-ref (cdr builtin-data) 0) #f))))