xtmtest-compile   macro

(define-macro (xtmtest-compile form)
  `(let ((func-sym (quote ,(cadr form))))
     (print-with-colors 'cyan 'default #t (print "xtmtest "))
     (print-with-colors 'black 'cyan #t (print "" func-sym ""))
     (println)
     (catch (xtmtest-update-test-result func-sym 'no-compile 'compile-only #f #f)
            (eval ',form (interaction-environment))
            (xtmtest-update-test-result func-sym 'correct 'compile-only #t #t))))