mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 22:43:13 -08:00
Code Issues Projects Releases Packages Wiki Activity

*READ-DEFAULT-FLOAT-FORMAT* did not work for LONG-FLOAT

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-07-25 17:48:53 +02:00
parent b899d38eb5
commit e1639ab71f
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/c/read.d
View file

@ -1383,8 +1383,15 @@ ecl_current_read_default_float_format(void)
x = SYM_VAL(@'*read-default-float-format*');
if (x == @'single-float' || x == @'short-float')
return 'F';
if (x == @'double-float' || x == @'long-float')
if (x == @'double-float')
return 'D';
if (x == @'long-float') {
#ifdef ECL_LONG_FLOAT
return 'L';
#else
return 'D';
#endif
}
ECL_SETQ(@'*read-default-float-format*', @'single-float');
FEerror("The value of *READ-DEFAULT-FLOAT-FORMAT*, ~S, was illegal.",
1, x);