From 98b5811d8b50d20f8c15e9b202f0d3f0457df58b Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 30 Jun 2022 09:29:28 -0500 Subject: [modify] affine fns are generic; [add] safe-slot util --- examples/02-moving-bitmp.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples/02-moving-bitmp.lisp') 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*) -- cgit v1.2.3