(define-macro (xtm-dump-asm fname)
(if (string? fname) (set! fname (string->symbol fname)))
(let ((n (llvm:get-closure-work-name (symbol->string fname))))
(if n
`(xtm_asm_dump ,n 1024)
`(begin (println "No such XTM function") #f))))