diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-23 18:30:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-23 18:30:45 +0000 |
| commit | 65ade1a218eb177b1e5d08f9929c8b73eaa914bd (patch) | |
| tree | ac3b08e70393b469c9963792a022c0f3ba81fdf5 /src/lisp | |
| parent | 5ec0094982b5c45d9d539e7bf9a9136aa40a9865 (diff) | |
| download | open-axiom-65ade1a218eb177b1e5d08f9929c8b73eaa914bd.tar.gz | |
* lisp/core.lisp.in [CLISP]: Set global customization variables.
Don't translate C-strings.
* boot/ast.boot (nativeType) [SBCL]: Don't translate C-strings.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 7685ff19..83a1b610 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -198,6 +198,17 @@ |$ExtraRuntimeLibraries|) (list |$ExtraRuntimeLibraries|))) + +#+:clisp +(eval-when (:compile-toplevel :load-toplevel :execute) + (progn + (setf custom:*ansi* t) + (setf custom:*floating-point-contagion-ansi* t) + (setf custom:*warn-on-floating-point-contagion* t) + (setf custom:*trace-indent* t) + (setf custom:*foreign-encoding* + (ext:make-encoding :charset charset:iso-8859-1)))) + ;; ;; -*- OpenAxiom filesystem -*- ;; |