From 393ccf4a29c6b157f758fce6bcdcb9017ef74dc0 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 13 Nov 2023 18:50:20 -0800 Subject: place: bad indentation. * stdlib/place.tl (dwim): Fix incorrect indentation. --- stdlib/place.tl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/stdlib/place.tl b/stdlib/place.tl index 866e087f..3b3e011d 100644 --- a/stdlib/place.tl +++ b/stdlib/place.tl @@ -756,15 +756,15 @@ (sys:dwim-del t ,',obj-sym ,*',arg-syms)) ,',oldval-sym))))) ,body)) - ^(macrolet ((,deleter () - ^(rlet ((,',obj-sym ,',obj-place) - ,*(mapcar (ret ^(,@1 (sys:l1-val ,@2))) - ',arg-syms ',args)) - (let ((,',oldval-sym [,',obj-sym ,*',arg-syms])) - (progn - (sys:dwim-del nil ,',obj-sym ,*',arg-syms) - ,',oldval-sym))))) - ,body)))))) + ^(macrolet ((,deleter () + ^(rlet ((,',obj-sym ,',obj-place) + ,*(mapcar (ret ^(,@1 (sys:l1-val ,@2))) + ',arg-syms ',args)) + (let ((,',oldval-sym [,',obj-sym ,*',arg-syms])) + (progn + (sys:dwim-del nil ,',obj-sym ,*',arg-syms) + ,',oldval-sym))))) + ,body)))))) (defplace (force promise) body (getter setter -- cgit v1.2.3