diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/place.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 7bb059a8..f7e468cf 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -82,6 +82,11 @@ (makunbound ',',place-expr)))) ,*op-body)) + (defun place-form-p (place) + (when (or (bindable place) + (and (consp place) [*place-update-expander* (car place)])) + t)) + (defun get-update-expander (place) (cond ((symbolp place) (fun sys:sym-update-expander)) |