Changeset 14062


Ignore:
Timestamp:
08/06/12 19:02:32 (8 years ago)
Author:
rschlatte
Message:

Robustify readably-printed NaNs? in the spirit of #14061

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/DoubleFloat.java

    r13445 r14062  
    591591        if (value != value) {
    592592            if (printReadably)
    593                 return "#.(progn \"Comment: create a NaN.\" (/ 0.0d0 0.0d0))";
     593                return "#.(CL:PROGN \"Comment: create a NaN.\" (CL:/ 0.0d0 0.0d0))";
    594594            else
    595595                return unreadableString("DOUBLE-FLOAT NaN", false);
  • trunk/abcl/src/org/armedbear/lisp/SingleFloat.java

    r13445 r14062  
    580580        if (value != value) {
    581581            if (printReadably)
    582                 return "#.(progn \"Comment: create a NaN.\" (/ 0.0s0 0.0s0))";
     582                return "#.(CL:PROGN \"Comment: create a NaN.\" (CL:/ 0.0s0 0.0s0))";
    583583            else
    584584                return unreadableString("SINGLE-FLOAT NaN", false);
Note: See TracChangeset for help on using the changeset viewer.