Performance Comparison

(defmethod negate ((value ship2) &key arg) (not value))

(defmethod negate ((value buick) &key arg) (not value))

;; 300,000 calls per second

(defun try10 (n)

(let ((ship (make-instance 'ship2)))

(time (dotimes (i n) (setq *junk* (negate ship))))))

;; Remove keyword processing to increase performance by

;; a factor of 6x.

Previous slide

Next slide

Back to first slide

View graphic version