diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/boot/translator.boot | 3 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 8 |
3 files changed, 8 insertions, 8 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 32510f10..543c3177 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2008-03-16 Gabriel Dos Reis <gdr@cs.tamu.edu> + * boot/translator.boot: Switch to new native type translation. + * interp/sys-driver.boot (stdStreamIsTerminal): Simplify. + +2008-03-16 Gabriel Dos Reis <gdr@cs.tamu.edu> + * lisp/Makefile.in (void_type): New. (char_type): Likewise. (int_type): Likewise. 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, diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 35681028..01d59905 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -94,13 +94,7 @@ algebraBootstrapDir() == ++ stdStreamIsTerminal: ++ returns 1 if the standard stream is attached to a terminal; ++ otherwise 0. -)if %hasFeature KEYWORD::GCL -import stdStreamIsTerminal for std__stream__is__terminal: INT -> INT -)else -stdStreamIsTerminal fd == - 0 -)endif - +import stdStreamIsTerminal for std__stream__is__terminal: int -> int ++ Load list of exposed categories, domains, and packages. ++ User-specified list takes precedence over system wide list. |