mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 19:22:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed several typos.

Browse source
This commit is contained in:
jjgarcia 2004-01-09 12:30:39 +00:00
parent 1884126793
commit 02ed9d6468
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/format.d
View file

@ -73,6 +73,7 @@ static const char *fmt_ordinal[] = {
};
static void format(format_stack, const char *s, cl_index);
static cl_object doformat(int narg, cl_object strm, cl_object string, cl_va_list args, bool in_formatter);
static cl_object
get_aux_stream(void)
@ -1782,6 +1783,7 @@ doformat(int narg, cl_object strm, cl_object string, cl_va_list args, bool in_fo
struct format_stack_struct fmt;
jmp_buf fmt_jmp_buf0;
int colon;
cl_object output;
assert_type_string(string);
fmt.stream = strm;
fmt.base = cl_stack_index();
@ -1806,14 +1808,14 @@ doformat(int narg, cl_object strm, cl_object string, cl_va_list args, bool in_fo
}
cl_stack_set_index(fmt.base);
cl_env.fmt_aux_stream = fmt.aux_stream;
args = Cnil;
output = Cnil;
if (in_formatter) {
while (fmt.index < fmt.end) {
args = CONS(cl_env.stack[fmt.index++], args);
output = CONS(cl_env.stack[fmt.index++], output);
}
args = cl_nreverse(args);
output = cl_nreverse(output);
}
return args;
return output;
}
static void

2
src/c/unixfsys.d
View file

@ -645,7 +645,7 @@ si_getcwd(void)
directory = cl_truename(directory);
if (directory->pathname.name != Cnil ||
directory->pathname.type != Cnil)
FEerror(1, "~A is not a directory pathname.", directory);
FEerror("~A is not a directory pathname.", 1, directory);
namestring = si_coerce_to_filename(directory);
if (chdir(namestring->string.self) <0)
FElibc_error("Can't change the current directory to ~A",