blob: ed6f29a320b0d45a5028af9835b7969140ea129e (
plain)
1
2
3
4
5
6
7
8
9
10
|
(trace remove-path)
(each ((*load-path* '(nil "/tmp/foo.tlo")))
(each ((name '#"nabuchodonosor.tl nabuchodonosor.txr \
nabuchodonosor.tlo nabuchodonosor.tlo.gz \
nabuchodonosor.abc nabuchodonosor"))
(prinl ^(let ((*load-path* , *load-path*)) (clean-file ,name)))
(put-line "-->")
(clean-file name)
(put-line)))
|
