Changeset 14062
- Timestamp:
- 08/06/12 19:02:32 (8 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/DoubleFloat.java
r13445 r14062 591 591 if (value != value) { 592 592 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))"; 594 594 else 595 595 return unreadableString("DOUBLE-FLOAT NaN", false); -
trunk/abcl/src/org/armedbear/lisp/SingleFloat.java
r13445 r14062 580 580 if (value != value) { 581 581 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))"; 583 583 else 584 584 return unreadableString("SINGLE-FLOAT NaN", false);
Note: See TracChangeset
for help on using the changeset viewer.