Advertisement
Guest User

Untitled

a guest
Feb 26th, 2019
162
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.26 KB | None | 0 0
  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
Add Comment
Please, Sign In to add comment
Advertisement