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