Advertisement
Guest User

Untitled

a guest
Feb 26th, 2019
130
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defstruct test (value nil))
  2. (defparameter *a* (make-test))
  3. (declaim (inline value))
  4. (defmethod value ((self test)) (test-value self))
  5. (defun test1 ()
  6.   (time (dotimes (x 1000000) (value *a*))))
  7. (defun test2 ()
  8.   (time (dotimes (x 1000000) (test-value *a*))))
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement