Bug in (timer 'symbol)

[pjot]

Hi,



According to the manual, (timer 'symbol) should return the elapsed time of the timer with newLisp 8.6.1, which I am currently using.

Code Select Expand


(define (callback)
(println "Callback...")(set 'done true))

(timer 'callback 5.0)

(while (not done)
(println (timer 'callback))
(sleep 100))


So the result of this program should be a climbing series of values. This is OK in Windows. In Linux however, this is the result:

peter@Solarstriker:~/programming/newlisp$ ./bla.lsp

0

1.89

1.78

1.67

1.56

1.45

1.34

1.23

1.12

1.01

2.9

2.79

2.68

2.57

2.46

2.35

2.24

2.13

2.02

3.91

3.8

3.69

3.58

3.47

3.36

3.25

3.14

3.03

4.92

4.81

4.7

4.59

4.48

4.37

4.26

4.15

4.04

5.93

5.82

5.71

5.6

5.49

5.38

5.27

5.16

5.05

Callback...

Peter

[pjot]

Line 4826 in the file 'newlisp.c' should look like this (only added the brackets here):

Code Select Expand


seconds = duration - (outVal.it_value.tv_sec + outVal.it_value.tv_usec / 1000000.0);


Now the result of the testprogram looks like:

0

0.11

0.22

0.33

0.44

0.55

0.66

0.77

0.88

0.99

1.1

1.21

1.32

1.43

1.54

1.65

1.76

1.87

1.98

2.09

2.2

2.31

2.42

2.53

2.64

2.75

2.86

2.97

3.08

3.19

3.3

3.41

3.52

3.63

3.74

3.85

3.96

4.07

4.18

4.29

4.4

4.51

4.62

4.73

4.84

4.95

Callback...

Peter

[newdep]

Nice one ! thanks ;-)

[Lutz]

Thanks for the fix Peter. I will make a development release during the coming week and for mid September we will have a new official release.



Lutz