Raymond Toy pushed to branch rtoy-28-fix-recursive-fcn-defn at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/float.lisp
    ... ... @@ -1051,6 +1051,8 @@
    1051 1051 
     		   (coerce x ',type))
    1052 1052 
     		  #+double-double
    1053 1053 
     		  ((double-double-float)
    1054 
     		   ;; Convert the double-double to a double before
    1055 
     		   ;; coercing to the appropriate type.
    1054 1056 
     		   (coerce (+ (double-double-hi x)
    1055 1057 
     			      (double-double-lo x))
    1056 1058 
     			   ',type))

    • —
    View it on GitLab.
    You're receiving this email because of your account on gitlab.common-lisp.net. If you'd like to receive fewer emails, you can adjust your notification settings.