Performance Comparison

;; 2.2 million struct accesses per second

(defun try4 (n)

(let ((ship (make-ship1)))

(Time (dotimes (i n) (setq *junk* (ship1-x-position ship))))))

;; 700,000 slot accesses per second

(defun try5 (n)

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

(Time (dotimes (i n) (setq *junk* (slot-value ship 'x-position))))))

Previous slide

Next slide

Back to first slide

View graphic version