diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-04-09 04:29:46 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-04-09 04:29:46 +0000 |
| commit | 519e8a282dd51161e49c9e1d484ff400f546e86a (patch) | |
| tree | facdd52f2c8a1bdac3d5efbb986a386678d8eb5e /src/lisp | |
| parent | def4da7bfc1f143b6a7a13a87895143909dc50c6 (diff) | |
| download | open-axiom-519e8a282dd51161e49c9e1d484ff400f546e86a.tar.gz | |
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.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 4 |
1 files changed, 3 insertions, 1 deletions
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 |