aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/boot/translator.boot3
-rw-r--r--src/interp/sys-driver.boot8
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.