diff options
Diffstat (limited to 'tests/019/load-hook.tl')
| -rw-r--r-- | tests/019/load-hook.tl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/019/load-hook.tl b/tests/019/load-hook.tl index 0f33d081..e62e689b 100644 --- a/tests/019/load-hook.tl +++ b/tests/019/load-hook.tl @@ -16,3 +16,13 @@ (set counter nil) (load "../load-hook.tlo") (test counter 1) + +(mtest + (macroexpand-1 '(push-after-load)) + (set *load-hooks* (cons (lambda ()) *load-hooks*)) + + (macroexpand-1 '(push-after-load x)) + (set *load-hooks* (cons (lambda () x) *load-hooks*)) + + (macroexpand-1 '(pop-after-load)) + (set *load-hooks* (cdr *load-hooks*))) |