diff --git a/src/compiler/sparc/float.lisp b/src/compiler/sparc/float.lisp index 74f279dd3cdf49e1d94d59c1433d5be87e498a8b..dcdbda7d5fd5b68d0a444eb0c804e652649713e9 100644 --- a/src/compiler/sparc/float.lisp +++ b/src/compiler/sparc/float.lisp @@ -1061,7 +1061,7 @@ ;; constraint is that the pieces must be small enough to fit in the ;; desired float format without rounding. (frob %single-float %%single-float 12 1f0) - (frob %double-float %%double-float 12 1f0)) + (frob %double-float %%double-float 12 1d0)) (macrolet ((frob (name translate inst to-sc to-type)