1comment
2
3 Test for sf.net bug #3547914 and fix to greaterp!:
4
5end;
6
7
8on numval, rounded;
9
10
11
12logb(2^(-100),2);
13
14
15 - 100.0
16
17logb(2^(-101),2);
18
19
20 - 101.0
21
22logb(3^(-33),3);
23
24
25 - 33.0
26
27
28on roundbf;
29
30
31
32logb(2^(-100),2);
33
34
35 - 100.0
36
37logb(2^(-101),2);
38
39
40 - 101.0
41
42logb(3^(-33),3);
43
44
45 - 33.0
46
47
48off roundbf;
49
50
51
52logb(2^(-100),2);
53
54
55 - 100.0
56
57logb(2^(-101),2);
58
59
60 - 101.0
61
62logb(3^(-33),3);
63
64
65 - 33.0
66
67
68end;
69
70Tested on x86_64-pc-windows CSL
71Time (counter 1): 16 ms
72
73End of Lisp run after 0.01+0.04 seconds
74real 0.18
75user 0.03
76sys 0.06
77