blob: 0f33d081a8ab35cc5e408a7c5121878d7a3a067b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(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)
|
