aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-08-23 18:30:45 +0000
committerdos-reis <gdr@axiomatics.org>2008-08-23 18:30:45 +0000
commit65ade1a218eb177b1e5d08f9929c8b73eaa914bd (patch)
treeac3b08e70393b469c9963792a022c0f3ba81fdf5 /src
parent5ec0094982b5c45d9d539e7bf9a9136aa40a9865 (diff)
downloadopen-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')
-rw-r--r--src/ChangeLog6
-rw-r--r--src/boot/ast.boot7
-rw-r--r--src/lisp/core.lisp.in11
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 -*-
;;