blob: af0b9860370653c54b5489728e66c8e96c4c68cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(load "../common")
(defvarl %dir% (dir-name *load-path*))
(compile-file "../load-hook")
(test counter 0)
(push (lambda ()
(remove-path (path-cat %dir% "../load-hook.tlo")))
*load-hooks*)
(set counter nil)
(load "../load-hook.tl")
(test counter 1)
(set counter nil)
(load "../load-hook.tlo")
(test counter 1)
(mtest
(macroexpand-1 '(push-after-load))
(sys:setq *load-hooks* (cons (lambda ()) *load-hooks*))
(macroexpand-1 '(push-after-load x))
(sys:setq *load-hooks* (cons (lambda () x) *load-hooks*))
(macroexpand-1 '(pop-after-load))
(sys:setq *load-hooks* (cdr *load-hooks*)))
|
