From 65ade1a218eb177b1e5d08f9929c8b73eaa914bd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
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/lisp/core.lisp.in | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/lisp')

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