介绍个未公开的时间处理的函数_vl-times

marting

下面这个代码利用函数_vl-times，得到一段代码的执行的时间。

1. (defun benchmark ()
   
2.   (setq start (car (_vl-times)))
   
3.                                         ;加入你的测试时间的代码
   
4.   (princ
   
5.     (strcat "\n耗时:(rtos (/ (- (car (_vl-times)) start) 1000.) 2 4)
   
6.             " 秒."
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )
    
11. 
    

(defun benchmark ()<br />   (setq start (car (_vl-times)))<br />                                         ;加入你的测试时间的代码<br />   (princ<br />     (strcat "\n耗时:(rtos (/ (- (car (_vl-times)) start) 1000.) 2 4)<br />             " 秒."<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

sicky111

这个不错，谢谢分享。

zjy2999

好，谢谢分享！！！！！！！

434939575

未公开的也被挖出来了，历害！！

sh_h

收藏一下，谢谢大师分享！！！

yufeng37

这个函数好有意思

229096767

谢谢分享      

guosheyang2

感谢分享！