diff options
Diffstat (limited to 'src/interactive')
| -rw-r--r-- | src/interactive/button.lisp | 2 | ||||
| -rw-r--r-- | src/interactive/sprite.lisp | 4 |
2 files changed, 3 insertions, 3 deletions
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 |