1
2load_package scope;
3
4
5
6optimize z:=a,z:=-z;
7
8
9
10z := a
11z :=  - z
12
13
14optimize z:=a,z:=z;
15
16
17
18z := a
19
20
21optimize z:=a,z:=1-1-z;
22
23
24
25z := a
26z :=  - z
27
28
29optimize z:=a,z:=z**2;
30
31
32
33z := a
34z := z*z
35
36
37optimize z:=a,z:=-z**2;
38
39
40
41z := a
42z :=  - z*z
43
44
45end;
46
47Tested on x86_64-pc-windows CSL
48Time (counter 1): 0 ms  plus GC time: 16 ms
49
50End of Lisp run after 0.00+0.06 seconds
51real 0.21
52user 0.01
53sys 0.06
54