diff options
Diffstat (limited to 'stdlib/struct.tl')
| -rw-r--r-- | stdlib/struct.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/stdlib/struct.tl b/stdlib/struct.tl index 10b07710..855ac6e1 100644 --- a/stdlib/struct.tl +++ b/stdlib/struct.tl @@ -415,6 +415,11 @@ (mac-param-bind ,form ,params (cdr ,slot) ,*body))) ,keyword))) +(defun macroexpand-struct-clause (clause : form) + (iflet ((xfun (and (consp clause) [*struct-clause-expander* (car clause)]))) + [xfun clause form] + (cons clause nil))) + (compile-only (load-for (struct sys:param-parser-base "param"))) |