From c58c86925f357bbad6496f54753f0f48e7fb21a7 Mon Sep 17 00:00:00 2001 From: Boutade Date: Thu, 3 Oct 2019 06:58:45 -0500 Subject: actually, just setters --- animise.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'animise.lisp') diff --git a/animise.lisp b/animise.lisp index 590f622..8dbb494 100644 --- a/animise.lisp +++ b/animise.lisp @@ -53,7 +53,6 @@ (rounding :initarg rounding :initform t ) - (getter) (setter) (accessor :initarg :accessor @@ -61,7 +60,6 @@ (defmethod initialize-instance :after ((tween tween) &key) (with-slots (getter setter accessor) tween - (setf getter (eval `(function ,accessor))) (setf setter (eval `(function (setf ,accessor)))))) @@ -124,10 +122,10 @@ (get-duration tween)) (defmethod run-tween ((tween tween) time) - (with-slots (start-time duration rounding ease-fn start-val target end-val getter setter) tween + (with-slots (start-time duration rounding ease-fn start-val target end-val setter accessor) tween (when (>= time start-time) (when (null start-val) - (setf start-val (funcall getter target))) + (setf start-val (funcall accessor target))) (let ((new-val (+ start-val (funcall ease-fn -- cgit v1.2.3