3 Sep
2016
3 Sep
'16
5:59 p.m.
Raymond Toy pushed to branch rtoy-28-fix-recursive-fcn-defn at cmucl / cmucl Commits: 6c86016d by Raymond Toy at 2016-09-03T10:59:29-07:00 Add comment. - - - - - 1 changed file: - src/code/float.lisp Changes: ===================================== src/code/float.lisp ===================================== --- a/src/code/float.lisp +++ b/src/code/float.lisp @@ -1051,6 +1051,8 @@ (coerce x ',type)) #+double-double ((double-double-float) + ;; Convert the double-double to a double before + ;; coercing to the appropriate type. (coerce (+ (double-double-hi x) (double-double-lo x)) ',type)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/6c86016d677e5a39fc3fe2ddc1...