diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-30 09:29:28 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-30 09:29:28 -0500 |
| commit | 98b5811d8b50d20f8c15e9b202f0d3f0457df58b (patch) | |
| tree | 6562850bbd01236cac901208d528ca2dacf83dc0 /examples/02-moving-bitmp.lisp | |
| parent | 642c0c594a8abe05be1cb887110ed3e602cd0e48 (diff) | |
[modify] affine fns are generic; [add] safe-slot util
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
| -rw-r--r-- | examples/02-moving-bitmp.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp index 7cb03d3..52cf0ca 100644 --- a/examples/02-moving-bitmp.lisp +++ b/examples/02-moving-bitmp.lisp @@ -51,7 +51,7 @@ (ww::add-handler target (ww::on-perframe () - (with-slots ((cx ww::x) (cy ww::y)) target + (with-accessors ((cx ww::x) (cy ww::y)) target (if (and (= cx destx) (= cy desty)) (progn (remhash target *shared-anim-table*) |