(defstruct test (value nil))
(defparameter *a* (make-test))
(declaim (inline value))
(defmethod value ((self test)) (test-value self))
(defun test1 ()
  (time (dotimes (x 1000000) (value *a*))))
(defun test2 ()
  (time (dotimes (x 1000000) (test-value *a*))))