diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-16 17:53:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-16 17:53:03 +0000 |
| commit | 64a98e2f75407a020ed217227ad0e6e6a3730800 (patch) | |
| tree | 2ec0bc4e3433731a7e2d16f4cc741b04307b78ab /src/boot/translator.boot | |
| parent | cd820d07248dcce1106cbcd5e18bd4831b570f76 (diff) | |
| download | open-axiom-64a98e2f75407a020ed217227ad0e6e6a3730800.tar.gz | |
* boot/translator.boot: Switch to new native type translation.
* interp/sys-driver.boot (stdStreamIsTerminal): Simplify.
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 3 |
1 files changed, 2 insertions, 1 deletions
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, |