xtmdoc-clean-nativefunc-alist   scheme

(define xtmdoc-clean-nativefunc-alist
  (lambda (closure-alists nativefunc-alists)
    (cl:remove-if
     (lambda (nativefunc-data)
       (let ((nativefunc-name (cdr (assoc-strcmp 'name nativefunc-data))))
         (cl:find-if (lambda (closure-data)
                       ;; is it a closure?
                       (string=? (cdr (assoc-strcmp 'name closure-data)) nativefunc-name))
                     closure-alists)))
     nativefunc-alists)))