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