From 6c86016d677e5a39fc3fe2ddc1c0d7d5f734a744 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sat, 3 Sep 2016 10:59:29 -0700
Subject: [PATCH] Add comment.

---
 src/code/float.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/code/float.lisp b/src/code/float.lisp
index ee6e57952..4616fedf9 100644
--- 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))
-- 
GitLab