((/unicode/test-performance/timing.lisp::make-test-fn (nil nil nil (let) nil nil nil) (nil nil ((test-fn (intern-in-package-of-symbol (concatenate (quote string) TEST- (symbol-name function)) function)) `) nil nil nil nil) (nil nil (time-fn) nil (encapsulate) nil nil) ((nil) nil nil (intern-in-package-of-symbol) nil (defun defun) nil) ((function) nil (, , declare) (n declare n) (concatenate if mv-let) nil nil) ((TIME- test-fn channel state state time-fn file state) nil (quote symbol-name channel) (xargs type xargs) (open-input-channel (, test-fn)) (mbe mv-let) nil) ((string function :guard n :logic :exec :mode :program state file :byte state n channel state) nil (signed-byte zp data declare) (= (, function)) ((, test-fn)) (and) nil)))