From 7bf212df6c3cf0d16b7145ddb18b97f504717230 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 8 Jul 2022 10:13:16 -0500 Subject: [add] exports to pacage; [rename] frameset-key/sprite-frameset-key --- examples/06-sprite.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'examples/06-sprite.lisp') diff --git a/examples/06-sprite.lisp b/examples/06-sprite.lisp index 2addfd7..abb5043 100644 --- a/examples/06-sprite.lisp +++ b/examples/06-sprite.lisp @@ -14,9 +14,9 @@ (defun set-key-if-not (sprite key ) "Sets the frame kyey for sprite if that key is not already set. Also sets the frameset's RUNNINGP to T if it is not already." - (unless (eql key (ww::frameset-key sprite)) + (unless (eql key (ww::sprite-frameset-key sprite)) (setf (ww::runningp (ww::current-frameset sprite)) nil) - (setf (ww::frameset-key sprite) key)) + (setf (ww::sprite-frameset-key sprite) key)) (unless (ww::runningp (ww::current-frameset sprite)) (setf (ww::runningp (ww::current-frameset sprite)) t))) @@ -27,7 +27,7 @@ "When the sprite is walking, adjust its position." (with-slots (walkingp walking-speed) sprite (when walkingp - (case (ww::frameset-key sprite) + (case (ww::sprite-frameset-key sprite) (:left (decf (ww::x sprite) walking-speed)) (:right @@ -71,7 +71,6 @@ (setf (ww::runningp current) nil (ww::frameset-index current) 0)))) - (defmethod ww::boot ((app sprite-example)) (let* ((front (ww::make-frameset -- cgit v1.2.3