Performance Comparison

(defstruct ship1

(x-position 0)

(y-position 0))

(defclass ship2 ()

((x-position :initform 0 :initarg :x-position)

(y-position :initform 0 :initarg :y-position)))

;; 24 bytes per ship1.

;; (make-ship1) 200,000 per second

(defun try1 (n)

(time (dotimes (i n) (make-ship1))))

;; 48 bytes per ship2

;; (make-instance 'ship2) 200,000 per second,

;; except for the first one.

(defun try2 (n)

(time (dotimes (i n) (make-instance 'ship2))))

Previous slide

Next slide

Back to first slide

View graphic version