diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/struct.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index e79dd3ed..9f643662 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -236,8 +236,8 @@ (defmacro usl (slot) ^(uslot ',slot)) -(defmacro umeth (slot) - ^(umethod ',slot)) +(defmacro umeth (slot . bound-args) + ^[(fun umethod) ',slot ,*bound-args]) (defun sys:defmeth (type-sym name fun) (let ((type (find-struct-type type-sym))) |