From 65ade1a218eb177b1e5d08f9929c8b73eaa914bd Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 23 Aug 2008 18:30:45 +0000 Subject: * lisp/core.lisp.in [CLISP]: Set global customization variables. Don't translate C-strings. * boot/ast.boot (nativeType) [SBCL]: Don't translate C-strings. --- src/ChangeLog | 6 ++++++ src/boot/ast.boot | 7 ++++++- src/lisp/core.lisp.in | 11 +++++++++++ 3 files changed, 23 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 9159effe..483e49fa 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2008-08-23 Gabriel Dos Reis + + * 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 * algebra/any.spad.pamphlet (Maybe): New domain. 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 -*- ;; -- cgit v1.2.3