blob: ca724f5abeff96d905758df2a1d095c897d349c4 (
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
|
(load "../common")
(defparm v 42)
(mtest
v 42
(symbol-value 'v) 42
(set (symbol-value 'v) 73) 73
(symbol-value 'v) 73
v 73)
(mtest
(let ((v 2)) v) 2
(let ((v 2)) (symbol-value 'v)) 2
(progn (let ((v 2)) (set (symbol-value 'v) 1)) v) 73
(let ((v 2)) (set (symbol-value 'v) 1) v) 1
v 73)
(test
(progn
(let ((v 2))
(set (symbol-value 'x) 73))
x)
73)
|
