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 | |
| 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.
| -rw-r--r-- | src/ChangeLog | 6 | ||||
| -rw-r--r-- | src/boot/ast.boot | 7 | ||||
| -rw-r--r-- | src/lisp/core.lisp.in | 11 |
3 files changed, 23 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 9159effe..483e49fa 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,11 @@ 2008-08-23 Gabriel Dos Reis <gdr@cs.tamu.edu> + * lisp/core.lisp.in [CLISP]: Set global customization variables. + Don't translate C-strings. + * boot/ast.boot (nativeType) [SBCL]: Don't translate C-strings. + +2008-08-23 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/any.spad.pamphlet (Maybe): New domain. * algebra/exposed.lsp.pamphlet: Expose it. * algebra/Makefile.pamphlet (axiom_algebra_layer_1): Include MAYBE. diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 3e026fbf..b0d5d769 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1220,5 +1220,10 @@ bootSymbol s == nativeType t == null t => t - t' := ASSOC(coreSymbol t,$NativeTypeTable) => rest t' + t' := rest ASSOC(coreSymbol t,$NativeTypeTable) => + -- ??? decree we have not discovered Unicode yet. + t = "string" and %hasFeature KEYWORD::SBCL => + [t',KEYWORD::EXTERNAL_-FORMAT,KEYWORD::ASCII, + KEYWORD::ELEMENT_-TYPE, "BASE-CHAR"] + t' fatalError CONCAT('"unsupported native type: ", SYMBOL_-NAME t) 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 -*- ;; |