diff options
Diffstat (limited to 'src/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, |