(define impc:ti:gl-proc-alist-index (let () (lambda (gl-proc-name) (let ((res (assoc-strcmp gl-proc-name *impc:ti:gl-proc-alist*))) (if res (cdr res) #f)))))