[add] exports to pacage; [rename] frameset-key/sprite-frameset-key

1 files changed, 3 insertions, 4 deletions

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