diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/place.tl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index b4828f95..13bfc258 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -182,6 +182,7 @@ (let* ((place (sys:pl-expand unex-place env)) (expander (get-update-expander place)) (sys:*pl-env* env) + (sys:*lisp1* nil) (expansion [expander getter setter place body]) (expansion-ex (sys:expand expansion env))) (sys:cp-origin expansion-ex place))) @@ -190,6 +191,7 @@ (let* ((place (sys:pl-expand unex-place env)) (expander (get-clobber-expander place)) (sys:*pl-env* env) + (sys:*lisp1* nil) (expansion [expander ssetter place body]) (expansion-ex (sys:expand expansion env))) (sys:cp-origin expansion-ex place))) @@ -198,6 +200,7 @@ (let* ((place (sys:pl-expand unex-place env)) (expander (get-delete-expander place)) (sys:*pl-env* env) + (sys:*lisp1* nil) (expansion [expander deleter place body]) (expansion-ex (sys:expand expansion env))) (sys:cp-origin expansion-ex place)))) |