diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
| commit | 00841605110612f6e7f3bbfc054ceff980bf25be (patch) | |
| tree | 1f16b86d5c555eea22e60cb2d36f88682bd9023b /examples/08-pong.lisp | |
| parent | 6d9b8b48423dba99ecdba004f260c30e6717b6a6 (diff) | |
[version] [refactor] [redesign] removed containers
Diffstat (limited to 'examples/08-pong.lisp')
| -rw-r--r-- | examples/08-pong.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/08-pong.lisp b/examples/08-pong.lisp index f40e66d..574eacd 100644 --- a/examples/08-pong.lisp +++ b/examples/08-pong.lisp @@ -163,9 +163,9 @@ on which boundary VAL is outside of." (ball app) ball (game-over app) game-over) - (ww::add-unit app ball) - (ww::add-unit app paddle) - (ww::add-unit app game-over) + (ww::add-unit ball) + (ww::add-unit paddle) + (ww::add-unit game-over) (ww::add-handler app #'pong-mousemove) (ww::add-handler app #'pong-perframe)))) @@ -183,7 +183,7 @@ on which boundary VAL is outside of." :scale-x 3.0 :scale-y 3.0))) (setf (intro-text app) intro-text) - (ww:add-unit app intro-text)) + (ww:add-unit intro-text)) (ww:add-handler app #'press-to-start)) (defun start () |