Accessor Performance

(defclass buick ()

((color :initform :red :accessor buick-color)))

(defun try7 (n)

(let ((buick (make-instance 'buick)))

(Time (dotimes (i n)

(setq *junk* (buick-color buick))))))

Previous slide

Next slide

Back to first slide

View graphic version