projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.20.33: two buglets, LOG and TIME
[sbcl.git]
/
src
/
code
/
irrat.lisp
diff --git
a/src/code/irrat.lisp
b/src/code/irrat.lisp
index
79be34a
..
c4e9ad4
100644
(file)
--- a/
src/code/irrat.lisp
+++ b/
src/code/irrat.lisp
@@
-342,10
+342,11
@@
((and (typep number '(integer (0) *))
(typep base '(integer (0) *)))
(coerce (/ (log2 number) (log2 base)) 'single-float))
((and (typep number '(integer (0) *))
(typep base '(integer (0) *)))
(coerce (/ (log2 number) (log2 base)) 'single-float))
- ((or (and (typep number 'integer) (typep base 'double-float))
- (and (typep number 'double-float) (typep base 'integer)))
+ ((and (typep number 'integer) (typep base 'double-float))
;; No single float intermediate result
(/ (log2 number) (log base 2.0d0)))
;; No single float intermediate result
(/ (log2 number) (log base 2.0d0)))
+ ((and (typep number 'double-float) (typep base 'integer))
+ (/ (log number 2.0d0) (log2 base)))
(t
(/ (log number) (log base))))
(number-dispatch ((number number))
(t
(/ (log number) (log base))))
(number-dispatch ((number number))