[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: MSPS-game (Re: PCL benchmark)
- To: Masayuki Ida <ida%cc.aoyama.junet@UTOKYO-RELAY.CSNet>
- Subject: Re: MSPS-game (Re: PCL benchmark)
- From: hdavis.pa@Xerox.COM
- Date: 28 Nov 88 19:16 PST
- Cc: commonloops.pa@Xerox.COM
- In-reply-to: Masayuki Ida <ida%cc.aoyama.junet@UTOKYO-RELAY.CSNET>'s message of Mon, 28 Nov 88 13:23:12 JST
Actually, when I tested the following, even simpler, code, I got even better results:
(defmethod do-nothing ((x foo)) nil)
(defmethod do-nothing ((x bar)) nil)
(defmethod mm-do-nothing ((x bar) (y foo)) nil)
(defmethod mm-do-nothing ((x foo) (y bar)) nil)
(defun do-nothing-foo (x) nil)
Results:
(time (do-nothing *foo*) :repeat 500) ==> 176 ms
(time (mm-do-nothing *foo* *bar*) :repeat 500) ==> 224 ms
(time (do-nothing-foo *foo*) :repeat 500) ==> 149 ms
-- Harley