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