From f06b7cfa63a93512e4764cfd424ae2e838f8de4d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 15 Jul 2017 07:10:39 -0700 Subject: Remove unused variable in placelet implementation. * share/txr/stdlib/place.tl (sys:placelet-1): Remove the genyms called steal-getter which is not referenced. --- share/txr/stdlib/place.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 07293bef..63d855a9 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -891,7 +891,7 @@ ^(,setter (,',function (,getter) ,,*cleaned-lambda-list))))))) (defmacro sys:placelet-1 (((sym place)) :env env . body) - (with-gensyms (tmp-place pl-getter pl-setter steal-getter) + (with-gensyms (tmp-place pl-getter pl-setter) (unwind-protect (progn (sethash *place-update-expander* tmp-place -- cgit v1.2.3