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