diff options
| -rw-r--r-- | share/txr/stdlib/defset.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/defset.tl b/share/txr/stdlib/defset.tl index 1aee478a..7a2dd6fd 100644 --- a/share/txr/stdlib/defset.tl +++ b/share/txr/stdlib/defset.tl @@ -68,7 +68,7 @@ pgens rgens egens all-pairs agens) ^(defplace (,name . ,args) body (,getter ,setter - (tree-bind (,*params) ,args + (tree-bind ,params ,args (let* ((,gpf-pairs (mapcar (op (fun list) (gensym)) (list ,*fixpars))) (,gpr-pairs (if ',restpar (if (consp ,restpar) |