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

[Raymond Toy]

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/6c86016d677e5a39fc3fe2ddc1c0d7d5f734a744
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160903/475fa7b9/attachment.html>