[Git][cmucl/cmucl][rtoy-28-fix-recursive-fcn-defn] Add comment.

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...