diff options
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/boot/translator.boot | 4 | ||||
| -rw-r--r-- | src/lisp/core.lisp.in | 4 |
3 files changed, 11 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 4ef10c4c..8a66eca0 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,12 @@ 2009-04-08 Gabriel Dos Reis <gdr@cs.tamu.edu> + Fix SF/2564917 + * lisp/core.lisp.in: Default the read to DOUBLE-FLOAT for floating + point literals. + * boot/translator.boot (BOOTTOCLLINES): Don't set it here. + +2009-04-08 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/scan.boot (scanCheckRadix): Take the radix in string form. Croak on missing digit after radix. (scanNumber): Don't ask for implicit 0 completion for explicit diff --git a/src/boot/translator.boot b/src/boot/translator.boot index feb87971..70c5da4e 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2009, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -109,8 +109,6 @@ BOOTCLAMLINES(lines, fn, out) == BOOTTOCLLINES(lines, fn, out) BOOTTOCLLINES(lines, fn, outfn)== - -- The default floating point number is double-float. - SETQ(_*READ_-DEFAULT_-FLOAT_-FORMAT_*, 'DOUBLE_-FLOAT) infn:=shoeAddbootIfNec fn shoeOpenInputFile(a,infn, shoeClLines(a,fn,lines,outfn)) diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index de5eea6d..f66cc267 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -155,7 +155,9 @@ ;; (eval-when (:compile-toplevel :load-toplevel :execute) - (setq *load-verbose* nil)) + (progn + (setq *read-default-float-format* 'double-float) + (setq *load-verbose* nil))) ;; True means that the base Lisp system uses conventional C-style ;; program linking model, whereby programs are constructed by linking |