実行速度を計る

  (let ((st (get-internal-real-time)))
       ;ここに計りたいものを
	(message "time ~A " (- (get-internal-real-time) st))
	))

前はこれをどこかで見つけたので、其のままパクって使っていたけど。最近2chを見ていたら(si:performance-counter)と言うのがあるのを発見した。ｺﾚの方が時計の精度が高いのかもしれない。scratchでC-jしてみると

(get-internal-real-time)
=>7615340

(si:performance-counter)
=>27232539743

というじになって、4桁ほど精度が高い様子。と言うかなんか数字自体が違いすぎるな。なんだろ。

(get-internal-real-time)
9410751
9410.751秒

(si:performance-counter)
33875584638
3387.5584638秒

と言う幹事なのかもしれない。というかsi:performance-counterの方は単位は秒なのかすら怪しいが。