diff options
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/boot/ast.boot | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index e2bf2ea7..c3a50351 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-10-31 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * boot/ast.boot (genECLnativeTranslation): Fix thinko. + 2008-10-30 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/sys-macros.lisp (APPEND2): Remove. diff --git a/src/boot/ast.boot b/src/boot/ast.boot index d461bcd3..f9246218 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1409,7 +1409,7 @@ genECLnativeTranslation(op,s,t,op') == args := nil argtypes := nil for x in s repeat - argtypes := [nativeReturnType x,:argtypes] + argtypes := [nativeArgumentType x,:argtypes] args := [GENSYM(),:args] argtypes := nreverse argtypes args := nreverse args |