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 --- src/interactive/button.lisp | 2 +- src/interactive/sprite.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interactive') diff --git a/src/interactive/button.lisp b/src/interactive/button.lisp index 08f7f37..0a15d79 100644 --- a/src/interactive/button.lisp +++ b/src/interactive/button.lisp @@ -7,7 +7,7 @@ :std (error "UP and DOWN lots are required") :doc "Any affine renderable unit") (bg :with) - (on-press on-release :doc "Function accepting the button.")) + (on-press on-release :with :doc "Function accepting the button.")) (:documentation "A basic button class. The UP and DOWN slots should be filled with renderable objects having the same size.")) diff --git a/src/interactive/sprite.lisp b/src/interactive/sprite.lisp index 03bba8d..e478d37 100644 --- a/src/interactive/sprite.lisp +++ b/src/interactive/sprite.lisp @@ -4,11 +4,11 @@ (defclass/std sprite (unit interactive) ((framesets :with :doc "A PLIST whose values are framesets.") - (frameset-key))) + (frameset-key :with))) (defun current-frameset (sprite) (getf (sprite-framesets sprite) - (frameset-key sprite))) + (sprite-frameset-key sprite))) (defmethod initialize-instance :after ((sprite sprite) &key) (with-slots (framesets frameset-key) sprite -- cgit v1.2.3