From 64a98e2f75407a020ed217227ad0e6e6a3730800 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 16 Mar 2008 17:53:03 +0000
Subject: 	* boot/translator.boot: Switch to new native type translation.
 	* interp/sys-driver.boot (stdStreamIsTerminal): Simplify.

---
 src/boot/translator.boot | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/boot/translator.boot')

diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index 5388c6c5..26c37e4e 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -323,7 +323,8 @@ genImportDeclaration(op, sig) ==
   m isnt ["Mapping", t, s] => coreError '"invalid function type"
   if not null s and SYMBOLP s then s := [s]
   %hasFeature KEYWORD::GCL => 
-    ["DEFENTRY", op, s, [t, SYMBOL_-NAME op']]
+    ["DEFENTRY", op, [nativeType x for x in s], 
+       [nativeType t, SYMBOL_-NAME op']]
   %hasFeature KEYWORD::SBCL =>
     args := [GENSYM() for x in s]
     ["DEFUN",op,args,
-- 
cgit v1.2.3