diff options
-rw-r--r-- | stdlib/place.tl | 18 |
1 files 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 |